--- /dev/null Thu Jan 01 00:00:00 1970 +0000+++ b/gcc/testsuite/gfortran.dg/pr93835.f08 Mon May 25 07:50:57 2020 +0900@@ -0,0 +1,8 @@+! {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+