! { dg-do compile } ! PR 24266: IO to/from arrays that are components of derived types. program main implicit none type ice character(len=80) :: mess(3) end type ice type(ice) :: tp integer :: i character(len=80) :: mess write(tp%mess,*) "message" read(tp%mess,*) mess print *, mess end program main