2 ! Test that allocatable characters with deferred length
3 ! are written correctly
7 integer, parameter:: N
= 10
8 character(len
=:), dimension(:),allocatable
:: ca
9 character(len
=50):: buffer
, line
10 allocate(character(len
=N
):: ca(3))
11 buffer
= "foo bar xyzzy"
15 write (unit
=line
, fmt
='(3A5)') (ca(i
),i
=1,3)
16 if (line
/= buffer
) STOP 1
20 read (unit
=line
, fmt
='(3A5)') (ca(i
),i
=1,3)
21 if (line
/= buffer
) STOP 2