2 ! { dg-options "-std=legacy" }
4 ! PR25828 Stream IO test 2
5 ! Contributed by Jerry DeLisle <jvdelisle@verizon.net>.
12 OPEN(UNIT=11, FILE="streamio2", ACCESS="STREAM")
16 READ(11, POS=3) string
18 if (string.ne."rst") call abort()
19 if (n.ne.7) call abort()
20 close(unit=11, status="delete")
21 END PROGRAM readUstream