! { dg-do run } | |
! { dg-options "-std=legacy" } | |
! | |
! PR25828 Stream IO test 2 | |
! Contributed by Jerry DeLisle <jvdelisle@verizon.net>. | |
PROGRAM readUstream | |
IMPLICIT NONE | |
CHARACTER*3 :: string | |
INTEGER :: n | |
string = "123" | |
n = 13579 | |
OPEN(UNIT=11, FILE="streamio2", ACCESS="STREAM") | |
WRITE(11) "first" | |
WRITE(11) "second" | |
WRITE(11) 7 | |
READ(11, POS=3) string | |
READ(11, POS=12) n | |
if (string.ne."rst") STOP 1 | |
if (n.ne.7) STOP 2 | |
close(unit=11, status="delete") | |
END PROGRAM readUstream | |