3 ! Test patch for PR24416.f90 - a used to come back from the read with var
7 CHARACTER(len
=10) :: var
= "hello"
8 character(len
=10) :: a
= ""
11 OPEN(unit
=11, status
='scratch')
13 write (11, *) " var = 'goodbye'"
20 OPEN(unit
=11, status
='scratch')
21 write (11, *) "alls_well"
27 if (a
/= "alls_well") call abort ()