[Patch, fortran] PR28971 - undiagnosed, self-healing regression

[Paul Thomas]

I have cleared this PR since we do not have time to examine the entrails 
of a regression that mysteriously appeared sometime in June/July and has 
equally mysteriously disappeared.  However, I have committed the 
reporter's testcase to the testsuite to act as a backstop against 
re-infection.  Since we do not know what this was about, I have 
exceptionally given it the name of the PR.

Paul

2006-09-12  Paul Thomas  <pault@gcc.gnu.org>

    PR fortran/28971
    gfortran.dg/pr28971.f90: New test to act as a backstop in case
    this undiagnosed regression reappears.

! { dg-do compile }
! This caused an ICE for gfortrans of July 2006 vintage.  It was a 
regression
! that "fixed" itself.  The cause and the fix are mysteries.  This test 
is intended
! to signal any further regression, should it occur.
!
! Contributed by Oskar Enoksson  <enok@lysator.liu.se>

SUBROUTINE BUG(A,B)
  IMPLICIT NONE
 
  INTEGER   :: A
  INTEGER   :: B(2)
 
  INTEGER, PARAMETER :: C(2) = (/ 1,2 /)
 
  WHERE (C(:).EQ.A)
    B = -1
  END WHERE
END SUBROUTINE BUG