gcc/testsuite/gfortran.dg/coarray_44.f90

   1 ! { dg-do compile }
   2 ! { dg-options "-fcoarray=single" }
   3 !
   4 ! PR fortran/70071
   5 ! Based on testcases by Gerhard Steinmetz
   6
   7 program pr70071
   8   implicit none
   9   integer, allocatable :: z(:)[:,:]
  10   allocate (z(2)[1::2,*])  ! { dg-error "Bad array dimension" }
  11   allocate (z(1::2)[2,*])  ! { dg-error "Bad array specification in ALLOCATE" }
  12 end program pr70071
  13
  14 ! { dg-prune-output "Bad coarray specification in ALLOCATE statement" }