2 ! { dg-additional-options "-ffrontend-optimize -fdump-tree-original" }
3 ! PR fortran/35339 - make sure that I/O of an implied DO loop
4 ! of allocatable character arrays a) works and b) is converted
9 integer, parameter:: N
= 10
10 character(len
=:), dimension(:),allocatable
:: ca
11 allocate(character(len
=N
):: ca(3))
12 open(unit
=10,status
="scratch")
16 write (10, '(3A10)') (ca(i
),i
=1,3)
19 read (10, '(3A10)') (ca(i
),i
=1,3)
20 if (ca(1) /= 'foo' .or
. ca(2) /= 'bar' .or
. ca(3) /= 'xyzzy') call abort
22 ! { dg-final { scan-tree-dump-times "_gfortran_transfer_array" 2 "original" } }