mirror of
https://github.com/autc04/Retro68.git
synced 2024-06-28 11:30:19 +00:00
21 lines
384 B
Fortran
21 lines
384 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)) 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
|