1! { dg-do compile } 2! PR 24266: IO to/from arrays that are components of derived types. 3program 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 17end program main 18