2006-09-12 Paul Thomas <[email protected]>

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


git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@116904 138bc75d-0d04-0410-961f-82ee72b054a4

gcc/testsuite/ChangeLog

@@ -1,3 +1,9 @@
+2006-09-12  Paul Thomas  <[email protected]>
+
+	PR fortran/28971
+	gfortran.dg/pr28971.f90: New test to act as a backstop in case
+	this undiagnosed regression reappears.
+
 2006-09-12  Kazu Hirata  <[email protected]>
 
 	* lib/c-torture.exp (c-torture-compile, c-torture-execute):

gcc/testsuite/gfortran.dg/pr28971.f90

@@ -0,0 +1,20 @@
+! { 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  <[email protected]>
+
+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
+