gcc/testsuite/gfortran.dg/allocate_class_1.f90

   1 ! { dg-do compile }
   2 !
   3 ! PR 47085: [OOP] Problem in allocate( SOURCE=) for polymorphic component
   4 !
   5 ! Contributed by Janus Weil <janus@gcc.gnu.org>
   6
   7  type :: t0
   8  end type
   9  class(t0) :: x  ! { dg-error "must be dummy, allocatable or pointer" }
  10  allocate(x)     ! { dg-error "is not a nonprocedure pointer or an allocatable variable" }
  11  end