gcc/testsuite/gfortran.dg/der_array_io_3.f90

   1 ! Test IO of character arrays in derived types.
   2 ! { dg-do run }
   3 ! { dg-options "-std=legacy" }
   4 !
   5 program 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) call abort
  15 end program main