![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to FM042.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 FM042.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 00010042 ! 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 00020042 ! 6: C FM042 00030042 ! 7: C 00040042 ! 8: C THIS ROUTINE TESTS ARITHMETIC ASSIGNMENTS OF THE 00050042 ! 9: C FORM INTEGER VARIABLE = PRIMARY ** PRIMARY 00060042 ! 10: C WHERE THE FIRST OF TWO PRIMARIES IS AN INTEGER VARIABLE OR AN 00070042 ! 11: C INTEGER CONSTANT AND THE SECOND PRIMARY IS AN INTEGER VARIABLE. 00080042 ! 12: C 00090042 ! 13: C REFERENCES 00100042 ! 14: C AMERICAN NATIONAL STANDARD PROGRAMMING LANGUAGE FORTRAN, 00110042 ! 15: C X3.9-1978 00120042 ! 16: C 00130042 ! 17: C SECTION 4.3, INTEGER TYPE 00140042 ! 18: C SECTION 4.3.1, INTEGER CONSTANT 00150042 ! 19: C SECTION 6.1, ARITHMETIC EXPRESSIONS 00160042 ! 20: C SECTION 10.1, ARITHMETIC ASSIGNMENT STATEMENT 00170042 ! 21: C 00180042 ! 22: C 00190042 ! 23: C ********************************************************** 00200042 ! 24: C 00210042 ! 25: C A COMPILER VALIDATION SYSTEM FOR THE FORTRAN LANGUAGE 00220042 ! 26: C BASED ON SPECIFICATIONS AS DEFINED IN AMERICAN NATIONAL STANDARD 00230042 ! 27: C PROGRAMMING LANGUAGE FORTRAN X3.9-1978, HAS BEEN DEVELOPED BY THE 00240042 ! 28: C FEDERAL COBOL COMPILER TESTING SERVICE. THE FORTRAN COMPILER 00250042 ! 29: C VALIDATION SYSTEM (FCVS) CONSISTS OF AUDIT ROUTINES, THEIR RELATED00260042 ! 30: C DATA, AND AN EXECUTIVE SYSTEM. EACH AUDIT ROUTINE IS A FORTRAN 00270042 ! 31: C PROGRAM, SUBPROGRAM OR FUNCTION WHICH INCLUDES TESTS OF SPECIFIC 00280042 ! 32: C LANGUAGE ELEMENTS AND SUPPORTING PROCEDURES INDICATING THE RESULT 00290042 ! 33: C OF EXECUTING THESE TESTS. 00300042 ! 34: C 00310042 ! 35: C THIS PARTICULAR PROGRAM/SUBPROGRAM/FUNCTION CONTAINS FEATURES 00320042 ! 36: C FOUND ONLY IN THE SUBSET AS DEFINED IN X3.9-1978. 00330042 ! 37: C 00340042 ! 38: C SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO - 00350042 ! 39: C 00360042 ! 40: C DEPARTMENT OF THE NAVY 00370042 ! 41: C FEDERAL COBOL COMPILER TESTING SERVICE 00380042 ! 42: C WASHINGTON, D.C. 20376 00390042 ! 43: C 00400042 ! 44: C ********************************************************** 00410042 ! 45: C 00420042 ! 46: C 00430042 ! 47: C 00440042 ! 48: C INITIALIZATION SECTION 00450042 ! 49: C 00460042 ! 50: C INITIALIZE CONSTANTS 00470042 ! 51: C ************** 00480042 ! 52: C I01 CONTAINS THE LOGICAL UNIT NUMBER FOR THE CARD READER. 00490042 ! 53: I01 = 5 00500042 ! 54: C I02 CONTAINS THE LOGICAL UNIT NUMBER FOR THE PRINTER. 00510042 ! 55: I02 = 6 00520042 ! 56: C SYSTEM ENVIRONMENT SECTION 00530042 ! 57: C 00540042 ! 58: I01 = 5 00550042 ! 59: C THE CX010 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I01 = 5 00560042 ! 60: C (UNIT NUMBER FOR CARD READER). 00570042 ! 61: CX011 THIS CARD IS REPLACED BY CONTENTS OF FEXEC X-011 CONTROL CARD. 00580042 ! 62: C THE CX011 CARD IS FOR SYSTEMS WHICH REQUIRE ADDITIONAL 00590042 ! 63: C FORTRAN STATEMENTS FOR FILES ASSOCIATED WITH CX010 ABOVE. 00600042 ! 64: C 00610042 ! 65: I02 = 6 00620042 ! 66: C THE CX020 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I02 = 6 00630042 ! 67: C (UNIT NUMBER FOR PRINTER). 00640042 ! 68: CX021 THIS CARD IS REPLACED BY CONTENTS OF FEXEC X-021 CONTROL CARD. 00650042 ! 69: C THE CX021 CARD IS FOR SYSTEMS WHICH REQUIRE ADDITIONAL 00660042 ! 70: C FORTRAN STATEMENTS FOR FILES ASSOCIATED WITH CX020 ABOVE. 00670042 ! 71: C 00680042 ! 72: IVPASS=0 00690042 ! 73: IVFAIL=0 00700042 ! 74: IVDELE=0 00710042 ! 75: ICZERO=0 00720042 ! 76: C 00730042 ! 77: C WRITE PAGE HEADERS 00740042 ! 78: WRITE (I02,90000) 00750042 ! 79: WRITE (I02,90001) 00760042 ! 80: WRITE (I02,90002) 00770042 ! 81: WRITE (I02, 90002) 00780042 ! 82: WRITE (I02,90003) 00790042 ! 83: WRITE (I02,90002) 00800042 ! 84: WRITE (I02,90004) 00810042 ! 85: WRITE (I02,90002) 00820042 ! 86: WRITE (I02,90011) 00830042 ! 87: WRITE (I02,90002) 00840042 ! 88: WRITE (I02,90002) 00850042 ! 89: WRITE (I02,90005) 00860042 ! 90: WRITE (I02,90006) 00870042 ! 91: WRITE (I02,90002) 00880042 ! 92: C 00890042 ! 93: C TEST SECTION 00900042 ! 94: C 00910042 ! 95: C ARITHMETIC ASSIGNMENT STATEMENT 00920042 ! 96: C 00930042 ! 97: C TEST 649 THROUGH TEST 665 CONTAIN ARITHMETIC ASSIGNMENT STATEMENTS00940042 ! 98: C OF THE FORM INTEGER VARIABLE = INTEGER CONST. ** INTEGER VAR. 00950042 ! 99: C 00960042 ! 100: C TEST 666 THROUGH TEST 682 CONTAIN ARITHMETIC ASSIGNMENT STATEMENTS00970042 ! 101: C OF THE FORM INTEGER VARIABLE = INTEGER VAR. ** INTEGER VAR. 00980042 ! 102: C 00990042 ! 103: C 01000042 ! 104: IVTNUM = 649 01010042 ! 105: C 01020042 ! 106: C **** TEST 649 **** 01030042 ! 107: C TEST 649 - SMALL NUMBER BASE; ZERO EXPONENT 01040042 ! 108: C 01050042 ! 109: IF (ICZERO) 36490, 6490, 36490 01060042 ! 110: 6490 CONTINUE 01070042 ! 111: IVON01 = 0 01080042 ! 112: IVCOMP = 1 ** IVON01 01090042 ! 113: GO TO 46490 01100042 ! 114: 36490 IVDELE = IVDELE + 1 01110042 ! 115: WRITE (I02,80003) IVTNUM 01120042 ! 116: IF (ICZERO) 46490, 6501, 46490 01130042 ! 117: 46490 IF (IVCOMP - 1) 26490,16490,26490 01140042 ! 118: 16490 IVPASS = IVPASS + 1 01150042 ! 119: WRITE (I02,80001) IVTNUM 01160042 ! 120: GO TO 6501 01170042 ! 121: 26490 IVFAIL = IVFAIL + 1 01180042 ! 122: IVCORR = 1 01190042 ! 123: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 01200042 ! 124: 6501 CONTINUE 01210042 ! 125: IVTNUM = 650 01220042 ! 126: C 01230042 ! 127: C **** TEST 650 **** 01240042 ! 128: C TEST 650 - ZERO BASE TO FIRST POWER 01250042 ! 129: C 01260042 ! 130: IF (ICZERO) 36500, 6500, 36500 01270042 ! 131: 6500 CONTINUE 01280042 ! 132: IVON01 = 1 01290042 ! 133: IVCOMP = 0 ** IVON01 01300042 ! 134: GO TO 46500 01310042 ! 135: 36500 IVDELE = IVDELE + 1 01320042 ! 136: WRITE (I02,80003) IVTNUM 01330042 ! 137: IF (ICZERO) 46500, 6511, 46500 01340042 ! 138: 46500 IF (IVCOMP) 26500,16500,26500 01350042 ! 139: 16500 IVPASS = IVPASS + 1 01360042 ! 140: WRITE (I02,80001) IVTNUM 01370042 ! 141: GO TO 6511 01380042 ! 142: 26500 IVFAIL = IVFAIL + 1 01390042 ! 143: IVCORR = 0 01400042 ! 144: WRITE (I02,80004) IVTNUM, IVCOMP, IVCORR 01410042 ! 145: 6511 CONTINUE 01420042 ! 146: IVTNUM = 651 01430042 ! 147: C 01440042 ! 148: C **** TEST 651 **** 01450042 ! 149: C TEST 651 - BASE =1; EXPONENT = 1 01460042 ! 150: C 01470042 ! 151: IF (ICZERO) 36510, 6510, 36510 01480042 ! 152: 6510 CONTINUE 01490042 ! 153: IVON01 = 1 01500042 ! 154: IVCOMP = 1 ** IVON01 01510042 ! 155: GO TO 46510 01520042 ! 156: 36510 IVDELE = IVDELE + 1 01530042 ! 157: WRITE (I02,80003) IVTNUM 01540042 ! 158: IF (ICZERO) 46510, 6521, 46510 01550042 ! 159: 46510 IF (IVCOMP - 1) 26510,16510,26510 01560042 ! 160: 16510 IVPASS = IVPASS + 1 01570042 ! 161: WRITE (I02,80001) IVTNUM 01580042 ! 162: GO TO 6521 01590042 ! 163: 26510 IVFAIL = IVFAIL + 1 01600042 ! 164: IVCORR = 1 01610042 ! 165: WRITE (I02,80004) IVTNUM, IVCOMP, IVCORR 01620042 ! 166: 6521 CONTINUE 01630042 ! 167: IVTNUM = 652 01640042 ! 168: C 01650042 ! 169: C **** TEST 652 **** 01660042 ! 170: C TEST 652 - LARGE EXPONENT 01670042 ! 171: C 01680042 ! 172: IF (ICZERO) 36520, 6520, 36520 01690042 ! 173: 6520 CONTINUE 01700042 ! 174: IVON01 = 32767 01710042 ! 175: IVCOMP = 1 ** IVON01 01720042 ! 176: GO TO 46520 01730042 ! 177: 36520 IVDELE = IVDELE + 1 01740042 ! 178: WRITE (I02,80003) IVTNUM 01750042 ! 179: IF (ICZERO) 46520, 6531, 46520 01760042 ! 180: 46520 IF (IVCOMP - 1) 26520,16520,26520 01770042 ! 181: 16520 IVPASS = IVPASS + 1 01780042 ! 182: WRITE (I02,80001) IVTNUM 01790042 ! 183: GO TO 6531 01800042 ! 184: 26520 IVFAIL = IVFAIL + 1 01810042 ! 185: IVCORR = 1 01820042 ! 186: WRITE (I02,80004) IVTNUM, IVCOMP, IVCORR 01830042 ! 187: 6531 CONTINUE 01840042 ! 188: IVTNUM = 653 01850042 ! 189: C 01860042 ! 190: C **** TEST 653 **** 01870042 ! 191: C TEST 653 - LARGE NUMBER BASE; EXPONENT = 1 01880042 ! 192: C 01890042 ! 193: IF (ICZERO) 36530, 6530, 36530 01900042 ! 194: 6530 CONTINUE 01910042 ! 195: IVON01 = 1 01920042 ! 196: IVCOMP = 32767 ** IVON01 01930042 ! 197: GO TO 46530 01940042 ! 198: 36530 IVDELE = IVDELE + 1 01950042 ! 199: WRITE (I02,80003) IVTNUM 01960042 ! 200: IF (ICZERO) 46530, 6541, 46530 01970042 ! 201: 46530 IF (IVCOMP - 32767) 26530,16530,26530 01980042 ! 202: 16530 IVPASS = IVPASS + 1 01990042 ! 203: WRITE (I02,80001) IVTNUM 02000042 ! 204: GO TO 6541 02010042 ! 205: 26530 IVFAIL = IVFAIL + 1 02020042 ! 206: IVCORR = 32767 02030042 ! 207: WRITE (I02,80004) IVTNUM, IVCOMP, IVCORR 02040042 ! 208: 6541 CONTINUE 02050042 ! 209: IVTNUM = 654 02060042 ! 210: C 02070042 ! 211: C **** TEST 654 **** 02080042 ! 212: C TEST 654 - ZERO BASE; LARGE NUMBER EXPONENT 02090042 ! 213: C 02100042 ! 214: IF (ICZERO) 36540, 6540, 36540 02110042 ! 215: 6540 CONTINUE 02120042 ! 216: IVON01 = 32767 02130042 ! 217: IVCOMP = 0 ** IVON01 02140042 ! 218: GO TO 46540 02150042 ! 219: 36540 IVDELE = IVDELE + 1 02160042 ! 220: WRITE (I02,80003) IVTNUM 02170042 ! 221: IF (ICZERO) 46540, 6551, 46540 02180042 ! 222: 46540 IF (IVCOMP) 26540,16540,26540 02190042 ! 223: 16540 IVPASS = IVPASS + 1 02200042 ! 224: WRITE (I02,80001) IVTNUM 02210042 ! 225: GO TO 6551 02220042 ! 226: 26540 IVFAIL = IVFAIL + 1 02230042 ! 227: IVCORR = 0 02240042 ! 228: WRITE (I02,80004) IVTNUM, IVCOMP, IVCORR 02250042 ! 229: 6551 CONTINUE 02260042 ! 230: IVTNUM = 655 02270042 ! 231: C 02280042 ! 232: C **** TEST 655 **** 02290042 ! 233: C TEST 655 -LARGE NUMBER BASE; ZERO EXPONENT 02300042 ! 234: C 02310042 ! 235: IF (ICZERO) 36550, 6550, 36550 02320042 ! 236: 6550 CONTINUE 02330042 ! 237: IVON01 = 0 02340042 ! 238: IVCOMP = 32767 ** IVON01 02350042 ! 239: GO TO 46550 02360042 ! 240: 36550 IVDELE = IVDELE + 1 02370042 ! 241: WRITE (I02,80003) IVTNUM 02380042 ! 242: IF (ICZERO) 46550, 6561, 46550 02390042 ! 243: 46550 IF (IVCOMP -1) 26550,16550,26550 02400042 ! 244: 16550 IVPASS = IVPASS + 1 02410042 ! 245: WRITE (I02,80001) IVTNUM 02420042 ! 246: GO TO 6561 02430042 ! 247: 26550 IVFAIL = IVFAIL + 1 02440042 ! 248: IVCORR = 1 02450042 ! 249: WRITE (I02,80004) IVTNUM, IVCOMP, IVCORR 02460042 ! 250: 6561 CONTINUE 02470042 ! 251: IVTNUM = 656 02480042 ! 252: C 02490042 ! 253: C **** TEST 656 **** 02500042 ! 254: C TEST 656 -EXPONENT IS POWER OF TWO 02510042 ! 255: C 02520042 ! 256: IF (ICZERO) 36560, 6560, 36560 02530042 ! 257: 6560 CONTINUE 02540042 ! 258: IVON01 = 2 02550042 ! 259: IVCOMP = 181 ** IVON01 02560042 ! 260: GO TO 46560 02570042 ! 261: 36560 IVDELE = IVDELE + 1 02580042 ! 262: WRITE (I02,80003) IVTNUM 02590042 ! 263: IF (ICZERO) 46560, 6571, 46560 02600042 ! 264: 46560 IF (IVCOMP - 32761) 26560,16560,26560 02610042 ! 265: 16560 IVPASS = IVPASS + 1 02620042 ! 266: WRITE (I02,80001) IVTNUM 02630042 ! 267: GO TO 6571 02640042 ! 268: 26560 IVFAIL = IVFAIL + 1 02650042 ! 269: IVCORR = 32761 02660042 ! 270: WRITE (I02,80004) IVTNUM, IVCOMP, IVCORR 02670042 ! 271: 6571 CONTINUE 02680042 ! 272: IVTNUM = 657 02690042 ! 273: C 02700042 ! 274: C **** TEST 657 **** 02710042 ! 275: C TEST 657 - BASE AND EXPONENT ARE BOTH POWERS OF TWO 02720042 ! 276: C 02730042 ! 277: IF (ICZERO) 36570, 6570, 36570 02740042 ! 278: 6570 CONTINUE 02750042 ! 279: IVON01 = 8 02760042 ! 280: IVCOMP = 2 ** IVON01 02770042 ! 281: GO TO 46570 02780042 ! 282: 36570 IVDELE = IVDELE + 1 02790042 ! 283: WRITE (I02,80003) IVTNUM 02800042 ! 284: IF (ICZERO) 46570, 6581, 46570 02810042 ! 285: 46570 IF (IVCOMP - 256) 26570,16570,26560 02820042 ! 286: 16570 IVPASS = IVPASS + 1 02830042 ! 287: WRITE (I02,80001) IVTNUM 02840042 ! 288: GO TO 6581 02850042 ! 289: 26570 IVFAIL = IVFAIL + 1 02860042 ! 290: IVCORR = 256 02870042 ! 291: WRITE (I02,80004) IVTNUM, IVCOMP, IVCORR 02880042 ! 292: 6581 CONTINUE 02890042 ! 293: C 02900042 ! 294: C TESTS 658 AND 659 TEST TO ENSURE EXPONENTIATION OPERATOR IS 02910042 ! 295: C NOT COMMUTATIVE 02920042 ! 296: C 02930042 ! 297: IVTNUM = 658 02940042 ! 298: C 02950042 ! 299: C **** TEST 658 **** 02960042 ! 300: C 02970042 ! 301: IF (ICZERO) 36580, 6580, 36580 02980042 ! 302: 6580 CONTINUE 02990042 ! 303: IVON01 = 9 03000042 ! 304: IVCOMP = 3 ** IVON01 03010042 ! 305: GO TO 46580 03020042 ! 306: 36580 IVDELE = IVDELE + 1 03030042 ! 307: WRITE (I02,80003) IVTNUM 03040042 ! 308: IF (ICZERO) 46580, 6591, 46580 03050042 ! 309: 46580 IF (IVCOMP - 19683) 26580,16580,26580 03060042 ! 310: 16580 IVPASS = IVPASS + 1 03070042 ! 311: WRITE (I02,80001) IVTNUM 03080042 ! 312: GO TO 6591 03090042 ! 313: 26580 IVFAIL = IVFAIL + 1 03100042 ! 314: IVCORR = 19683 03110042 ! 315: WRITE (I02,80004) IVTNUM, IVCOMP, IVCORR 03120042 ! 316: 6591 CONTINUE 03130042 ! 317: IVTNUM = 659 03140042 ! 318: C 03150042 ! 319: C **** TEST 659 **** 03160042 ! 320: C 03170042 ! 321: IF (ICZERO) 36590, 6590, 36590 03180042 ! 322: 6590 CONTINUE 03190042 ! 323: IVON01 = 3 03200042 ! 324: IVCOMP = 9 ** IVON01 03210042 ! 325: GO TO 46590 03220042 ! 326: 36590 IVDELE = IVDELE + 1 03230042 ! 327: WRITE (I02,80003) IVTNUM 03240042 ! 328: IF (ICZERO) 46590, 6601, 46590 03250042 ! 329: 46590 IF (IVCOMP - 729) 26590,16590,26590 03260042 ! 330: 16590 IVPASS = IVPASS + 1 03270042 ! 331: WRITE (I02,80001) IVTNUM 03280042 ! 332: GO TO 6601 03290042 ! 333: 26590 IVFAIL = IVFAIL + 1 03300042 ! 334: IVCORR = 729 03310042 ! 335: WRITE (I02,80004) IVTNUM, IVCOMP, IVCORR 03320042 ! 336: 6601 CONTINUE 03330042 ! 337: C 03340042 ! 338: C TESTS 660 THROUGH 665 TEST POSITIVE AND NEGATIVE BASES TO POSITIVE03350042 ! 339: C ODD AND EVEN NUMBER POWERS CHECKING THE SIGN03360042 ! 340: C OF THE RESULTS 03370042 ! 341: C 03380042 ! 342: IVTNUM = 660 03390042 ! 343: C 03400042 ! 344: C **** TEST 660 **** 03410042 ! 345: C 03420042 ! 346: IF (ICZERO) 36600, 6600, 36600 03430042 ! 347: 6600 CONTINUE 03440042 ! 348: IVON01 = 2 03450042 ! 349: IVCOMP = 1 ** IVON01 03460042 ! 350: GO TO 46600 03470042 ! 351: 36600 IVDELE = IVDELE + 1 03480042 ! 352: WRITE (I02,80003) IVTNUM 03490042 ! 353: IF (ICZERO) 46600, 6611, 46600 03500042 ! 354: 46600 IF (IVCOMP - 1) 26600,16600,26600 03510042 ! 355: 16600 IVPASS = IVPASS + 1 03520042 ! 356: WRITE (I02,80001) IVTNUM 03530042 ! 357: GO TO 6611 03540042 ! 358: 26600 IVFAIL = IVFAIL + 1 03550042 ! 359: IVCORR = 1 03560042 ! 360: WRITE (I02,80004) IVTNUM, IVCOMP, IVCORR 03570042 ! 361: 6611 CONTINUE 03580042 ! 362: IVTNUM = 661 03590042 ! 363: C 03600042 ! 364: C **** TEST 661 **** 03610042 ! 365: C 03620042 ! 366: IF (ICZERO) 36610, 6610, 36610 03630042 ! 367: 6610 CONTINUE 03640042 ! 368: IVON01 = 2 03650042 ! 369: IVCOMP = ( -1) ** IVON01 03660042 ! 370: GO TO 46610 03670042 ! 371: 36610 IVDELE = IVDELE + 1 03680042 ! 372: WRITE (I02,80003) IVTNUM 03690042 ! 373: IF (ICZERO) 46610, 6621, 46610 03700042 ! 374: 46610 IF (IVCOMP - 1) 26610,16610,26610 03710042 ! 375: 16610 IVPASS = IVPASS + 1 03720042 ! 376: WRITE (I02,80001) IVTNUM 03730042 ! 377: GO TO 6621 03740042 ! 378: 26610 IVFAIL = IVFAIL + 1 03750042 ! 379: IVCORR = 1 03760042 ! 380: WRITE (I02,80004) IVTNUM, IVCOMP, IVCORR 03770042 ! 381: 6621 CONTINUE 03780042 ! 382: IVTNUM = 662 03790042 ! 383: C 03800042 ! 384: C **** TEST 662 **** 03810042 ! 385: C 03820042 ! 386: IF (ICZERO) 36620, 6620, 36620 03830042 ! 387: 6620 CONTINUE 03840042 ! 388: IVON01 = 3 03850042 ! 389: IVCOMP = 7 ** IVON01 03860042 ! 390: GO TO 46620 03870042 ! 391: 36620 IVDELE = IVDELE + 1 03880042 ! 392: WRITE (I02,80003) IVTNUM 03890042 ! 393: IF (ICZERO) 46620, 6631, 46620 03900042 ! 394: 46620 IF (IVCOMP - 343) 26620,16620,26620 03910042 ! 395: 16620 IVPASS = IVPASS + 1 03920042 ! 396: WRITE (I02,80001) IVTNUM 03930042 ! 397: GO TO 6631 03940042 ! 398: 26620 IVFAIL = IVFAIL + 1 03950042 ! 399: IVCORR = 343 03960042 ! 400: WRITE (I02,80004) IVTNUM, IVCOMP, IVCORR 03970042 ! 401: 6631 CONTINUE 03980042 ! 402: IVTNUM = 663 03990042 ! 403: C 04000042 ! 404: C **** TEST 663 **** 04010042 ! 405: C 04020042 ! 406: IF (ICZERO) 36630, 6630, 36630 04030042 ! 407: 6630 CONTINUE 04040042 ! 408: IVON01 = 3 04050042 ! 409: IVCOMP = (-7) **IVON01 04060042 ! 410: GO TO 46630 04070042 ! 411: 36630 IVDELE = IVDELE + 1 04080042 ! 412: WRITE (I02,80003) IVTNUM 04090042 ! 413: IF (ICZERO) 46630, 6641, 46630 04100042 ! 414: 46630 IF (IVCOMP + 343) 26630,16630,26630 04110042 ! 415: 16630 IVPASS = IVPASS + 1 04120042 ! 416: WRITE (I02,80001) IVTNUM 04130042 ! 417: GO TO 6641 04140042 ! 418: 26630 IVFAIL = IVFAIL + 1 04150042 ! 419: IVCORR = -343 04160042 ! 420: WRITE (I02,80004) IVTNUM, IVCOMP, IVCORR 04170042 ! 421: 6641 CONTINUE 04180042 ! 422: IVTNUM = 664 04190042 ! 423: C 04200042 ! 424: C **** TEST 664 **** 04210042 ! 425: C 04220042 ! 426: IF (ICZERO) 36640, 6640, 36640 04230042 ! 427: 6640 CONTINUE 04240042 ! 428: IVON01 = 4 04250042 ! 429: IVCOMP = 7 ** IVON01 04260042 ! 430: GO TO 46640 04270042 ! 431: 36640 IVDELE = IVDELE + 1 04280042 ! 432: WRITE (I02,80003) IVTNUM 04290042 ! 433: IF (ICZERO) 46640, 6651, 46640 04300042 ! 434: 46640 IF (IVCOMP - 2401) 26640,16640,26640 04310042 ! 435: 16640 IVPASS = IVPASS + 1 04320042 ! 436: WRITE (I02,80001) IVTNUM 04330042 ! 437: GO TO 6651 04340042 ! 438: 26640 IVFAIL = IVFAIL + 1 04350042 ! 439: IVCORR = 2401 04360042 ! 440: WRITE (I02,80004) IVTNUM, IVCOMP, IVCORR 04370042 ! 441: 6651 CONTINUE 04380042 ! 442: IVTNUM = 665 04390042 ! 443: C 04400042 ! 444: C **** TEST 665 **** 04410042 ! 445: C 04420042 ! 446: IF (ICZERO) 36650, 6650, 36650 04430042 ! 447: 6650 CONTINUE 04440042 ! 448: IVON01 = 4 04450042 ! 449: IVCOMP = (-7) ** IVON01 04460042 ! 450: GO TO 46650 04470042 ! 451: 36650 IVDELE = IVDELE + 1 04480042 ! 452: WRITE (I02,80003) IVTNUM 04490042 ! 453: IF (ICZERO) 46650, 6661, 46650 04500042 ! 454: 46650 IF (IVCOMP - 2401) 26650,16650,26650 04510042 ! 455: 16650 IVPASS = IVPASS + 1 04520042 ! 456: WRITE (I02,80001) IVTNUM 04530042 ! 457: GO TO 6661 04540042 ! 458: 26650 IVFAIL = IVFAIL + 1 04550042 ! 459: IVCORR = 2401 04560042 ! 460: WRITE (I02,80004) IVTNUM, IVCOMP, IVCORR 04570042 ! 461: 6661 CONTINUE 04580042 ! 462: IVTNUM = 666 04590042 ! 463: C 04600042 ! 464: C **** TEST 666 **** 04610042 ! 465: C TEST 666 - SMALL NUMBER BASE; ZERO EXPONENT 04620042 ! 466: C 04630042 ! 467: IF (ICZERO) 36660, 6660, 36660 04640042 ! 468: 6660 CONTINUE 04650042 ! 469: IVON01 = 1 04660042 ! 470: IVON02 = 0 04670042 ! 471: IVCOMP = IVON01 ** IVON02 04680042 ! 472: GO TO 46660 04690042 ! 473: 36660 IVDELE = IVDELE + 1 04700042 ! 474: WRITE (I02,80003) IVTNUM 04710042 ! 475: IF (ICZERO) 46660, 6671, 46660 04720042 ! 476: 46660 IF (IVCOMP - 1) 26660,16660,26660 04730042 ! 477: 16660 IVPASS = IVPASS + 1 04740042 ! 478: WRITE (I02,80001) IVTNUM 04750042 ! 479: GO TO 6671 04760042 ! 480: 26660 IVFAIL = IVFAIL + 1 04770042 ! 481: IVCORR = 1 04780042 ! 482: WRITE (I02,80004) IVTNUM, IVCOMP, IVCORR 04790042 ! 483: 6671 CONTINUE 04800042 ! 484: IVTNUM = 667 04810042 ! 485: C 04820042 ! 486: C **** TEST 667 **** 04830042 ! 487: C TEST 667 - ZERO BASE TO FIRST POWER 04840042 ! 488: C 04850042 ! 489: IF (ICZERO) 36670, 6670, 36670 04860042 ! 490: 6670 CONTINUE 04870042 ! 491: IVON01 = 0 04880042 ! 492: IVON02 = 1 04890042 ! 493: IVCOMP = IVON01 ** IVON02 04900042 ! 494: GO TO 46670 04910042 ! 495: 36670 IVDELE = IVDELE + 1 04920042 ! 496: WRITE (I02,80003) IVTNUM 04930042 ! 497: IF (ICZERO) 46670, 6681, 46670 04940042 ! 498: 46670 IF (IVCOMP) 26670,16670,26670 04950042 ! 499: 16670 IVPASS = IVPASS + 1 04960042 ! 500: WRITE (I02,80001) IVTNUM 04970042 ! 501: GO TO 6681 04980042 ! 502: 26670 IVFAIL = IVFAIL + 1 04990042 ! 503: IVCORR = 0 05000042 ! 504: WRITE (I02,80004) IVTNUM, IVCOMP, IVCORR 05010042 ! 505: 6681 CONTINUE 05020042 ! 506: IVTNUM = 668 05030042 ! 507: C 05040042 ! 508: C **** TEST 668 **** 05050042 ! 509: C TEST 668 - BASE =1; EXPONENT = 1 05060042 ! 510: C 05070042 ! 511: IF (ICZERO) 36680, 6680, 36680 05080042 ! 512: 6680 CONTINUE 05090042 ! 513: IVON01 = 1 05100042 ! 514: IVON02 = 1 05110042 ! 515: IVCOMP = IVON01 ** IVON02 05120042 ! 516: GO TO 46680 05130042 ! 517: 36680 IVDELE = IVDELE + 1 05140042 ! 518: WRITE (I02,80003) IVTNUM 05150042 ! 519: IF (ICZERO) 46680, 6691, 46680 05160042 ! 520: 46680 IF (IVCOMP - 1) 26680,16680,26680 05170042 ! 521: 16680 IVPASS = IVPASS + 1 05180042 ! 522: WRITE (I02,80001) IVTNUM 05190042 ! 523: GO TO 6691 05200042 ! 524: 26680 IVFAIL = IVFAIL + 1 05210042 ! 525: IVCORR = 1 05220042 ! 526: WRITE (I02,80004) IVTNUM, IVCOMP, IVCORR 05230042 ! 527: 6691 CONTINUE 05240042 ! 528: IVTNUM = 669 05250042 ! 529: C 05260042 ! 530: C **** TEST 669 **** 05270042 ! 531: C TEST 669 - LARGE EXPONENT 05280042 ! 532: C 05290042 ! 533: IF (ICZERO) 36690, 6690, 36690 05300042 ! 534: 6690 CONTINUE 05310042 ! 535: IVON01 = 1 05320042 ! 536: IVON02 = 32767 05330042 ! 537: IVCOMP = IVON01 ** IVON02 05340042 ! 538: GO TO 46690 05350042 ! 539: 36690 IVDELE = IVDELE + 1 05360042 ! 540: WRITE (I02,80003) IVTNUM 05370042 ! 541: IF (ICZERO) 46690, 6701, 46690 05380042 ! 542: 46690 IF (IVCOMP - 1) 26690,16690,26690 05390042 ! 543: 16690 IVPASS = IVPASS + 1 05400042 ! 544: WRITE (I02,80001) IVTNUM 05410042 ! 545: GO TO 6701 05420042 ! 546: 26690 IVFAIL = IVFAIL + 1 05430042 ! 547: IVCORR = 1 05440042 ! 548: WRITE (I02,80004) IVTNUM, IVCOMP, IVCORR 05450042 ! 549: 6701 CONTINUE 05460042 ! 550: IVTNUM = 670 05470042 ! 551: C 05480042 ! 552: C **** TEST 670 **** 05490042 ! 553: C TEST 670 - LARGE NUMBER BASE; EXPONENT = 1 05500042 ! 554: C 05510042 ! 555: IF (ICZERO) 36700, 6700, 36700 05520042 ! 556: 6700 CONTINUE 05530042 ! 557: IVON01 = 32767 05540042 ! 558: IVON02 = 1 05550042 ! 559: IVCOMP = IVON01 ** IVON02 05560042 ! 560: GO TO 46700 05570042 ! 561: 36700 IVDELE = IVDELE + 1 05580042 ! 562: WRITE (I02,80003) IVTNUM 05590042 ! 563: IF (ICZERO) 46700, 6711, 46700 05600042 ! 564: 46700 IF (IVCOMP - 32767) 26700,16700,26700 05610042 ! 565: 16700 IVPASS = IVPASS + 1 05620042 ! 566: WRITE (I02,80001) IVTNUM 05630042 ! 567: GO TO 6711 05640042 ! 568: 26700 IVFAIL = IVFAIL + 1 05650042 ! 569: IVCORR = 32767 05660042 ! 570: WRITE (I02,80004) IVTNUM, IVCOMP, IVCORR 05670042 ! 571: 6711 CONTINUE 05680042 ! 572: IVTNUM = 671 05690042 ! 573: C 05700042 ! 574: C **** TEST 671 **** 05710042 ! 575: C TEST 671 - ZERO BASE; LARGE NUMBER EXPONENT 05720042 ! 576: C 05730042 ! 577: IF (ICZERO) 36710, 6710, 36710 05740042 ! 578: 6710 CONTINUE 05750042 ! 579: IVON01 = 0 05760042 ! 580: IVON02 = 32767 05770042 ! 581: IVCOMP = IVON01 ** IVON02 05780042 ! 582: GO TO 46710 05790042 ! 583: 36710 IVDELE = IVDELE + 1 05800042 ! 584: WRITE (I02,80003) IVTNUM 05810042 ! 585: IF (ICZERO) 46710, 6721, 46710 05820042 ! 586: 46710 IF (IVCOMP) 26710,16710,26710 05830042 ! 587: 16710 IVPASS = IVPASS + 1 05840042 ! 588: WRITE (I02,80001) IVTNUM 05850042 ! 589: GO TO 6721 05860042 ! 590: 26710 IVFAIL = IVFAIL + 1 05870042 ! 591: IVCORR = 0 05880042 ! 592: WRITE (I02,80004) IVTNUM, IVCOMP, IVCORR 05890042 ! 593: 6721 CONTINUE 05900042 ! 594: IVTNUM = 672 05910042 ! 595: C 05920042 ! 596: C **** TEST 672 **** 05930042 ! 597: C TEST 672 -LARGE NUMBER BASE; ZERO EXPONENT 05940042 ! 598: C 05950042 ! 599: IF (ICZERO) 36720, 6720, 36720 05960042 ! 600: 6720 CONTINUE 05970042 ! 601: IVON01 = 32767 05980042 ! 602: IVON02 = 0 05990042 ! 603: IVCOMP = IVON01 ** IVON02 06000042 ! 604: GO TO 46720 06010042 ! 605: 36720 IVDELE = IVDELE + 1 06020042 ! 606: WRITE (I02,80003) IVTNUM 06030042 ! 607: IF (ICZERO) 46720, 6731, 46720 06040042 ! 608: 46720 IF (IVCOMP -1) 26720,16720,26720 06050042 ! 609: 16720 IVPASS = IVPASS + 1 06060042 ! 610: WRITE (I02,80001) IVTNUM 06070042 ! 611: GO TO 6731 06080042 ! 612: 26720 IVFAIL = IVFAIL + 1 06090042 ! 613: IVCORR = 1 06100042 ! 614: WRITE (I02,80004) IVTNUM, IVCOMP, IVCORR 06110042 ! 615: 6731 CONTINUE 06120042 ! 616: IVTNUM = 673 06130042 ! 617: C 06140042 ! 618: C **** TEST 673 **** 06150042 ! 619: C TEST 673 -EXPONENT IS POWER OF TWO 06160042 ! 620: C 06170042 ! 621: IF (ICZERO) 36730, 6730, 36730 06180042 ! 622: 6730 CONTINUE 06190042 ! 623: IVON01 = 181 06200042 ! 624: IVON02 = 2 06210042 ! 625: IVCOMP = IVON01 ** IVON02 06220042 ! 626: GO TO 46730 06230042 ! 627: 36730 IVDELE = IVDELE + 1 06240042 ! 628: WRITE (I02,80003) IVTNUM 06250042 ! 629: IF (ICZERO) 46730, 6741, 46730 06260042 ! 630: 46730 IF (IVCOMP - 32761) 26730,16730,26730 06270042 ! 631: 16730 IVPASS = IVPASS + 1 06280042 ! 632: WRITE (I02,80001) IVTNUM 06290042 ! 633: GO TO 6741 06300042 ! 634: 26730 IVFAIL = IVFAIL + 1 06310042 ! 635: IVCORR = 32761 06320042 ! 636: WRITE (I02,80004) IVTNUM, IVCOMP, IVCORR 06330042 ! 637: 6741 CONTINUE 06340042 ! 638: IVTNUM = 674 06350042 ! 639: C 06360042 ! 640: C **** TEST 674 **** 06370042 ! 641: C TEST 674 - BASE AND EXPONENT ARE BOTH POWERS OF TWO 06380042 ! 642: C 06390042 ! 643: IF (ICZERO) 36740, 6740, 36740 06400042 ! 644: 6740 CONTINUE 06410042 ! 645: IVON01 = 2 06420042 ! 646: IVON02 = 8 06430042 ! 647: IVCOMP = IVON01 ** IVON02 06440042 ! 648: GO TO 46740 06450042 ! 649: 36740 IVDELE = IVDELE + 1 06460042 ! 650: WRITE (I02,80003) IVTNUM 06470042 ! 651: IF (ICZERO) 46740, 6751, 46740 06480042 ! 652: 46740 IF (IVCOMP - 256) 26740,16740,26740 06490042 ! 653: 16740 IVPASS = IVPASS + 1 06500042 ! 654: WRITE (I02,80001) IVTNUM 06510042 ! 655: GO TO 6751 06520042 ! 656: 26740 IVFAIL = IVFAIL + 1 06530042 ! 657: IVCORR = 256 06540042 ! 658: WRITE (I02,80004) IVTNUM, IVCOMP, IVCORR 06550042 ! 659: 6751 CONTINUE 06560042 ! 660: C 06570042 ! 661: C TESTS 675 AND 676 TEST TO ENSURE EXPONENTIATION OPERATOR IS 06580042 ! 662: C NOT COMMUTATIVE 06590042 ! 663: C 06600042 ! 664: IVTNUM = 675 06610042 ! 665: C 06620042 ! 666: C **** TEST 675 **** 06630042 ! 667: C 06640042 ! 668: IF (ICZERO) 36750, 6750, 36750 06650042 ! 669: 6750 CONTINUE 06660042 ! 670: IVON01 = 3 06670042 ! 671: IVON02 = 9 06680042 ! 672: IVCOMP = IVON01 ** IVON02 06690042 ! 673: GO TO 46750 06700042 ! 674: 36750 IVDELE = IVDELE + 1 06710042 ! 675: WRITE (I02,80003) IVTNUM 06720042 ! 676: IF (ICZERO) 46750, 6761, 46750 06730042 ! 677: 46750 IF (IVCOMP - 19683) 26750,16750,26750 06740042 ! 678: 16750 IVPASS = IVPASS + 1 06750042 ! 679: WRITE (I02,80001) IVTNUM 06760042 ! 680: GO TO 6761 06770042 ! 681: 26750 IVFAIL = IVFAIL + 1 06780042 ! 682: IVCORR = 19683 06790042 ! 683: WRITE (I02,80004) IVTNUM, IVCOMP, IVCORR 06800042 ! 684: 6761 CONTINUE 06810042 ! 685: IVTNUM = 676 06820042 ! 686: C 06830042 ! 687: C **** TEST 676 **** 06840042 ! 688: C 06850042 ! 689: IF (ICZERO) 36760, 6760, 36760 06860042 ! 690: 6760 CONTINUE 06870042 ! 691: IVON01 = 9 06880042 ! 692: IVON02 = 3 06890042 ! 693: IVCOMP = IVON01 ** IVON02 06900042 ! 694: GO TO 46760 06910042 ! 695: 36760 IVDELE = IVDELE + 1 06920042 ! 696: WRITE (I02,80003) IVTNUM 06930042 ! 697: IF (ICZERO) 46760, 6771, 46760 06940042 ! 698: 46760 IF (IVCOMP - 729) 26760,16760,26760 06950042 ! 699: 16760 IVPASS = IVPASS + 1 06960042 ! 700: WRITE (I02,80001) IVTNUM 06970042 ! 701: GO TO 6771 06980042 ! 702: 26760 IVFAIL = IVFAIL + 1 06990042 ! 703: IVCORR = 729 07000042 ! 704: WRITE (I02,80004) IVTNUM, IVCOMP, IVCORR 07010042 ! 705: 6771 CONTINUE 07020042 ! 706: C 07030042 ! 707: C TESTS 677 THROUGH 682 TEST POSITIVE AND NEGATIVE BASES TO POSITIVE07040042 ! 708: C ODD AND EVEN NUMBER POWERS CHECKING THE SIGN07050042 ! 709: C OF THE RESULTS 07060042 ! 710: C 07070042 ! 711: IVTNUM = 677 07080042 ! 712: C 07090042 ! 713: C **** TEST 677 **** 07100042 ! 714: C 07110042 ! 715: IF (ICZERO) 36770, 6770, 36770 07120042 ! 716: 6770 CONTINUE 07130042 ! 717: IVON01 = 1 07140042 ! 718: IVON02 = 2 07150042 ! 719: IVCOMP = IVON01 ** IVON02 07160042 ! 720: GO TO 46770 07170042 ! 721: 36770 IVDELE = IVDELE + 1 07180042 ! 722: WRITE (I02,80003) IVTNUM 07190042 ! 723: IF (ICZERO) 46770, 6781, 46770 07200042 ! 724: 46770 IF (IVCOMP - 1) 26770,16770,26770 07210042 ! 725: 16770 IVPASS = IVPASS + 1 07220042 ! 726: WRITE (I02,80001) IVTNUM 07230042 ! 727: GO TO 6781 07240042 ! 728: 26770 IVFAIL = IVFAIL + 1 07250042 ! 729: IVCORR = 1 07260042 ! 730: WRITE (I02,80004) IVTNUM, IVCOMP, IVCORR 07270042 ! 731: 6781 CONTINUE 07280042 ! 732: IVTNUM = 678 07290042 ! 733: C 07300042 ! 734: C **** TEST 678 **** 07310042 ! 735: C 07320042 ! 736: IF (ICZERO) 36780, 6780, 36780 07330042 ! 737: 6780 CONTINUE 07340042 ! 738: IVON01 = -1 07350042 ! 739: IVON02 = 2 07360042 ! 740: IVCOMP = IVON01 ** IVON02 07370042 ! 741: GO TO 46780 07380042 ! 742: 36780 IVDELE = IVDELE + 1 07390042 ! 743: WRITE (I02,80003) IVTNUM 07400042 ! 744: IF (ICZERO) 46780, 6791, 46780 07410042 ! 745: 46780 IF (IVCOMP - 1) 26780,16780,26780 07420042 ! 746: 16780 IVPASS = IVPASS + 1 07430042 ! 747: WRITE (I02,80001) IVTNUM 07440042 ! 748: GO TO 6791 07450042 ! 749: 26780 IVFAIL = IVFAIL + 1 07460042 ! 750: IVCORR = 1 07470042 ! 751: WRITE (I02,80004) IVTNUM, IVCOMP, IVCORR 07480042 ! 752: 6791 CONTINUE 07490042 ! 753: IVTNUM = 679 07500042 ! 754: C 07510042 ! 755: C **** TEST 679 **** 07520042 ! 756: C 07530042 ! 757: IF (ICZERO) 36790, 6790, 36790 07540042 ! 758: 6790 CONTINUE 07550042 ! 759: IVON01 = 7 07560042 ! 760: IVON02 = 3 07570042 ! 761: IVCOMP = IVON01 ** IVON02 07580042 ! 762: GO TO 46790 07590042 ! 763: 36790 IVDELE = IVDELE + 1 07600042 ! 764: WRITE (I02,80003) IVTNUM 07610042 ! 765: IF (ICZERO) 46790, 6801, 46790 07620042 ! 766: 46790 IF (IVCOMP - 343) 26790,16790,26790 07630042 ! 767: 16790 IVPASS = IVPASS + 1 07640042 ! 768: WRITE (I02,80001) IVTNUM 07650042 ! 769: GO TO 6801 07660042 ! 770: 26790 IVFAIL = IVFAIL + 1 07670042 ! 771: IVCORR = 343 07680042 ! 772: WRITE (I02,80004) IVTNUM, IVCOMP, IVCORR 07690042 ! 773: 6801 CONTINUE 07700042 ! 774: IVTNUM = 680 07710042 ! 775: C 07720042 ! 776: C **** TEST 680 **** 07730042 ! 777: C 07740042 ! 778: IF (ICZERO) 36800, 6800, 36800 07750042 ! 779: 6800 CONTINUE 07760042 ! 780: IVON01 = -7 07770042 ! 781: IVON02 = 3 07780042 ! 782: IVCOMP = IVON01 ** IVON02 07790042 ! 783: GO TO 46800 07800042 ! 784: 36800 IVDELE = IVDELE + 1 07810042 ! 785: WRITE (I02,80003) IVTNUM 07820042 ! 786: IF (ICZERO) 46800, 6811, 46800 07830042 ! 787: 46800 IF (IVCOMP + 343) 26800,16800,26800 07840042 ! 788: 16800 IVPASS = IVPASS + 1 07850042 ! 789: WRITE (I02,80001) IVTNUM 07860042 ! 790: GO TO 6811 07870042 ! 791: 26800 IVFAIL = IVFAIL + 1 07880042 ! 792: IVCORR = -343 07890042 ! 793: WRITE (I02,80004) IVTNUM, IVCOMP, IVCORR 07900042 ! 794: 6811 CONTINUE 07910042 ! 795: IVTNUM = 681 07920042 ! 796: C 07930042 ! 797: C **** TEST 681 **** 07940042 ! 798: C 07950042 ! 799: IF (ICZERO) 36810, 6810, 36810 07960042 ! 800: 6810 CONTINUE 07970042 ! 801: IVON01 = 7 07980042 ! 802: IVON02 = 4 07990042 ! 803: IVCOMP = IVON01 ** IVON02 08000042 ! 804: GO TO 46810 08010042 ! 805: 36810 IVDELE = IVDELE + 1 08020042 ! 806: WRITE (I02,80003) IVTNUM 08030042 ! 807: IF (ICZERO) 46810, 6821, 46810 08040042 ! 808: 46810 IF (IVCOMP - 2401) 26810,16810,26810 08050042 ! 809: 16810 IVPASS = IVPASS + 1 08060042 ! 810: WRITE (I02,80001) IVTNUM 08070042 ! 811: GO TO 6821 08080042 ! 812: 26810 IVFAIL = IVFAIL + 1 08090042 ! 813: IVCORR = 2401 08100042 ! 814: WRITE (I02,80004) IVTNUM, IVCOMP, IVCORR 08110042 ! 815: 6821 CONTINUE 08120042 ! 816: IVTNUM = 682 08130042 ! 817: C 08140042 ! 818: C **** TEST 682 **** 08150042 ! 819: C 08160042 ! 820: IF (ICZERO) 36820, 6820, 36820 08170042 ! 821: 6820 CONTINUE 08180042 ! 822: IVON01 = -7 08190042 ! 823: IVON02 = 4 08200042 ! 824: IVCOMP = IVON01 ** IVON02 08210042 ! 825: GO TO 46820 08220042 ! 826: 36820 IVDELE = IVDELE + 1 08230042 ! 827: WRITE (I02,80003) IVTNUM 08240042 ! 828: IF (ICZERO) 46820, 6831, 46820 08250042 ! 829: 46820 IF (IVCOMP - 2401) 26820,16820,26820 08260042 ! 830: 16820 IVPASS = IVPASS + 1 08270042 ! 831: WRITE (I02,80001) IVTNUM 08280042 ! 832: GO TO 6831 08290042 ! 833: 26820 IVFAIL = IVFAIL + 1 08300042 ! 834: IVCORR = 2401 08310042 ! 835: WRITE (I02,80004) IVTNUM, IVCOMP, IVCORR 08320042 ! 836: 6831 CONTINUE 08330042 ! 837: C 08340042 ! 838: C WRITE PAGE FOOTINGS AND RUN SUMMARIES 08350042 ! 839: 99999 CONTINUE 08360042 ! 840: WRITE (I02,90002) 08370042 ! 841: WRITE (I02,90006) 08380042 ! 842: WRITE (I02,90002) 08390042 ! 843: WRITE (I02,90002) 08400042 ! 844: WRITE (I02,90007) 08410042 ! 845: WRITE (I02,90002) 08420042 ! 846: WRITE (I02,90008) IVFAIL 08430042 ! 847: WRITE (I02,90009) IVPASS 08440042 ! 848: WRITE (I02,90010) IVDELE 08450042 ! 849: C 08460042 ! 850: C 08470042 ! 851: C TERMINATE ROUTINE EXECUTION 08480042 ! 852: STOP 08490042 ! 853: C 08500042 ! 854: C FORMAT STATEMENTS FOR PAGE HEADERS 08510042 ! 855: 90000 FORMAT (1H1) 08520042 ! 856: 90002 FORMAT (1H ) 08530042 ! 857: 90001 FORMAT (1H ,10X,34HFORTRAN COMPILER VALIDATION SYSTEM) 08540042 ! 858: 90003 FORMAT (1H ,21X,11HVERSION 1.0) 08550042 ! 859: 90004 FORMAT (1H ,10X,38HFOR OFFICIAL USE ONLY - COPYRIGHT 1978) 08560042 ! 860: 90005 FORMAT (1H ,5X,4HTEST,5X,9HPASS/FAIL, 5X,8HCOMPUTED,8X,7HCORRECT) 08570042 ! 861: 90006 FORMAT (1H ,5X,46H----------------------------------------------) 08580042 ! 862: 90011 FORMAT (1H ,18X,17HSUBSET LEVEL TEST) 08590042 ! 863: C 08600042 ! 864: C FORMAT STATEMENTS FOR RUN SUMMARIES 08610042 ! 865: 90008 FORMAT (1H ,15X,I5,19H ERRORS ENCOUNTERED) 08620042 ! 866: 90009 FORMAT (1H ,15X,I5,13H TESTS PASSED) 08630042 ! 867: 90010 FORMAT (1H ,15X,I5,14H TESTS DELETED) 08640042 ! 868: C 08650042 ! 869: C FORMAT STATEMENTS FOR TEST RESULTS 08660042 ! 870: 80001 FORMAT (1H ,4X,I5,7X,4HPASS) 08670042 ! 871: 80002 FORMAT (1H ,4X,I5,7X,4HFAIL) 08680042 ! 872: 80003 FORMAT (1H ,4X,I5,7X,7HDELETED) 08690042 ! 873: 80004 FORMAT (1H ,4X,I5,7X,4HFAIL,10X,I6,9X,I6) 08700042 ! 874: 80005 FORMAT (1H ,4X,I5,7X,4HFAIL,4X,E12.5,3X,E12.5) 08710042 ! 875: C 08720042 ! 876: 90007 FORMAT (1H ,20X,20HEND OF PROGRAM FM042) 08730042 ! 877: END 08740042
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.