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