summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gfortran.dg/pr28971.f90
blob: 23045fce4539388dffd80e7e7a436b0537ed130c (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
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