Return to IFS.f CVS log

Up to [Research Unix] / researchv10no / cmd / pfort

Annotation of researchv10no/cmd/pfort/IFS.f, revision 1.1.1.1

1.1       root        1:       SUBROUTINE IFS(LOG)
                      2:       LOGICAL TOKLAB, ERR, SYSERR, ABORT, LOG
                      3:       INTEGER STMT, PSTMT, EXPR
                      4:       COMMON /INPUT/ NSTMT, PSTMT, STMT(1327)
                      5:       COMMON /DETECT/ ERR, SYSERR, ABORT
                      6: C
                      7: C     ROUTINE PROCESSES ARITHMETIC AND LOGICAL IF STMTS
                      8: C     LOG RETURNED AS TRUE IF LOGICAL-IF IS ENCOUNTERED;PU CHECKS FOR
                      9: C     ACCEPTIBLE EXECUTABLE STMT AFTER LOGICAL EXPRESSION
                     10: C
                     11:       LOG = .FALSE.
                     12:       L = MOD(EXPR(I),8)
                     13:       IF (-1.EQ.L .OR. SYSERR) GO TO 30
                     14:       LOG = L.EQ.4
                     15:       IF (LOG) GO TO 30
                     16: C
                     17: C     ARITHMETIC IF--SEARCH FOR  <LAB>,<LAB>,<LAB>
                     18: C
                     19:       IF (L.GT.2) GO TO 50
                     20:       I = 0
                     21:       IF (PSTMT.GE.NSTMT) GO TO 20
                     22:    10 IF (.NOT.TOKLAB(1,K2,L,.FALSE.)) GO TO 40
                     23:       IF (SYSERR) GO TO 30
                     24:       I = I + 1
                     25:       IF (I.EQ.3) GO TO 60
                     26:       IF (STMT(K2).NE.68) GO TO 20
                     27:       PSTMT = K2 + 1
                     28:       IF (PSTMT.LT.NSTMT) GO TO 10
                     29:    20 CALL ERROR1(15H ILLEGAL SYNTAX, 15)
                     30:    30 RETURN
                     31:    40 CALL ERROR1(14H MISSING LABEL, 14)
                     32:       GO TO 30
                     33:    50 CALL ERROR1(39H COMPLEX EXPRESSION ILLEGAL IN ARITH-IF, 39)
                     34:       GO TO 30
                     35:    60 IF (K2.EQ.NSTMT) GO TO 30
                     36:       CALL ERROR1(34H EXTRANEOUS INFO AFTER END OF STMT, 34)
                     37:       GO TO 30
                     38:       END

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.