OpenE2K/gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

re PR fortran/28971 (ICE: Segmentation fault on valid code)

Browse Source 
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.

From-SVN: r116904
This commit is contained in:
Paul Thomas 2006-09-12 19:38:48 +00:00
parent 66cccea671
commit 6df7764520
2 changed files with 26 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
gcc/testsuite/ChangeLog
View File

@ -1,3 +1,9 @@
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.
2006-09-12 Kazu Hirata <kazu@codesourcery.com>
* lib/c-torture.exp (c-torture-compile, c-torture-execute):

20
gcc/testsuite/gfortran.dg/pr28971.f90 Normal file
View File

@ -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 <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