gcc/testsuite/gfortran.dg/bound_resolve_after_error_1.f90

   1 ! Testcase for bound check after issued error
   2 ! See PR 94192
   3 ! { dg-do compile }
   4 program bound_for_illegal
   5
   6 contains
   7
   8   subroutine bnds(a)  ! { dg-error "must have a deferred shape or assumed rank" }
   9     integer, pointer, intent(in) :: a(1:2)
  10     print *,lbound(a)
  11   end subroutine bnds
  12
  13 end program bound_for_illegal