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