2 ! PR25828 Stream IO test 2
3 ! Contributed by Jerry DeLisle <jvdelisle@verizon.net>.
10 OPEN(UNIT=11, FILE="streamio2", ACCESS="STREAM")
14 READ(11, POS=3) string
16 if (string.ne."rst") call abort()
17 if (n.ne.7) call abort()
18 close(unit=11, status="delete")
19 END PROGRAM readUstream