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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-stable/] [gcc-4.5.1/] [gcc/] [testsuite/] [gfortran.fortran-torture/] [execute/] [inquire_4.f90] - Diff between revs 816 and 826

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