blob: 5ebe602fd003b44d977faec37cf37b467f73409d (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
! { 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
|
