summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gfortran.dg/coarray_28.f90
blob: ca6f863568a875486574d9fa61bd1758061687f1 (plain)
1
2
3
4
5
6
7
8
9
10
! { 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