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