| ! { dg-do compile } | |
| ! { dg-options "-fcoarray=lib" } | |
| ! PR fortran/102180 - Improve checking of assumed size array spec | |
| subroutine s(x,y) | |
| real :: x(0:*) ! legal | |
| real :: y[0:*] ! legal | |
| end | |
| subroutine t(x,y) | |
| real :: x(:*) ! { dg-error "A lower bound must precede colon" } | |
| real :: y[:*] ! { dg-error "A lower bound must precede colon" } | |
| end | |
| subroutine u(x,y,z) | |
| real :: x(2,*) | |
| real :: y(2,2:*) | |
| real :: z(2,:*) ! { dg-error "A lower bound must precede colon" } | |
| end |