| PROGRAM FM043 |
| |
| C COMMENT SECTION 00010043 |
| C 00020043 |
| C FM043 00030043 |
| C 00040043 |
| C THIS ROUTINE TESTS ARITHMETIC ASSIGNMENTS OF THE FORM 00050043 |
| C 00060043 |
| C INTEGER VAR. = INTEGER VAR. <OP1> INTEGER VAR. <OP2> INTEGER VAR. 00070043 |
| C 00080043 |
| C WHERE <OP1> AND <OP2> ARE ARITHMETIC OPERATORS, BUT <OP1> IS 00090043 |
| C NOT THE SAME AS <OP2>. 00100043 |
| C 00110043 |
| C REFERENCES 00120043 |
| C AMERICAN NATIONAL STANDARD PROGRAMMING LANGUAGE FORTRAN, 00130043 |
| C X3.9-1978 00140043 |
| C 00150043 |
| C SECTION 4.3, INTEGER TYPE 00160043 |
| C SECTION 4.3.1, INTEGER CONSTANT 00170043 |
| C SECTION 6.1, ARITHMETIC EXPRESSIONS 00180043 |
| C SECTION 6.6, EVALUATION OF EXPRESSIONS 00190043 |
| C SECTION 10.1, ARITHMETIC ASSIGNMENT STATEMENT 00200043 |
| C 00210043 |
| C 00220043 |
| C ********************************************************** 00230043 |
| C 00240043 |
| C A COMPILER VALIDATION SYSTEM FOR THE FORTRAN LANGUAGE 00250043 |
| C BASED ON SPECIFICATIONS AS DEFINED IN AMERICAN NATIONAL STANDARD 00260043 |
| C PROGRAMMING LANGUAGE FORTRAN X3.9-1978, HAS BEEN DEVELOPED BY THE 00270043 |
| C FEDERAL COBOL COMPILER TESTING SERVICE. THE FORTRAN COMPILER 00280043 |
| C VALIDATION SYSTEM (FCVS) CONSISTS OF AUDIT ROUTINES, THEIR RELATED00290043 |
| C DATA, AND AN EXECUTIVE SYSTEM. EACH AUDIT ROUTINE IS A FORTRAN 00300043 |
| C PROGRAM, SUBPROGRAM OR FUNCTION WHICH INCLUDES TESTS OF SPECIFIC 00310043 |
| C LANGUAGE ELEMENTS AND SUPPORTING PROCEDURES INDICATING THE RESULT 00320043 |
| C OF EXECUTING THESE TESTS. 00330043 |
| C 00340043 |
| C THIS PARTICULAR PROGRAM/SUBPROGRAM/FUNCTION CONTAINS FEATURES 00350043 |
| C FOUND ONLY IN THE SUBSET AS DEFINED IN X3.9-1978. 00360043 |
| C 00370043 |
| C SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO - 00380043 |
| C 00390043 |
| C NATIONAL INSTITUTE OF STANDARDS AND TECHNOLOGY 00400043 |
| C SOFTWARE STANDARDS VALIDATION GROUP 00410043 |
| C BUILDING 225 RM A266 00420043 |
| C GAITHERSBURG, MD 20899 00430043 |
| C ********************************************************** 00440043 |
| C 00450043 |
| C 00460043 |
| C 00470043 |
| C INITIALIZATION SECTION 00480043 |
| C 00490043 |
| C INITIALIZE CONSTANTS 00500043 |
| C ************** 00510043 |
| C I01 CONTAINS THE LOGICAL UNIT NUMBER FOR THE CARD READER. 00520043 |
| I01 = 5 00530043 |
| C I02 CONTAINS THE LOGICAL UNIT NUMBER FOR THE PRINTER. 00540043 |
| I02 = 6 00550043 |
| C SYSTEM ENVIRONMENT SECTION 00560043 |
| C 00570043 |
| CX010 THIS CARD IS REPLACED BY CONTENTS OF FEXEC X-010 CONTROL CARD. 00580043 |
| C THE CX010 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I01 = 5 00590043 |
| C (UNIT NUMBER FOR CARD READER). 00600043 |
| CX011 THIS CARD IS REPLACED BY CONTENTS OF FEXEC X-011 CONTROL CARD. 00610043 |
| C THE CX011 CARD IS FOR SYSTEMS WHICH REQUIRE ADDITIONAL 00620043 |
| C FORTRAN STATEMENTS FOR FILES ASSOCIATED WITH CX010 ABOVE. 00630043 |
| C 00640043 |
| CX020 THIS CARD IS REPLACED BY CONTENTS OF FEXEC X-020 CONTROL CARD. 00650043 |
| C THE CX020 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I02 = 6 00660043 |
| C (UNIT NUMBER FOR PRINTER). 00670043 |
| CX021 THIS CARD IS REPLACED BY CONTENTS OF FEXEC X-021 CONTROL CARD. 00680043 |
| C THE CX021 CARD IS FOR SYSTEMS WHICH REQUIRE ADDITIONAL 00690043 |
| C FORTRAN STATEMENTS FOR FILES ASSOCIATED WITH CX020 ABOVE. 00700043 |
| C 00710043 |
| IVPASS=0 00720043 |
| IVFAIL=0 00730043 |
| IVDELE=0 00740043 |
| ICZERO=0 00750043 |
| C 00760043 |
| C WRITE PAGE HEADERS 00770043 |
| WRITE (I02,90000) 00780043 |
| WRITE (I02,90001) 00790043 |
| WRITE (I02,90002) 00800043 |
| WRITE (I02, 90002) 00810043 |
| WRITE (I02,90003) 00820043 |
| WRITE (I02,90002) 00830043 |
| WRITE (I02,90004) 00840043 |
| WRITE (I02,90002) 00850043 |
| WRITE (I02,90011) 00860043 |
| WRITE (I02,90002) 00870043 |
| WRITE (I02,90002) 00880043 |
| WRITE (I02,90005) 00890043 |
| WRITE (I02,90006) 00900043 |
| WRITE (I02,90002) 00910043 |
| C 00920043 |
| C TEST SECTION 00930043 |
| C 00940043 |
| C ARITHMETIC ASSIGNMENT STATEMENT 00950043 |
| C 00960043 |
| C TESTS 683 THROUGH 694 TEST STATEMENTS WHERE <OP1> IS '+' AND 00970043 |
| C <OP2> VARIES. 00980043 |
| C 00990043 |
| C TEST 695 THROUGH 706 TEST STATEMENTS WHERE <OP1> IS '-' AND 01000043 |
| C <OP2> VARIES. 01010043 |
| C 01020043 |
| C TESTS 707 THROUGH 718 TEST STATEMENTS WHERE <OP1> IS '*' AND 01030043 |
| C <OP2> VARIES. 01040043 |
| C 01050043 |
| C 01060043 |
| C 01070043 |
| C TESTS 683 THROUGH 685 TEST '+' FOLLOWED BY '-'. 01080043 |
| C 01090043 |
| IVTNUM = 683 01100043 |
| C 01110043 |
| C **** TEST 683 **** 01120043 |
| C 01130043 |
| IF (ICZERO) 36830, 6830, 36830 01140043 |
| 6830 CONTINUE 01150043 |
| IVON01 = 45 01160043 |
| IVON02 = 9 01170043 |
| IVON03 = 3 01180043 |
| IVCOMP = IVON01 + IVON02 - IVON03 01190043 |
| GO TO 46830 01200043 |
| 36830 IVDELE = IVDELE + 1 01210043 |
| WRITE (I02,80003) IVTNUM 01220043 |
| IF (ICZERO) 46830, 6841, 46830 01230043 |
| 46830 IF (IVCOMP - 51) 26830,16830,26830 01240043 |
| 16830 IVPASS = IVPASS + 1 01250043 |
| WRITE (I02,80001) IVTNUM 01260043 |
| GO TO 6841 01270043 |
| 26830 IVFAIL = IVFAIL + 1 01280043 |
| IVCORR = 51 01290043 |
| WRITE (I02,80004) IVTNUM, IVCOMP, IVCORR 01300043 |
| 6841 CONTINUE 01310043 |
| IVTNUM = 684 01320043 |
| C 01330043 |
| C **** TEST 684 **** 01340043 |
| C 01350043 |
| IF (ICZERO) 36840, 6840, 36840 01360043 |
| 6840 CONTINUE 01370043 |
| IVON01 = 45 01380043 |
| IVON02 = 9 01390043 |
| IVON03 = 3 01400043 |
| IVCOMP = (IVON01 + IVON02) - IVON03 01410043 |
| GO TO 46840 01420043 |
| 36840 IVDELE = IVDELE + 1 01430043 |
| WRITE (I02,80003) IVTNUM 01440043 |
| IF (ICZERO) 46840, 6851, 46840 01450043 |
| 46840 IF (IVCOMP - 51) 26840,16840,26840 01460043 |
| 16840 IVPASS = IVPASS + 1 01470043 |
| WRITE (I02,80001) IVTNUM 01480043 |
| GO TO 6851 01490043 |
| 26840 IVFAIL = IVFAIL + 1 01500043 |
| IVCORR = 51 01510043 |
| WRITE (I02,80004) IVTNUM, IVCOMP, IVCORR 01520043 |
| 6851 CONTINUE 01530043 |
| IVTNUM = 685 01540043 |
| C 01550043 |
| C **** TEST 685 **** 01560043 |
| C 01570043 |
| IF (ICZERO) 36850, 6850, 36850 01580043 |
| 6850 CONTINUE 01590043 |
| IVON01 = 45 01600043 |
| IVON02 = 9 01610043 |
| IVON03 = 3 01620043 |
| IVCOMP = IVON01 + (IVON02 - IVON03) 01630043 |
| GO TO 46850 01640043 |
| 36850 IVDELE = IVDELE + 1 01650043 |
| WRITE (I02,80003) IVTNUM 01660043 |
| IF (ICZERO) 46850, 6861, 46850 01670043 |
| 46850 IF (IVCOMP - 51) 26850,16850,26850 01680043 |
| 16850 IVPASS = IVPASS + 1 01690043 |
| WRITE (I02,80001) IVTNUM 01700043 |
| GO TO 6861 01710043 |
| 26850 IVFAIL = IVFAIL + 1 01720043 |
| IVCORR = 51 01730043 |
| WRITE (I02,80004) IVTNUM, IVCOMP, IVCORR 01740043 |
| 6861 CONTINUE 01750043 |
| C 01760043 |
| C TESTS 686 THROUGH 688 TEST '+' FOLLOWED BY '*'. 01770043 |
| C 01780043 |
| IVTNUM = 686 01790043 |
| C 01800043 |
| C **** TEST 686 **** 01810043 |
| C 01820043 |
| IF (ICZERO) 36860, 6860, 36860 01830043 |
| 6860 CONTINUE 01840043 |
| IVON01 = 45 01850043 |
| IVON02 = 9 01860043 |
| IVON03 = 3 01870043 |
| IVCOMP = IVON01 + IVON02 * IVON03 01880043 |
| GO TO 46860 01890043 |
| 36860 IVDELE = IVDELE + 1 01900043 |
| WRITE (I02,80003) IVTNUM 01910043 |
| IF (ICZERO) 46860, 6871, 46860 01920043 |
| 46860 IF (IVCOMP - 72) 26860,16860,26860 01930043 |
| 16860 IVPASS = IVPASS + 1 01940043 |
| WRITE (I02,80001) IVTNUM 01950043 |
| GO TO 6871 01960043 |
| 26860 IVFAIL = IVFAIL + 1 01970043 |
| IVCORR = 72 01980043 |
| WRITE (I02,80004) IVTNUM, IVCOMP, IVCORR 01990043 |
| 6871 CONTINUE 02000043 |
| IVTNUM = 687 02010043 |
| C 02020043 |
| C **** TEST 687 **** 02030043 |
| C 02040043 |
| IF (ICZERO) 36870, 6870, 36870 02050043 |
| 6870 CONTINUE 02060043 |
| IVON01 = 45 02070043 |
| IVON02 = 9 02080043 |
| IVON03 = 3 02090043 |
| IVCOMP = (IVON01 + IVON02) * IVON03 02100043 |
| GO TO 46870 02110043 |
| 36870 IVDELE = IVDELE + 1 02120043 |
| WRITE (I02,80003) IVTNUM 02130043 |
| IF (ICZERO) 46870, 6881, 46870 02140043 |
| 46870 IF (IVCOMP - 162) 26870,16870,26870 02150043 |
| 16870 IVPASS = IVPASS + 1 02160043 |
| WRITE (I02,80001) IVTNUM 02170043 |
| GO TO 6881 02180043 |
| 26870 IVFAIL = IVFAIL + 1 02190043 |
| IVCORR = 162 02200043 |
| WRITE (I02,80004) IVTNUM, IVCOMP, IVCORR 02210043 |
| 6881 CONTINUE 02220043 |
| IVTNUM = 688 02230043 |
| C 02240043 |
| C **** TEST 688 **** 02250043 |
| C 02260043 |
| IF (ICZERO) 36880, 6880, 36880 02270043 |
| 6880 CONTINUE 02280043 |
| IVON01 = 45 02290043 |
| IVON02 = 9 02300043 |
| IVON03 = 3 02310043 |
| IVCOMP = IVON01 + (IVON02 * IVON03) 02320043 |
| GO TO 46880 02330043 |
| 36880 IVDELE = IVDELE + 1 02340043 |
| WRITE (I02,80003) IVTNUM 02350043 |
| IF (ICZERO) 46880, 6891, 46880 02360043 |
| 46880 IF (IVCOMP - 72) 26880,16880,26880 02370043 |
| 16880 IVPASS = IVPASS + 1 02380043 |
| WRITE (I02,80001) IVTNUM 02390043 |
| GO TO 6891 02400043 |
| 26880 IVFAIL = IVFAIL + 1 02410043 |
| IVCORR = 72 02420043 |
| WRITE (I02,80004) IVTNUM, IVCOMP, IVCORR 02430043 |
| 6891 CONTINUE 02440043 |
| C 02450043 |
| C TESTS 689 THROUGH 691 TEST '+' FOLLOWED BY '/'. 02460043 |
| C 02470043 |
| IVTNUM = 689 02480043 |
| C 02490043 |
| C **** TEST 689 **** 02500043 |
| C 02510043 |
| IF (ICZERO) 36890, 6890, 36890 02520043 |
| 6890 CONTINUE 02530043 |
| IVON01 = 45 02540043 |
| IVON02 = 9 02550043 |
| IVON03 = 3 02560043 |
| IVCOMP = IVON01 + IVON02 / IVON03 02570043 |
| GO TO 46890 02580043 |
| 36890 IVDELE = IVDELE + 1 02590043 |
| WRITE (I02,80003) IVTNUM 02600043 |
| IF (ICZERO) 46890, 6901, 46890 02610043 |
| 46890 IF (IVCOMP - 48) 26890,16890,26890 02620043 |
| 16890 IVPASS = IVPASS + 1 02630043 |
| WRITE (I02,80001) IVTNUM 02640043 |
| GO TO 6901 02650043 |
| 26890 IVFAIL = IVFAIL + 1 02660043 |
| IVCORR = 48 02670043 |
| WRITE (I02,80004) IVTNUM, IVCOMP, IVCORR 02680043 |
| 6901 CONTINUE 02690043 |
| IVTNUM = 690 02700043 |
| C 02710043 |
| C **** TEST 690 **** 02720043 |
| C 02730043 |
| IF (ICZERO) 36900, 6900, 36900 02740043 |
| 6900 CONTINUE 02750043 |
| IVON01 = 45 02760043 |
| IVON02 = 9 02770043 |
| IVON03 = 3 02780043 |
| IVCOMP = (IVON01 + IVON02) / IVON03 02790043 |
| GO TO 46900 02800043 |
| 36900 IVDELE = IVDELE + 1 02810043 |
| WRITE (I02,80003) IVTNUM 02820043 |
| IF (ICZERO) 46900, 6911, 46900 02830043 |
| 46900 IF (IVCOMP - 18) 26900,16900,26900 02840043 |
| 16900 IVPASS = IVPASS + 1 02850043 |
| WRITE (I02,80001) IVTNUM 02860043 |
| GO TO 6911 02870043 |
| 26900 IVFAIL = IVFAIL + 1 02880043 |
| IVCORR = 18 02890043 |
| WRITE (I02,80004) IVTNUM, IVCOMP, IVCORR 02900043 |
| 6911 CONTINUE 02910043 |
| IVTNUM = 691 02920043 |
| C 02930043 |
| C **** TEST 691 **** 02940043 |
| C 02950043 |
| IF (ICZERO) 36910, 6910, 36910 02960043 |
| 6910 CONTINUE 02970043 |
| IVON01 = 45 02980043 |
| IVON02 = 9 02990043 |
| IVON03 = 3 03000043 |
| IVCOMP = IVON01 + (IVON02 / IVON03) 03010043 |
| GO TO 46910 03020043 |
| 36910 IVDELE = IVDELE + 1 03030043 |
| WRITE (I02,80003) IVTNUM 03040043 |
| IF (ICZERO) 46910, 6921, 46910 03050043 |
| 46910 IF (IVCOMP - 48) 26910,16910,26910 03060043 |
| 16910 IVPASS = IVPASS + 1 03070043 |
| WRITE (I02,80001) IVTNUM 03080043 |
| GO TO 6921 03090043 |
| 26910 IVFAIL = IVFAIL + 1 03100043 |
| IVCORR = 48 03110043 |
| WRITE (I02,80004) IVTNUM, IVCOMP, IVCORR 03120043 |
| 6921 CONTINUE 03130043 |
| C 03140043 |
| C TESTS 692 THROUGH 694 TEST '+' FOLLOWED BY '**'. 03150043 |
| C 03160043 |
| IVTNUM = 692 03170043 |
| C 03180043 |
| C **** TEST 692 **** 03190043 |
| C 03200043 |
| IF (ICZERO) 36920, 6920, 36920 03210043 |
| 6920 CONTINUE 03220043 |
| IVON01 = 15 03230043 |
| IVON02 = 9 03240043 |
| IVON03 = 3 03250043 |
| IVCOMP = IVON01 + IVON02 ** IVON03 03260043 |
| GO TO 46920 03270043 |
| 36920 IVDELE = IVDELE + 1 03280043 |
| WRITE (I02,80003) IVTNUM 03290043 |
| IF (ICZERO) 46920, 6931, 46920 03300043 |
| 46920 IF (IVCOMP - 744) 26920,16920,26920 03310043 |
| 16920 IVPASS = IVPASS + 1 03320043 |
| WRITE (I02,80001) IVTNUM 03330043 |
| GO TO 6931 03340043 |
| 26920 IVFAIL = IVFAIL + 1 03350043 |
| IVCORR = 744 03360043 |
| WRITE (I02,80004) IVTNUM, IVCOMP, IVCORR 03370043 |
| 6931 CONTINUE 03380043 |
| IVTNUM = 693 03390043 |
| C 03400043 |
| C **** TEST 693 **** 03410043 |
| C 03420043 |
| IF (ICZERO) 36930, 6930, 36930 03430043 |
| 6930 CONTINUE 03440043 |
| IVON01 = 15 03450043 |
| IVON02 = 9 03460043 |
| IVON03 = 3 03470043 |
| IVCOMP = (IVON01 + IVON02) ** IVON03 03480043 |
| GO TO 46930 03490043 |
| 36930 IVDELE = IVDELE + 1 03500043 |
| WRITE (I02,80003) IVTNUM 03510043 |
| IF (ICZERO) 46930, 6941, 46930 03520043 |
| 46930 IF (IVCOMP - 13824) 26930,16930,26930 03530043 |
| 16930 IVPASS = IVPASS + 1 03540043 |
| WRITE (I02,80001) IVTNUM 03550043 |
| GO TO 6941 03560043 |
| 26930 IVFAIL = IVFAIL + 1 03570043 |
| IVCORR = 13824 03580043 |
| WRITE (I02,80004) IVTNUM, IVCOMP, IVCORR 03590043 |
| 6941 CONTINUE 03600043 |
| IVTNUM = 694 03610043 |
| C 03620043 |
| C **** TEST 694 **** 03630043 |
| C 03640043 |
| IF (ICZERO) 36940, 6940, 36940 03650043 |
| 6940 CONTINUE 03660043 |
| IVON01 = 15 03670043 |
| IVON02 = 9 03680043 |
| IVON03 = 3 03690043 |
| IVCOMP = IVON01 + (IVON02 ** IVON03) 03700043 |
| GO TO 46940 03710043 |
| 36940 IVDELE = IVDELE + 1 03720043 |
| WRITE (I02,80003) IVTNUM 03730043 |
| IF (ICZERO) 46940, 6951, 46940 03740043 |
| 46940 IF (IVCOMP - 744) 26940,16940,26940 03750043 |
| 16940 IVPASS = IVPASS + 1 03760043 |
| WRITE (I02,80001) IVTNUM 03770043 |
| GO TO 6951 03780043 |
| 26940 IVFAIL = IVFAIL + 1 03790043 |
| IVCORR = 744 03800043 |
| WRITE (I02,80004) IVTNUM, IVCOMP, IVCORR 03810043 |
| 6951 CONTINUE 03820043 |
| C 03830043 |
| C TESTS 695 THROUGH 697 TEST '-' FOLLOWED BY '+'. 03840043 |
| C 03850043 |
| IVTNUM = 695 03860043 |
| C 03870043 |
| C **** TEST 695 **** 03880043 |
| C 03890043 |
| IF (ICZERO) 36950, 6950, 36950 03900043 |
| 6950 CONTINUE 03910043 |
| IVON01 = 45 03920043 |
| IVON02 = 9 03930043 |
| IVON03 = 3 03940043 |
| IVCOMP = IVON01 - IVON02 + IVON03 03950043 |
| GO TO 46950 03960043 |
| 36950 IVDELE = IVDELE + 1 03970043 |
| WRITE (I02,80003) IVTNUM 03980043 |
| IF (ICZERO) 46950, 6961, 46950 03990043 |
| 46950 IF (IVCOMP - 39) 26950,16950,26950 04000043 |
| 16950 IVPASS = IVPASS + 1 04010043 |
| WRITE (I02,80001) IVTNUM 04020043 |
| GO TO 6961 04030043 |
| 26950 IVFAIL = IVFAIL + 1 04040043 |
| IVCORR = 39 04050043 |
| WRITE (I02,80004) IVTNUM, IVCOMP, IVCORR 04060043 |
| 6961 CONTINUE 04070043 |
| IVTNUM = 696 04080043 |
| C 04090043 |
| C **** TEST 696 **** 04100043 |
| C 04110043 |
| IF (ICZERO) 36960, 6960, 36960 04120043 |
| 6960 CONTINUE 04130043 |
| IVON01 = 45 04140043 |
| IVON02 = 9 04150043 |
| IVON03 = 3 04160043 |
| IVCOMP = (IVON01 - IVON02) + IVON03 04170043 |
| GO TO 46960 04180043 |
| 36960 IVDELE = IVDELE + 1 04190043 |
| WRITE (I02,80003) IVTNUM 04200043 |
| IF (ICZERO) 46960, 6971, 46960 04210043 |
| 46960 IF (IVCOMP - 39) 26960,16960,26960 04220043 |
| 16960 IVPASS = IVPASS + 1 04230043 |
| WRITE (I02,80001) IVTNUM 04240043 |
| GO TO 6971 04250043 |
| 26960 IVFAIL = IVFAIL + 1 04260043 |
| IVCORR = 39 04270043 |
| WRITE (I02,80004) IVTNUM, IVCOMP, IVCORR 04280043 |
| 6971 CONTINUE 04290043 |
| IVTNUM = 697 04300043 |
| C 04310043 |
| C **** TEST 697 **** 04320043 |
| C 04330043 |
| IF (ICZERO) 36970, 6970, 36970 04340043 |
| 6970 CONTINUE 04350043 |
| IVON01 = 45 04360043 |
| IVON02 = 9 04370043 |
| IVON03 = 3 04380043 |
| IVCOMP = IVON01 - (IVON02 + IVON03) 04390043 |
| GO TO 46970 04400043 |
| 36970 IVDELE = IVDELE + 1 04410043 |
| WRITE (I02,80003) IVTNUM 04420043 |
| IF (ICZERO) 46970, 6981, 46970 04430043 |
| 46970 IF (IVCOMP - 33) 26970,16970,26970 04440043 |
| 16970 IVPASS = IVPASS + 1 04450043 |
| WRITE (I02,80001) IVTNUM 04460043 |
| GO TO 6981 04470043 |
| 26970 IVFAIL = IVFAIL + 1 04480043 |
| IVCORR = 33 04490043 |
| WRITE (I02,80004) IVTNUM, IVCOMP, IVCORR 04500043 |
| 6981 CONTINUE 04510043 |
| C 04520043 |
| C TESTS 698 THROUGH 700 TEST '-' FOLLOWED BY '*'. 04530043 |
| C 04540043 |
| IVTNUM = 698 04550043 |
| C 04560043 |
| C **** TEST 698 **** 04570043 |
| C 04580043 |
| IF (ICZERO) 36980, 6980, 36980 04590043 |
| 6980 CONTINUE 04600043 |
| IVON01 = 45 04610043 |
| IVON02 = 9 04620043 |
| IVON03 = 3 04630043 |
| IVCOMP = IVON01 - IVON02 * IVON03 04640043 |
| GO TO 46980 04650043 |
| 36980 IVDELE = IVDELE + 1 04660043 |
| WRITE (I02,80003) IVTNUM 04670043 |
| IF (ICZERO) 46980, 6991, 46980 04680043 |
| 46980 IF (IVCOMP - 18) 26980,16980,26980 04690043 |
| 16980 IVPASS = IVPASS + 1 04700043 |
| WRITE (I02,80001) IVTNUM 04710043 |
| GO TO 6991 04720043 |
| 26980 IVFAIL = IVFAIL + 1 04730043 |
| IVCORR = 18 04740043 |
| WRITE (I02,80004) IVTNUM, IVCOMP, IVCORR 04750043 |
| 6991 CONTINUE 04760043 |
| IVTNUM = 699 04770043 |
| C 04780043 |
| C **** TEST 699 **** 04790043 |
| C 04800043 |
| IF (ICZERO) 36990, 6990, 36990 04810043 |
| 6990 CONTINUE 04820043 |
| IVON01 = 45 04830043 |
| IVON02 = 9 04840043 |
| IVON03 = 3 04850043 |
| IVCOMP = (IVON01 - IVON02) * IVON03 04860043 |
| GO TO 46990 04870043 |
| 36990 IVDELE = IVDELE + 1 04880043 |
| WRITE (I02,80003) IVTNUM 04890043 |
| IF (ICZERO) 46990, 7001, 46990 04900043 |
| 46990 IF (IVCOMP - 108) 26990,16990,26990 04910043 |
| 16990 IVPASS = IVPASS + 1 04920043 |
| WRITE (I02,80001) IVTNUM 04930043 |
| GO TO 7001 04940043 |
| 26990 IVFAIL = IVFAIL + 1 04950043 |
| IVCORR = 108 04960043 |
| WRITE (I02,80004) IVTNUM, IVCOMP, IVCORR 04970043 |
| 7001 CONTINUE 04980043 |
| IVTNUM = 700 04990043 |
| C 05000043 |
| C **** TEST 700 **** 05010043 |
| C 05020043 |
| IF (ICZERO) 37000, 7000, 37000 05030043 |
| 7000 CONTINUE 05040043 |
| IVON01 = 45 05050043 |
| IVON02 = 9 05060043 |
| IVON03 = 3 05070043 |
| IVCOMP = IVON01 - (IVON02 * IVON03) 05080043 |
| GO TO 47000 05090043 |
| 37000 IVDELE = IVDELE + 1 05100043 |
| WRITE (I02,80003) IVTNUM 05110043 |
| IF (ICZERO) 47000, 7011, 47000 05120043 |
| 47000 IF (IVCOMP - 18) 27000,17000,27000 05130043 |
| 17000 IVPASS = IVPASS + 1 05140043 |
| WRITE (I02,80001) IVTNUM 05150043 |
| GO TO 7011 05160043 |
| 27000 IVFAIL = IVFAIL + 1 05170043 |
| IVCORR = 18 05180043 |
| WRITE (I02,80004) IVTNUM, IVCOMP, IVCORR 05190043 |
| 7011 CONTINUE 05200043 |
| C 05210043 |
| C TESTS 701 THROUGH 703 TEST '-' FOLLOWED BY '/'. 05220043 |
| C 05230043 |
| IVTNUM = 701 05240043 |
| C 05250043 |
| C **** TEST 701 **** 05260043 |
| C 05270043 |
| IF (ICZERO) 37010, 7010, 37010 05280043 |
| 7010 CONTINUE 05290043 |
| IVON01 = 45 05300043 |
| IVON02 = 9 05310043 |
| IVON03 = 3 05320043 |
| IVCOMP = IVON01 - IVON02 / IVON03 05330043 |
| GO TO 47010 05340043 |
| 37010 IVDELE = IVDELE + 1 05350043 |
| WRITE (I02,80003) IVTNUM 05360043 |
| IF (ICZERO) 47010, 7021, 47010 05370043 |
| 47010 IF (IVCOMP - 42) 27010,17010,27010 05380043 |
| 17010 IVPASS = IVPASS + 1 05390043 |
| WRITE (I02,80001) IVTNUM 05400043 |
| GO TO 7021 05410043 |
| 27010 IVFAIL = IVFAIL + 1 05420043 |
| IVCORR = 42 05430043 |
| WRITE (I02,80004) IVTNUM, IVCOMP, IVCORR 05440043 |
| 7021 CONTINUE 05450043 |
| IVTNUM = 702 05460043 |
| C 05470043 |
| C **** TEST 702 **** 05480043 |
| C 05490043 |
| IF (ICZERO) 37020, 7020, 37020 05500043 |
| 7020 CONTINUE 05510043 |
| IVON01 = 45 05520043 |
| IVON02 = 9 05530043 |
| IVON03 = 3 05540043 |
| IVCOMP = (IVON01 - IVON02) / IVON03 05550043 |
| GO TO 47020 05560043 |
| 37020 IVDELE = IVDELE + 1 05570043 |
| WRITE (I02,80003) IVTNUM 05580043 |
| IF (ICZERO) 47020, 7031, 47020 05590043 |
| 47020 IF (IVCOMP - 12) 27020,17020,27020 05600043 |
| 17020 IVPASS = IVPASS + 1 05610043 |
| WRITE (I02,80001) IVTNUM 05620043 |
| GO TO 7031 05630043 |
| 27020 IVFAIL = IVFAIL + 1 05640043 |
| IVCORR = 12 05650043 |
| WRITE (I02,80004) IVTNUM, IVCOMP, IVCORR 05660043 |
| 7031 CONTINUE 05670043 |
| IVTNUM = 703 05680043 |
| C 05690043 |
| C **** TEST 703 **** 05700043 |
| C 05710043 |
| IF (ICZERO) 37030, 7030, 37030 05720043 |
| 7030 CONTINUE 05730043 |
| IVON01 = 45 05740043 |
| IVON02 = 9 05750043 |
| IVON03 = 3 05760043 |
| IVCOMP = IVON01 - (IVON02 / IVON03) 05770043 |
| GO TO 47030 05780043 |
| 37030 IVDELE = IVDELE + 1 05790043 |
| WRITE (I02,80003) IVTNUM 05800043 |
| IF (ICZERO) 47030, 7041, 47030 05810043 |
| 47030 IF (IVCOMP - 42) 27030,17030,27030 05820043 |
| 17030 IVPASS = IVPASS + 1 05830043 |
| WRITE (I02,80001) IVTNUM 05840043 |
| GO TO 7041 05850043 |
| 27030 IVFAIL = IVFAIL + 1 05860043 |
| IVCORR = 42 05870043 |
| WRITE (I02,80004) IVTNUM, IVCOMP, IVCORR 05880043 |
| 7041 CONTINUE 05890043 |
| C 05900043 |
| C TESTS 704 THROUGH 706 TEST '-' FOLLOWED BY '**'. 05910043 |
| C 05920043 |
| IVTNUM = 704 05930043 |
| C 05940043 |
| C **** TEST 704 **** 05950043 |
| C 05960043 |
| IF (ICZERO) 37040, 7040, 37040 05970043 |
| 7040 CONTINUE 05980043 |
| IVON01 = 35 05990043 |
| IVON02 = 9 06000043 |
| IVON03 = 3 06010043 |
| IVCOMP = IVON01 - IVON02 ** IVON03 06020043 |
| GO TO 47040 06030043 |
| 37040 IVDELE = IVDELE + 1 06040043 |
| WRITE (I02,80003) IVTNUM 06050043 |
| IF (ICZERO) 47040, 7051, 47040 06060043 |
| 47040 IF (IVCOMP + 694) 27040,17040,27040 06070043 |
| 17040 IVPASS = IVPASS + 1 06080043 |
| WRITE (I02,80001) IVTNUM 06090043 |
| GO TO 7051 06100043 |
| 27040 IVFAIL = IVFAIL + 1 06110043 |
| IVCORR = -694 06120043 |
| WRITE (I02,80004) IVTNUM, IVCOMP, IVCORR 06130043 |
| 7051 CONTINUE 06140043 |
| IVTNUM = 705 06150043 |
| C 06160043 |
| C **** TEST 705 **** 06170043 |
| C 06180043 |
| IF (ICZERO) 37050, 7050, 37050 06190043 |
| 7050 CONTINUE 06200043 |
| IVON01 = 35 06210043 |
| IVON02 = 9 06220043 |
| IVON03 = 3 06230043 |
| IVCOMP = (IVON01 - IVON02) ** IVON03 06240043 |
| GO TO 47050 06250043 |
| 37050 IVDELE = IVDELE + 1 06260043 |
| WRITE (I02,80003) IVTNUM 06270043 |
| IF (ICZERO) 47050, 7061, 47050 06280043 |
| 47050 IF (IVCOMP - 17576) 27050,17050,27050 06290043 |
| 17050 IVPASS = IVPASS + 1 06300043 |
| WRITE (I02,80001) IVTNUM 06310043 |
| GO TO 7061 06320043 |
| 27050 IVFAIL = IVFAIL + 1 06330043 |
| IVCORR = 17576 06340043 |
| WRITE (I02,80004) IVTNUM, IVCOMP, IVCORR 06350043 |
| 7061 CONTINUE 06360043 |
| IVTNUM = 706 06370043 |
| C 06380043 |
| C **** TEST 706 **** 06390043 |
| C 06400043 |
| IF (ICZERO) 37060, 7060, 37060 06410043 |
| 7060 CONTINUE 06420043 |
| IVON01 = 35 06430043 |
| IVON02 = 9 06440043 |
| IVON03 = 3 06450043 |
| IVCOMP = IVON01 - (IVON02 ** IVON03) 06460043 |
| GO TO 47060 06470043 |
| 37060 IVDELE = IVDELE + 1 06480043 |
| WRITE (I02,80003) IVTNUM 06490043 |
| IF (ICZERO) 47060, 7071, 47060 06500043 |
| 47060 IF (IVCOMP + 694) 27060,17060,27060 06510043 |
| 17060 IVPASS = IVPASS + 1 06520043 |
| WRITE (I02,80001) IVTNUM 06530043 |
| GO TO 7071 06540043 |
| 27060 IVFAIL = IVFAIL + 1 06550043 |
| IVCORR = -694 06560043 |
| WRITE (I02,80004) IVTNUM, IVCOMP, IVCORR 06570043 |
| 7071 CONTINUE 06580043 |
| C 06590043 |
| C TESTS 707 THROUGH 709 TEST '*' FOLLOWED BY '+'. 06600043 |
| C 06610043 |
| IVTNUM = 707 06620043 |
| C 06630043 |
| C **** TEST 707 **** 06640043 |
| C 06650043 |
| IF (ICZERO) 37070, 7070, 37070 06660043 |
| 7070 CONTINUE 06670043 |
| IVON01 = 45 06680043 |
| IVON02 = 9 06690043 |
| IVON03 = 3 06700043 |
| IVCOMP = IVON01 * IVON02 + IVON03 06710043 |
| GO TO 47070 06720043 |
| 37070 IVDELE = IVDELE + 1 06730043 |
| WRITE (I02,80003) IVTNUM 06740043 |
| IF (ICZERO) 47070, 7081, 47070 06750043 |
| 47070 IF (IVCOMP - 408) 27070,17070,27070 06760043 |
| 17070 IVPASS = IVPASS + 1 06770043 |
| WRITE (I02,80001) IVTNUM 06780043 |
| GO TO 7081 06790043 |
| 27070 IVFAIL = IVFAIL + 1 06800043 |
| IVCORR = 408 06810043 |
| WRITE (I02,80004) IVTNUM, IVCOMP, IVCORR 06820043 |
| 7081 CONTINUE 06830043 |
| IVTNUM = 708 06840043 |
| C 06850043 |
| C **** TEST 708 **** 06860043 |
| C 06870043 |
| IF (ICZERO) 37080, 7080, 37080 06880043 |
| 7080 CONTINUE 06890043 |
| IVON01 = 45 06900043 |
| IVON02 = 9 06910043 |
| IVON03 = 3 06920043 |
| IVCOMP = (IVON01 * IVON02) + IVON03 06930043 |
| GO TO 47080 06940043 |
| 37080 IVDELE = IVDELE + 1 06950043 |
| WRITE (I02,80003) IVTNUM 06960043 |
| IF (ICZERO) 47080, 7091, 47080 06970043 |
| 47080 IF (IVCOMP - 408) 27080,17080,27080 06980043 |
| 17080 IVPASS = IVPASS + 1 06990043 |
| WRITE (I02,80001) IVTNUM 07000043 |
| GO TO 7091 07010043 |
| 27080 IVFAIL = IVFAIL + 1 07020043 |
| IVCORR = 408 07030043 |
| WRITE (I02,80004) IVTNUM, IVCOMP, IVCORR 07040043 |
| 7091 CONTINUE 07050043 |
| IVTNUM = 709 07060043 |
| C 07070043 |
| C **** TEST 709 **** 07080043 |
| C 07090043 |
| IF (ICZERO) 37090, 7090, 37090 07100043 |
| 7090 CONTINUE 07110043 |
| IVON01 = 45 07120043 |
| IVON02 = 9 07130043 |
| IVON03 = 3 07140043 |
| IVCOMP = IVON01 * (IVON02 + IVON03) 07150043 |
| GO TO 47090 07160043 |
| 37090 IVDELE = IVDELE + 1 07170043 |
| WRITE (I02,80003) IVTNUM 07180043 |
| IF (ICZERO) 47090, 7101, 47090 07190043 |
| 47090 IF (IVCOMP - 540) 27090,17090,27090 07200043 |
| 17090 IVPASS = IVPASS + 1 07210043 |
| WRITE (I02,80001) IVTNUM 07220043 |
| GO TO 7101 07230043 |
| 27090 IVFAIL = IVFAIL + 1 07240043 |
| IVCORR = 540 07250043 |
| WRITE (I02,80004) IVTNUM, IVCOMP, IVCORR 07260043 |
| 7101 CONTINUE 07270043 |
| C 07280043 |
| C TESTS 710 THROUGH 712 TEST '*' FOLLOWED BY '-'. 07290043 |
| C 07300043 |
| IVTNUM = 710 07310043 |
| C 07320043 |
| C **** TEST 710 **** 07330043 |
| C 07340043 |
| IF (ICZERO) 37100, 7100, 37100 07350043 |
| 7100 CONTINUE 07360043 |
| IVON01 = 45 07370043 |
| IVON02 = 9 07380043 |
| IVON03 = 3 07390043 |
| IVCOMP = IVON01 * IVON02 - IVON03 07400043 |
| GO TO 47100 07410043 |
| 37100 IVDELE = IVDELE + 1 07420043 |
| WRITE (I02,80003) IVTNUM 07430043 |
| IF (ICZERO) 47100, 7111, 47100 07440043 |
| 47100 IF (IVCOMP - 402) 27100,17100,27100 07450043 |
| 17100 IVPASS = IVPASS + 1 07460043 |
| WRITE (I02,80001) IVTNUM 07470043 |
| GO TO 7111 07480043 |
| 27100 IVFAIL = IVFAIL + 1 07490043 |
| IVCORR = 402 07500043 |
| WRITE (I02,80004) IVTNUM, IVCOMP, IVCORR 07510043 |
| 7111 CONTINUE 07520043 |
| IVTNUM = 711 07530043 |
| C 07540043 |
| C **** TEST 711 **** 07550043 |
| C 07560043 |
| IF (ICZERO) 37110, 7110, 37110 07570043 |
| 7110 CONTINUE 07580043 |
| IVON01 = 45 07590043 |
| IVON02 = 9 07600043 |
| IVON03 = 3 07610043 |
| IVCOMP = (IVON01 * IVON02) - IVON03 07620043 |
| GO TO 47110 07630043 |
| 37110 IVDELE = IVDELE + 1 07640043 |
| WRITE (I02,80003) IVTNUM 07650043 |
| IF (ICZERO) 47110, 7121, 47110 07660043 |
| 47110 IF (IVCOMP - 402) 27110,17110,27110 07670043 |
| 17110 IVPASS = IVPASS + 1 07680043 |
| WRITE (I02,80001) IVTNUM 07690043 |
| GO TO 7121 07700043 |
| 27110 IVFAIL = IVFAIL + 1 07710043 |
| IVCORR = 402 07720043 |
| WRITE (I02,80004) IVTNUM, IVCOMP, IVCORR 07730043 |
| 7121 CONTINUE 07740043 |
| IVTNUM = 712 07750043 |
| C 07760043 |
| C **** TEST 712 **** 07770043 |
| C 07780043 |
| IF (ICZERO) 37120, 7120, 37120 07790043 |
| 7120 CONTINUE 07800043 |
| IVON01 = 45 07810043 |
| IVON02 = 9 07820043 |
| IVON03 = 3 07830043 |
| IVCOMP = IVON01 * (IVON02 - IVON03) 07840043 |
| GO TO 47120 07850043 |
| 37120 IVDELE = IVDELE + 1 07860043 |
| WRITE (I02,80003) IVTNUM 07870043 |
| IF (ICZERO) 47120, 7131, 47120 07880043 |
| 47120 IF (IVCOMP - 270) 27120,17120,27120 07890043 |
| 17120 IVPASS = IVPASS + 1 07900043 |
| WRITE (I02,80001) IVTNUM 07910043 |
| GO TO 7131 07920043 |
| 27120 IVFAIL = IVFAIL + 1 07930043 |
| IVCORR = 270 07940043 |
| WRITE (I02,80004) IVTNUM, IVCOMP, IVCORR 07950043 |
| 7131 CONTINUE 07960043 |
| C 07970043 |
| C TESTS 713 THROUGH 715 TEST '*' FOLLOWED BY '/'. 07980043 |
| C 07990043 |
| IVTNUM = 713 08000043 |
| C 08010043 |
| C **** TEST 713 **** 08020043 |
| C 08030043 |
| IF (ICZERO) 37130, 7130, 37130 08040043 |
| 7130 CONTINUE 08050043 |
| IVON01 = 45 08060043 |
| IVON02 = 9 08070043 |
| IVON03 = 3 08080043 |
| IVCOMP = IVON01 * IVON02 / IVON03 08090043 |
| GO TO 47130 08100043 |
| 37130 IVDELE = IVDELE + 1 08110043 |
| WRITE (I02,80003) IVTNUM 08120043 |
| IF (ICZERO) 47130, 7141, 47130 08130043 |
| 47130 IF (IVCOMP - 135) 27130,17130,27130 08140043 |
| 17130 IVPASS = IVPASS + 1 08150043 |
| WRITE (I02,80001) IVTNUM 08160043 |
| GO TO 7141 08170043 |
| 27130 IVFAIL = IVFAIL + 1 08180043 |
| IVCORR = 135 08190043 |
| WRITE (I02,80004) IVTNUM, IVCOMP, IVCORR 08200043 |
| 7141 CONTINUE 08210043 |
| IVTNUM = 714 08220043 |
| C 08230043 |
| C **** TEST 714 **** 08240043 |
| C 08250043 |
| IF (ICZERO) 37140, 7140, 37140 08260043 |
| 7140 CONTINUE 08270043 |
| IVON01 = 45 08280043 |
| IVON02 = 9 08290043 |
| IVON03 = 3 08300043 |
| IVCOMP = (IVON01 * IVON02) / IVON03 08310043 |
| GO TO 47140 08320043 |
| 37140 IVDELE = IVDELE + 1 08330043 |
| WRITE (I02,80003) IVTNUM 08340043 |
| IF (ICZERO) 47140, 7151, 47140 08350043 |
| 47140 IF (IVCOMP - 135) 27140,17140,27140 08360043 |
| 17140 IVPASS = IVPASS + 1 08370043 |
| WRITE (I02,80001) IVTNUM 08380043 |
| GO TO 7151 08390043 |
| 27140 IVFAIL = IVFAIL + 1 08400043 |
| IVCORR = 135 08410043 |
| WRITE (I02,80004) IVTNUM, IVCOMP, IVCORR 08420043 |
| 7151 CONTINUE 08430043 |
| IVTNUM = 715 08440043 |
| C 08450043 |
| C **** TEST 715 **** 08460043 |
| C 08470043 |
| IF (ICZERO) 37150, 7150, 37150 08480043 |
| 7150 CONTINUE 08490043 |
| IVON01 = 45 08500043 |
| IVON02 = 9 08510043 |
| IVON03 = 3 08520043 |
| IVCOMP = IVON01 * (IVON02 / IVON03) 08530043 |
| GO TO 47150 08540043 |
| 37150 IVDELE = IVDELE + 1 08550043 |
| WRITE (I02,80003) IVTNUM 08560043 |
| IF (ICZERO) 47150, 7161, 47150 08570043 |
| 47150 IF (IVCOMP - 135) 27150,17150,27150 08580043 |
| 17150 IVPASS = IVPASS + 1 08590043 |
| WRITE (I02,80001) IVTNUM 08600043 |
| GO TO 7161 08610043 |
| 27150 IVFAIL = IVFAIL + 1 08620043 |
| IVCORR = 135 08630043 |
| WRITE (I02,80004) IVTNUM, IVCOMP, IVCORR 08640043 |
| 7161 CONTINUE 08650043 |
| C 08660043 |
| C TESTS 716 THROUGH 718 TEST '*' FOLLOWED BY '**'. 08670043 |
| C 08680043 |
| IVTNUM = 716 08690043 |
| C 08700043 |
| C **** TEST 716 **** 08710043 |
| C 08720043 |
| IF (ICZERO) 37160, 7160, 37160 08730043 |
| 7160 CONTINUE 08740043 |
| IVON01 = 7 08750043 |
| IVON02 = 3 08760043 |
| IVON03 = 3 08770043 |
| IVCOMP = IVON01 * IVON02 ** IVON03 08780043 |
| GO TO 47160 08790043 |
| 37160 IVDELE = IVDELE + 1 08800043 |
| WRITE (I02,80003) IVTNUM 08810043 |
| IF (ICZERO) 47160, 7171, 47160 08820043 |
| 47160 IF (IVCOMP - 189) 27160,17160,27160 08830043 |
| 17160 IVPASS = IVPASS + 1 08840043 |
| WRITE (I02,80001) IVTNUM 08850043 |
| GO TO 7171 08860043 |
| 27160 IVFAIL = IVFAIL + 1 08870043 |
| IVCORR = 189 08880043 |
| WRITE (I02,80004) IVTNUM, IVCOMP, IVCORR 08890043 |
| 7171 CONTINUE 08900043 |
| IVTNUM = 717 08910043 |
| C 08920043 |
| C **** TEST 717 **** 08930043 |
| C 08940043 |
| IF (ICZERO) 37170, 7170, 37170 08950043 |
| 7170 CONTINUE 08960043 |
| IVON01 = 7 08970043 |
| IVON02 = 3 08980043 |
| IVON03 = 3 08990043 |
| IVCOMP = (IVON01 * IVON02) ** IVON03 09000043 |
| GO TO 47170 09010043 |
| 37170 IVDELE = IVDELE + 1 09020043 |
| WRITE (I02,80003) IVTNUM 09030043 |
| IF (ICZERO) 47170, 7181, 47170 09040043 |
| 47170 IF (IVCOMP - 9261) 27170,17170,27170 09050043 |
| 17170 IVPASS = IVPASS + 1 09060043 |
| WRITE (I02,80001) IVTNUM 09070043 |
| GO TO 7181 09080043 |
| 27170 IVFAIL = IVFAIL + 1 09090043 |
| IVCORR = 9261 09100043 |
| WRITE (I02,80004) IVTNUM, IVCOMP, IVCORR 09110043 |
| 7181 CONTINUE 09120043 |
| IVTNUM = 718 09130043 |
| C 09140043 |
| C **** TEST 718 **** 09150043 |
| C 09160043 |
| IF (ICZERO) 37180, 7180, 37180 09170043 |
| 7180 CONTINUE 09180043 |
| IVON01 = 7 09190043 |
| IVON02 = 3 09200043 |
| IVON03 = 3 09210043 |
| IVCOMP = IVON01 * (IVON02 ** IVON03) 09220043 |
| GO TO 47180 09230043 |
| 37180 IVDELE = IVDELE + 1 09240043 |
| WRITE (I02,80003) IVTNUM 09250043 |
| IF (ICZERO) 47180, 7191, 47180 09260043 |
| 47180 IF (IVCOMP - 189) 27180,17180,27180 09270043 |
| 17180 IVPASS = IVPASS + 1 09280043 |
| WRITE (I02,80001) IVTNUM 09290043 |
| GO TO 7191 09300043 |
| 27180 IVFAIL = IVFAIL + 1 09310043 |
| IVCORR = 189 09320043 |
| WRITE (I02,80004) IVTNUM, IVCOMP, IVCORR 09330043 |
| 7191 CONTINUE 09340043 |
| C 09350043 |
| C WRITE PAGE FOOTINGS AND RUN SUMMARIES 09360043 |
| 99999 CONTINUE 09370043 |
| WRITE (I02,90002) 09380043 |
| WRITE (I02,90006) 09390043 |
| WRITE (I02,90002) 09400043 |
| WRITE (I02,90002) 09410043 |
| WRITE (I02,90007) 09420043 |
| WRITE (I02,90002) 09430043 |
| WRITE (I02,90008) IVFAIL 09440043 |
| WRITE (I02,90009) IVPASS 09450043 |
| WRITE (I02,90010) IVDELE 09460043 |
| C 09470043 |
| C 09480043 |
| C TERMINATE ROUTINE EXECUTION 09490043 |
| STOP 09500043 |
| C 09510043 |
| C FORMAT STATEMENTS FOR PAGE HEADERS 09520043 |
| 90000 FORMAT ("1") 09530043 |
| 90002 FORMAT (" ") 09540043 |
| 90001 FORMAT (" ",10X,"FORTRAN COMPILER VALIDATION SYSTEM" ) 09550043 |
| 90003 FORMAT (" ",21X,"VERSION 2.1" ) 09560043 |
| 90004 FORMAT (" ",10X,"FOR OFFICIAL USE ONLY - COPYRIGHT 1978" ) 09570043 |
| 90005 FORMAT (" ",5X,"TEST",5X,"PASS/FAIL", 5X,"COMPUTED",8X,"CORRECT") 09580043 |
| 90006 FORMAT (" ",5X,"----------------------------------------------" ) 09590043 |
| 90011 FORMAT (" ",18X,"SUBSET LEVEL TEST" ) 09600043 |
| C 09610043 |
| C FORMAT STATEMENTS FOR RUN SUMMARIES 09620043 |
| 90008 FORMAT (" ",15X,I5," ERRORS ENCOUNTERED" ) 09630043 |
| 90009 FORMAT (" ",15X,I5," TESTS PASSED" ) 09640043 |
| 90010 FORMAT (" ",15X,I5," TESTS DELETED" ) 09650043 |
| C 09660043 |
| C FORMAT STATEMENTS FOR TEST RESULTS 09670043 |
| 80001 FORMAT (" ",4X,I5,7X,"PASS") 09680043 |
| 80002 FORMAT (" ",4X,I5,7X,"FAIL") 09690043 |
| 80003 FORMAT (" ",4X,I5,7X,"DELETED") 09700043 |
| 80004 FORMAT (" ",4X,I5,7X,"FAIL",10X,I6,9X,I6) 09710043 |
| 80005 FORMAT (" ",4X,I5,7X,"FAIL",4X,E12.5,3X,E12.5) 09720043 |
| C 09730043 |
| 90007 FORMAT (" ",20X,"END OF PROGRAM FM043" ) 09740043 |
| END 09750043 |