gcc/testsuite/gfortran.dg/bound_3.f90

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