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 9INTEGER :: I(3) 10WHERE (I>2) 11ELSEWHERE 12ELSEWHERE (I<1) ! { dg-error "follows previous unmasked ELSEWHERE" } 13END WHERE 14END 15 16