blob: eddf13f1beae498be3c5fa8b5535ad4ada02dd66 [file] [log] [blame]
! { dg-do compile }
!
! PR fortran/46413
!
type t
integer :: ii =5
end type t
class(t), allocatable :: x
allocate (t :: x)
print *,x ! { dg-error "Data transfer element at .1. cannot be polymorphic" }
end