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