mirror of
https://github.com/autc04/Retro68.git
synced 2024-09-28 18:56:06 +00:00
13 lines
209 B
Fortran
13 lines
209 B
Fortran
! { 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
|