1! {dg-do run } 2! 3! PR fortran/93835 - the following code resulted in an ICE 4! 5program p 6 if (any(findloc(shape(1), 1) .ne. 0)) stop 1 7end 8 9