1 ! Test IO of arrays in derived type arrays
3 ! { dg-options "-std=legacy" }
7 character *1000 buf1
, buf2
16 type (foo_type
) :: foo(2)
21 foo(1)%a
= "hello world"
26 foo(2)%a
= "HELLO WORLD"
29 write (buf2
,*) ((foo(i
)%x(j
),j
=1,3), (foo(i
)%y(j
),j
=1,4), (foo(i
)%z(j
),j
=1,5), (foo(i
)%a(j
),j
=1,3), i
=1,2)
30 if (buf1
.ne
.buf2
) call abort