2 ! Test the fix for PR47517
4 ! Reported by Tobias Burnus <burnus@gcc.gnu.org>
5 ! from a testcase by James Van Buskirk
9 integer, allocatable
:: parts(:)
12 type(label
), allocatable
:: headers(:)
16 program allocate_assign
19 integer, parameter :: ik8
= selected_int_kind(18)
22 type(table
), allocatable
:: x(:)
29 s
= s
+x(2)%headers(2)%parts(2)
31 s
= s
+x(2)%headers(2)%parts(2)
33 if (s
.ne
. 40000) call abort
36 ! TODO - these assignments lose 1872 bytes on x86_64/FC17
40 x1
= [table([(label([(j
,j
=1,3)]),i
=1,3)]), &
41 table([(label([(j
,j
=1,4)]),i
=1,4)])]
43 x2
= [table([(label([(j
,j
=1,4)]),i
=1,4)]), &
44 table([(label([(j
,j
=1,5)]),i
=1,5)]), &
45 table([(label([(j
,j
=1,6)]),i
=1,6)])]
47 end program allocate_assign