view gcc/testsuite/gfortran.dg/bound_resolve_after_error_1.f90 @ 19:2b5abeee2509 default tip

update gcc11
author anatofuz
date Mon, 25 May 2020 07:50:57 +0900
parents
children
line wrap: on
line source

! Testcase for bound check after issued error
! See PR 94192
! { dg-do compile }
program bound_for_illegal
  
contains

  subroutine bnds(a)  ! { dg-error "must have a deferred shape or assumed rank" }
    integer, pointer, intent(in) :: a(1:2)
    print *,lbound(a)
  end subroutine bnds

end program bound_for_illegal