! { 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 |