gcc/testsuite/gfortran.dg/pr108502.f90

   1 ! { dg-do compile }
   2 ! { dg-options "-O2 -ffrontend-optimize" }
   3 ! PR fortran/108502 - ICE in gfc_check_dependency
   4 ! Contributed by G.Steinmetz
   5
   6 integer function n()
   7   integer :: a(1)
   8   a = [1] / 0
   9 end
  10 program p
  11   integer :: b = n() ! { dg-error "must be an intrinsic function" }
  12 end