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