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

Subversion Repositories openrisc

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

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


! PR 14831
       CHARACTER*4 BLANK
       CHARACTER*10 ACCESS
       OPEN(UNIT=9,ACCESS='SEQUENTIAL')
       INQUIRE(UNIT=9,ACCESS=ACCESS,BLANK=BLANK)
       IF(BLANK.NE.'NULL') CALL ABORT
       IF(ACCESS.NE.'SEQUENTIAL') CALL ABORT
       CLOSE(UNIT=9,STATUS='DELETE')
       END

Line No.	Rev	Author	Line
1	695	jeremybenn	`! PR 14831`
2			`CHARACTER*4 BLANK`
3			`CHARACTER*10 ACCESS`
4			`OPEN(UNIT=9,ACCESS='SEQUENTIAL')`
5			`INQUIRE(UNIT=9,ACCESS=ACCESS,BLANK=BLANK)`
6			`IF(BLANK.NE.'NULL') CALL ABORT`
7			`IF(ACCESS.NE.'SEQUENTIAL') CALL ABORT`
8			`CLOSE(UNIT=9,STATUS='DELETE')`
9			`END`

Browse

Tools

Subversion Repositories openrisc

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