gcc/testsuite/gfortran.dg/arrayio_derived_2.f90

   1 ! { dg-do compile }
   2 ! PR 24266: IO to/from arrays that are components of derived types.
   3 program main
   4   implicit none
   5
   6   type ice
   7     character(len=80) :: mess(3)
   8   end type ice
   9   type(ice) :: tp
  10   integer :: i
  11   character(len=80) :: mess
  12
  13   write(tp%mess,*) "message"
  14   read(tp%mess,*) mess
  15   print *, mess
  16
  17 end program main