! { dg-do run } | |
! 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") call abort() | |
if (n.ne.7) call abort() | |
close(unit=11, status="delete") | |
END PROGRAM readUstream |