2 ! { dg-options "-std=legacy" }
4 ! Names in upper case and object names starting column 2
5 ! Based on example provided by thomas.koenig@online.de
10 character*80 :: buffer
14 open (10, status
= "scratch")
17 read (10, '(a)') buffer
18 if (buffer(2:4) /= "FOO") call abort ()
19 read (10, '(a)') buffer
20 if (buffer(1:2) /= " A") call abort ()