21 lines
400 B
Fortran
21 lines
400 B
Fortran
! { 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)) call abort
|
|
if (lbound(x(5:n),1) /= 1) call abort
|
|
if (any (ubound(x(5:n)) /= m)) call abort
|
|
if (ubound(x(5:n),1) /= m) call abort
|
|
end subroutine
|
|
end program
|