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

   1 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