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