gcc/testsuite/gfortran.dg/coarray_13.f90

   1 ! { dg-do run }
   2 ! { dg-options "-fcoarray=single" }
   3 !
   4 ! Coarray support -- allocatable array coarrays
   5 ! PR fortran/18918
   6 ! PR fortran/43931
   7 !
   8 program test
   9   implicit none
  10   call one()
  11 contains
  12   subroutine one()
  13     integer, allocatable :: a(:)[:,:,:]
  14     allocate(a(1)[-4:9,8,4:*])
  15   end subroutine one
  16   subroutine four(C)
  17     integer, allocatable :: C(:)[:]
  18  end subroutine four
  19 end program test