| ! PR fortran/100607 - fix diagnostics for SELECT RANK |
| ! Contributed by T.Burnus |
| integer, allocatable :: A(:,:,:) |
| allocate(a(5:6,-2:2, 99:100)) |
| integer, allocatable :: x(..) |
| if (any (lbound(x) /= [5, -2, 99])) stop 2 |
| if (any (lbound(x) /= [5, -2, 99])) stop 3 |
| select rank (x) ! { dg-error "pointer or allocatable selector at .2." } |
| rank(*) ! { dg-error "pointer or allocatable selector at .2." } |
| if (lbound(x, 1) /= 1) stop 5 |
| if (any (lbound(x) /= 1)) stop 7 |
| if (any (lbound(x) /= 1)) stop 8 |
| if (lbound(x, 1) /= 1) stop 10 |