gcc/testsuite/gfortran.dg/der_io_5.f90

   1 ! { dg-do compile }
   2 ! PR fortran/100971 - ICE: Bad IO basetype (7)
   3 ! Contributed by G.Steinmetz
   4
   5 program p
   6   implicit none
   7   type t
   8   end type
   9   class(t), allocatable :: a, b(:)
  10   type(t)               :: x, y(1)
  11   integer               :: i
  12   allocate (a,b(1))
  13   print *, [a]            ! { dg-error "Data transfer element at .1. cannot be polymorphic" }
  14   print *, [(b(i),i=1,1)] ! { dg-error "Data transfer element at .1. cannot be polymorphic" }
  15   print *, [x]
  16   print *, [(y(i),i=1,1)]
  17 end