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

Subversion Repositories openrisc

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

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


SUBROUTINE SCANBUFR (LBUFRIGNOREERROR, LBOPRPRO, LLSPLIT)
LOGICAL :: LBUFRIGNOREERROR, LBOPRPRO, LLSPLIT
INTEGER :: IBOTYP, IBSTYP
IF ((IBOTYP.eq.0).AND.(IBSTYP.eq.1)) GO TO 251
IF ((IBOTYP.eq.0).AND.(IBSTYP.eq.3)) GO TO 251
IF(LBUFRIGNOREERROR) THEN
 goto 360
ENDIF
251  CONTINUE
IF(LBOPRPRO.AND.LLSPLIT) THEN
  CALL OBSCREEN
ENDIF
360 CONTINUE
END SUBROUTINE SCANBUFR
 

Line No.	Rev	Author	Line
1	695	jeremybenn	`SUBROUTINE SCANBUFR (LBUFRIGNOREERROR, LBOPRPRO, LLSPLIT)`
2			`LOGICAL :: LBUFRIGNOREERROR, LBOPRPRO, LLSPLIT`
3			`INTEGER :: IBOTYP, IBSTYP`
4			`IF ((IBOTYP.eq.0).AND.(IBSTYP.eq.1)) GO TO 251`
5			`IF ((IBOTYP.eq.0).AND.(IBSTYP.eq.3)) GO TO 251`
6			`IF(LBUFRIGNOREERROR) THEN`
7			`goto 360`
8			`ENDIF`
9			`251 CONTINUE`
10			`IF(LBOPRPRO.AND.LLSPLIT) THEN`
11			`CALL OBSCREEN`
12			`ENDIF`
13			`360 CONTINUE`
14			`END SUBROUTINE SCANBUFR`
15

Browse

Tools

Subversion Repositories openrisc

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