gcc/testsuite/gfortran.fortran-torture/compile/pr41654.f90


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

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