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