blob: d84314325597c2a36334a060e0e16f0315ec4d89 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
! { dg-do run }
!
call s(1,0)
call s(2,0)
call s(3,0)
call s(4,0)
call s(5,1)
call s(6,2)
call s(7,3)
contains
subroutine s(n,m)
implicit none
integer n, m
real x(10)
if (any (lbound(x(5:n)) /= 1)) STOP 1
if (lbound(x(5:n),1) /= 1) STOP 2
if (any (ubound(x(5:n)) /= m)) STOP 3
if (ubound(x(5:n),1) /= m) STOP 4
end subroutine
end program
|