1! Test IO of character arrays in derived types. 2! { dg-do run } 3! { dg-options "-std=legacy" } 4! 5program main 6 character*1000 buf1, buf2 7 type :: foo_type 8 character(12), dimension(13) :: name = "hello world " 9 end type foo_type 10 type (foo_type) :: foo 11! foo = foo_type("hello world ") 12 write (buf1,*) foo 13 write (buf2,*) (foo%name(i), i=1,13) 14 if (buf1.ne.buf2) STOP 1 15end program main 16