blob: ca6f863568a875486574d9fa61bd1758061687f1 [file] [log] [blame]
! { dg-do compile }
! { dg-options "-fcoarray=single" }
!
! PR fortran/54225
!
integer, allocatable :: a[:,:]
allocate (a[*,4]) ! { dg-error "Unexpected '.' for codimension 1 of 2" }
end