blob: 35cc2405a8d9138240740407aed9a6e4b9b01e6a (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
|
! 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
|
