gcc/testsuite/gfortran.dg/coarray_poly_1.f90

   1 ! { dg-do compile }
   2 ! { dg-options "-fcoarray=single" }
   3 !
   4 ! Test for polymorphic coarrays
   5 !
   6 subroutine s2()
   7   type t
   8   end type t
   9   class(t) :: A(:)[4,2:*] ! { dg-error "is not ALLOCATABLE, SAVE nor a dummy argument" }
  10   print *, ucobound(a)
  11   allocate(a) ! { dg-error "must be ALLOCATABLE or a POINTER" }
  12 end
  13