1! { dg-do run } 2! PR41807 data statement with nested type constructors 3! Test case provided by Steve Kargl 4 implicit none 5 6 type :: a 7 real :: x(3) 8 end type a 9 10 integer, parameter :: n = 3 11 12 type(a) :: b(n) 13 14 real, parameter :: d1(3) = (/1., 2., 3./) 15 real, parameter :: d2(3) = (/4., 5., 6./) 16 real, parameter :: d3(3) = (/7., 8., 9./) 17 18 integer :: i, z(n) 19 20 data (b(i), i = 1, n) /a(d1), a(d2), a(d3)/ 21 data (z(i), i = 1, n) / 1, 2, 3/ 22 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 27end 28 29