2 ! { dg-options "-std=legacy" }
5 ! Test list directed reads from character substrings
6 ! The IO library was reporting an error rather the end-of-record when it
7 ! got to the end of an internal file record.
16 if (i
.ne
.1234567890) STOP 1
22 if (i
.ne
.12345) STOP 4
24 if (i
.ne
.567890) STOP 5