URL
https://opencores.org/ocsvn/openrisc_2011-10-31/openrisc_2011-10-31/trunk
Only display areas with differences |
Details |
Blame |
View Log
Rev 303 |
Rev 338 |
! demonstrates basic direct access using variables for REC
|
! demonstrates basic direct access using variables for REC
|
! pr14872
|
! pr14872
|
OPEN(UNIT=10,ACCESS='DIRECT',RECL=128)
|
OPEN(UNIT=10,ACCESS='DIRECT',RECL=128)
|
DO I = 1,10
|
DO I = 1,10
|
WRITE(10,REC=I,ERR=10)I
|
WRITE(10,REC=I,ERR=10)I
|
ENDDO
|
ENDDO
|
CLOSE(10)
|
CLOSE(10)
|
OPEN(UNIT=10,ACCESS='DIRECT',RECL=128)
|
OPEN(UNIT=10,ACCESS='DIRECT',RECL=128)
|
DO I = 1,10
|
DO I = 1,10
|
READ(10,REC=I,ERR=10)J
|
READ(10,REC=I,ERR=10)J
|
IF (J.NE.I) THEN
|
IF (J.NE.I) THEN
|
! PRINT*,' READ ',J,' EXPECTED ',I
|
! PRINT*,' READ ',J,' EXPECTED ',I
|
CALL ABORT
|
CALL ABORT
|
ENDIF
|
ENDIF
|
ENDDO
|
ENDDO
|
CLOSE(10,STATUS='DELETE')
|
CLOSE(10,STATUS='DELETE')
|
STOP
|
STOP
|
10 CONTINUE
|
10 CONTINUE
|
! PRINT*,' ERR= RETURN FROM READ OR WRITE'
|
! PRINT*,' ERR= RETURN FROM READ OR WRITE'
|
CALL ABORT
|
CALL ABORT
|
END
|
END
|
|
|
© copyright 1999-2024
OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.