OpenCores
URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [gcc-4.2.2/] [gcc/] [testsuite/] [gfortran.fortran-torture/] [execute/] [direct_io.f90] - Rev 816

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

Compare with Previous | Blame | View Log

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.