gcc/testsuite/gfortran.dg/class_31.f90

   1 ! { dg-do compile }
   2 !
   3 ! PR fortran/46413
   4 !
   5 type t
   6   integer :: ii =5
   7 end type t
   8 class(t), allocatable :: x
   9 allocate (t :: x)
  10
  11 print *,x  ! { dg-error "Data transfer element at .1. cannot be polymorphic" }
  12 end