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) 10contains 11 subroutine s(n,m) 12 implicit none 13 integer n, m 14 real x(10) 15 if (any (lbound(x(5:n)) /= 1)) call abort 16 if (lbound(x(5:n),1) /= 1) call abort 17 if (any (ubound(x(5:n)) /= m)) call abort 18 if (ubound(x(5:n),1) /= m) call abort 19 end subroutine 20end program 21