1! { dg-do compile } 2! 3! PR fortran/64943 4! 5! Contributed Dominique d'Humieres 6! 7 type :: Test 8 integer :: i 9 end type 10 11 type :: TestReference 12 class(Test), allocatable :: test(:) 13 end type 14print *, 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" } 15end 16