Return to EXTERN.f CVS log

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

Annotation of researchv10no/cmd/pfort/EXTERN.f, revision 1.1

1.1     ! root        1:       SUBROUTINE EXTERN
        !             2:       LOGICAL ERR, SYSERR, ABORT
        !             3:       LOGICAL BR, INTEXT
        !             4:       INTEGER STMT, PSTMT
        !             5:       COMMON /FACTS/ NAME, NOST, ITYP, IASF
        !             6:       COMMON /INPUT/ NSTMT, PSTMT, STMT(1327)
        !             7:       COMMON /DETECT/ ERR, SYSERR, ABORT
        !             8: C
        !             9: C     PROCESS AN EXTERNAL STMT. CAUSES IDS TO BE MARKED AS EXTERNAL
        !            10: C     PROCEDURES. ERROR OCCURS IF ID HAS PREVIOUSLY DEFINED INCONSISTANT
        !            11: C     USAGE. EXTERNAL CAN'T APPEAR IN BLOCK DATA PGM UNIT.
        !            12: C
        !            13:       L = IGATT1(NAME,8)
        !            14:       IF (L.EQ.11) GO TO 60
        !            15:    10 CALL NEXTOK(PSTMT, K2, KK)
        !            16:       IF (KK.EQ.0) GO TO 20
        !            17:       CALL ERROR1(19H ILLEGAL IDENTIFIER, 19)
        !            18:       GO TO 70
        !            19:    20 KK = LOOKUP(K2,.FALSE.)
        !            20:       IF (SYSERR) RETURN
        !            21:       L = IGATT1(KK,8)
        !            22:       IF (L.EQ.0) GO TO 30
        !            23:       CALL ERROR1(26H ILLEGAL USE OF IDENTIFIER, 26)
        !            24:       GO TO 40
        !            25:    30 CALL SATT1(KK, 8, 13)
        !            26: C
        !            27: C     CAUSE EXTERNAL BIT TO BE SET IF POSSIBLE BASIC EXTERNAL
        !            28: C
        !            29:    40 BR = INTEXT(KK,0,0,.FALSE.)
        !            30:       IF (K2.EQ.NSTMT) GO TO 70
        !            31:       IF (STMT(K2).NE.68) GO TO 50
        !            32:       PSTMT = K2 + 1
        !            33:       GO TO 10
        !            34:    50 CALL ERROR1(20H ILLEGAL PUNCTUATION, 20)
        !            35:       GO TO 70
        !            36:    60 CALL ERROR1(
        !            37:      *60H ILLEGAL USAGE OF EXTERNAL STMT WITHIN BLOCK DATA SUBPROGRAM,
        !            38:      *    60)
        !            39:    70 RETURN
        !            40:       END

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