1 ! Test IO of arrays in derived type arrays
5 character *1000 buf1
, buf2
14 type (foo_type
) :: foo(2)
19 foo(1)%a
= "hello world"
24 foo(2)%a
= "HELLO WORLD"
27 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)
28 if (buf1
.ne
.buf2
) call abort