Return to ASSIGN.f CVS log

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

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

1.1       root        1:       SUBROUTINE ASSIGN
                      2:       INTEGER PSTMT, STMT
                      3:       LOGICAL TOKLAB, ERR, SYSERR, ABORT
                      4:       COMMON /INPUT/ NSTMT, PSTMT, STMT(1327)
                      5:       COMMON /DETECT/ ERR, SYSERR, ABORT
                      6: C
                      7: C      PROCESSES AN ASSIGN STMT: ASSIGN <LABEL> TO <VAR>
                      8: C
                      9:       IF (PSTMT.GE.NSTMT) GO TO 10
                     10:       IF (.NOT.TOKLAB(1,K2,KK,.FALSE.)) GO TO 80
                     11:       IF (SYSERR) GO TO 20
                     12:       PSTMT = K2
                     13:       IF (PSTMT+2.GE.NSTMT) GO TO 10
                     14:       IF (STMT(PSTMT).EQ.49 .AND. STMT(PSTMT+1).EQ.44) GO TO 30
                     15:    10 CALL ERROR1(15H ILLEGAL SYNTAX, 15)
                     16:    20 RETURN
                     17:    30 PSTMT = PSTMT + 2
                     18:       IF (PSTMT.GE.NSTMT) GO TO 10
                     19:       CALL NEXTOK(PSTMT, K2, K)
                     20:       IF (K.NE.0) GO TO 10
                     21:       K = LOOKUP(K2,.FALSE.)
                     22:       IF (SYSERR) GO TO 20
                     23:       I1 = IGATT1(K,1)
                     24:       I2 = IGATT1(K,7)
                     25:       I3 = IGATT1(K,8)
                     26:       IF (I3.EQ.0) GO TO 40
                     27:       IF (I3.NE.8) GO TO 90
                     28:       GO TO 50
                     29:    40 CALL SATT1(K, 8, 8)
                     30:    50 IF (I1.NE.0) GO TO 60
                     31:       I1 = 1
                     32:       IF (STMT(PSTMT).GE.38 .AND. STMT(PSTMT).LE.43) I1 = 2
                     33:       CALL SATT1(K, 1, I1)
                     34:    60 IF (MOD(I1,8).EQ.2 .AND. I2.EQ.0) GO TO 70
                     35:       CALL ERROR1(35H ASSIGN VARIABLE NOT INTEGER SCALAR, 35)
                     36:       GO TO 20
                     37:    70 IF (K2.NE.NSTMT) GO TO 10
                     38:       GO TO 20
                     39:    80 CALL ERROR1(14H MISSING LABEL, 14)
                     40:       GO TO 20
                     41:    90 CALL ERROR1(23H ILLEGAL VARIABLE USAGE, 23)
                     42:       GO TO 20
                     43:       END

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