2 ! PR41807 data statement with nested type constructors
3 ! Test case provided by Steve Kargl
10 integer, parameter :: n
= 3
14 real, parameter :: d1(3) = (/1., 2., 3./)
15 real, parameter :: d2(3) = (/4., 5., 6./)
16 real, parameter :: d3(3) = (/7., 8., 9./)
20 data (b(i
), i
= 1, n
) /a(d1
), a(d2
), a(d3
)/
21 data (z(i
), i
= 1, n
) / 1, 2, 3/
23 if (any(z
.ne
.[1, 2, 3])) call abort
24 if (any(b(1)%x
.ne
.[1, 2, 3]) .or
. &
25 any(b(2)%x
.ne
.[4, 5, 6]) .or
. &
26 any(b(3)%x
.ne
.[7, 8, 9])) call abort