URL
https://opencores.org/ocsvn/openrisc/openrisc/trunk
Subversion Repositories openrisc
[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc2/] [gcc/] [testsuite/] [gfortran.dg/] [pr28971.f90] - Rev 686
Go to most recent revision | Compare with Previous | Blame | View Log
! { 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
Go to most recent revision | Compare with Previous | Blame | View Log