gcc/testsuite/gfortran.dg/findloc_7.f90

   1 ! { dg-do compile }
   2 ! This used to ICE with an infinite recursion during development.
   3 ! Test case by Dominique d'Humieres.
   4
   5 program logtest3
   6    implicit none
   7    logical :: x = .true.
   8    integer, parameter :: I_FINDLOC_BACK(1) = findloc([1,1],1, back=x) ! { dg-error "does not reduce to a constant expression" }
   9 end program logtest3