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