! { 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