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] - Blame information for rev 801

Go to most recent revision | Details | Compare with Previous | 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

Line No.	Rev	Author	Line
1	695	jeremybenn	`! demonstrates basic direct access using variables for REC`
2			`! pr14872`
3			`OPEN(UNIT=10,ACCESS='DIRECT',RECL=128)`
4			`DO I = 1,10`
5			`WRITE(10,REC=I,ERR=10)I`
6			`ENDDO`
7			`CLOSE(10)`
8			`OPEN(UNIT=10,ACCESS='DIRECT',RECL=128)`
9			`DO I = 1,10`
10			`READ(10,REC=I,ERR=10)J`
11			`IF (J.NE.I) THEN`
12			`! PRINT*,' READ ',J,' EXPECTED ',I`
13			`CALL ABORT`
14			`ENDIF`
15			`ENDDO`
16			`CLOSE(10,STATUS='DELETE')`
17			`STOP`
18			`10 CONTINUE`
19			`! PRINT*,' ERR= RETURN FROM READ OR WRITE'`
20			`CALL ABORT`
21			`END`

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.fortran-torture/] [execute/] [direct_io.f90] - Blame information for rev 801