gcc/testsuite/gfortran.dg/bound_3.f90


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)) 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