gcc/testsuite/gfortran.dg/class_array_13.f90

   1 ! { dg-do compile }
   2 ! { dg-options "-fcoarray=single" }
   3 !
   4 ! PR fortran/41587
   5 !
   6
   7 type t0
   8   integer :: j = 42
   9 end type t0
  10
  11 type t
  12   integer :: i
  13   class(t0), allocatable :: foo(3) ! { dg-error "must have a deferred shape" }
  14 end type t
  15
  16 type t2
  17   integer :: i
  18   class(t0), pointer :: foo(3) ! { dg-error "must have a deferred shape" }
  19 end type t2
  20
  21 type t3
  22   integer :: i
  23   class(t0), allocatable :: foo[3] ! { dg-error "Upper bound of last coarray dimension must be '\\*'" }
  24 end type t3
  25
  26 end