! { dg-do compile } | |
! | |
! PR fortran/50129 | |
! ICE after reporting an error on a masked ELSEWHERE statement following an | |
! unmasked one. | |
! | |
! Contributed by Joost Van de Vondele <Joost.VandeVondele@pci.uzh.ch> | |
INTEGER :: I(3) | |
WHERE (I>2) | |
ELSEWHERE | |
ELSEWHERE (I<1) ! { dg-error "follows previous unmasked ELSEWHERE" } | |
END WHERE | |
END | |