gcc/testsuite/gfortran.dg/pr107577.f90

   1 ! { dg-do compile }
   2 ! PR fortran/107577 - ICE in find_array_spec
   3 ! Contributed by G.Steinmetz
   4
   5 program p
   6   implicit none
   7   associate (y => f(4))            ! { dg-error "has no IMPLICIT type" }
   8     if (lbound (y, 1) /= 1) stop 1 ! { dg-error "Invalid array reference" }
   9     if (y(1) /= 1) stop 2          ! { dg-error "Invalid array reference" }
  10   end associate
  11 end
  12
  13 ! { dg-error "has no type" " " { target *-*-* } 7 }