mirror of
https://github.com/autc04/Retro68.git
synced 2024-09-28 18:56:06 +00:00
16 lines
390 B
Fortran
16 lines
390 B
Fortran
! { dg-do compile }
|
|
!
|
|
! PR fortran/64943
|
|
!
|
|
! Contributed Dominique d'Humieres
|
|
!
|
|
type :: Test
|
|
integer :: i
|
|
end type
|
|
|
|
type :: TestReference
|
|
class(Test), allocatable :: test(:)
|
|
end type
|
|
print *, TestReference([Test(99), Test(199)]) ! { dg-error "Data transfer element at .1. cannot have ALLOCATABLE components unless it is processed by a defined input/output procedure" }
|
|
end
|