URL https://opencores.org/ocsvn/openrisc_me/openrisc_me/trunk

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gfortran.fortran-torture/] [execute/] [inquire_4.f90] - Blame information for rev 308

Go to most recent revision | Details | Compare with Previous | View Log


! pr 14904
! inquire lastrec not correct when two records written
! with one write statement
       OPEN(UNIT=10,ACCESS='DIRECT',FORM='FORMATTED',RECL=120)
 100   FORMAT(I4)
       WRITE(UNIT=10,REC=1,FMT=100)1
       INQUIRE(UNIT=10,NEXTREC=J)
       IF (J.NE.2) THEN
!          PRINT*,'NEXTREC RETURNED ',J,' EXPECTED 2'
           CALL ABORT
       ENDIF
 200   FORMAT(I4,/,I4)
       WRITE(UNIT=10,REC=2,FMT=200)2,3
       INQUIRE(UNIT=10,NEXTREC=J)
       IF (J.NE.4) THEN
!          PRINT*,'NEXTREC RETURNED ',J,' EXPECTED 4'
           CALL ABORT
       ENDIF
       CLOSE(UNIT=10,STATUS='DELETE')
       END
 

Line No.	Rev	Author	Line
1	303	jeremybenn	`! pr 14904`
2			`! inquire lastrec not correct when two records written`
3			`! with one write statement`
4			`OPEN(UNIT=10,ACCESS='DIRECT',FORM='FORMATTED',RECL=120)`
5			`100 FORMAT(I4)`
6			`WRITE(UNIT=10,REC=1,FMT=100)1`
7			`INQUIRE(UNIT=10,NEXTREC=J)`
8			`IF (J.NE.2) THEN`
9			`! PRINT*,'NEXTREC RETURNED ',J,' EXPECTED 2'`
10			`CALL ABORT`
11			`ENDIF`
12			`200 FORMAT(I4,/,I4)`
13			`WRITE(UNIT=10,REC=2,FMT=200)2,3`
14			`INQUIRE(UNIT=10,NEXTREC=J)`
15			`IF (J.NE.4) THEN`
16			`! PRINT*,'NEXTREC RETURNED ',J,' EXPECTED 4'`
17			`CALL ABORT`
18			`ENDIF`
19			`CLOSE(UNIT=10,STATUS='DELETE')`
20			`END`
21

Browse

Tools

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gfortran.fortran-torture/] [execute/] [inquire_4.f90] - Blame information for rev 308