gcc/testsuite/gfortran.dg/pr93835.f08 - gcc - Git at Google

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