![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to FM039.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 FM039.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 00010039 ! 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 00020039 ! 6: C FM039 00030039 ! 7: C 00040039 ! 8: C THIS ROUTINE TESTS ARITHMETIC ASSIGNMENT STATEMENTS OF THE 00050039 ! 9: C FORM INTEGER VARIABLE = ARITHMETIC EXPRESSION 00060039 ! 10: C WHERE THE ARITHMETIC EXPRESSION IS FORMED WITH THE ARITHMETIC 00070039 ! 11: C OPERATOR /, INTEGER CONSTANTS AND AN INTEGER VARIABLE. BOTH 00080039 ! 12: C POSITIVE AND NEGATIVE VALUES ARE USED FOR THE INTEGER CONSTANTS 00090039 ! 13: C AND THE INTEGER VARIABLE. 00100039 ! 14: C 00110039 ! 15: C THERE ARE TESTS WHICH REQUIRE NO TRUNCATION OF THE RESULT 00120039 ! 16: C AND TESTS WHERE THE RESULT MUST BE TRUNCATED BEFORE BEING STORED 00130039 ! 17: C IN THE RESULTANT INTEGER VARIABLE. SOME OF THE TESTS USE PARENS 00140039 ! 18: C TO GROUP ELEMENTS IN THE ARITHMETIC EXPRESSION. 00150039 ! 19: C 00160039 ! 20: C THERE ARE TESTS WHERE THE ARITHMETIC EXPRESSION CONTAINS 00170039 ! 21: C (1) INTEGER VARIABLE/INTEGER CONSTANT/INTEGER CONSTANT 00180039 ! 22: C INTEGER CONSTANT/INTEGER VARIABLE/INTEGER CONSTANT 00190039 ! 23: C INTEGER CONSTANT/INTEGER CONSTANT/INTEGER VARIABLE 00200039 ! 24: C (2) SAME AS (1) BUT WITH PARENTHESES TO GROUP ELEMENTS 00210039 ! 25: C IN THE ARITHMETIC EXPRESSION. 00220039 ! 26: C 00230039 ! 27: C REFERENCES 00240039 ! 28: C AMERICAN NATIONAL STANDARD PROGRAMMING LANGUAGE FORTRAN, 00250039 ! 29: C X3.9-1978 00260039 ! 30: C 00270039 ! 31: C SECTION 4.3, INTEGER TYPE 00280039 ! 32: C SECTION 4.3.1, INTEGER CONSTANT 00290039 ! 33: C SECTION 6.1, ARITHMETIC EXPRESSIONS 00300039 ! 34: C SECTION 6.6, EVALUATION OF EXPRESSIONS 00310039 ! 35: C SECTION 10.1, ARITHMETIC ASSIGNMENT STATEMENT 00320039 ! 36: C 00330039 ! 37: C ********************************************************** 00340039 ! 38: C 00350039 ! 39: C A COMPILER VALIDATION SYSTEM FOR THE FORTRAN LANGUAGE 00360039 ! 40: C BASED ON SPECIFICATIONS AS DEFINED IN AMERICAN NATIONAL STANDARD 00370039 ! 41: C PROGRAMMING LANGUAGE FORTRAN X3.9-1978, HAS BEEN DEVELOPED BY THE 00380039 ! 42: C FEDERAL COBOL COMPILER TESTING SERVICE. THE FORTRAN COMPILER 00390039 ! 43: C VALIDATION SYSTEM (FCVS) CONSISTS OF AUDIT ROUTINES, THEIR RELATED00400039 ! 44: C DATA, AND AN EXECUTIVE SYSTEM. EACH AUDIT ROUTINE IS A FORTRAN 00410039 ! 45: C PROGRAM, SUBPROGRAM OR FUNCTION WHICH INCLUDES TESTS OF SPECIFIC 00420039 ! 46: C LANGUAGE ELEMENTS AND SUPPORTING PROCEDURES INDICATING THE RESULT 00430039 ! 47: C OF EXECUTING THESE TESTS. 00440039 ! 48: C 00450039 ! 49: C THIS PARTICULAR PROGRAM/SUBPROGRAM/FUNCTION CONTAINS FEATURES 00460039 ! 50: C FOUND ONLY IN THE SUBSET AS DEFINED IN X3.9-1978. 00470039 ! 51: C 00480039 ! 52: C SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO - 00490039 ! 53: C 00500039 ! 54: C DEPARTMENT OF THE NAVY 00510039 ! 55: C FEDERAL COBOL COMPILER TESTING SERVICE 00520039 ! 56: C WASHINGTON, D.C. 20376 00530039 ! 57: C 00540039 ! 58: C ********************************************************** 00550039 ! 59: C 00560039 ! 60: C 00570039 ! 61: C 00580039 ! 62: C INITIALIZATION SECTION 00590039 ! 63: C 00600039 ! 64: C INITIALIZE CONSTANTS 00610039 ! 65: C ************** 00620039 ! 66: C I01 CONTAINS THE LOGICAL UNIT NUMBER FOR THE CARD READER. 00630039 ! 67: I01 = 5 00640039 ! 68: C I02 CONTAINS THE LOGICAL UNIT NUMBER FOR THE PRINTER. 00650039 ! 69: I02 = 6 00660039 ! 70: C SYSTEM ENVIRONMENT SECTION 00670039 ! 71: C 00680039 ! 72: I01 = 5 00690039 ! 73: C THE CX010 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I01 = 5 00700039 ! 74: C (UNIT NUMBER FOR CARD READER). 00710039 ! 75: CX011 THIS CARD IS REPLACED BY CONTENTS OF FEXEC X-011 CONTROL CARD. 00720039 ! 76: C THE CX011 CARD IS FOR SYSTEMS WHICH REQUIRE ADDITIONAL 00730039 ! 77: C FORTRAN STATEMENTS FOR FILES ASSOCIATED WITH CX010 ABOVE. 00740039 ! 78: C 00750039 ! 79: I02 = 6 00760039 ! 80: C THE CX020 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I02 = 6 00770039 ! 81: C (UNIT NUMBER FOR PRINTER). 00780039 ! 82: CX021 THIS CARD IS REPLACED BY CONTENTS OF FEXEC X-021 CONTROL CARD. 00790039 ! 83: C THE CX021 CARD IS FOR SYSTEMS WHICH REQUIRE ADDITIONAL 00800039 ! 84: C FORTRAN STATEMENTS FOR FILES ASSOCIATED WITH CX020 ABOVE. 00810039 ! 85: C 00820039 ! 86: IVPASS=0 00830039 ! 87: IVFAIL=0 00840039 ! 88: IVDELE=0 00850039 ! 89: ICZERO=0 00860039 ! 90: C 00870039 ! 91: C WRITE PAGE HEADERS 00880039 ! 92: WRITE (I02,90000) 00890039 ! 93: WRITE (I02,90001) 00900039 ! 94: WRITE (I02,90002) 00910039 ! 95: WRITE (I02, 90002) 00920039 ! 96: WRITE (I02,90003) 00930039 ! 97: WRITE (I02,90002) 00940039 ! 98: WRITE (I02,90004) 00950039 ! 99: WRITE (I02,90002) 00960039 ! 100: WRITE (I02,90011) 00970039 ! 101: WRITE (I02,90002) 00980039 ! 102: WRITE (I02,90002) 00990039 ! 103: WRITE (I02,90005) 01000039 ! 104: WRITE (I02,90006) 01010039 ! 105: WRITE (I02,90002) 01020039 ! 106: C 01030039 ! 107: C TEST SECTION 01040039 ! 108: C 01050039 ! 109: C ARITHMETIC ASSIGNMENT STATEMENT 01060039 ! 110: C 01070039 ! 111: C TEST 552 THROUGH TEST 557 CONTAIN ARITHMETIC ASSIGNMENT STATEMENTS01080039 ! 112: C OF THE FORM IV = IV/IC/IC. 01090039 ! 113: C 01100039 ! 114: 5521 CONTINUE 01110039 ! 115: IVTNUM = 552 01120039 ! 116: C 01130039 ! 117: C **** TEST 552 **** 01140039 ! 118: C 01150039 ! 119: IF (ICZERO) 35520, 5520, 35520 01160039 ! 120: 5520 CONTINUE 01170039 ! 121: IVON01 = 24 01180039 ! 122: IVCOMP = IVON01/3/4 01190039 ! 123: GO TO 45520 01200039 ! 124: 35520 IVDELE = IVDELE + 1 01210039 ! 125: WRITE (I02,80003) IVTNUM 01220039 ! 126: IF (ICZERO) 45520, 5531, 45520 01230039 ! 127: 45520 IF (IVCOMP - 2) 25520,15520,25520 01240039 ! 128: 15520 IVPASS = IVPASS + 1 01250039 ! 129: WRITE (I02,80001) IVTNUM 01260039 ! 130: GO TO 5531 01270039 ! 131: 25520 IVFAIL = IVFAIL + 1 01280039 ! 132: IVCORR = 2 01290039 ! 133: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 01300039 ! 134: 5531 CONTINUE 01310039 ! 135: IVTNUM = 553 01320039 ! 136: C 01330039 ! 137: C **** TEST 553 **** 01340039 ! 138: C 01350039 ! 139: IF (ICZERO) 35530, 5530, 35530 01360039 ! 140: 5530 CONTINUE 01370039 ! 141: IVON01 = 7151 01380039 ! 142: IVCOMP = IVON01/3/10 01390039 ! 143: GO TO 45530 01400039 ! 144: 35530 IVDELE = IVDELE + 1 01410039 ! 145: WRITE (I02,80003) IVTNUM 01420039 ! 146: IF (ICZERO) 45530, 5541, 45530 01430039 ! 147: 45530 IF (IVCOMP - 238) 25530,15530,25530 01440039 ! 148: 15530 IVPASS = IVPASS + 1 01450039 ! 149: WRITE (I02,80001) IVTNUM 01460039 ! 150: GO TO 5541 01470039 ! 151: 25530 IVFAIL = IVFAIL + 1 01480039 ! 152: IVCORR = 238 01490039 ! 153: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 01500039 ! 154: 5541 CONTINUE 01510039 ! 155: IVTNUM = 554 01520039 ! 156: C 01530039 ! 157: C **** TEST 554 **** 01540039 ! 158: C 01550039 ! 159: IF (ICZERO) 35540, 5540, 35540 01560039 ! 160: 5540 CONTINUE 01570039 ! 161: IVON01 = -330 01580039 ! 162: IVCOMP = IVON01/3/2 01590039 ! 163: GO TO 45540 01600039 ! 164: 35540 IVDELE = IVDELE + 1 01610039 ! 165: WRITE (I02,80003) IVTNUM 01620039 ! 166: IF (ICZERO) 45540, 5551, 45540 01630039 ! 167: 45540 IF (IVCOMP + 55) 25540,15540,25540 01640039 ! 168: 15540 IVPASS = IVPASS + 1 01650039 ! 169: WRITE (I02,80001) IVTNUM 01660039 ! 170: GO TO 5551 01670039 ! 171: 25540 IVFAIL = IVFAIL + 1 01680039 ! 172: IVCORR = -55 01690039 ! 173: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 01700039 ! 174: 5551 CONTINUE 01710039 ! 175: IVTNUM = 555 01720039 ! 176: C 01730039 ! 177: C **** TEST 555 **** 01740039 ! 178: C 01750039 ! 179: IF (ICZERO) 35550, 5550, 35550 01760039 ! 180: 5550 CONTINUE 01770039 ! 181: IVON01 = 15249 01780039 ! 182: IVCOMP = IVON01/(-13)/51 01790039 ! 183: GO TO 45550 01800039 ! 184: 35550 IVDELE = IVDELE + 1 01810039 ! 185: WRITE (I02,80003) IVTNUM 01820039 ! 186: IF (ICZERO) 45550, 5561, 45550 01830039 ! 187: 45550 IF (IVCOMP + 23) 25550,15550,25550 01840039 ! 188: 15550 IVPASS = IVPASS + 1 01850039 ! 189: WRITE (I02,80001) IVTNUM 01860039 ! 190: GO TO 5561 01870039 ! 191: 25550 IVFAIL = IVFAIL + 1 01880039 ! 192: IVCORR = -23 01890039 ! 193: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 01900039 ! 194: 5561 CONTINUE 01910039 ! 195: IVTNUM = 556 01920039 ! 196: C 01930039 ! 197: C **** TEST 556 **** 01940039 ! 198: C 01950039 ! 199: IF (ICZERO) 35560, 5560, 35560 01960039 ! 200: 5560 CONTINUE 01970039 ! 201: IVON01 = -27342 01980039 ! 202: IVCOMP = IVON01/(-4)/(-3) 01990039 ! 203: GO TO 45560 02000039 ! 204: 35560 IVDELE = IVDELE + 1 02010039 ! 205: WRITE (I02,80003) IVTNUM 02020039 ! 206: IF (ICZERO) 45560, 5571, 45560 02030039 ! 207: 45560 IF (IVCOMP + 2278) 25560,15560,25560 02040039 ! 208: 15560 IVPASS = IVPASS + 1 02050039 ! 209: WRITE (I02,80001) IVTNUM 02060039 ! 210: GO TO 5571 02070039 ! 211: 25560 IVFAIL = IVFAIL + 1 02080039 ! 212: IVCORR = -2278 02090039 ! 213: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 02100039 ! 214: 5571 CONTINUE 02110039 ! 215: IVTNUM = 557 02120039 ! 216: C 02130039 ! 217: C **** TEST 557 **** 02140039 ! 218: C 02150039 ! 219: IF (ICZERO) 35570, 5570, 35570 02160039 ! 220: 5570 CONTINUE 02170039 ! 221: IVON01 = -27342 02180039 ! 222: IVCOMP = -IVON01/4/(-3) 02190039 ! 223: GO TO 45570 02200039 ! 224: 35570 IVDELE = IVDELE + 1 02210039 ! 225: WRITE (I02,80003) IVTNUM 02220039 ! 226: IF (ICZERO) 45570, 5581, 45570 02230039 ! 227: 45570 IF (IVCOMP + 2278) 25570,15570,25570 02240039 ! 228: 15570 IVPASS = IVPASS + 1 02250039 ! 229: WRITE (I02,80001) IVTNUM 02260039 ! 230: GO TO 5581 02270039 ! 231: 25570 IVFAIL = IVFAIL + 1 02280039 ! 232: IVCORR = -2278 02290039 ! 233: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 02300039 ! 234: C 02310039 ! 235: C TEST 558 THROUGH TEST 563 CONTAIN ARITHMETIC ASSIGNMENT STATEMENTS02320039 ! 236: C OF THE FORM IV=IC/IV/IC. 02330039 ! 237: C 02340039 ! 238: 5581 CONTINUE 02350039 ! 239: IVTNUM = 558 02360039 ! 240: C 02370039 ! 241: C **** TEST 558 **** 02380039 ! 242: C 02390039 ! 243: IF (ICZERO) 35580, 5580, 35580 02400039 ! 244: 5580 CONTINUE 02410039 ! 245: IVON02 = 3 02420039 ! 246: IVCOMP = 24/IVON02/4 02430039 ! 247: GO TO 45580 02440039 ! 248: 35580 IVDELE = IVDELE + 1 02450039 ! 249: WRITE (I02,80003) IVTNUM 02460039 ! 250: IF (ICZERO) 45580, 5591, 45580 02470039 ! 251: 45580 IF (IVCOMP - 2) 25580,15580,25580 02480039 ! 252: 15580 IVPASS = IVPASS + 1 02490039 ! 253: WRITE (I02,80001) IVTNUM 02500039 ! 254: GO TO 5591 02510039 ! 255: 25580 IVFAIL = IVFAIL + 1 02520039 ! 256: IVCORR = 2 02530039 ! 257: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 02540039 ! 258: 5591 CONTINUE 02550039 ! 259: IVTNUM = 559 02560039 ! 260: C 02570039 ! 261: C **** TEST 559 **** 02580039 ! 262: C 02590039 ! 263: IF (ICZERO) 35590, 5590, 35590 02600039 ! 264: 5590 CONTINUE 02610039 ! 265: IVON02 = 3 02620039 ! 266: IVCOMP = 7151/IVON02/10 02630039 ! 267: GO TO 45590 02640039 ! 268: 35590 IVDELE = IVDELE + 1 02650039 ! 269: WRITE (I02,80003) IVTNUM 02660039 ! 270: IF (ICZERO) 45590, 5601, 45590 02670039 ! 271: 45590 IF (IVCOMP - 238) 25590,15590,25590 02680039 ! 272: 15590 IVPASS = IVPASS + 1 02690039 ! 273: WRITE (I02,80001) IVTNUM 02700039 ! 274: GO TO 5601 02710039 ! 275: 25590 IVFAIL = IVFAIL + 1 02720039 ! 276: IVCORR = 238 02730039 ! 277: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 02740039 ! 278: 5601 CONTINUE 02750039 ! 279: IVTNUM = 560 02760039 ! 280: C 02770039 ! 281: C **** TEST 560 **** 02780039 ! 282: C 02790039 ! 283: IF (ICZERO) 35600, 5600, 35600 02800039 ! 284: 5600 CONTINUE 02810039 ! 285: IVON02 = -3 02820039 ! 286: IVCOMP = 330/IVON02/2 02830039 ! 287: GO TO 45600 02840039 ! 288: 35600 IVDELE = IVDELE + 1 02850039 ! 289: WRITE (I02,80003) IVTNUM 02860039 ! 290: IF (ICZERO) 45600, 5611, 45600 02870039 ! 291: 45600 IF (IVCOMP +55) 25600,15600,25600 02880039 ! 292: 15600 IVPASS = IVPASS + 1 02890039 ! 293: WRITE (I02,80001) IVTNUM 02900039 ! 294: GO TO 5611 02910039 ! 295: 25600 IVFAIL = IVFAIL + 1 02920039 ! 296: IVCORR = -55 02930039 ! 297: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 02940039 ! 298: 5611 CONTINUE 02950039 ! 299: IVTNUM = 561 02960039 ! 300: C 02970039 ! 301: C **** TEST 561 **** 02980039 ! 302: C 02990039 ! 303: IF (ICZERO) 35610, 5610, 35610 03000039 ! 304: 5610 CONTINUE 03010039 ! 305: IVON02 = +13 03020039 ! 306: IVCOMP = 15249/IVON02/(-51) 03030039 ! 307: GO TO 45610 03040039 ! 308: 35610 IVDELE = IVDELE + 1 03050039 ! 309: WRITE (I02,80003) IVTNUM 03060039 ! 310: IF (ICZERO) 45610, 5621, 45610 03070039 ! 311: 45610 IF (IVCOMP + 23) 25610,15610,25610 03080039 ! 312: 15610 IVPASS = IVPASS + 1 03090039 ! 313: WRITE (I02,80001) IVTNUM 03100039 ! 314: GO TO 5621 03110039 ! 315: 25610 IVFAIL = IVFAIL + 1 03120039 ! 316: IVCORR = -23 03130039 ! 317: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 03140039 ! 318: 5621 CONTINUE 03150039 ! 319: IVTNUM = 562 03160039 ! 320: C 03170039 ! 321: C **** TEST 562 **** 03180039 ! 322: C 03190039 ! 323: IF (ICZERO) 35620, 5620, 35620 03200039 ! 324: 5620 CONTINUE 03210039 ! 325: IVON02 = -4 03220039 ! 326: IVCOMP = (-27342)/IVON02/(-3) 03230039 ! 327: GO TO 45620 03240039 ! 328: 35620 IVDELE = IVDELE + 1 03250039 ! 329: WRITE (I02,80003) IVTNUM 03260039 ! 330: IF (ICZERO) 45620, 5631, 45620 03270039 ! 331: 45620 IF (IVCOMP + 2278) 25620,15620,25620 03280039 ! 332: 15620 IVPASS = IVPASS + 1 03290039 ! 333: WRITE (I02,80001) IVTNUM 03300039 ! 334: GO TO 5631 03310039 ! 335: 25620 IVFAIL = IVFAIL + 1 03320039 ! 336: IVCORR = -2278 03330039 ! 337: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 03340039 ! 338: 5631 CONTINUE 03350039 ! 339: IVTNUM = 563 03360039 ! 340: C 03370039 ! 341: C **** TEST 563 **** 03380039 ! 342: C 03390039 ! 343: IF (ICZERO) 35630, 5630, 35630 03400039 ! 344: 5630 CONTINUE 03410039 ! 345: IVON02 = -4 03420039 ! 346: IVCOMP = -27342/(-IVON02)/(-3) 03430039 ! 347: GO TO 45630 03440039 ! 348: 35630 IVDELE = IVDELE + 1 03450039 ! 349: WRITE (I02,80003) IVTNUM 03460039 ! 350: IF (ICZERO) 45630, 5641, 45630 03470039 ! 351: 45630 IF (IVCOMP - 2278) 25630,15630,25630 03480039 ! 352: 15630 IVPASS = IVPASS + 1 03490039 ! 353: WRITE (I02,80001) IVTNUM 03500039 ! 354: GO TO 5641 03510039 ! 355: 25630 IVFAIL = IVFAIL + 1 03520039 ! 356: IVCORR = 2278 03530039 ! 357: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 03540039 ! 358: C 03550039 ! 359: C TEST 564 THROUGH TEST 569 CONTAIN ARITHMETIC ASSIGNMENT STATEMENTS03560039 ! 360: C OF THE FORM IV = IC/IC/IV. 03570039 ! 361: C 03580039 ! 362: 5641 CONTINUE 03590039 ! 363: IVTNUM = 564 03600039 ! 364: C 03610039 ! 365: C **** TEST 564 **** 03620039 ! 366: C 03630039 ! 367: IF (ICZERO) 35640, 5640, 35640 03640039 ! 368: 5640 CONTINUE 03650039 ! 369: IVON03 = 4 03660039 ! 370: IVCOMP = 24/3/IVON03 03670039 ! 371: GO TO 45640 03680039 ! 372: 35640 IVDELE = IVDELE + 1 03690039 ! 373: WRITE (I02,80003) IVTNUM 03700039 ! 374: IF (ICZERO) 45640, 5651, 45640 03710039 ! 375: 45640 IF (IVCOMP -2) 25640,15640,25640 03720039 ! 376: 15640 IVPASS = IVPASS + 1 03730039 ! 377: WRITE (I02,80001) IVTNUM 03740039 ! 378: GO TO 5651 03750039 ! 379: 25640 IVFAIL = IVFAIL + 1 03760039 ! 380: IVCORR = 2 03770039 ! 381: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 03780039 ! 382: 5651 CONTINUE 03790039 ! 383: IVTNUM = 565 03800039 ! 384: C 03810039 ! 385: C **** TEST 565 **** 03820039 ! 386: C 03830039 ! 387: IF (ICZERO) 35650, 5650, 35650 03840039 ! 388: 5650 CONTINUE 03850039 ! 389: IVON03 = 10 03860039 ! 390: IVCOMP = 7151/3/IVON03 03870039 ! 391: GO TO 45650 03880039 ! 392: 35650 IVDELE = IVDELE + 1 03890039 ! 393: WRITE (I02,80003) IVTNUM 03900039 ! 394: IF (ICZERO) 45650, 5661, 45650 03910039 ! 395: 45650 IF (IVCOMP - 238) 25650,15650,25650 03920039 ! 396: 15650 IVPASS = IVPASS + 1 03930039 ! 397: WRITE (I02,80001) IVTNUM 03940039 ! 398: GO TO 5661 03950039 ! 399: 25650 IVFAIL = IVFAIL + 1 03960039 ! 400: IVCORR = 238 03970039 ! 401: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 03980039 ! 402: 5661 CONTINUE 03990039 ! 403: IVTNUM = 566 04000039 ! 404: C 04010039 ! 405: C **** TEST 566 **** 04020039 ! 406: C 04030039 ! 407: IF (ICZERO) 35660, 5660, 35660 04040039 ! 408: 5660 CONTINUE 04050039 ! 409: IVON03 = -2 04060039 ! 410: IVCOMP = 330/3/IVON03 04070039 ! 411: GO TO 45660 04080039 ! 412: 35660 IVDELE = IVDELE + 1 04090039 ! 413: WRITE (I02,80003) IVTNUM 04100039 ! 414: IF (ICZERO) 45660, 5671, 45660 04110039 ! 415: 45660 IF (IVCOMP + 55) 25660,15660,25660 04120039 ! 416: 15660 IVPASS = IVPASS + 1 04130039 ! 417: WRITE (I02,80001) IVTNUM 04140039 ! 418: GO TO 5671 04150039 ! 419: 25660 IVFAIL = IVFAIL + 1 04160039 ! 420: IVCORR = -55 04170039 ! 421: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 04180039 ! 422: 5671 CONTINUE 04190039 ! 423: IVTNUM = 567 04200039 ! 424: C 04210039 ! 425: C **** TEST 567 **** 04220039 ! 426: C 04230039 ! 427: IF (ICZERO) 35670, 5670, 35670 04240039 ! 428: 5670 CONTINUE 04250039 ! 429: IVON03 = +51 04260039 ! 430: IVCOMP = 15249/(-13)/IVON03 04270039 ! 431: GO TO 45670 04280039 ! 432: 35670 IVDELE = IVDELE + 1 04290039 ! 433: WRITE (I02,80003) IVTNUM 04300039 ! 434: IF (ICZERO) 45670, 5681, 45670 04310039 ! 435: 45670 IF (IVCOMP + 23) 25670,15670,25670 04320039 ! 436: 15670 IVPASS = IVPASS + 1 04330039 ! 437: WRITE (I02,80001) IVTNUM 04340039 ! 438: GO TO 5681 04350039 ! 439: 25670 IVFAIL = IVFAIL + 1 04360039 ! 440: IVCORR = -23 04370039 ! 441: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 04380039 ! 442: 5681 CONTINUE 04390039 ! 443: IVTNUM = 568 04400039 ! 444: C 04410039 ! 445: C **** TEST 568 **** 04420039 ! 446: C 04430039 ! 447: IF (ICZERO) 35680, 5680, 35680 04440039 ! 448: 5680 CONTINUE 04450039 ! 449: IVON03 = -3 04460039 ! 450: IVCOMP = (-27342)/(-4)/IVON03 04470039 ! 451: GO TO 45680 04480039 ! 452: 35680 IVDELE = IVDELE + 1 04490039 ! 453: WRITE (I02,80003) IVTNUM 04500039 ! 454: IF (ICZERO) 45680, 5691, 45680 04510039 ! 455: 45680 IF (IVCOMP + 2278) 25680,15680,25680 04520039 ! 456: 15680 IVPASS = IVPASS + 1 04530039 ! 457: WRITE (I02,80001) IVTNUM 04540039 ! 458: GO TO 5691 04550039 ! 459: 25680 IVFAIL = IVFAIL + 1 04560039 ! 460: IVCORR = -2278 04570039 ! 461: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 04580039 ! 462: 5691 CONTINUE 04590039 ! 463: IVTNUM = 569 04600039 ! 464: C 04610039 ! 465: C **** TEST 569 **** 04620039 ! 466: C 04630039 ! 467: IF (ICZERO) 35690, 5690, 35690 04640039 ! 468: 5690 CONTINUE 04650039 ! 469: IVON03 = -3 04660039 ! 470: IVCOMP = -27342/(-4)/(-IVON03) 04670039 ! 471: GO TO 45690 04680039 ! 472: 35690 IVDELE = IVDELE + 1 04690039 ! 473: WRITE (I02,80003) IVTNUM 04700039 ! 474: IF (ICZERO) 45690, 5701, 45690 04710039 ! 475: 45690 IF (IVCOMP - 2278) 25690,15690,25690 04720039 ! 476: 15690 IVPASS = IVPASS + 1 04730039 ! 477: WRITE (I02,80001) IVTNUM 04740039 ! 478: GO TO 5701 04750039 ! 479: 25690 IVFAIL = IVFAIL + 1 04760039 ! 480: IVCORR = 2278 04770039 ! 481: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 04780039 ! 482: C 04790039 ! 483: C TEST 570 AND TEST 571 - IV =(IV/IC)/IC 04800039 ! 484: C 04810039 ! 485: 5701 CONTINUE 04820039 ! 486: IVTNUM = 570 04830039 ! 487: C 04840039 ! 488: C **** TEST 570 **** 04850039 ! 489: C 04860039 ! 490: IF (ICZERO) 35700, 5700, 35700 04870039 ! 491: 5700 CONTINUE 04880039 ! 492: IVON01 = 24 04890039 ! 493: IVCOMP = (IVON01/3)/4 04900039 ! 494: GO TO 45700 04910039 ! 495: 35700 IVDELE = IVDELE + 1 04920039 ! 496: WRITE (I02,80003) IVTNUM 04930039 ! 497: IF (ICZERO) 45700, 5711, 45700 04940039 ! 498: 45700 IF (IVCOMP -2) 25700,15700,25700 04950039 ! 499: 15700 IVPASS = IVPASS + 1 04960039 ! 500: WRITE (I02,80001) IVTNUM 04970039 ! 501: GO TO 5711 04980039 ! 502: 25700 IVFAIL = IVFAIL + 1 04990039 ! 503: IVCORR = 2 05000039 ! 504: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 05010039 ! 505: 5711 CONTINUE 05020039 ! 506: IVTNUM = 571 05030039 ! 507: C 05040039 ! 508: C **** TEST 571 **** 05050039 ! 509: C 05060039 ! 510: IF (ICZERO) 35710, 5710, 35710 05070039 ! 511: 5710 CONTINUE 05080039 ! 512: IVON01 = -330 05090039 ! 513: IVCOMP = (IVON01/(-3))/4 05100039 ! 514: GO TO 45710 05110039 ! 515: 35710 IVDELE = IVDELE + 1 05120039 ! 516: WRITE (I02,80003) IVTNUM 05130039 ! 517: IF (ICZERO) 45710, 5721, 45710 05140039 ! 518: 45710 IF (IVCOMP - 27) 25710,15710,25710 05150039 ! 519: 15710 IVPASS = IVPASS + 1 05160039 ! 520: WRITE (I02,80001) IVTNUM 05170039 ! 521: GO TO 5721 05180039 ! 522: 25710 IVFAIL = IVFAIL + 1 05190039 ! 523: IVCORR = 27 05200039 ! 524: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 05210039 ! 525: C 05220039 ! 526: C TEST 572 AND TEST 573 - IV= IV/(IC/IC) 05230039 ! 527: C 05240039 ! 528: 5721 CONTINUE 05250039 ! 529: IVTNUM = 572 05260039 ! 530: C 05270039 ! 531: C **** TEST 572 **** 05280039 ! 532: C 05290039 ! 533: IF (ICZERO) 35720, 5720, 35720 05300039 ! 534: 5720 CONTINUE 05310039 ! 535: IVON01 = 24 05320039 ! 536: IVCOMP = IVON01/(8/4) 05330039 ! 537: GO TO 45720 05340039 ! 538: 35720 IVDELE = IVDELE + 1 05350039 ! 539: WRITE (I02,80003) IVTNUM 05360039 ! 540: IF (ICZERO) 45720, 5731, 45720 05370039 ! 541: 45720 IF (IVCOMP - 12) 25720,15720,25720 05380039 ! 542: 15720 IVPASS = IVPASS + 1 05390039 ! 543: WRITE (I02,80001) IVTNUM 05400039 ! 544: GO TO 5731 05410039 ! 545: 25720 IVFAIL = IVFAIL + 1 05420039 ! 546: IVCORR = 12 05430039 ! 547: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 05440039 ! 548: 5731 CONTINUE 05450039 ! 549: IVTNUM = 573 05460039 ! 550: C 05470039 ! 551: C **** TEST 573 **** 05480039 ! 552: C 05490039 ! 553: IF (ICZERO) 35730, 5730, 35730 05500039 ! 554: 5730 CONTINUE 05510039 ! 555: IVON01 = -7154 05520039 ! 556: IVCOMP = -IVON01/((-26)/5) 05530039 ! 557: GO TO 45730 05540039 ! 558: 35730 IVDELE = IVDELE + 1 05550039 ! 559: WRITE (I02,80003) IVTNUM 05560039 ! 560: IF (ICZERO) 45730, 5741, 45730 05570039 ! 561: 45730 IF (IVCOMP + 1430) 25730,15730,25730 05580039 ! 562: 15730 IVPASS = IVPASS + 1 05590039 ! 563: WRITE (I02,80001) IVTNUM 05600039 ! 564: GO TO 5741 05610039 ! 565: 25730 IVFAIL = IVFAIL + 1 05620039 ! 566: IVCORR = -1430 05630039 ! 567: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 05640039 ! 568: C 05650039 ! 569: C TEST 574 AND TEST 575 - IV=(IC/IV)/IC 05660039 ! 570: C 05670039 ! 571: 5741 CONTINUE 05680039 ! 572: IVTNUM = 574 05690039 ! 573: C 05700039 ! 574: C **** TEST 574 **** 05710039 ! 575: C 05720039 ! 576: IF (ICZERO) 35740, 5740, 35740 05730039 ! 577: 5740 CONTINUE 05740039 ! 578: IVON02 = 3 05750039 ! 579: IVCOMP = (24/IVON02)/4 05760039 ! 580: GO TO 45740 05770039 ! 581: 35740 IVDELE = IVDELE + 1 05780039 ! 582: WRITE (I02,80003) IVTNUM 05790039 ! 583: IF (ICZERO) 45740, 5751, 45740 05800039 ! 584: 45740 IF (IVCOMP -2) 25740,15740,25740 05810039 ! 585: 15740 IVPASS = IVPASS + 1 05820039 ! 586: WRITE (I02,80001) IVTNUM 05830039 ! 587: GO TO 5751 05840039 ! 588: 25740 IVFAIL = IVFAIL + 1 05850039 ! 589: IVCORR = 2 05860039 ! 590: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 05870039 ! 591: 5751 CONTINUE 05880039 ! 592: IVTNUM = 575 05890039 ! 593: C 05900039 ! 594: C **** TEST 575 **** 05910039 ! 595: C 05920039 ! 596: IF (ICZERO) 35750, 5750, 35750 05930039 ! 597: 5750 CONTINUE 05940039 ! 598: IVON02 = -3 05950039 ! 599: IVCOMP = (-330/IVON02)/(-4) 05960039 ! 600: GO TO 45750 05970039 ! 601: 35750 IVDELE = IVDELE + 1 05980039 ! 602: WRITE (I02,80003) IVTNUM 05990039 ! 603: IF (ICZERO) 45750, 5761, 45750 06000039 ! 604: 45750 IF (IVCOMP + 27) 25750,15750,25750 06010039 ! 605: 15750 IVPASS = IVPASS + 1 06020039 ! 606: WRITE (I02,80001) IVTNUM 06030039 ! 607: GO TO 5761 06040039 ! 608: 25750 IVFAIL = IVFAIL + 1 06050039 ! 609: IVCORR = -27 06060039 ! 610: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 06070039 ! 611: C 06080039 ! 612: C TEST 576 AND TEST 577 - IV=IC/(IV/IC) 06090039 ! 613: C 06100039 ! 614: 5761 CONTINUE 06110039 ! 615: IVTNUM = 576 06120039 ! 616: C 06130039 ! 617: C **** TEST 576 **** 06140039 ! 618: C 06150039 ! 619: IF (ICZERO) 35760, 5760, 35760 06160039 ! 620: 5760 CONTINUE 06170039 ! 621: IVON02 = 8 06180039 ! 622: IVCOMP = 24/(IVON02/4) 06190039 ! 623: GO TO 45760 06200039 ! 624: 35760 IVDELE = IVDELE + 1 06210039 ! 625: WRITE (I02,80003) IVTNUM 06220039 ! 626: IF (ICZERO) 45760, 5771, 45760 06230039 ! 627: 45760 IF (IVCOMP - 12) 25760,15760,25760 06240039 ! 628: 15760 IVPASS = IVPASS + 1 06250039 ! 629: WRITE (I02,80001) IVTNUM 06260039 ! 630: GO TO 5771 06270039 ! 631: 25760 IVFAIL = IVFAIL + 1 06280039 ! 632: IVCORR = 12 06290039 ! 633: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 06300039 ! 634: 5771 CONTINUE 06310039 ! 635: IVTNUM = 577 06320039 ! 636: C 06330039 ! 637: C **** TEST 577 **** 06340039 ! 638: C 06350039 ! 639: IF (ICZERO) 35770, 5770, 35770 06360039 ! 640: 5770 CONTINUE 06370039 ! 641: IVON02 = -26 06380039 ! 642: IVCOMP = 7154/((-IVON02)/(-5)) 06390039 ! 643: GO TO 45770 06400039 ! 644: 35770 IVDELE = IVDELE + 1 06410039 ! 645: WRITE (I02,80003) IVTNUM 06420039 ! 646: IF (ICZERO) 45770, 5781, 45770 06430039 ! 647: 45770 IF (IVCOMP + 1430) 25770,15770,25770 06440039 ! 648: 15770 IVPASS = IVPASS + 1 06450039 ! 649: WRITE (I02,80001) IVTNUM 06460039 ! 650: GO TO 5781 06470039 ! 651: 25770 IVFAIL = IVFAIL + 1 06480039 ! 652: IVCORR = -1430 06490039 ! 653: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 06500039 ! 654: C 06510039 ! 655: C TEST 578 AND TEST 579 - IV=(IC/IC)/IV 06520039 ! 656: C 06530039 ! 657: 5781 CONTINUE 06540039 ! 658: IVTNUM = 578 06550039 ! 659: C 06560039 ! 660: C **** TEST 578 **** 06570039 ! 661: C 06580039 ! 662: IF (ICZERO) 35780, 5780, 35780 06590039 ! 663: 5780 CONTINUE 06600039 ! 664: IVON03 = 4 06610039 ! 665: IVCOMP = (24/3)/IVON03 06620039 ! 666: GO TO 45780 06630039 ! 667: 35780 IVDELE = IVDELE + 1 06640039 ! 668: WRITE (I02,80003) IVTNUM 06650039 ! 669: IF (ICZERO) 45780, 5791, 45780 06660039 ! 670: 45780 IF (IVCOMP - 2) 25780,15780,25780 06670039 ! 671: 15780 IVPASS = IVPASS + 1 06680039 ! 672: WRITE (I02,80001) IVTNUM 06690039 ! 673: GO TO 5791 06700039 ! 674: 25780 IVFAIL = IVFAIL + 1 06710039 ! 675: IVCORR = 2 06720039 ! 676: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 06730039 ! 677: 5791 CONTINUE 06740039 ! 678: IVTNUM = 579 06750039 ! 679: C 06760039 ! 680: C **** TEST 579 **** 06770039 ! 681: C 06780039 ! 682: IF (ICZERO) 35790, 5790, 35790 06790039 ! 683: 5790 CONTINUE 06800039 ! 684: IVON03 = -4 06810039 ! 685: IVCOMP = (330/(-3))/IVON03 06820039 ! 686: GO TO 45790 06830039 ! 687: 35790 IVDELE = IVDELE + 1 06840039 ! 688: WRITE (I02,80003) IVTNUM 06850039 ! 689: IF (ICZERO) 45790, 5801, 45790 06860039 ! 690: 45790 IF (IVCOMP - 27) 25790,15790,25790 06870039 ! 691: 15790 IVPASS = IVPASS + 1 06880039 ! 692: WRITE (I02,80001) IVTNUM 06890039 ! 693: GO TO 5801 06900039 ! 694: 25790 IVFAIL = IVFAIL + 1 06910039 ! 695: IVCORR = 27 06920039 ! 696: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 06930039 ! 697: C 06940039 ! 698: C TEST 580 AND TEST 581 - IV= IC/(IC/IV) 06950039 ! 699: C 06960039 ! 700: 5801 CONTINUE 06970039 ! 701: IVTNUM = 580 06980039 ! 702: C 06990039 ! 703: C **** TEST 580 **** 07000039 ! 704: C 07010039 ! 705: IF (ICZERO) 35800, 5800, 35800 07020039 ! 706: 5800 CONTINUE 07030039 ! 707: IVON03 = 4 07040039 ! 708: IVCOMP = 24/(8/IVON03) 07050039 ! 709: GO TO 45800 07060039 ! 710: 35800 IVDELE = IVDELE + 1 07070039 ! 711: WRITE (I02,80003) IVTNUM 07080039 ! 712: IF (ICZERO) 45800, 5811, 45800 07090039 ! 713: 45800 IF (IVCOMP - 12) 25800,15800,25800 07100039 ! 714: 15800 IVPASS = IVPASS + 1 07110039 ! 715: WRITE (I02,80001) IVTNUM 07120039 ! 716: GO TO 5811 07130039 ! 717: 25800 IVFAIL = IVFAIL + 1 07140039 ! 718: IVCORR = 12 07150039 ! 719: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 07160039 ! 720: 5811 CONTINUE 07170039 ! 721: IVTNUM = 581 07180039 ! 722: C 07190039 ! 723: C **** TEST 581 **** 07200039 ! 724: C 07210039 ! 725: IF (ICZERO) 35810, 5810, 35810 07220039 ! 726: 5810 CONTINUE 07230039 ! 727: IVON03 = -5 07240039 ! 728: IVCOMP = -7154/((-26)/IVON03) 07250039 ! 729: GO TO 45810 07260039 ! 730: 35810 IVDELE = IVDELE + 1 07270039 ! 731: WRITE (I02,80003) IVTNUM 07280039 ! 732: IF (ICZERO) 45810, 5821, 45810 07290039 ! 733: 45810 IF (IVCOMP + 1430) 25810,15810,25810 07300039 ! 734: 15810 IVPASS = IVPASS + 1 07310039 ! 735: WRITE (I02,80001) IVTNUM 07320039 ! 736: GO TO 5821 07330039 ! 737: 25810 IVFAIL = IVFAIL + 1 07340039 ! 738: IVCORR = -1430 07350039 ! 739: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 07360039 ! 740: C 07370039 ! 741: C **** END OF TESTS **** 07380039 ! 742: 5821 CONTINUE 07390039 ! 743: C 07400039 ! 744: C WRITE PAGE FOOTINGS AND RUN SUMMARIES 07410039 ! 745: 99999 CONTINUE 07420039 ! 746: WRITE (I02,90002) 07430039 ! 747: WRITE (I02,90006) 07440039 ! 748: WRITE (I02,90002) 07450039 ! 749: WRITE (I02,90002) 07460039 ! 750: WRITE (I02,90007) 07470039 ! 751: WRITE (I02,90002) 07480039 ! 752: WRITE (I02,90008) IVFAIL 07490039 ! 753: WRITE (I02,90009) IVPASS 07500039 ! 754: WRITE (I02,90010) IVDELE 07510039 ! 755: C 07520039 ! 756: C 07530039 ! 757: C TERMINATE ROUTINE EXECUTION 07540039 ! 758: STOP 07550039 ! 759: C 07560039 ! 760: C FORMAT STATEMENTS FOR PAGE HEADERS 07570039 ! 761: 90000 FORMAT (1H1) 07580039 ! 762: 90002 FORMAT (1H ) 07590039 ! 763: 90001 FORMAT (1H ,10X,34HFORTRAN COMPILER VALIDATION SYSTEM) 07600039 ! 764: 90003 FORMAT (1H ,21X,11HVERSION 1.0) 07610039 ! 765: 90004 FORMAT (1H ,10X,38HFOR OFFICIAL USE ONLY - COPYRIGHT 1978) 07620039 ! 766: 90005 FORMAT (1H ,5X,4HTEST,5X,9HPASS/FAIL, 5X,8HCOMPUTED,8X,7HCORRECT) 07630039 ! 767: 90006 FORMAT (1H ,5X,46H----------------------------------------------) 07640039 ! 768: 90011 FORMAT (1H ,18X,17HSUBSET LEVEL TEST) 07650039 ! 769: C 07660039 ! 770: C FORMAT STATEMENTS FOR RUN SUMMARIES 07670039 ! 771: 90008 FORMAT (1H ,15X,I5,19H ERRORS ENCOUNTERED) 07680039 ! 772: 90009 FORMAT (1H ,15X,I5,13H TESTS PASSED) 07690039 ! 773: 90010 FORMAT (1H ,15X,I5,14H TESTS DELETED) 07700039 ! 774: C 07710039 ! 775: C FORMAT STATEMENTS FOR TEST RESULTS 07720039 ! 776: 80001 FORMAT (1H ,4X,I5,7X,4HPASS) 07730039 ! 777: 80002 FORMAT (1H ,4X,I5,7X,4HFAIL) 07740039 ! 778: 80003 FORMAT (1H ,4X,I5,7X,7HDELETED) 07750039 ! 779: 80004 FORMAT (1H ,4X,I5,7X,4HFAIL,10X,I6,9X,I6) 07760039 ! 780: 80005 FORMAT (1H ,4X,I5,7X,4HFAIL,4X,E12.5,3X,E12.5) 07770039 ! 781: C 07780039 ! 782: 90007 FORMAT (1H ,20X,20HEND OF PROGRAM FM039) 07790039 ! 783: END 07800039
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.