1! { dg-do compile }
2! { dg-options "-fcoarray=single" }
3!
4! PR fortran/54225
5!
6
7integer, allocatable :: a[:,:]
8
9allocate (a[*,4]) ! { dg-error "Unexpected '.' for codimension 1 of 2" }
10end
11