gcc/testsuite/gfortran.dg/where_3.f90

   1 ! { dg-do compile }
   2 !
   3 ! PR fortran/50129
   4 ! ICE after reporting an error on a masked ELSEWHERE statement following an
   5 ! unmasked one.
   6 !
   7 ! Contributed by Joost Van de Vondele <Joost.VandeVondele@pci.uzh.ch>
   8
   9 INTEGER :: I(3)
  10 WHERE (I>2)
  11 ELSEWHERE
  12 ELSEWHERE (I<1) ! { dg-error "follows previous unmasked ELSEWHERE" }
  13 END WHERE
  14 END
  15