! { dg-do compile } | |
! PR fortran/100971 - ICE: Bad IO basetype (7) | |
! Contributed by G.Steinmetz | |
program p | |
implicit none | |
type t | |
end type | |
class(t), allocatable :: a, b(:) | |
type(t) :: x, y(1) | |
integer :: i | |
allocate (a,b(1)) | |
print *, [a] ! { dg-error "Data transfer element at .1. cannot be polymorphic" } | |
print *, [(b(i),i=1,1)] ! { dg-error "Data transfer element at .1. cannot be polymorphic" } | |
print *, [x] | |
print *, [(y(i),i=1,1)] | |
end |