gcc/testsuite/gfortran.dg/pr108434.f90

   1 ! { dg-do compile }
   2 ! PR fortran/108434 - ICE in class_allocatable
   3 ! Contributed by G.Steinmetz
   4
   5 program p
   6   type t
   7      class(c), pointer :: a(2) ! { dg-error "must have a deferred shape" }
   8   end type t
   9   class(t), allocatable :: x
  10   class(t), pointer     :: y
  11 end