URL
https://opencores.org/ocsvn/openrisc/openrisc/trunk
Subversion Repositories openrisc
[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.fortran-torture/] [execute/] [direct_io.f90] - Rev 742
Go to most recent revision | Compare with Previous | Blame | View Log
! demonstrates basic direct access using variables for REC
! pr14872
OPEN(UNIT=10,ACCESS='DIRECT',RECL=128)
DO I = 1,10
WRITE(10,REC=I,ERR=10)I
ENDDO
CLOSE(10)
OPEN(UNIT=10,ACCESS='DIRECT',RECL=128)
DO I = 1,10
READ(10,REC=I,ERR=10)J
IF (J.NE.I) THEN
! PRINT*,' READ ',J,' EXPECTED ',I
CALL ABORT
ENDIF
ENDDO
CLOSE(10,STATUS='DELETE')
STOP
10 CONTINUE
! PRINT*,' ERR= RETURN FROM READ OR WRITE'
CALL ABORT
END
Go to most recent revision | Compare with Previous | Blame | View Log