gcc/testsuite/gfortran.dg/der_array_io_3.f90

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