| ! { dg-do compile } | |
| ! { dg-options "-fcoarray=single" } | |
| ! | |
| ! PR fortran/70071 | |
| ! Based on testcases by Gerhard Steinmetz | |
| program pr70071 | |
| implicit none | |
| integer, allocatable :: z(:)[:,:] | |
| allocate (z(2)[1::2,*]) ! { dg-error "Bad array dimension" } | |
| allocate (z(1::2)[2,*]) ! { dg-error "Bad array specification in ALLOCATE" } | |
| end program pr70071 |