23 lines
510 B
Fortran
23 lines
510 B
Fortran
! { 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") call abort()
|
|
if (n.ne.7) call abort()
|
|
close(unit=11, status="delete")
|
|
END PROGRAM readUstream
|
|
|