! { 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 |