blob: aa7e91d96e6eae262ccf607931cc3b39432a11ab (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
! { 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
|
