      PROGRAM FM045

C     COMMENT SECTION                                                   00010045
C                                                                       00020045
C     FM045                                                             00030045
C                                                                       00040045
C         THIS ROUTINE TESTS ARITHMETIC ASSIGNMENTS USING INTEGER       00050045
C     VARIABLES CONNECTED BY A SERIES OF ARITHMETIC OPERATORS.          00060045
C     DIFFERENT COMBINATIONS OF PARENTHETICAL NOTATION ARE EXERCIZED.   00070045
C                                                                       00080045
C                                                                       00090045
C      REFERENCES                                                       00100045
C        AMERICAN NATIONAL STANDARD PROGRAMMING LANGUAGE FORTRAN,       00110045
C              X3.9-1978                                                00120045
C                                                                       00130045
C        SECTION 4.3, INTEGER TYPE                                      00140045
C        SECTION 4.3.1, INTEGER CONSTANT                                00150045
C        SECTION 6.1, ARITHMETIC EXPRESSIONS                            00160045
C        SECTION 6.6, EVALUATION OF EXPRESSIONS                         00170045
C        SECTION 10.1, ARITHMETIC ASSIGNMENT STATEMENT                  00180045
C                                                                       00190045
C                                                                       00200045
C                                                                       00210045
C      **********************************************************       00220045
C                                                                       00230045
C         A COMPILER VALIDATION SYSTEM FOR THE FORTRAN LANGUAGE         00240045
C     BASED ON SPECIFICATIONS AS DEFINED IN AMERICAN NATIONAL STANDARD  00250045
C     PROGRAMMING LANGUAGE FORTRAN X3.9-1978, HAS BEEN DEVELOPED BY THE 00260045
C     FEDERAL COBOL COMPILER TESTING SERVICE.  THE FORTRAN COMPILER     00270045
C     VALIDATION SYSTEM (FCVS) CONSISTS OF AUDIT ROUTINES, THEIR RELATED00280045
C     DATA, AND AN EXECUTIVE SYSTEM.  EACH AUDIT ROUTINE IS A FORTRAN   00290045
C     PROGRAM, SUBPROGRAM OR FUNCTION WHICH INCLUDES TESTS OF SPECIFIC  00300045
C     LANGUAGE ELEMENTS AND SUPPORTING PROCEDURES INDICATING THE RESULT 00310045
C     OF EXECUTING THESE TESTS.                                         00320045
C                                                                       00330045
C         THIS PARTICULAR PROGRAM/SUBPROGRAM/FUNCTION CONTAINS FEATURES 00340045
C     FOUND ONLY IN THE SUBSET AS DEFINED IN X3.9-1978.                 00350045
C                                                                       00360045
C         SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO -             00370045
C                                                                       00380045
C              NATIONAL INSTITUTE OF STANDARDS AND TECHNOLOGY           00390045
C                   SOFTWARE STANDARDS VALIDATION GROUP                 00400045
C                          BUILDING 225  RM A266                        00410045
C                         GAITHERSBURG, MD  20899                       00420045
C      **********************************************************       00430045
C                                                                       00440045
C                                                                       00450045
C                                                                       00460045
C     INITIALIZATION SECTION                                            00470045
C                                                                       00480045
C     INITIALIZE CONSTANTS                                              00490045
C      **************                                                   00500045
C     I01 CONTAINS THE LOGICAL UNIT NUMBER FOR THE CARD READER.         00510045
      I01 = 5                                                           00520045
C     I02 CONTAINS THE LOGICAL UNIT NUMBER FOR THE PRINTER.             00530045
      I02 = 6                                                           00540045
C     SYSTEM ENVIRONMENT SECTION                                        00550045
C                                                                       00560045
CX010    THIS CARD IS REPLACED BY CONTENTS OF FEXEC X-010 CONTROL CARD. 00570045
C     THE CX010 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I01 = 5      00580045
C     (UNIT NUMBER FOR CARD READER).                                    00590045
CX011    THIS CARD IS REPLACED BY CONTENTS OF FEXEC X-011 CONTROL CARD. 00600045
C     THE CX011 CARD IS FOR SYSTEMS WHICH REQUIRE ADDITIONAL            00610045
C     FORTRAN STATEMENTS FOR FILES ASSOCIATED WITH CX010 ABOVE.         00620045
C                                                                       00630045
CX020    THIS CARD IS REPLACED BY CONTENTS OF FEXEC X-020 CONTROL CARD. 00640045
C     THE CX020 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I02 = 6      00650045
C     (UNIT NUMBER FOR PRINTER).                                        00660045
CX021    THIS CARD IS REPLACED BY CONTENTS OF FEXEC X-021 CONTROL CARD. 00670045
C     THE CX021 CARD IS FOR SYSTEMS WHICH REQUIRE ADDITIONAL            00680045
C     FORTRAN STATEMENTS FOR FILES ASSOCIATED WITH CX020 ABOVE.         00690045
C                                                                       00700045
      IVPASS=0                                                          00710045
      IVFAIL=0                                                          00720045
      IVDELE=0                                                          00730045
      ICZERO=0                                                          00740045
C                                                                       00750045
C     WRITE PAGE HEADERS                                                00760045
      WRITE (I02,90000)                                                 00770045
      WRITE (I02,90001)                                                 00780045
      WRITE (I02,90002)                                                 00790045
      WRITE (I02, 90002)                                                00800045
      WRITE (I02,90003)                                                 00810045
      WRITE (I02,90002)                                                 00820045
      WRITE (I02,90004)                                                 00830045
      WRITE (I02,90002)                                                 00840045
      WRITE (I02,90011)                                                 00850045
      WRITE (I02,90002)                                                 00860045
      WRITE (I02,90002)                                                 00870045
      WRITE (I02,90005)                                                 00880045
      WRITE (I02,90006)                                                 00890045
      WRITE (I02,90002)                                                 00900045
C                                                                       00910045
C                                                                       00920045
C     TEST SECTION                                                      00930045
C                                                                       00940045
C         ARITHMETIC ASSIGNMENT STATEMENT                               00950045
C                                                                       00960045
C                                                                       00970045
C     TESTS 747 THROUGH 755 USE THE SAME STRING OF VARIABLES AND        00980045
C     OPERATORS, BUT USE DIFFERENT COMBINATIONS OF PARENTHETICAL        00990045
C     NOTATION  TO ALTER PRIORITIES IN ORDER OF EVALUATION.             01000045
C                                                                       01010045
C     TESTS 756 THROUGH 759 CHECK THE CAPABILITY TO ENCLOSE THE ENTIRE  01020045
C     RIGHT HAND SIDE OF AN ASSIGNMENT STATEMENT IN PARENTHESES OR SETS 01030045
C     OF NESTED PARENTHESES.                                            01040045
C                                                                       01050045
C                                                                       01060045
C                                                                       01070045
C                                                                       01080045
C                                                                       01090045
C                                                                       01100045
C                                                                       01110045
      IVTNUM = 747                                                      01120045
C                                                                       01130045
C      ****  TEST 747  ****                                             01140045
C                                                                       01150045
      IF (ICZERO) 37470, 7470, 37470                                    01160045
 7470 CONTINUE                                                          01170045
      IVON01 = 15                                                       01180045
      IVON02 =  9                                                       01190045
      IVON03 =  4                                                       01200045
      IVON04 = 18                                                       01210045
      IVON05 =  6                                                       01220045
      IVON06 =  2                                                       01230045
      IVCOMP = IVON01 + IVON02 - IVON03 * IVON04 / IVON05 ** IVON06     01240045
      GO TO 47470                                                       01250045
37470 IVDELE = IVDELE + 1                                               01260045
      WRITE (I02,80003) IVTNUM                                          01270045
      IF (ICZERO) 47470, 7481, 47470                                    01280045
47470 IF (IVCOMP - 22) 27470,17470,27470                                01290045
17470 IVPASS = IVPASS + 1                                               01300045
      WRITE (I02,80001) IVTNUM                                          01310045
      GO TO 7481                                                        01320045
27470 IVFAIL = IVFAIL + 1                                               01330045
      IVCORR = 22                                                       01340045
      WRITE (I02,80004) IVTNUM, IVCOMP, IVCORR                          01350045
 7481 CONTINUE                                                          01360045
      IVTNUM = 748                                                      01370045
C                                                                       01380045
C      ****  TEST 748  ****                                             01390045
C                                                                       01400045
      IF (ICZERO) 37480, 7480, 37480                                    01410045
 7480 CONTINUE                                                          01420045
      IVON01 = 15                                                       01430045
      IVON02 =  9                                                       01440045
      IVON03 =  4                                                       01450045
      IVON04 = 18                                                       01460045
      IVON05 =  6                                                       01470045
      IVON06 =  2                                                       01480045
      IVCOMP = ((((IVON01 + IVON02) - IVON03) * IVON04) / IVON05)       01490045
     *         ** IVON06                                                01500045
      GO TO 47480                                                       01510045
37480 IVDELE = IVDELE + 1                                               01520045
      WRITE (I02,80003) IVTNUM                                          01530045
      IF (ICZERO) 47480, 7491, 47480                                    01540045
47480 IF (IVCOMP - 3600) 27480,17480,27480                              01550045
17480 IVPASS = IVPASS + 1                                               01560045
      WRITE (I02,80001) IVTNUM                                          01570045
      GO TO 7491                                                        01580045
27480 IVFAIL = IVFAIL + 1                                               01590045
      IVCORR = 3600                                                     01600045
      WRITE (I02,80004) IVTNUM, IVCOMP, IVCORR                          01610045
 7491 CONTINUE                                                          01620045
      IVTNUM = 749                                                      01630045
C                                                                       01640045
C      ****  TEST 749  ****                                             01650045
C                                                                       01660045
      IF (ICZERO) 37490, 7490, 37490                                    01670045
 7490 CONTINUE                                                          01680045
      IVON01 = 15                                                       01690045
      IVON02 =  9                                                       01700045
      IVON03 =  4                                                       01710045
      IVON04 = 36                                                       01720045
      IVON05 =  6                                                       01730045
      IVON06 =  2                                                       01740045
      IVCOMP = (IVON01 + IVON02 - IVON03) * (IVON04 / IVON05 ** IVON06) 01750045
      GO TO 47490                                                       01760045
37490 IVDELE = IVDELE + 1                                               01770045
      WRITE (I02,80003) IVTNUM                                          01780045
      IF (ICZERO) 47490, 7501, 47490                                    01790045
47490 IF (IVCOMP - 20) 27490,17490,27490                                01800045
17490 IVPASS = IVPASS + 1                                               01810045
      WRITE (I02,80001) IVTNUM                                          01820045
      GO TO 7501                                                        01830045
27490 IVFAIL = IVFAIL + 1                                               01840045
      IVCORR = 20                                                       01850045
      WRITE (I02,80004) IVTNUM, IVCOMP, IVCORR                          01860045
 7501 CONTINUE                                                          01870045
      IVTNUM = 750                                                      01880045
C                                                                       01890045
C      ****  TEST 750  ****                                             01900045
C                                                                       01910045
      IF (ICZERO) 37500, 7500, 37500                                    01920045
 7500 CONTINUE                                                          01930045
      IVON01 = 15                                                       01940045
      IVON02 =  9                                                       01950045
      IVON03 =  4                                                       01960045
      IVON04 = 36                                                       01970045
      IVON05 =  6                                                       01980045
      IVON06 =  2                                                       01990045
      IVCOMP = (IVON01 + IVON02) - (IVON03 * IVON04) / (IVON05 **       02000045
     *         IVON06)                                                  02010045
      GO TO 47500                                                       02020045
37500 IVDELE = IVDELE + 1                                               02030045
      WRITE (I02,80003) IVTNUM                                          02040045
      IF (ICZERO) 47500, 7511, 47500                                    02050045
47500 IF (IVCOMP - 20) 27500,17500,27500                                02060045
17500 IVPASS = IVPASS + 1                                               02070045
      WRITE (I02,80001) IVTNUM                                          02080045
      GO TO 7511                                                        02090045
27500 IVFAIL = IVFAIL + 1                                               02100045
      IVCORR = 20                                                       02110045
      WRITE (I02,80004) IVTNUM, IVCOMP, IVCORR                          02120045
 7511 CONTINUE                                                          02130045
      IVTNUM = 751                                                      02140045
C                                                                       02150045
C      ****  TEST 751  ****                                             02160045
C                                                                       02170045
      IF (ICZERO) 37510, 7510, 37510                                    02180045
 7510 CONTINUE                                                          02190045
      IVON01 = 15                                                       02200045
      IVON02 =  9                                                       02210045
      IVON03 =  4                                                       02220045
      IVON04 = 36                                                       02230045
      IVON05 =  6                                                       02240045
      IVON06 =  2                                                       02250045
      IVCOMP = ((IVON01 + IVON02) - (IVON03 * IVON04)) / (IVON05 **     02260045
     *         IVON06)                                                  02270045
      GO TO 47510                                                       02280045
37510 IVDELE = IVDELE + 1                                               02290045
      WRITE (I02,80003) IVTNUM                                          02300045
      IF (ICZERO)  47510, 7521, 47510                                   02310045
47510 IF (IVCOMP + 3)  27510,17510,27510                                02320045
17510 IVPASS = IVPASS + 1                                               02330045
      WRITE (I02,80001) IVTNUM                                          02340045
      GO TO 7521                                                        02350045
27510 IVFAIL = IVFAIL + 1                                               02360045
      IVCORR = -3                                                       02370045
C     ACTUAL ANSWER IS  -3.333333...     TRUNCATION IS NECESSARY        02380045
      WRITE (I02,80004) IVTNUM, IVCOMP, IVCORR                          02390045
 7521 CONTINUE                                                          02400045
      IVTNUM = 752                                                      02410045
C                                                                       02420045
C      ****  TEST 752  ****                                             02430045
C                                                                       02440045
      IF (ICZERO) 37520, 7520, 37520                                    02450045
 7520 CONTINUE                                                          02460045
      IVON01 = 15                                                       02470045
      IVON02 =  9                                                       02480045
      IVON03 =  4                                                       02490045
      IVON04 = 36                                                       02500045
      IVON05 =  6                                                       02510045
      IVON06 =  2                                                       02520045
      IVCOMP = (IVON01 + IVON02) - (IVON03 * IVON04 / IVON05) ** IVON06 02530045
      GO TO 47520                                                       02540045
37520 IVDELE = IVDELE + 1                                               02550045
      WRITE (I02,80003) IVTNUM                                          02560045
      IF (ICZERO) 47520, 7531, 47520                                    02570045
47520 IF (IVCOMP + 552) 27520,17520,27520                               02580045
17520 IVPASS = IVPASS + 1                                               02590045
      WRITE (I02,80001) IVTNUM                                          02600045
      GO TO 7531                                                        02610045
27520 IVFAIL = IVFAIL + 1                                               02620045
      IVCORR = -552                                                     02630045
      WRITE (I02,80004) IVTNUM, IVCOMP, IVCORR                          02640045
 7531 CONTINUE                                                          02650045
      IVTNUM = 753                                                      02660045
C                                                                       02670045
C      ****  TEST 753  ****                                             02680045
C                                                                       02690045
      IF (ICZERO) 37530, 7530, 37530                                    02700045
 7530 CONTINUE                                                          02710045
      IVON01 = 15                                                       02720045
      IVON02 =  9                                                       02730045
      IVON03 =  4                                                       02740045
      IVON04 = 36                                                       02750045
      IVON05 =  6                                                       02760045
      IVON06 =  2                                                       02770045
      IVCOMP = IVON01 + (IVON02 - IVON03 * IVON04) / IVON05 ** IVON06   02780045
      GO TO 47530                                                       02790045
37530 IVDELE = IVDELE + 1                                               02800045
      WRITE (I02,80003) IVTNUM                                          02810045
      IF (ICZERO) 47530, 7541, 47530                                    02820045
47530 IF (IVCOMP - 12) 27530,17530,27530                                02830045
17530 IVPASS = IVPASS + 1                                               02840045
      WRITE (I02,80001) IVTNUM                                          02850045
      GO TO 7541                                                        02860045
27530 IVFAIL = IVFAIL + 1                                               02870045
      IVCORR = 12                                                       02880045
C     ACTUAL ANSWER IS  11.25            TRUNCATION IS NECESSARY        02890045
C                                        DURING AN INTERMEDIATE STEP    02900045
      WRITE (I02,80004) IVTNUM, IVCOMP, IVCORR                          02910045
 7541 CONTINUE                                                          02920045
      IVTNUM = 754                                                      02930045
C                                                                       02940045
C      ****  TEST 754  ****                                             02950045
C                                                                       02960045
      IF (ICZERO) 37540, 7540, 37540                                    02970045
 7540 CONTINUE                                                          02980045
      IVON01 = 15                                                       02990045
      IVON02 =  9                                                       03000045
      IVON03 =  4                                                       03010045
      IVON04 = 36                                                       03020045
      IVON05 =  6                                                       03030045
      IVON06 =  2                                                       03040045
      IVCOMP = IVON01 + (IVON02 - IVON03) * (IVON04 / IVON05) ** IVON06 03050045
      GO TO 47540                                                       03060045
37540 IVDELE = IVDELE + 1                                               03070045
      WRITE (I02,80003) IVTNUM                                          03080045
      IF (ICZERO) 47540, 7551, 47540                                    03090045
47540 IF (IVCOMP - 195) 27540,17540,27540                               03100045
17540 IVPASS = IVPASS + 1                                               03110045
      WRITE (I02,80001) IVTNUM                                          03120045
      GO TO 7551                                                        03130045
27540 IVFAIL = IVFAIL + 1                                               03140045
      IVCORR = 195                                                      03150045
      WRITE (I02,80004) IVTNUM, IVCOMP, IVCORR                          03160045
 7551 CONTINUE                                                          03170045
      IVTNUM = 755                                                      03180045
C                                                                       03190045
C      ****  TEST 755  ****                                             03200045
C                                                                       03210045
      IF (ICZERO) 37550, 7550, 37550                                    03220045
 7550 CONTINUE                                                          03230045
      IVON01 = 15                                                       03240045
      IVON02 =  9                                                       03250045
      IVON03 =  4                                                       03260045
      IVON04 = 36                                                       03270045
      IVON05 =  6                                                       03280045
      IVON06 =  2                                                       03290045
      IVCOMP = ((IVON01 + (IVON02 - IVON03) * IVON04) / IVON05) **      03300045
     *         IVON06                                                   03310045
      GO TO 47550                                                       03320045
37550 IVDELE = IVDELE + 1                                               03330045
      WRITE (I02,80003) IVTNUM                                          03340045
      IF (ICZERO) 47550, 7561, 47550                                    03350045
47550 IF (IVCOMP - 1024)  27550,17550,27550                             03360045
17550 IVPASS = IVPASS + 1                                               03370045
      WRITE (I02,80001) IVTNUM                                          03380045
      GO TO 7561                                                        03390045
27550 IVFAIL = IVFAIL + 1                                               03400045
      IVCORR = 1024                                                     03410045
C     ACTUAL ANSWER IS  1056.25         TRUNCATION IS NECESSARY         03420045
C                                       DURING AN INTERMEDIATE STEP     03430045
      WRITE (I02,80004) IVTNUM, IVCOMP, IVCORR                          03440045
 7561 CONTINUE                                                          03450045
      IVTNUM = 756                                                      03460045
C                                                                       03470045
C      ****  TEST 756  ****                                             03480045
C          SINGLE PARENTHESES                                           03490045
C                                                                       03500045
      IF (ICZERO) 37560, 7560, 37560                                    03510045
 7560 CONTINUE                                                          03520045
      IVON01 = 13                                                       03530045
      IVON02 = 37                                                       03540045
      IVCOMP = (IVON01 + IVON02)                                        03550045
      GO TO 47560                                                       03560045
37560 IVDELE = IVDELE + 1                                               03570045
      WRITE (I02,80003) IVTNUM                                          03580045
      IF (ICZERO) 47560, 7571, 47560                                    03590045
47560 IF (IVCOMP - 50) 27560,17560,27560                                03600045
17560 IVPASS = IVPASS + 1                                               03610045
      WRITE (I02,80001) IVTNUM                                          03620045
      GO TO 7571                                                        03630045
27560 IVFAIL = IVFAIL + 1                                               03640045
      IVCORR = 50                                                       03650045
      WRITE (I02,80004) IVTNUM, IVCOMP, IVCORR                          03660045
 7571 CONTINUE                                                          03670045
      IVTNUM = 757                                                      03680045
C                                                                       03690045
C      ****  TEST 757  ****                                             03700045
C          NESTED PARENTHESES (TWO SETS)                                03710045
C                                                                       03720045
      IF (ICZERO) 37570, 7570, 37570                                    03730045
 7570 CONTINUE                                                          03740045
      IVON01 = 13                                                       03750045
      IVON02 = 37                                                       03760045
      IVCOMP = ((IVON01 - IVON02))                                      03770045
      GO TO 47570                                                       03780045
37570 IVDELE = IVDELE + 1                                               03790045
      WRITE (I02,80003) IVTNUM                                          03800045
      IF (ICZERO) 47570, 7581, 47570                                    03810045
47570 IF (IVCOMP + 24) 27570,17570,27570                                03820045
17570 IVPASS = IVPASS + 1                                               03830045
      WRITE (I02,80001) IVTNUM                                          03840045
      GO TO 7581                                                        03850045
27570 IVFAIL = IVFAIL + 1                                               03860045
      IVCORR = -24                                                      03870045
      WRITE (I02,80004) IVTNUM, IVCOMP, IVCORR                          03880045
 7581 CONTINUE                                                          03890045
      IVTNUM = 758                                                      03900045
C                                                                       03910045
C      ****  TEST 758  ****                                             03920045
C          NESTED PARENTHESES (21 SETS - SAME LINE)                     03930045
C                                                                       03940045
      IF (ICZERO) 37580, 7580, 37580                                    03950045
 7580 CONTINUE                                                          03960045
      IVON01 = 13                                                       03970045
      IVON02 = 37                                                       03980045
      IVCOMP = (((((((((((((((((((((IVON01 * IVON02)))))))))))))))))))))03990045
      GO TO 47580                                                       04000045
37580 IVDELE = IVDELE + 1                                               04010045
      WRITE (I02,80003) IVTNUM                                          04020045
      IF (ICZERO) 47580, 7591, 47580                                    04030045
47580 IF (IVCOMP - 481) 27580,17580,27580                               04040045
17580 IVPASS = IVPASS + 1                                               04050045
      WRITE (I02,80001) IVTNUM                                          04060045
      GO TO 7591                                                        04070045
27580 IVFAIL = IVFAIL + 1                                               04080045
      IVCORR = 481                                                      04090045
      WRITE (I02,80004) IVTNUM, IVCOMP, IVCORR                          04100045
 7591 CONTINUE                                                          04110045
      IVTNUM = 759                                                      04120045
C                                                                       04130045
C      ****  TEST 759  ****                                             04140045
C          NESTED PARENTHESES (57 SETS - MULTIPLE LINES)                04150045
C                                                                       04160045
      IF (ICZERO) 37590, 7590, 37590                                    04170045
 7590 CONTINUE                                                          04180045
      IVON01 = 13                                                       04190045
      IVON02 = 37                                                       04200045
      IVCOMP = (((((((((((((((((((((((((((((((((((((((((((((((((((((((((04210045
     *         IVON01 / IVON02                                          04220045
     *         )))))))))))))))))))))))))))))))))))))))))))))))))))))))))04230045
      GO TO 47590                                                       04240045
37590 IVDELE = IVDELE + 1                                               04250045
      WRITE (I02,80003) IVTNUM                                          04260045
      IF (ICZERO) 47590, 7601, 47590                                    04270045
47590 IF (IVCOMP) 27590,17590,27590                                     04280045
17590 IVPASS = IVPASS + 1                                               04290045
      WRITE (I02,80001) IVTNUM                                          04300045
      GO TO 7601                                                        04310045
27590 IVFAIL = IVFAIL + 1                                               04320045
      IVCORR = 0                                                        04330045
      WRITE (I02,80004) IVTNUM, IVCOMP, IVCORR                          04340045
 7601 CONTINUE                                                          04350045
C                                                                       04360045
C     WRITE PAGE FOOTINGS AND RUN SUMMARIES                             04370045
99999 CONTINUE                                                          04380045
      WRITE (I02,90002)                                                 04390045
      WRITE (I02,90006)                                                 04400045
      WRITE (I02,90002)                                                 04410045
      WRITE (I02,90002)                                                 04420045
      WRITE (I02,90007)                                                 04430045
      WRITE (I02,90002)                                                 04440045
      WRITE (I02,90008)  IVFAIL                                         04450045
      WRITE (I02,90009) IVPASS                                          04460045
      WRITE (I02,90010) IVDELE                                          04470045
C                                                                       04480045
C                                                                       04490045
C     TERMINATE ROUTINE EXECUTION                                       04500045
      STOP                                                              04510045
C                                                                       04520045
C     FORMAT STATEMENTS FOR PAGE HEADERS                                04530045
90000 FORMAT ("1")                                                      04540045
90002 FORMAT (" ")                                                      04550045
90001 FORMAT (" ",10X,"FORTRAN COMPILER VALIDATION SYSTEM" )            04560045
90003 FORMAT (" ",21X,"VERSION 2.1" )                                   04570045
90004 FORMAT (" ",10X,"FOR OFFICIAL USE ONLY - COPYRIGHT 1978" )        04580045
90005 FORMAT (" ",5X,"TEST",5X,"PASS/FAIL", 5X,"COMPUTED",8X,"CORRECT") 04590045
90006 FORMAT (" ",5X,"----------------------------------------------" ) 04600045
90011 FORMAT (" ",18X,"SUBSET LEVEL TEST" )                             04610045
C                                                                       04620045
C     FORMAT STATEMENTS FOR RUN SUMMARIES                               04630045
90008 FORMAT (" ",15X,I5," ERRORS ENCOUNTERED" )                        04640045
90009 FORMAT (" ",15X,I5," TESTS PASSED" )                              04650045
90010 FORMAT (" ",15X,I5," TESTS DELETED" )                             04660045
C                                                                       04670045
C     FORMAT STATEMENTS FOR TEST RESULTS                                04680045
80001 FORMAT (" ",4X,I5,7X,"PASS")                                      04690045
80002 FORMAT (" ",4X,I5,7X,"FAIL")                                      04700045
80003 FORMAT (" ",4X,I5,7X,"DELETED")                                   04710045
80004 FORMAT (" ",4X,I5,7X,"FAIL",10X,I6,9X,I6)                         04720045
80005 FORMAT (" ",4X,I5,7X,"FAIL",4X,E12.5,3X,E12.5)                    04730045
C                                                                       04740045
90007 FORMAT (" ",20X,"END OF PROGRAM FM045" )                          04750045
      END                                                               04760045