1! { dg-do compile } 2! This caused an ICE for gfortrans of July 2006 vintage. It was a regression 3! that "fixed" itself. The cause and the fix are mysteries. This test is intended 4! to signal any further regression, should it occur. 5! 6! Contributed by Oskar Enoksson <enok@lysator.liu.se> 7 8SUBROUTINE BUG(A,B) 9 IMPLICIT NONE 10 11 INTEGER :: A 12 INTEGER :: B(2) 13 14 INTEGER, PARAMETER :: C(2) = (/ 1,2 /) 15 16 WHERE (C(:).EQ.A) 17 B = -1 18 END WHERE 19END SUBROUTINE BUG 20 21