![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to FM043.f CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Power 6/32 Unix Tahoe 4.2BSD] / cci / usr / src / usr.bin / f77 / testf77 / tests|
Return to FM043.f CVS log | Up to [Power 6/32 Unix Tahoe 4.2BSD] / cci / usr / src / usr.bin / f77 / testf77 / tests |
1.1 ! root 1: C COMMENT SECTION 00010043 ! 2: C DATE***82/08/02*18.33.46 ! 3: C OWNER PRE/850703/TC-85- -410/ /FSTC/278FCVS*F78UBP20/ ! 4: C AUDIT FCVS78 V2.0 ! 5: C 00020043 ! 6: C FM043 00030043 ! 7: C 00040043 ! 8: C THIS ROUTINE TESTS ARITHMETIC ASSIGNMENTS OF THE FORM 00050043 ! 9: C 00060043 ! 10: C INTEGER VAR. = INTEGER VAR. <OP1> INTEGER VAR. <OP2> INTEGER VAR. 00070043 ! 11: C 00080043 ! 12: C WHERE <OP1> AND <OP2> ARE ARITHMETIC OPERATORS, BUT <OP1> IS 00090043 ! 13: C NOT THE SAME AS <OP2>. 00100043 ! 14: C 00110043 ! 15: C REFERENCES 00120043 ! 16: C AMERICAN NATIONAL STANDARD PROGRAMMING LANGUAGE FORTRAN, 00130043 ! 17: C X3.9-1978 00140043 ! 18: C 00150043 ! 19: C SECTION 4.3, INTEGER TYPE 00160043 ! 20: C SECTION 4.3.1, INTEGER CONSTANT 00170043 ! 21: C SECTION 6.1, ARITHMETIC EXPRESSIONS 00180043 ! 22: C SECTION 6.6, EVALUATION OF EXPRESSIONS 00190043 ! 23: C SECTION 10.1, ARITHMETIC ASSIGNMENT STATEMENT 00200043 ! 24: C 00210043 ! 25: C 00220043 ! 26: C ********************************************************** 00230043 ! 27: C 00240043 ! 28: C A COMPILER VALIDATION SYSTEM FOR THE FORTRAN LANGUAGE 00250043 ! 29: C BASED ON SPECIFICATIONS AS DEFINED IN AMERICAN NATIONAL STANDARD 00260043 ! 30: C PROGRAMMING LANGUAGE FORTRAN X3.9-1978, HAS BEEN DEVELOPED BY THE 00270043 ! 31: C FEDERAL COBOL COMPILER TESTING SERVICE. THE FORTRAN COMPILER 00280043 ! 32: C VALIDATION SYSTEM (FCVS) CONSISTS OF AUDIT ROUTINES, THEIR RELATED00290043 ! 33: C DATA, AND AN EXECUTIVE SYSTEM. EACH AUDIT ROUTINE IS A FORTRAN 00300043 ! 34: C PROGRAM, SUBPROGRAM OR FUNCTION WHICH INCLUDES TESTS OF SPECIFIC 00310043 ! 35: C LANGUAGE ELEMENTS AND SUPPORTING PROCEDURES INDICATING THE RESULT 00320043 ! 36: C OF EXECUTING THESE TESTS. 00330043 ! 37: C 00340043 ! 38: C THIS PARTICULAR PROGRAM/SUBPROGRAM/FUNCTION CONTAINS FEATURES 00350043 ! 39: C FOUND ONLY IN THE SUBSET AS DEFINED IN X3.9-1978. 00360043 ! 40: C 00370043 ! 41: C SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO - 00380043 ! 42: C 00390043 ! 43: C DEPARTMENT OF THE NAVY 00400043 ! 44: C FEDERAL COBOL COMPILER TESTING SERVICE 00410043 ! 45: C WASHINGTON, D.C. 20376 00420043 ! 46: C 00430043 ! 47: C ********************************************************** 00440043 ! 48: C 00450043 ! 49: C 00460043 ! 50: C 00470043 ! 51: C INITIALIZATION SECTION 00480043 ! 52: C 00490043 ! 53: C INITIALIZE CONSTANTS 00500043 ! 54: C ************** 00510043 ! 55: C I01 CONTAINS THE LOGICAL UNIT NUMBER FOR THE CARD READER. 00520043 ! 56: I01 = 5 00530043 ! 57: C I02 CONTAINS THE LOGICAL UNIT NUMBER FOR THE PRINTER. 00540043 ! 58: I02 = 6 00550043 ! 59: C SYSTEM ENVIRONMENT SECTION 00560043 ! 60: C 00570043 ! 61: I01 = 5 00580043 ! 62: C THE CX010 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I01 = 5 00590043 ! 63: C (UNIT NUMBER FOR CARD READER). 00600043 ! 64: CX011 THIS CARD IS REPLACED BY CONTENTS OF FEXEC X-011 CONTROL CARD. 00610043 ! 65: C THE CX011 CARD IS FOR SYSTEMS WHICH REQUIRE ADDITIONAL 00620043 ! 66: C FORTRAN STATEMENTS FOR FILES ASSOCIATED WITH CX010 ABOVE. 00630043 ! 67: C 00640043 ! 68: I02 = 6 00650043 ! 69: C THE CX020 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I02 = 6 00660043 ! 70: C (UNIT NUMBER FOR PRINTER). 00670043 ! 71: CX021 THIS CARD IS REPLACED BY CONTENTS OF FEXEC X-021 CONTROL CARD. 00680043 ! 72: C THE CX021 CARD IS FOR SYSTEMS WHICH REQUIRE ADDITIONAL 00690043 ! 73: C FORTRAN STATEMENTS FOR FILES ASSOCIATED WITH CX020 ABOVE. 00700043 ! 74: C 00710043 ! 75: IVPASS=0 00720043 ! 76: IVFAIL=0 00730043 ! 77: IVDELE=0 00740043 ! 78: ICZERO=0 00750043 ! 79: C 00760043 ! 80: C WRITE PAGE HEADERS 00770043 ! 81: WRITE (I02,90000) 00780043 ! 82: WRITE (I02,90001) 00790043 ! 83: WRITE (I02,90002) 00800043 ! 84: WRITE (I02, 90002) 00810043 ! 85: WRITE (I02,90003) 00820043 ! 86: WRITE (I02,90002) 00830043 ! 87: WRITE (I02,90004) 00840043 ! 88: WRITE (I02,90002) 00850043 ! 89: WRITE (I02,90011) 00860043 ! 90: WRITE (I02,90002) 00870043 ! 91: WRITE (I02,90002) 00880043 ! 92: WRITE (I02,90005) 00890043 ! 93: WRITE (I02,90006) 00900043 ! 94: WRITE (I02,90002) 00910043 ! 95: C 00920043 ! 96: C TEST SECTION 00930043 ! 97: C 00940043 ! 98: C ARITHMETIC ASSIGNMENT STATEMENT 00950043 ! 99: C 00960043 ! 100: C TESTS 683 THROUGH 694 TEST STATEMENTS WHERE <OP1> IS '+' AND 00970043 ! 101: C <OP2> VARIES. 00980043 ! 102: C 00990043 ! 103: C TEST 695 THROUGH 706 TEST STATEMENTS WHERE <OP1> IS '-' AND 01000043 ! 104: C <OP2> VARIES. 01010043 ! 105: C 01020043 ! 106: C TESTS 707 THROUGH 718 TEST STATEMENTS WHERE <OP1> IS '*' AND 01030043 ! 107: C <OP2> VARIES. 01040043 ! 108: C 01050043 ! 109: C 01060043 ! 110: C 01070043 ! 111: C TESTS 683 THROUGH 685 TEST '+' FOLLOWED BY '-'. 01080043 ! 112: C 01090043 ! 113: IVTNUM = 683 01100043 ! 114: C 01110043 ! 115: C **** TEST 683 **** 01120043 ! 116: C 01130043 ! 117: IF (ICZERO) 36830, 6830, 36830 01140043 ! 118: 6830 CONTINUE 01150043 ! 119: IVON01 = 45 01160043 ! 120: IVON02 = 9 01170043 ! 121: IVON03 = 3 01180043 ! 122: IVCOMP = IVON01 + IVON02 - IVON03 01190043 ! 123: GO TO 46830 01200043 ! 124: 36830 IVDELE = IVDELE + 1 01210043 ! 125: WRITE (I02,80003) IVTNUM 01220043 ! 126: IF (ICZERO) 46830, 6841, 46830 01230043 ! 127: 46830 IF (IVCOMP - 51) 26830,16830,26830 01240043 ! 128: 16830 IVPASS = IVPASS + 1 01250043 ! 129: WRITE (I02,80001) IVTNUM 01260043 ! 130: GO TO 6841 01270043 ! 131: 26830 IVFAIL = IVFAIL + 1 01280043 ! 132: IVCORR = 51 01290043 ! 133: WRITE (I02,80004) IVTNUM, IVCOMP, IVCORR 01300043 ! 134: 6841 CONTINUE 01310043 ! 135: IVTNUM = 684 01320043 ! 136: C 01330043 ! 137: C **** TEST 684 **** 01340043 ! 138: C 01350043 ! 139: IF (ICZERO) 36840, 6840, 36840 01360043 ! 140: 6840 CONTINUE 01370043 ! 141: IVON01 = 45 01380043 ! 142: IVON02 = 9 01390043 ! 143: IVON03 = 3 01400043 ! 144: IVCOMP = (IVON01 + IVON02) - IVON03 01410043 ! 145: GO TO 46840 01420043 ! 146: 36840 IVDELE = IVDELE + 1 01430043 ! 147: WRITE (I02,80003) IVTNUM 01440043 ! 148: IF (ICZERO) 46840, 6851, 46840 01450043 ! 149: 46840 IF (IVCOMP - 51) 26840,16840,26840 01460043 ! 150: 16840 IVPASS = IVPASS + 1 01470043 ! 151: WRITE (I02,80001) IVTNUM 01480043 ! 152: GO TO 6851 01490043 ! 153: 26840 IVFAIL = IVFAIL + 1 01500043 ! 154: IVCORR = 51 01510043 ! 155: WRITE (I02,80004) IVTNUM, IVCOMP, IVCORR 01520043 ! 156: 6851 CONTINUE 01530043 ! 157: IVTNUM = 685 01540043 ! 158: C 01550043 ! 159: C **** TEST 685 **** 01560043 ! 160: C 01570043 ! 161: IF (ICZERO) 36850, 6850, 36850 01580043 ! 162: 6850 CONTINUE 01590043 ! 163: IVON01 = 45 01600043 ! 164: IVON02 = 9 01610043 ! 165: IVON03 = 3 01620043 ! 166: IVCOMP = IVON01 + (IVON02 - IVON03) 01630043 ! 167: GO TO 46850 01640043 ! 168: 36850 IVDELE = IVDELE + 1 01650043 ! 169: WRITE (I02,80003) IVTNUM 01660043 ! 170: IF (ICZERO) 46850, 6861, 46850 01670043 ! 171: 46850 IF (IVCOMP - 51) 26850,16850,26850 01680043 ! 172: 16850 IVPASS = IVPASS + 1 01690043 ! 173: WRITE (I02,80001) IVTNUM 01700043 ! 174: GO TO 6861 01710043 ! 175: 26850 IVFAIL = IVFAIL + 1 01720043 ! 176: IVCORR = 51 01730043 ! 177: WRITE (I02,80004) IVTNUM, IVCOMP, IVCORR 01740043 ! 178: 6861 CONTINUE 01750043 ! 179: C 01760043 ! 180: C TESTS 686 THROUGH 688 TEST '+' FOLLOWED BY '*'. 01770043 ! 181: C 01780043 ! 182: IVTNUM = 686 01790043 ! 183: C 01800043 ! 184: C **** TEST 686 **** 01810043 ! 185: C 01820043 ! 186: IF (ICZERO) 36860, 6860, 36860 01830043 ! 187: 6860 CONTINUE 01840043 ! 188: IVON01 = 45 01850043 ! 189: IVON02 = 9 01860043 ! 190: IVON03 = 3 01870043 ! 191: IVCOMP = IVON01 + IVON02 * IVON03 01880043 ! 192: GO TO 46860 01890043 ! 193: 36860 IVDELE = IVDELE + 1 01900043 ! 194: WRITE (I02,80003) IVTNUM 01910043 ! 195: IF (ICZERO) 46860, 6871, 46860 01920043 ! 196: 46860 IF (IVCOMP - 72) 26860,16860,26860 01930043 ! 197: 16860 IVPASS = IVPASS + 1 01940043 ! 198: WRITE (I02,80001) IVTNUM 01950043 ! 199: GO TO 6871 01960043 ! 200: 26860 IVFAIL = IVFAIL + 1 01970043 ! 201: IVCORR = 72 01980043 ! 202: WRITE (I02,80004) IVTNUM, IVCOMP, IVCORR 01990043 ! 203: 6871 CONTINUE 02000043 ! 204: IVTNUM = 687 02010043 ! 205: C 02020043 ! 206: C **** TEST 687 **** 02030043 ! 207: C 02040043 ! 208: IF (ICZERO) 36870, 6870, 36870 02050043 ! 209: 6870 CONTINUE 02060043 ! 210: IVON01 = 45 02070043 ! 211: IVON02 = 9 02080043 ! 212: IVON03 = 3 02090043 ! 213: IVCOMP = (IVON01 + IVON02) * IVON03 02100043 ! 214: GO TO 46870 02110043 ! 215: 36870 IVDELE = IVDELE + 1 02120043 ! 216: WRITE (I02,80003) IVTNUM 02130043 ! 217: IF (ICZERO) 46870, 6881, 46870 02140043 ! 218: 46870 IF (IVCOMP - 162) 26870,16870,26870 02150043 ! 219: 16870 IVPASS = IVPASS + 1 02160043 ! 220: WRITE (I02,80001) IVTNUM 02170043 ! 221: GO TO 6881 02180043 ! 222: 26870 IVFAIL = IVFAIL + 1 02190043 ! 223: IVCORR = 162 02200043 ! 224: WRITE (I02,80004) IVTNUM, IVCOMP, IVCORR 02210043 ! 225: 6881 CONTINUE 02220043 ! 226: IVTNUM = 688 02230043 ! 227: C 02240043 ! 228: C **** TEST 688 **** 02250043 ! 229: C 02260043 ! 230: IF (ICZERO) 36880, 6880, 36880 02270043 ! 231: 6880 CONTINUE 02280043 ! 232: IVON01 = 45 02290043 ! 233: IVON02 = 9 02300043 ! 234: IVON03 = 3 02310043 ! 235: IVCOMP = IVON01 + (IVON02 * IVON03) 02320043 ! 236: GO TO 46880 02330043 ! 237: 36880 IVDELE = IVDELE + 1 02340043 ! 238: WRITE (I02,80003) IVTNUM 02350043 ! 239: IF (ICZERO) 46880, 6891, 46880 02360043 ! 240: 46880 IF (IVCOMP - 72) 26880,16880,26880 02370043 ! 241: 16880 IVPASS = IVPASS + 1 02380043 ! 242: WRITE (I02,80001) IVTNUM 02390043 ! 243: GO TO 6891 02400043 ! 244: 26880 IVFAIL = IVFAIL + 1 02410043 ! 245: IVCORR = 72 02420043 ! 246: WRITE (I02,80004) IVTNUM, IVCOMP, IVCORR 02430043 ! 247: 6891 CONTINUE 02440043 ! 248: C 02450043 ! 249: C TESTS 689 THROUGH 691 TEST '+' FOLLOWED BY '/'. 02460043 ! 250: C 02470043 ! 251: IVTNUM = 689 02480043 ! 252: C 02490043 ! 253: C **** TEST 689 **** 02500043 ! 254: C 02510043 ! 255: IF (ICZERO) 36890, 6890, 36890 02520043 ! 256: 6890 CONTINUE 02530043 ! 257: IVON01 = 45 02540043 ! 258: IVON02 = 9 02550043 ! 259: IVON03 = 3 02560043 ! 260: IVCOMP = IVON01 + IVON02 / IVON03 02570043 ! 261: GO TO 46890 02580043 ! 262: 36890 IVDELE = IVDELE + 1 02590043 ! 263: WRITE (I02,80003) IVTNUM 02600043 ! 264: IF (ICZERO) 46890, 6901, 46890 02610043 ! 265: 46890 IF (IVCOMP - 48) 26890,16890,26890 02620043 ! 266: 16890 IVPASS = IVPASS + 1 02630043 ! 267: WRITE (I02,80001) IVTNUM 02640043 ! 268: GO TO 6901 02650043 ! 269: 26890 IVFAIL = IVFAIL + 1 02660043 ! 270: IVCORR = 48 02670043 ! 271: WRITE (I02,80004) IVTNUM, IVCOMP, IVCORR 02680043 ! 272: 6901 CONTINUE 02690043 ! 273: IVTNUM = 690 02700043 ! 274: C 02710043 ! 275: C **** TEST 690 **** 02720043 ! 276: C 02730043 ! 277: IF (ICZERO) 36900, 6900, 36900 02740043 ! 278: 6900 CONTINUE 02750043 ! 279: IVON01 = 45 02760043 ! 280: IVON02 = 9 02770043 ! 281: IVON03 = 3 02780043 ! 282: IVCOMP = (IVON01 + IVON02) / IVON03 02790043 ! 283: GO TO 46900 02800043 ! 284: 36900 IVDELE = IVDELE + 1 02810043 ! 285: WRITE (I02,80003) IVTNUM 02820043 ! 286: IF (ICZERO) 46900, 6911, 46900 02830043 ! 287: 46900 IF (IVCOMP - 18) 26900,16900,26900 02840043 ! 288: 16900 IVPASS = IVPASS + 1 02850043 ! 289: WRITE (I02,80001) IVTNUM 02860043 ! 290: GO TO 6911 02870043 ! 291: 26900 IVFAIL = IVFAIL + 1 02880043 ! 292: IVCORR = 18 02890043 ! 293: WRITE (I02,80004) IVTNUM, IVCOMP, IVCORR 02900043 ! 294: 6911 CONTINUE 02910043 ! 295: IVTNUM = 691 02920043 ! 296: C 02930043 ! 297: C **** TEST 691 **** 02940043 ! 298: C 02950043 ! 299: IF (ICZERO) 36910, 6910, 36910 02960043 ! 300: 6910 CONTINUE 02970043 ! 301: IVON01 = 45 02980043 ! 302: IVON02 = 9 02990043 ! 303: IVON03 = 3 03000043 ! 304: IVCOMP = IVON01 + (IVON02 / IVON03) 03010043 ! 305: GO TO 46910 03020043 ! 306: 36910 IVDELE = IVDELE + 1 03030043 ! 307: WRITE (I02,80003) IVTNUM 03040043 ! 308: IF (ICZERO) 46910, 6921, 46910 03050043 ! 309: 46910 IF (IVCOMP - 48) 26910,16910,26910 03060043 ! 310: 16910 IVPASS = IVPASS + 1 03070043 ! 311: WRITE (I02,80001) IVTNUM 03080043 ! 312: GO TO 6921 03090043 ! 313: 26910 IVFAIL = IVFAIL + 1 03100043 ! 314: IVCORR = 48 03110043 ! 315: WRITE (I02,80004) IVTNUM, IVCOMP, IVCORR 03120043 ! 316: 6921 CONTINUE 03130043 ! 317: C 03140043 ! 318: C TESTS 692 THROUGH 694 TEST '+' FOLLOWED BY '**'. 03150043 ! 319: C 03160043 ! 320: IVTNUM = 692 03170043 ! 321: C 03180043 ! 322: C **** TEST 692 **** 03190043 ! 323: C 03200043 ! 324: IF (ICZERO) 36920, 6920, 36920 03210043 ! 325: 6920 CONTINUE 03220043 ! 326: IVON01 = 15 03230043 ! 327: IVON02 = 9 03240043 ! 328: IVON03 = 3 03250043 ! 329: IVCOMP = IVON01 + IVON02 ** IVON03 03260043 ! 330: GO TO 46920 03270043 ! 331: 36920 IVDELE = IVDELE + 1 03280043 ! 332: WRITE (I02,80003) IVTNUM 03290043 ! 333: IF (ICZERO) 46920, 6931, 46920 03300043 ! 334: 46920 IF (IVCOMP - 744) 26920,16920,26920 03310043 ! 335: 16920 IVPASS = IVPASS + 1 03320043 ! 336: WRITE (I02,80001) IVTNUM 03330043 ! 337: GO TO 6931 03340043 ! 338: 26920 IVFAIL = IVFAIL + 1 03350043 ! 339: IVCORR = 744 03360043 ! 340: WRITE (I02,80004) IVTNUM, IVCOMP, IVCORR 03370043 ! 341: 6931 CONTINUE 03380043 ! 342: IVTNUM = 693 03390043 ! 343: C 03400043 ! 344: C **** TEST 693 **** 03410043 ! 345: C 03420043 ! 346: IF (ICZERO) 36930, 6930, 36930 03430043 ! 347: 6930 CONTINUE 03440043 ! 348: IVON01 = 15 03450043 ! 349: IVON02 = 9 03460043 ! 350: IVON03 = 3 03470043 ! 351: IVCOMP = (IVON01 + IVON02) ** IVON03 03480043 ! 352: GO TO 46930 03490043 ! 353: 36930 IVDELE = IVDELE + 1 03500043 ! 354: WRITE (I02,80003) IVTNUM 03510043 ! 355: IF (ICZERO) 46930, 6941, 46930 03520043 ! 356: 46930 IF (IVCOMP - 13824) 26930,16930,26930 03530043 ! 357: 16930 IVPASS = IVPASS + 1 03540043 ! 358: WRITE (I02,80001) IVTNUM 03550043 ! 359: GO TO 6941 03560043 ! 360: 26930 IVFAIL = IVFAIL + 1 03570043 ! 361: IVCORR = 13824 03580043 ! 362: WRITE (I02,80004) IVTNUM, IVCOMP, IVCORR 03590043 ! 363: 6941 CONTINUE 03600043 ! 364: IVTNUM = 694 03610043 ! 365: C 03620043 ! 366: C **** TEST 694 **** 03630043 ! 367: C 03640043 ! 368: IF (ICZERO) 36940, 6940, 36940 03650043 ! 369: 6940 CONTINUE 03660043 ! 370: IVON01 = 15 03670043 ! 371: IVON02 = 9 03680043 ! 372: IVON03 = 3 03690043 ! 373: IVCOMP = IVON01 + (IVON02 ** IVON03) 03700043 ! 374: GO TO 46940 03710043 ! 375: 36940 IVDELE = IVDELE + 1 03720043 ! 376: WRITE (I02,80003) IVTNUM 03730043 ! 377: IF (ICZERO) 46940, 6951, 46940 03740043 ! 378: 46940 IF (IVCOMP - 744) 26940,16940,26940 03750043 ! 379: 16940 IVPASS = IVPASS + 1 03760043 ! 380: WRITE (I02,80001) IVTNUM 03770043 ! 381: GO TO 6951 03780043 ! 382: 26940 IVFAIL = IVFAIL + 1 03790043 ! 383: IVCORR = 744 03800043 ! 384: WRITE (I02,80004) IVTNUM, IVCOMP, IVCORR 03810043 ! 385: 6951 CONTINUE 03820043 ! 386: C 03830043 ! 387: C TESTS 695 THROUGH 697 TEST '-' FOLLOWED BY '+'. 03840043 ! 388: C 03850043 ! 389: IVTNUM = 695 03860043 ! 390: C 03870043 ! 391: C **** TEST 695 **** 03880043 ! 392: C 03890043 ! 393: IF (ICZERO) 36950, 6950, 36950 03900043 ! 394: 6950 CONTINUE 03910043 ! 395: IVON01 = 45 03920043 ! 396: IVON02 = 9 03930043 ! 397: IVON03 = 3 03940043 ! 398: IVCOMP = IVON01 - IVON02 + IVON03 03950043 ! 399: GO TO 46950 03960043 ! 400: 36950 IVDELE = IVDELE + 1 03970043 ! 401: WRITE (I02,80003) IVTNUM 03980043 ! 402: IF (ICZERO) 46950, 6961, 46950 03990043 ! 403: 46950 IF (IVCOMP - 39) 26950,16950,26950 04000043 ! 404: 16950 IVPASS = IVPASS + 1 04010043 ! 405: WRITE (I02,80001) IVTNUM 04020043 ! 406: GO TO 6961 04030043 ! 407: 26950 IVFAIL = IVFAIL + 1 04040043 ! 408: IVCORR = 39 04050043 ! 409: WRITE (I02,80004) IVTNUM, IVCOMP, IVCORR 04060043 ! 410: 6961 CONTINUE 04070043 ! 411: IVTNUM = 696 04080043 ! 412: C 04090043 ! 413: C **** TEST 696 **** 04100043 ! 414: C 04110043 ! 415: IF (ICZERO) 36960, 6960, 36960 04120043 ! 416: 6960 CONTINUE 04130043 ! 417: IVON01 = 45 04140043 ! 418: IVON02 = 9 04150043 ! 419: IVON03 = 3 04160043 ! 420: IVCOMP = (IVON01 - IVON02) + IVON03 04170043 ! 421: GO TO 46960 04180043 ! 422: 36960 IVDELE = IVDELE + 1 04190043 ! 423: WRITE (I02,80003) IVTNUM 04200043 ! 424: IF (ICZERO) 46960, 6971, 46960 04210043 ! 425: 46960 IF (IVCOMP - 39) 26960,16960,26960 04220043 ! 426: 16960 IVPASS = IVPASS + 1 04230043 ! 427: WRITE (I02,80001) IVTNUM 04240043 ! 428: GO TO 6971 04250043 ! 429: 26960 IVFAIL = IVFAIL + 1 04260043 ! 430: IVCORR = 39 04270043 ! 431: WRITE (I02,80004) IVTNUM, IVCOMP, IVCORR 04280043 ! 432: 6971 CONTINUE 04290043 ! 433: IVTNUM = 697 04300043 ! 434: C 04310043 ! 435: C **** TEST 697 **** 04320043 ! 436: C 04330043 ! 437: IF (ICZERO) 36970, 6970, 36970 04340043 ! 438: 6970 CONTINUE 04350043 ! 439: IVON01 = 45 04360043 ! 440: IVON02 = 9 04370043 ! 441: IVON03 = 3 04380043 ! 442: IVCOMP = IVON01 - (IVON02 + IVON03) 04390043 ! 443: GO TO 46970 04400043 ! 444: 36970 IVDELE = IVDELE + 1 04410043 ! 445: WRITE (I02,80003) IVTNUM 04420043 ! 446: IF (ICZERO) 46970, 6981, 46970 04430043 ! 447: 46970 IF (IVCOMP - 33) 26970,16970,26970 04440043 ! 448: 16970 IVPASS = IVPASS + 1 04450043 ! 449: WRITE (I02,80001) IVTNUM 04460043 ! 450: GO TO 6981 04470043 ! 451: 26970 IVFAIL = IVFAIL + 1 04480043 ! 452: IVCORR = 33 04490043 ! 453: WRITE (I02,80004) IVTNUM, IVCOMP, IVCORR 04500043 ! 454: 6981 CONTINUE 04510043 ! 455: C 04520043 ! 456: C TESTS 698 THROUGH 700 TEST '-' FOLLOWED BY '*'. 04530043 ! 457: C 04540043 ! 458: IVTNUM = 698 04550043 ! 459: C 04560043 ! 460: C **** TEST 698 **** 04570043 ! 461: C 04580043 ! 462: IF (ICZERO) 36980, 6980, 36980 04590043 ! 463: 6980 CONTINUE 04600043 ! 464: IVON01 = 45 04610043 ! 465: IVON02 = 9 04620043 ! 466: IVON03 = 3 04630043 ! 467: IVCOMP = IVON01 - IVON02 * IVON03 04640043 ! 468: GO TO 46980 04650043 ! 469: 36980 IVDELE = IVDELE + 1 04660043 ! 470: WRITE (I02,80003) IVTNUM 04670043 ! 471: IF (ICZERO) 46980, 6991, 46980 04680043 ! 472: 46980 IF (IVCOMP - 18) 26980,16980,26980 04690043 ! 473: 16980 IVPASS = IVPASS + 1 04700043 ! 474: WRITE (I02,80001) IVTNUM 04710043 ! 475: GO TO 6991 04720043 ! 476: 26980 IVFAIL = IVFAIL + 1 04730043 ! 477: IVCORR = 18 04740043 ! 478: WRITE (I02,80004) IVTNUM, IVCOMP, IVCORR 04750043 ! 479: 6991 CONTINUE 04760043 ! 480: IVTNUM = 699 04770043 ! 481: C 04780043 ! 482: C **** TEST 699 **** 04790043 ! 483: C 04800043 ! 484: IF (ICZERO) 36990, 6990, 36990 04810043 ! 485: 6990 CONTINUE 04820043 ! 486: IVON01 = 45 04830043 ! 487: IVON02 = 9 04840043 ! 488: IVON03 = 3 04850043 ! 489: IVCOMP = (IVON01 - IVON02) * IVON03 04860043 ! 490: GO TO 46990 04870043 ! 491: 36990 IVDELE = IVDELE + 1 04880043 ! 492: WRITE (I02,80003) IVTNUM 04890043 ! 493: IF (ICZERO) 46990, 7001, 46990 04900043 ! 494: 46990 IF (IVCOMP - 108) 26990,16990,26990 04910043 ! 495: 16990 IVPASS = IVPASS + 1 04920043 ! 496: WRITE (I02,80001) IVTNUM 04930043 ! 497: GO TO 7001 04940043 ! 498: 26990 IVFAIL = IVFAIL + 1 04950043 ! 499: IVCORR = 108 04960043 ! 500: WRITE (I02,80004) IVTNUM, IVCOMP, IVCORR 04970043 ! 501: 7001 CONTINUE 04980043 ! 502: IVTNUM = 700 04990043 ! 503: C 05000043 ! 504: C **** TEST 700 **** 05010043 ! 505: C 05020043 ! 506: IF (ICZERO) 37000, 7000, 37000 05030043 ! 507: 7000 CONTINUE 05040043 ! 508: IVON01 = 45 05050043 ! 509: IVON02 = 9 05060043 ! 510: IVON03 = 3 05070043 ! 511: IVCOMP = IVON01 - (IVON02 * IVON03) 05080043 ! 512: GO TO 47000 05090043 ! 513: 37000 IVDELE = IVDELE + 1 05100043 ! 514: WRITE (I02,80003) IVTNUM 05110043 ! 515: IF (ICZERO) 47000, 7011, 47000 05120043 ! 516: 47000 IF (IVCOMP - 18) 27000,17000,27000 05130043 ! 517: 17000 IVPASS = IVPASS + 1 05140043 ! 518: WRITE (I02,80001) IVTNUM 05150043 ! 519: GO TO 7011 05160043 ! 520: 27000 IVFAIL = IVFAIL + 1 05170043 ! 521: IVCORR = 18 05180043 ! 522: WRITE (I02,80004) IVTNUM, IVCOMP, IVCORR 05190043 ! 523: 7011 CONTINUE 05200043 ! 524: C 05210043 ! 525: C TESTS 701 THROUGH 703 TEST '-' FOLLOWED BY '/'. 05220043 ! 526: C 05230043 ! 527: IVTNUM = 701 05240043 ! 528: C 05250043 ! 529: C **** TEST 701 **** 05260043 ! 530: C 05270043 ! 531: IF (ICZERO) 37010, 7010, 37010 05280043 ! 532: 7010 CONTINUE 05290043 ! 533: IVON01 = 45 05300043 ! 534: IVON02 = 9 05310043 ! 535: IVON03 = 3 05320043 ! 536: IVCOMP = IVON01 - IVON02 / IVON03 05330043 ! 537: GO TO 47010 05340043 ! 538: 37010 IVDELE = IVDELE + 1 05350043 ! 539: WRITE (I02,80003) IVTNUM 05360043 ! 540: IF (ICZERO) 47010, 7021, 47010 05370043 ! 541: 47010 IF (IVCOMP - 42) 27010,17010,27010 05380043 ! 542: 17010 IVPASS = IVPASS + 1 05390043 ! 543: WRITE (I02,80001) IVTNUM 05400043 ! 544: GO TO 7021 05410043 ! 545: 27010 IVFAIL = IVFAIL + 1 05420043 ! 546: IVCORR = 42 05430043 ! 547: WRITE (I02,80004) IVTNUM, IVCOMP, IVCORR 05440043 ! 548: 7021 CONTINUE 05450043 ! 549: IVTNUM = 702 05460043 ! 550: C 05470043 ! 551: C **** TEST 702 **** 05480043 ! 552: C 05490043 ! 553: IF (ICZERO) 37020, 7020, 37020 05500043 ! 554: 7020 CONTINUE 05510043 ! 555: IVON01 = 45 05520043 ! 556: IVON02 = 9 05530043 ! 557: IVON03 = 3 05540043 ! 558: IVCOMP = (IVON01 - IVON02) / IVON03 05550043 ! 559: GO TO 47020 05560043 ! 560: 37020 IVDELE = IVDELE + 1 05570043 ! 561: WRITE (I02,80003) IVTNUM 05580043 ! 562: IF (ICZERO) 47020, 7031, 47020 05590043 ! 563: 47020 IF (IVCOMP - 12) 27020,17020,27020 05600043 ! 564: 17020 IVPASS = IVPASS + 1 05610043 ! 565: WRITE (I02,80001) IVTNUM 05620043 ! 566: GO TO 7031 05630043 ! 567: 27020 IVFAIL = IVFAIL + 1 05640043 ! 568: IVCORR = 12 05650043 ! 569: WRITE (I02,80004) IVTNUM, IVCOMP, IVCORR 05660043 ! 570: 7031 CONTINUE 05670043 ! 571: IVTNUM = 703 05680043 ! 572: C 05690043 ! 573: C **** TEST 703 **** 05700043 ! 574: C 05710043 ! 575: IF (ICZERO) 37030, 7030, 37030 05720043 ! 576: 7030 CONTINUE 05730043 ! 577: IVON01 = 45 05740043 ! 578: IVON02 = 9 05750043 ! 579: IVON03 = 3 05760043 ! 580: IVCOMP = IVON01 - (IVON02 / IVON03) 05770043 ! 581: GO TO 47030 05780043 ! 582: 37030 IVDELE = IVDELE + 1 05790043 ! 583: WRITE (I02,80003) IVTNUM 05800043 ! 584: IF (ICZERO) 47030, 7041, 47030 05810043 ! 585: 47030 IF (IVCOMP - 42) 27030,17030,27030 05820043 ! 586: 17030 IVPASS = IVPASS + 1 05830043 ! 587: WRITE (I02,80001) IVTNUM 05840043 ! 588: GO TO 7041 05850043 ! 589: 27030 IVFAIL = IVFAIL + 1 05860043 ! 590: IVCORR = 42 05870043 ! 591: WRITE (I02,80004) IVTNUM, IVCOMP, IVCORR 05880043 ! 592: 7041 CONTINUE 05890043 ! 593: C 05900043 ! 594: C TESTS 704 THROUGH 706 TEST '-' FOLLOWED BY '**'. 05910043 ! 595: C 05920043 ! 596: IVTNUM = 704 05930043 ! 597: C 05940043 ! 598: C **** TEST 704 **** 05950043 ! 599: C 05960043 ! 600: IF (ICZERO) 37040, 7040, 37040 05970043 ! 601: 7040 CONTINUE 05980043 ! 602: IVON01 = 35 05990043 ! 603: IVON02 = 9 06000043 ! 604: IVON03 = 3 06010043 ! 605: IVCOMP = IVON01 - IVON02 ** IVON03 06020043 ! 606: GO TO 47040 06030043 ! 607: 37040 IVDELE = IVDELE + 1 06040043 ! 608: WRITE (I02,80003) IVTNUM 06050043 ! 609: IF (ICZERO) 47040, 7051, 47040 06060043 ! 610: 47040 IF (IVCOMP + 694) 27040,17040,27040 06070043 ! 611: 17040 IVPASS = IVPASS + 1 06080043 ! 612: WRITE (I02,80001) IVTNUM 06090043 ! 613: GO TO 7051 06100043 ! 614: 27040 IVFAIL = IVFAIL + 1 06110043 ! 615: IVCORR = -694 06120043 ! 616: WRITE (I02,80004) IVTNUM, IVCOMP, IVCORR 06130043 ! 617: 7051 CONTINUE 06140043 ! 618: IVTNUM = 705 06150043 ! 619: C 06160043 ! 620: C **** TEST 705 **** 06170043 ! 621: C 06180043 ! 622: IF (ICZERO) 37050, 7050, 37050 06190043 ! 623: 7050 CONTINUE 06200043 ! 624: IVON01 = 35 06210043 ! 625: IVON02 = 9 06220043 ! 626: IVON03 = 3 06230043 ! 627: IVCOMP = (IVON01 - IVON02) ** IVON03 06240043 ! 628: GO TO 47050 06250043 ! 629: 37050 IVDELE = IVDELE + 1 06260043 ! 630: WRITE (I02,80003) IVTNUM 06270043 ! 631: IF (ICZERO) 47050, 7061, 47050 06280043 ! 632: 47050 IF (IVCOMP - 17576) 27050,17050,27050 06290043 ! 633: 17050 IVPASS = IVPASS + 1 06300043 ! 634: WRITE (I02,80001) IVTNUM 06310043 ! 635: GO TO 7061 06320043 ! 636: 27050 IVFAIL = IVFAIL + 1 06330043 ! 637: IVCORR = 17576 06340043 ! 638: WRITE (I02,80004) IVTNUM, IVCOMP, IVCORR 06350043 ! 639: 7061 CONTINUE 06360043 ! 640: IVTNUM = 706 06370043 ! 641: C 06380043 ! 642: C **** TEST 706 **** 06390043 ! 643: C 06400043 ! 644: IF (ICZERO) 37060, 7060, 37060 06410043 ! 645: 7060 CONTINUE 06420043 ! 646: IVON01 = 35 06430043 ! 647: IVON02 = 9 06440043 ! 648: IVON03 = 3 06450043 ! 649: IVCOMP = IVON01 - (IVON02 ** IVON03) 06460043 ! 650: GO TO 47060 06470043 ! 651: 37060 IVDELE = IVDELE + 1 06480043 ! 652: WRITE (I02,80003) IVTNUM 06490043 ! 653: IF (ICZERO) 47060, 7071, 47060 06500043 ! 654: 47060 IF (IVCOMP + 694) 27060,17060,27060 06510043 ! 655: 17060 IVPASS = IVPASS + 1 06520043 ! 656: WRITE (I02,80001) IVTNUM 06530043 ! 657: GO TO 7071 06540043 ! 658: 27060 IVFAIL = IVFAIL + 1 06550043 ! 659: IVCORR = -694 06560043 ! 660: WRITE (I02,80004) IVTNUM, IVCOMP, IVCORR 06570043 ! 661: 7071 CONTINUE 06580043 ! 662: C 06590043 ! 663: C TESTS 707 THROUGH 709 TEST '*' FOLLOWED BY '+'. 06600043 ! 664: C 06610043 ! 665: IVTNUM = 707 06620043 ! 666: C 06630043 ! 667: C **** TEST 707 **** 06640043 ! 668: C 06650043 ! 669: IF (ICZERO) 37070, 7070, 37070 06660043 ! 670: 7070 CONTINUE 06670043 ! 671: IVON01 = 45 06680043 ! 672: IVON02 = 9 06690043 ! 673: IVON03 = 3 06700043 ! 674: IVCOMP = IVON01 * IVON02 + IVON03 06710043 ! 675: GO TO 47070 06720043 ! 676: 37070 IVDELE = IVDELE + 1 06730043 ! 677: WRITE (I02,80003) IVTNUM 06740043 ! 678: IF (ICZERO) 47070, 7081, 47070 06750043 ! 679: 47070 IF (IVCOMP - 408) 27070,17070,27070 06760043 ! 680: 17070 IVPASS = IVPASS + 1 06770043 ! 681: WRITE (I02,80001) IVTNUM 06780043 ! 682: GO TO 7081 06790043 ! 683: 27070 IVFAIL = IVFAIL + 1 06800043 ! 684: IVCORR = 408 06810043 ! 685: WRITE (I02,80004) IVTNUM, IVCOMP, IVCORR 06820043 ! 686: 7081 CONTINUE 06830043 ! 687: IVTNUM = 708 06840043 ! 688: C 06850043 ! 689: C **** TEST 708 **** 06860043 ! 690: C 06870043 ! 691: IF (ICZERO) 37080, 7080, 37080 06880043 ! 692: 7080 CONTINUE 06890043 ! 693: IVON01 = 45 06900043 ! 694: IVON02 = 9 06910043 ! 695: IVON03 = 3 06920043 ! 696: IVCOMP = (IVON01 * IVON02) + IVON03 06930043 ! 697: GO TO 47080 06940043 ! 698: 37080 IVDELE = IVDELE + 1 06950043 ! 699: WRITE (I02,80003) IVTNUM 06960043 ! 700: IF (ICZERO) 47080, 7091, 47080 06970043 ! 701: 47080 IF (IVCOMP - 408) 27080,17080,27080 06980043 ! 702: 17080 IVPASS = IVPASS + 1 06990043 ! 703: WRITE (I02,80001) IVTNUM 07000043 ! 704: GO TO 7091 07010043 ! 705: 27080 IVFAIL = IVFAIL + 1 07020043 ! 706: IVCORR = 408 07030043 ! 707: WRITE (I02,80004) IVTNUM, IVCOMP, IVCORR 07040043 ! 708: 7091 CONTINUE 07050043 ! 709: IVTNUM = 709 07060043 ! 710: C 07070043 ! 711: C **** TEST 709 **** 07080043 ! 712: C 07090043 ! 713: IF (ICZERO) 37090, 7090, 37090 07100043 ! 714: 7090 CONTINUE 07110043 ! 715: IVON01 = 45 07120043 ! 716: IVON02 = 9 07130043 ! 717: IVON03 = 3 07140043 ! 718: IVCOMP = IVON01 * (IVON02 + IVON03) 07150043 ! 719: GO TO 47090 07160043 ! 720: 37090 IVDELE = IVDELE + 1 07170043 ! 721: WRITE (I02,80003) IVTNUM 07180043 ! 722: IF (ICZERO) 47090, 7101, 47090 07190043 ! 723: 47090 IF (IVCOMP - 540) 27090,17090,27090 07200043 ! 724: 17090 IVPASS = IVPASS + 1 07210043 ! 725: WRITE (I02,80001) IVTNUM 07220043 ! 726: GO TO 7101 07230043 ! 727: 27090 IVFAIL = IVFAIL + 1 07240043 ! 728: IVCORR = 540 07250043 ! 729: WRITE (I02,80004) IVTNUM, IVCOMP, IVCORR 07260043 ! 730: 7101 CONTINUE 07270043 ! 731: C 07280043 ! 732: C TESTS 710 THROUGH 712 TEST '*' FOLLOWED BY '-'. 07290043 ! 733: C 07300043 ! 734: IVTNUM = 710 07310043 ! 735: C 07320043 ! 736: C **** TEST 710 **** 07330043 ! 737: C 07340043 ! 738: IF (ICZERO) 37100, 7100, 37100 07350043 ! 739: 7100 CONTINUE 07360043 ! 740: IVON01 = 45 07370043 ! 741: IVON02 = 9 07380043 ! 742: IVON03 = 3 07390043 ! 743: IVCOMP = IVON01 * IVON02 - IVON03 07400043 ! 744: GO TO 47100 07410043 ! 745: 37100 IVDELE = IVDELE + 1 07420043 ! 746: WRITE (I02,80003) IVTNUM 07430043 ! 747: IF (ICZERO) 47100, 7111, 47100 07440043 ! 748: 47100 IF (IVCOMP - 402) 27100,17100,27100 07450043 ! 749: 17100 IVPASS = IVPASS + 1 07460043 ! 750: WRITE (I02,80001) IVTNUM 07470043 ! 751: GO TO 7111 07480043 ! 752: 27100 IVFAIL = IVFAIL + 1 07490043 ! 753: IVCORR = 402 07500043 ! 754: WRITE (I02,80004) IVTNUM, IVCOMP, IVCORR 07510043 ! 755: 7111 CONTINUE 07520043 ! 756: IVTNUM = 711 07530043 ! 757: C 07540043 ! 758: C **** TEST 711 **** 07550043 ! 759: C 07560043 ! 760: IF (ICZERO) 37110, 7110, 37110 07570043 ! 761: 7110 CONTINUE 07580043 ! 762: IVON01 = 45 07590043 ! 763: IVON02 = 9 07600043 ! 764: IVON03 = 3 07610043 ! 765: IVCOMP = (IVON01 * IVON02) - IVON03 07620043 ! 766: GO TO 47110 07630043 ! 767: 37110 IVDELE = IVDELE + 1 07640043 ! 768: WRITE (I02,80003) IVTNUM 07650043 ! 769: IF (ICZERO) 47110, 7121, 47110 07660043 ! 770: 47110 IF (IVCOMP - 402) 27110,17110,27110 07670043 ! 771: 17110 IVPASS = IVPASS + 1 07680043 ! 772: WRITE (I02,80001) IVTNUM 07690043 ! 773: GO TO 7121 07700043 ! 774: 27110 IVFAIL = IVFAIL + 1 07710043 ! 775: IVCORR = 402 07720043 ! 776: WRITE (I02,80004) IVTNUM, IVCOMP, IVCORR 07730043 ! 777: 7121 CONTINUE 07740043 ! 778: IVTNUM = 712 07750043 ! 779: C 07760043 ! 780: C **** TEST 712 **** 07770043 ! 781: C 07780043 ! 782: IF (ICZERO) 37120, 7120, 37120 07790043 ! 783: 7120 CONTINUE 07800043 ! 784: IVON01 = 45 07810043 ! 785: IVON02 = 9 07820043 ! 786: IVON03 = 3 07830043 ! 787: IVCOMP = IVON01 * (IVON02 - IVON03) 07840043 ! 788: GO TO 47120 07850043 ! 789: 37120 IVDELE = IVDELE + 1 07860043 ! 790: WRITE (I02,80003) IVTNUM 07870043 ! 791: IF (ICZERO) 47120, 7131, 47120 07880043 ! 792: 47120 IF (IVCOMP - 270) 27120,17120,27120 07890043 ! 793: 17120 IVPASS = IVPASS + 1 07900043 ! 794: WRITE (I02,80001) IVTNUM 07910043 ! 795: GO TO 7131 07920043 ! 796: 27120 IVFAIL = IVFAIL + 1 07930043 ! 797: IVCORR = 270 07940043 ! 798: WRITE (I02,80004) IVTNUM, IVCOMP, IVCORR 07950043 ! 799: 7131 CONTINUE 07960043 ! 800: C 07970043 ! 801: C TESTS 713 THROUGH 715 TEST '*' FOLLOWED BY '/'. 07980043 ! 802: C 07990043 ! 803: IVTNUM = 713 08000043 ! 804: C 08010043 ! 805: C **** TEST 713 **** 08020043 ! 806: C 08030043 ! 807: IF (ICZERO) 37130, 7130, 37130 08040043 ! 808: 7130 CONTINUE 08050043 ! 809: IVON01 = 45 08060043 ! 810: IVON02 = 9 08070043 ! 811: IVON03 = 3 08080043 ! 812: IVCOMP = IVON01 * IVON02 / IVON03 08090043 ! 813: GO TO 47130 08100043 ! 814: 37130 IVDELE = IVDELE + 1 08110043 ! 815: WRITE (I02,80003) IVTNUM 08120043 ! 816: IF (ICZERO) 47130, 7141, 47130 08130043 ! 817: 47130 IF (IVCOMP - 135) 27130,17130,27130 08140043 ! 818: 17130 IVPASS = IVPASS + 1 08150043 ! 819: WRITE (I02,80001) IVTNUM 08160043 ! 820: GO TO 7141 08170043 ! 821: 27130 IVFAIL = IVFAIL + 1 08180043 ! 822: IVCORR = 135 08190043 ! 823: WRITE (I02,80004) IVTNUM, IVCOMP, IVCORR 08200043 ! 824: 7141 CONTINUE 08210043 ! 825: IVTNUM = 714 08220043 ! 826: C 08230043 ! 827: C **** TEST 714 **** 08240043 ! 828: C 08250043 ! 829: IF (ICZERO) 37140, 7140, 37140 08260043 ! 830: 7140 CONTINUE 08270043 ! 831: IVON01 = 45 08280043 ! 832: IVON02 = 9 08290043 ! 833: IVON03 = 3 08300043 ! 834: IVCOMP = (IVON01 * IVON02) / IVON03 08310043 ! 835: GO TO 47140 08320043 ! 836: 37140 IVDELE = IVDELE + 1 08330043 ! 837: WRITE (I02,80003) IVTNUM 08340043 ! 838: IF (ICZERO) 47140, 7151, 47140 08350043 ! 839: 47140 IF (IVCOMP - 135) 27140,17140,27140 08360043 ! 840: 17140 IVPASS = IVPASS + 1 08370043 ! 841: WRITE (I02,80001) IVTNUM 08380043 ! 842: GO TO 7151 08390043 ! 843: 27140 IVFAIL = IVFAIL + 1 08400043 ! 844: IVCORR = 135 08410043 ! 845: WRITE (I02,80004) IVTNUM, IVCOMP, IVCORR 08420043 ! 846: 7151 CONTINUE 08430043 ! 847: IVTNUM = 715 08440043 ! 848: C 08450043 ! 849: C **** TEST 715 **** 08460043 ! 850: C 08470043 ! 851: IF (ICZERO) 37150, 7150, 37150 08480043 ! 852: 7150 CONTINUE 08490043 ! 853: IVON01 = 45 08500043 ! 854: IVON02 = 9 08510043 ! 855: IVON03 = 3 08520043 ! 856: IVCOMP = IVON01 * (IVON02 / IVON03) 08530043 ! 857: GO TO 47150 08540043 ! 858: 37150 IVDELE = IVDELE + 1 08550043 ! 859: WRITE (I02,80003) IVTNUM 08560043 ! 860: IF (ICZERO) 47150, 7161, 47150 08570043 ! 861: 47150 IF (IVCOMP - 135) 27150,17150,27150 08580043 ! 862: 17150 IVPASS = IVPASS + 1 08590043 ! 863: WRITE (I02,80001) IVTNUM 08600043 ! 864: GO TO 7161 08610043 ! 865: 27150 IVFAIL = IVFAIL + 1 08620043 ! 866: IVCORR = 135 08630043 ! 867: WRITE (I02,80004) IVTNUM, IVCOMP, IVCORR 08640043 ! 868: 7161 CONTINUE 08650043 ! 869: C 08660043 ! 870: C TESTS 716 THROUGH 718 TEST '*' FOLLOWED BY '**'. 08670043 ! 871: C 08680043 ! 872: IVTNUM = 716 08690043 ! 873: C 08700043 ! 874: C **** TEST 716 **** 08710043 ! 875: C 08720043 ! 876: IF (ICZERO) 37160, 7160, 37160 08730043 ! 877: 7160 CONTINUE 08740043 ! 878: IVON01 = 7 08750043 ! 879: IVON02 = 3 08760043 ! 880: IVON03 = 3 08770043 ! 881: IVCOMP = IVON01 * IVON02 ** IVON03 08780043 ! 882: GO TO 47160 08790043 ! 883: 37160 IVDELE = IVDELE + 1 08800043 ! 884: WRITE (I02,80003) IVTNUM 08810043 ! 885: IF (ICZERO) 47160, 7171, 47160 08820043 ! 886: 47160 IF (IVCOMP - 189) 27160,17160,27160 08830043 ! 887: 17160 IVPASS = IVPASS + 1 08840043 ! 888: WRITE (I02,80001) IVTNUM 08850043 ! 889: GO TO 7171 08860043 ! 890: 27160 IVFAIL = IVFAIL + 1 08870043 ! 891: IVCORR = 189 08880043 ! 892: WRITE (I02,80004) IVTNUM, IVCOMP, IVCORR 08890043 ! 893: 7171 CONTINUE 08900043 ! 894: IVTNUM = 717 08910043 ! 895: C 08920043 ! 896: C **** TEST 717 **** 08930043 ! 897: C 08940043 ! 898: IF (ICZERO) 37170, 7170, 37170 08950043 ! 899: 7170 CONTINUE 08960043 ! 900: IVON01 = 7 08970043 ! 901: IVON02 = 3 08980043 ! 902: IVON03 = 3 08990043 ! 903: IVCOMP = (IVON01 * IVON02) ** IVON03 09000043 ! 904: GO TO 47170 09010043 ! 905: 37170 IVDELE = IVDELE + 1 09020043 ! 906: WRITE (I02,80003) IVTNUM 09030043 ! 907: IF (ICZERO) 47170, 7181, 47170 09040043 ! 908: 47170 IF (IVCOMP - 9261) 27170,17170,27170 09050043 ! 909: 17170 IVPASS = IVPASS + 1 09060043 ! 910: WRITE (I02,80001) IVTNUM 09070043 ! 911: GO TO 7181 09080043 ! 912: 27170 IVFAIL = IVFAIL + 1 09090043 ! 913: IVCORR = 9261 09100043 ! 914: WRITE (I02,80004) IVTNUM, IVCOMP, IVCORR 09110043 ! 915: 7181 CONTINUE 09120043 ! 916: IVTNUM = 718 09130043 ! 917: C 09140043 ! 918: C **** TEST 718 **** 09150043 ! 919: C 09160043 ! 920: IF (ICZERO) 37180, 7180, 37180 09170043 ! 921: 7180 CONTINUE 09180043 ! 922: IVON01 = 7 09190043 ! 923: IVON02 = 3 09200043 ! 924: IVON03 = 3 09210043 ! 925: IVCOMP = IVON01 * (IVON02 ** IVON03) 09220043 ! 926: GO TO 47180 09230043 ! 927: 37180 IVDELE = IVDELE + 1 09240043 ! 928: WRITE (I02,80003) IVTNUM 09250043 ! 929: IF (ICZERO) 47180, 7191, 47180 09260043 ! 930: 47180 IF (IVCOMP - 189) 27180,17180,27180 09270043 ! 931: 17180 IVPASS = IVPASS + 1 09280043 ! 932: WRITE (I02,80001) IVTNUM 09290043 ! 933: GO TO 7191 09300043 ! 934: 27180 IVFAIL = IVFAIL + 1 09310043 ! 935: IVCORR = 189 09320043 ! 936: WRITE (I02,80004) IVTNUM, IVCOMP, IVCORR 09330043 ! 937: 7191 CONTINUE 09340043 ! 938: C 09350043 ! 939: C WRITE PAGE FOOTINGS AND RUN SUMMARIES 09360043 ! 940: 99999 CONTINUE 09370043 ! 941: WRITE (I02,90002) 09380043 ! 942: WRITE (I02,90006) 09390043 ! 943: WRITE (I02,90002) 09400043 ! 944: WRITE (I02,90002) 09410043 ! 945: WRITE (I02,90007) 09420043 ! 946: WRITE (I02,90002) 09430043 ! 947: WRITE (I02,90008) IVFAIL 09440043 ! 948: WRITE (I02,90009) IVPASS 09450043 ! 949: WRITE (I02,90010) IVDELE 09460043 ! 950: C 09470043 ! 951: C 09480043 ! 952: C TERMINATE ROUTINE EXECUTION 09490043 ! 953: STOP 09500043 ! 954: C 09510043 ! 955: C FORMAT STATEMENTS FOR PAGE HEADERS 09520043 ! 956: 90000 FORMAT (1H1) 09530043 ! 957: 90002 FORMAT (1H ) 09540043 ! 958: 90001 FORMAT (1H ,10X,34HFORTRAN COMPILER VALIDATION SYSTEM) 09550043 ! 959: 90003 FORMAT (1H ,21X,11HVERSION 1.0) 09560043 ! 960: 90004 FORMAT (1H ,10X,38HFOR OFFICIAL USE ONLY - COPYRIGHT 1978) 09570043 ! 961: 90005 FORMAT (1H ,5X,4HTEST,5X,9HPASS/FAIL, 5X,8HCOMPUTED,8X,7HCORRECT) 09580043 ! 962: 90006 FORMAT (1H ,5X,46H----------------------------------------------) 09590043 ! 963: 90011 FORMAT (1H ,18X,17HSUBSET LEVEL TEST) 09600043 ! 964: C 09610043 ! 965: C FORMAT STATEMENTS FOR RUN SUMMARIES 09620043 ! 966: 90008 FORMAT (1H ,15X,I5,19H ERRORS ENCOUNTERED) 09630043 ! 967: 90009 FORMAT (1H ,15X,I5,13H TESTS PASSED) 09640043 ! 968: 90010 FORMAT (1H ,15X,I5,14H TESTS DELETED) 09650043 ! 969: C 09660043 ! 970: C FORMAT STATEMENTS FOR TEST RESULTS 09670043 ! 971: 80001 FORMAT (1H ,4X,I5,7X,4HPASS) 09680043 ! 972: 80002 FORMAT (1H ,4X,I5,7X,4HFAIL) 09690043 ! 973: 80003 FORMAT (1H ,4X,I5,7X,7HDELETED) 09700043 ! 974: 80004 FORMAT (1H ,4X,I5,7X,4HFAIL,10X,I6,9X,I6) 09710043 ! 975: 80005 FORMAT (1H ,4X,I5,7X,4HFAIL,4X,E12.5,3X,E12.5) 09720043 ! 976: C 09730043 ! 977: 90007 FORMAT (1H ,20X,20HEND OF PROGRAM FM043) 09740043 ! 978: END 09750043
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.