gcc/testsuite/gfortran.dg/coarray_28.f90


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