Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/pr28971.f90 @ 118:fd00160c1b76
ifdef TARGET_64BIT
author | mir3636 |
---|---|
date | Tue, 27 Feb 2018 15:01:35 +0900 |
parents | 04ced10e8804 |
children |
line wrap: on
line source
! { 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