![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to FM033.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 FM033.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 00010033 ! 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 00020033 ! 6: C FM033 00030033 ! 7: C 00040033 ! 8: C THIS ROUTINE TESTS ARITHMETIC ASSIGNMENT STATEMENTS OF THE 00050033 ! 9: C FORM 00060033 ! 10: C INTEGER VARIABLE = ARITHMETIC EXPRESSION 00070033 ! 11: C WHERE THE ARITHMETIC EXPRESSION IS FORMED WITH THE ARITHMETIC 00080033 ! 12: C OPERATOR * AND INTEGER CONSTANTS. SOME OF THE TESTS USE PARENS 00090033 ! 13: C TO GROUP ELEMENTS IN THE EXPRESSION AND TO ALLOW THE USE OF 00100033 ! 14: C NEGATIVE CONSTANTS FOLLOWING THE * OPERATOR. 00110033 ! 15: C 00120033 ! 16: C THERE ARE TESTS WHERE THE ARITHMETIC EXPRESSION CONTAINS 00130033 ! 17: C (1) INTEGER CONSTANT * INTEGER CONSTANT 00140033 ! 18: C (2) INTEGER CONSTANT * INTEGER CONSTANT * INTEGER CONSTANT 00150033 ! 19: C (3) SAME AS (2) BUT WITH PARENS TO GROUP ELEMENTS 00160033 ! 20: C 00170033 ! 21: C REFERENCES 00180033 ! 22: C AMERICAN NATIONAL STANDARD PROGRAMMING LANGUAGE FORTRAN, 00190033 ! 23: C X3.9-1978 00200033 ! 24: C 00210033 ! 25: C SECTION 4.3, INTEGER TYPE 00220033 ! 26: C SECTION 4.3.1, INTEGER CONSTANT 00230033 ! 27: C SECTION 6.1, ARITHMETIC EXPRESSIONS 00240033 ! 28: C SECTION 10.1, ARITHMETIC ASSIGNMENT STATEMENT 00250033 ! 29: C 00260033 ! 30: C ********************************************************** 00270033 ! 31: C 00280033 ! 32: C A COMPILER VALIDATION SYSTEM FOR THE FORTRAN LANGUAGE 00290033 ! 33: C BASED ON SPECIFICATIONS AS DEFINED IN AMERICAN NATIONAL STANDARD 00300033 ! 34: C PROGRAMMING LANGUAGE FORTRAN X3.9-1978, HAS BEEN DEVELOPED BY THE 00310033 ! 35: C FEDERAL COBOL COMPILER TESTING SERVICE. THE FORTRAN COMPILER 00320033 ! 36: C VALIDATION SYSTEM (FCVS) CONSISTS OF AUDIT ROUTINES, THEIR RELATED00330033 ! 37: C DATA, AND AN EXECUTIVE SYSTEM. EACH AUDIT ROUTINE IS A FORTRAN 00340033 ! 38: C PROGRAM, SUBPROGRAM OR FUNCTION WHICH INCLUDES TESTS OF SPECIFIC 00350033 ! 39: C LANGUAGE ELEMENTS AND SUPPORTING PROCEDURES INDICATING THE RESULT 00360033 ! 40: C OF EXECUTING THESE TESTS. 00370033 ! 41: C 00380033 ! 42: C THIS PARTICULAR PROGRAM/SUBPROGRAM/FUNCTION CONTAINS FEATURES 00390033 ! 43: C FOUND ONLY IN THE SUBSET AS DEFINED IN X3.9-1978. 00400033 ! 44: C 00410033 ! 45: C SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO - 00420033 ! 46: C 00430033 ! 47: C DEPARTMENT OF THE NAVY 00440033 ! 48: C FEDERAL COBOL COMPILER TESTING SERVICE 00450033 ! 49: C WASHINGTON, D.C. 20376 00460033 ! 50: C 00470033 ! 51: C ********************************************************** 00480033 ! 52: C 00490033 ! 53: C 00500033 ! 54: C 00510033 ! 55: C INITIALIZATION SECTION 00520033 ! 56: C 00530033 ! 57: C INITIALIZE CONSTANTS 00540033 ! 58: C ************** 00550033 ! 59: C I01 CONTAINS THE LOGICAL UNIT NUMBER FOR THE CARD READER. 00560033 ! 60: I01 = 5 00570033 ! 61: C I02 CONTAINS THE LOGICAL UNIT NUMBER FOR THE PRINTER. 00580033 ! 62: I02 = 6 00590033 ! 63: C SYSTEM ENVIRONMENT SECTION 00600033 ! 64: C 00610033 ! 65: I01 = 5 00620033 ! 66: C THE CX010 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I01 = 5 00630033 ! 67: C (UNIT NUMBER FOR CARD READER). 00640033 ! 68: CX011 THIS CARD IS REPLACED BY CONTENTS OF FEXEC X-011 CONTROL CARD. 00650033 ! 69: C THE CX011 CARD IS FOR SYSTEMS WHICH REQUIRE ADDITIONAL 00660033 ! 70: C FORTRAN STATEMENTS FOR FILES ASSOCIATED WITH CX010 ABOVE. 00670033 ! 71: C 00680033 ! 72: I02 = 6 00690033 ! 73: C THE CX020 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I02 = 6 00700033 ! 74: C (UNIT NUMBER FOR PRINTER). 00710033 ! 75: CX021 THIS CARD IS REPLACED BY CONTENTS OF FEXEC X-021 CONTROL CARD. 00720033 ! 76: C THE CX021 CARD IS FOR SYSTEMS WHICH REQUIRE ADDITIONAL 00730033 ! 77: C FORTRAN STATEMENTS FOR FILES ASSOCIATED WITH CX020 ABOVE. 00740033 ! 78: C 00750033 ! 79: IVPASS=0 00760033 ! 80: IVFAIL=0 00770033 ! 81: IVDELE=0 00780033 ! 82: ICZERO=0 00790033 ! 83: C 00800033 ! 84: C WRITE PAGE HEADERS 00810033 ! 85: WRITE (I02,90000) 00820033 ! 86: WRITE (I02,90001) 00830033 ! 87: WRITE (I02,90002) 00840033 ! 88: WRITE (I02, 90002) 00850033 ! 89: WRITE (I02,90003) 00860033 ! 90: WRITE (I02,90002) 00870033 ! 91: WRITE (I02,90004) 00880033 ! 92: WRITE (I02,90002) 00890033 ! 93: WRITE (I02,90011) 00900033 ! 94: WRITE (I02,90002) 00910033 ! 95: WRITE (I02,90002) 00920033 ! 96: WRITE (I02,90005) 00930033 ! 97: WRITE (I02,90006) 00940033 ! 98: WRITE (I02,90002) 00950033 ! 99: C 00960033 ! 100: C TEST SECTION 00970033 ! 101: C 00980033 ! 102: C ARITHMETIC ASSIGNMENT STATEMENT 00990033 ! 103: C 01000033 ! 104: C TEST 360 THROUGH TEST 376 CONTAIN TWO INTEGER CONSTANTS AND 01010033 ! 105: C OPERATOR * IN AN ARITHMETIC EXPRESSION. 01020033 ! 106: C IV = IC * IC 01030033 ! 107: C 01040033 ! 108: C TEST 360 THROUGH TEST 365 - INTEGER CONSTANTS ARE POSITIVE 01050033 ! 109: C 01060033 ! 110: 3601 CONTINUE 01070033 ! 111: IVTNUM = 360 01080033 ! 112: C 01090033 ! 113: C **** TEST 360 **** 01100033 ! 114: C 01110033 ! 115: IF (ICZERO) 33600, 3600, 33600 01120033 ! 116: 3600 CONTINUE 01130033 ! 117: IVCOMP = 2 * 3 01140033 ! 118: GO TO 43600 01150033 ! 119: 33600 IVDELE = IVDELE + 1 01160033 ! 120: WRITE (I02,80003) IVTNUM 01170033 ! 121: IF (ICZERO) 43600, 3611, 43600 01180033 ! 122: 43600 IF (IVCOMP - 6) 23600,13600,23600 01190033 ! 123: 13600 IVPASS = IVPASS + 1 01200033 ! 124: WRITE (I02,80001) IVTNUM 01210033 ! 125: GO TO 3611 01220033 ! 126: 23600 IVFAIL = IVFAIL + 1 01230033 ! 127: IVCORR=6 01240033 ! 128: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 01250033 ! 129: 3611 CONTINUE 01260033 ! 130: IVTNUM = 361 01270033 ! 131: C 01280033 ! 132: C **** TEST 361 **** 01290033 ! 133: C 01300033 ! 134: IF (ICZERO) 33610, 3610, 33610 01310033 ! 135: 3610 CONTINUE 01320033 ! 136: IVCOMP = 3*2 01330033 ! 137: GO TO 43610 01340033 ! 138: 33610 IVDELE = IVDELE + 1 01350033 ! 139: WRITE (I02,80003) IVTNUM 01360033 ! 140: IF (ICZERO) 43610, 3621, 43610 01370033 ! 141: 43610 IF (IVCOMP-6) 23610,13610,23610 01380033 ! 142: 13610 IVPASS = IVPASS + 1 01390033 ! 143: WRITE (I02,80001) IVTNUM 01400033 ! 144: GO TO 3621 01410033 ! 145: 23610 IVFAIL = IVFAIL + 1 01420033 ! 146: IVCORR=6 01430033 ! 147: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 01440033 ! 148: 3621 CONTINUE 01450033 ! 149: IVTNUM = 362 01460033 ! 150: C 01470033 ! 151: C **** TEST 362 **** 01480033 ! 152: C 01490033 ! 153: IF (ICZERO) 33620, 3620, 33620 01500033 ! 154: 3620 CONTINUE 01510033 ! 155: IVCOMP=13*11 01520033 ! 156: GO TO 43620 01530033 ! 157: 33620 IVDELE = IVDELE + 1 01540033 ! 158: WRITE (I02,80003) IVTNUM 01550033 ! 159: IF (ICZERO) 43620, 3631, 43620 01560033 ! 160: 43620 IF (IVCOMP-143) 23620,13620,23620 01570033 ! 161: 13620 IVPASS = IVPASS + 1 01580033 ! 162: WRITE (I02,80001) IVTNUM 01590033 ! 163: GO TO 3631 01600033 ! 164: 23620 IVFAIL = IVFAIL + 1 01610033 ! 165: IVCORR=143 01620033 ! 166: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 01630033 ! 167: 3631 CONTINUE 01640033 ! 168: IVTNUM = 363 01650033 ! 169: C 01660033 ! 170: C **** TEST 363 **** 01670033 ! 171: C 01680033 ! 172: IF (ICZERO) 33630, 3630, 33630 01690033 ! 173: 3630 CONTINUE 01700033 ! 174: IVCOMP = 223*99 01710033 ! 175: GO TO 43630 01720033 ! 176: 33630 IVDELE = IVDELE + 1 01730033 ! 177: WRITE (I02,80003) IVTNUM 01740033 ! 178: IF (ICZERO) 43630, 3641, 43630 01750033 ! 179: 43630 IF (IVCOMP-22077) 23630,13630,23630 01760033 ! 180: 13630 IVPASS = IVPASS + 1 01770033 ! 181: WRITE (I02,80001) IVTNUM 01780033 ! 182: GO TO 3641 01790033 ! 183: 23630 IVFAIL = IVFAIL + 1 01800033 ! 184: IVCORR=22077 01810033 ! 185: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 01820033 ! 186: 3641 CONTINUE 01830033 ! 187: IVTNUM = 364 01840033 ! 188: C 01850033 ! 189: C **** TEST 364 **** 01860033 ! 190: C 01870033 ! 191: IF (ICZERO) 33640, 3640, 33640 01880033 ! 192: 3640 CONTINUE 01890033 ! 193: IVCOMP=11235*2 01900033 ! 194: GO TO 43640 01910033 ! 195: 33640 IVDELE = IVDELE + 1 01920033 ! 196: WRITE (I02,80003) IVTNUM 01930033 ! 197: IF (ICZERO) 43640, 3651, 43640 01940033 ! 198: 43640 IF (IVCOMP-22470) 23640,13640,23640 01950033 ! 199: 13640 IVPASS = IVPASS + 1 01960033 ! 200: WRITE (I02,80001) IVTNUM 01970033 ! 201: GO TO 3651 01980033 ! 202: 23640 IVFAIL = IVFAIL + 1 01990033 ! 203: IVCORR=22470 02000033 ! 204: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 02010033 ! 205: 3651 CONTINUE 02020033 ! 206: IVTNUM = 365 02030033 ! 207: C 02040033 ! 208: C **** TEST 365 **** 02050033 ! 209: C 02060033 ! 210: IF (ICZERO) 33650, 3650, 33650 02070033 ! 211: 3650 CONTINUE 02080033 ! 212: IVCOMP = 2*16383 02090033 ! 213: GO TO 43650 02100033 ! 214: 33650 IVDELE = IVDELE + 1 02110033 ! 215: WRITE (I02,80003) IVTNUM 02120033 ! 216: IF (ICZERO) 43650, 3661, 43650 02130033 ! 217: 43650 IF (IVCOMP-32766) 23650,13650,23650 02140033 ! 218: 13650 IVPASS = IVPASS + 1 02150033 ! 219: WRITE (I02,80001) IVTNUM 02160033 ! 220: GO TO 3661 02170033 ! 221: 23650 IVFAIL = IVFAIL + 1 02180033 ! 222: IVCORR = 32766 02190033 ! 223: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 02200033 ! 224: C 02210033 ! 225: C TEST 366 THROUGH TEST 371 02220033 ! 226: C ONE POSITIVE AND ONE NEGATIVE CONSTANT 02230033 ! 227: C 02240033 ! 228: 3661 CONTINUE 02250033 ! 229: IVTNUM = 366 02260033 ! 230: C 02270033 ! 231: C **** TEST 366 **** 02280033 ! 232: C 02290033 ! 233: IF (ICZERO) 33660, 3660, 33660 02300033 ! 234: 3660 CONTINUE 02310033 ! 235: IVCOMP =2*(-3) 02320033 ! 236: GO TO 43660 02330033 ! 237: 33660 IVDELE = IVDELE + 1 02340033 ! 238: WRITE (I02,80003) IVTNUM 02350033 ! 239: IF (ICZERO) 43660, 3671, 43660 02360033 ! 240: 43660 IF (IVCOMP+6) 23660,13660,23660 02370033 ! 241: 13660 IVPASS = IVPASS + 1 02380033 ! 242: WRITE (I02,80001) IVTNUM 02390033 ! 243: GO TO 3671 02400033 ! 244: 23660 IVFAIL = IVFAIL + 1 02410033 ! 245: IVCORR = -6 02420033 ! 246: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 02430033 ! 247: 3671 CONTINUE 02440033 ! 248: IVTNUM = 367 02450033 ! 249: C 02460033 ! 250: C **** TEST 367 **** 02470033 ! 251: C 02480033 ! 252: IF (ICZERO) 33670, 3670, 33670 02490033 ! 253: 3670 CONTINUE 02500033 ! 254: IVCOMP=(-2)*3 02510033 ! 255: GO TO 43670 02520033 ! 256: 33670 IVDELE = IVDELE + 1 02530033 ! 257: WRITE (I02,80003) IVTNUM 02540033 ! 258: IF (ICZERO) 43670, 3681, 43670 02550033 ! 259: 43670 IF (IVCOMP+6)23670,13670,23670 02560033 ! 260: 13670 IVPASS = IVPASS + 1 02570033 ! 261: WRITE (I02,80001) IVTNUM 02580033 ! 262: GO TO 3681 02590033 ! 263: 23670 IVFAIL = IVFAIL + 1 02600033 ! 264: IVCORR =-6 02610033 ! 265: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 02620033 ! 266: 3681 CONTINUE 02630033 ! 267: IVTNUM = 368 02640033 ! 268: C 02650033 ! 269: C **** TEST 368 **** 02660033 ! 270: C 02670033 ! 271: IF (ICZERO) 33680, 3680, 33680 02680033 ! 272: 3680 CONTINUE 02690033 ! 273: IVCOMP= -2*3 02700033 ! 274: GO TO 43680 02710033 ! 275: 33680 IVDELE = IVDELE + 1 02720033 ! 276: WRITE (I02,80003) IVTNUM 02730033 ! 277: IF (ICZERO) 43680, 3691, 43680 02740033 ! 278: 43680 IF (IVCOMP +6) 23680,13680,23680 02750033 ! 279: 13680 IVPASS = IVPASS + 1 02760033 ! 280: WRITE (I02,80001) IVTNUM 02770033 ! 281: GO TO 3691 02780033 ! 282: 23680 IVFAIL = IVFAIL + 1 02790033 ! 283: IVCORR=-6 02800033 ! 284: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 02810033 ! 285: 3691 CONTINUE 02820033 ! 286: IVTNUM = 369 02830033 ! 287: C 02840033 ! 288: C **** TEST 369 **** 02850033 ! 289: C 02860033 ! 290: IF (ICZERO) 33690, 3690, 33690 02870033 ! 291: 3690 CONTINUE 02880033 ! 292: IVCOMP = (-13)*11 02890033 ! 293: GO TO 43690 02900033 ! 294: 33690 IVDELE = IVDELE + 1 02910033 ! 295: WRITE (I02,80003) IVTNUM 02920033 ! 296: IF (ICZERO) 43690, 3701, 43690 02930033 ! 297: 43690 IF (IVCOMP+143) 23690,13690,23690 02940033 ! 298: 13690 IVPASS = IVPASS + 1 02950033 ! 299: WRITE (I02,80001) IVTNUM 02960033 ! 300: GO TO 3701 02970033 ! 301: 23690 IVFAIL = IVFAIL + 1 02980033 ! 302: IVCORR=-143 02990033 ! 303: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 03000033 ! 304: 3701 CONTINUE 03010033 ! 305: IVTNUM = 370 03020033 ! 306: C 03030033 ! 307: C **** TEST 370 **** 03040033 ! 308: C 03050033 ! 309: IF (ICZERO) 33700, 3700, 33700 03060033 ! 310: 3700 CONTINUE 03070033 ! 311: IVCOMP = 223 * (-99) 03080033 ! 312: GO TO 43700 03090033 ! 313: 33700 IVDELE = IVDELE + 1 03100033 ! 314: WRITE (I02,80003) IVTNUM 03110033 ! 315: IF (ICZERO) 43700, 3711, 43700 03120033 ! 316: 43700 IF (IVCOMP + 22077) 23700,13700,23700 03130033 ! 317: 13700 IVPASS = IVPASS + 1 03140033 ! 318: WRITE (I02,80001) IVTNUM 03150033 ! 319: GO TO 3711 03160033 ! 320: 23700 IVFAIL = IVFAIL + 1 03170033 ! 321: IVCORR =-22077 03180033 ! 322: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 03190033 ! 323: 3711 CONTINUE 03200033 ! 324: IVTNUM = 371 03210033 ! 325: C 03220033 ! 326: C **** TEST 371 **** 03230033 ! 327: C 03240033 ! 328: IF (ICZERO) 33710, 3710, 33710 03250033 ! 329: 3710 CONTINUE 03260033 ! 330: IVCOMP= -2 * 16383 03270033 ! 331: GO TO 43710 03280033 ! 332: 33710 IVDELE = IVDELE + 1 03290033 ! 333: WRITE (I02,80003) IVTNUM 03300033 ! 334: IF (ICZERO) 43710, 3721, 43710 03310033 ! 335: 43710 IF (IVCOMP+32766) 23710,13710,23710 03320033 ! 336: 13710 IVPASS = IVPASS + 1 03330033 ! 337: WRITE (I02,80001) IVTNUM 03340033 ! 338: GO TO 3721 03350033 ! 339: 23710 IVFAIL = IVFAIL + 1 03360033 ! 340: IVCORR= -32766 03370033 ! 341: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 03380033 ! 342: C 03390033 ! 343: C TEST 372 THROUGH TEST 376 - TWO NEGATIVE CONSTANTS 03400033 ! 344: C 03410033 ! 345: 3721 CONTINUE 03420033 ! 346: IVTNUM = 372 03430033 ! 347: C 03440033 ! 348: C **** TEST 372 **** 03450033 ! 349: C 03460033 ! 350: IF (ICZERO) 33720, 3720, 33720 03470033 ! 351: 3720 CONTINUE 03480033 ! 352: IVCOMP=(-2)*(-3) 03490033 ! 353: GO TO 43720 03500033 ! 354: 33720 IVDELE = IVDELE + 1 03510033 ! 355: WRITE (I02,80003) IVTNUM 03520033 ! 356: IF (ICZERO) 43720, 3731, 43720 03530033 ! 357: 43720 IF (IVCOMP-6) 23720,13720,23720 03540033 ! 358: 13720 IVPASS = IVPASS + 1 03550033 ! 359: WRITE (I02,80001) IVTNUM 03560033 ! 360: GO TO 3731 03570033 ! 361: 23720 IVFAIL = IVFAIL + 1 03580033 ! 362: IVCORR=6 03590033 ! 363: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 03600033 ! 364: 3731 CONTINUE 03610033 ! 365: IVTNUM = 373 03620033 ! 366: C 03630033 ! 367: C **** TEST 373 **** 03640033 ! 368: C 03650033 ! 369: IF (ICZERO) 33730, 3730, 33730 03660033 ! 370: 3730 CONTINUE 03670033 ! 371: IVCOMP = -2*(-3) 03680033 ! 372: GO TO 43730 03690033 ! 373: 33730 IVDELE = IVDELE + 1 03700033 ! 374: WRITE (I02,80003) IVTNUM 03710033 ! 375: IF (ICZERO) 43730, 3741, 43730 03720033 ! 376: 43730 IF (IVCOMP-6) 23730,13730,23730 03730033 ! 377: 13730 IVPASS = IVPASS + 1 03740033 ! 378: WRITE (I02,80001) IVTNUM 03750033 ! 379: GO TO 3741 03760033 ! 380: 23730 IVFAIL = IVFAIL + 1 03770033 ! 381: IVCORR=6 03780033 ! 382: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 03790033 ! 383: 3741 CONTINUE 03800033 ! 384: IVTNUM = 374 03810033 ! 385: C 03820033 ! 386: C **** TEST 374 **** 03830033 ! 387: C 03840033 ! 388: IF (ICZERO) 33740, 3740, 33740 03850033 ! 389: 3740 CONTINUE 03860033 ! 390: IVCOMP=(-13)*(-11) 03870033 ! 391: GO TO 43740 03880033 ! 392: 33740 IVDELE = IVDELE + 1 03890033 ! 393: WRITE (I02,80003) IVTNUM 03900033 ! 394: IF (ICZERO) 43740, 3751, 43740 03910033 ! 395: 43740 IF (IVCOMP-143) 23740,13740,23740 03920033 ! 396: 13740 IVPASS = IVPASS + 1 03930033 ! 397: WRITE (I02,80001) IVTNUM 03940033 ! 398: GO TO 3751 03950033 ! 399: 23740 IVFAIL = IVFAIL + 1 03960033 ! 400: IVCORR = 143 03970033 ! 401: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 03980033 ! 402: 3751 CONTINUE 03990033 ! 403: IVTNUM = 375 04000033 ! 404: C 04010033 ! 405: C **** TEST 375 **** 04020033 ! 406: C 04030033 ! 407: IF (ICZERO) 33750, 3750, 33750 04040033 ! 408: 3750 CONTINUE 04050033 ! 409: IVCOMP= -223 *(-99) 04060033 ! 410: GO TO 43750 04070033 ! 411: 33750 IVDELE = IVDELE + 1 04080033 ! 412: WRITE (I02,80003) IVTNUM 04090033 ! 413: IF (ICZERO) 43750, 3761, 43750 04100033 ! 414: 43750 IF (IVCOMP - 22077) 23750,13750,23750 04110033 ! 415: 13750 IVPASS = IVPASS + 1 04120033 ! 416: WRITE (I02,80001) IVTNUM 04130033 ! 417: GO TO 3761 04140033 ! 418: 23750 IVFAIL = IVFAIL + 1 04150033 ! 419: IVCORR = 22077 04160033 ! 420: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 04170033 ! 421: 3761 CONTINUE 04180033 ! 422: IVTNUM = 376 04190033 ! 423: C 04200033 ! 424: C **** TEST 376 **** 04210033 ! 425: C 04220033 ! 426: IF (ICZERO) 33760, 3760, 33760 04230033 ! 427: 3760 CONTINUE 04240033 ! 428: IVCOMP = (-16383)*(-2) 04250033 ! 429: GO TO 43760 04260033 ! 430: 33760 IVDELE = IVDELE + 1 04270033 ! 431: WRITE (I02,80003) IVTNUM 04280033 ! 432: IF (ICZERO) 43760, 3771, 43760 04290033 ! 433: 43760 IF (IVCOMP - 32766) 23760,13760,23760 04300033 ! 434: 13760 IVPASS = IVPASS + 1 04310033 ! 435: WRITE (I02,80001) IVTNUM 04320033 ! 436: GO TO 3771 04330033 ! 437: 23760 IVFAIL = IVFAIL + 1 04340033 ! 438: IVCORR =32766 04350033 ! 439: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 04360033 ! 440: C 04370033 ! 441: C TEST 377 THROUGH TEST 394 CONTAIN THREE INTEGER CONSTANTS AND 04380033 ! 442: C OPERATOR * IN AN ARITHMETIC EXPRESSION. 04390033 ! 443: C IV = IC * IC * IC 04400033 ! 444: C 04410033 ! 445: C TEST 377 THROUGH TEST 382 - CONSTANTS ARE POSITIVE 04420033 ! 446: C 04430033 ! 447: 3771 CONTINUE 04440033 ! 448: IVTNUM = 377 04450033 ! 449: C 04460033 ! 450: C **** TEST 377 **** 04470033 ! 451: C 04480033 ! 452: IF (ICZERO) 33770, 3770, 33770 04490033 ! 453: 3770 CONTINUE 04500033 ! 454: IVCOMP =2*3*4 04510033 ! 455: GO TO 43770 04520033 ! 456: 33770 IVDELE = IVDELE + 1 04530033 ! 457: WRITE (I02,80003) IVTNUM 04540033 ! 458: IF (ICZERO) 43770, 3781, 43770 04550033 ! 459: 43770 IF (IVCOMP-24) 23770,13770,23770 04560033 ! 460: 13770 IVPASS = IVPASS + 1 04570033 ! 461: WRITE (I02,80001) IVTNUM 04580033 ! 462: GO TO 3781 04590033 ! 463: 23770 IVFAIL = IVFAIL + 1 04600033 ! 464: IVCORR = 24 04610033 ! 465: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 04620033 ! 466: 3781 CONTINUE 04630033 ! 467: IVTNUM = 378 04640033 ! 468: C 04650033 ! 469: C **** TEST 378 **** 04660033 ! 470: C 04670033 ! 471: IF (ICZERO) 33780, 3780, 33780 04680033 ! 472: 3780 CONTINUE 04690033 ! 473: IVCOMP = 2*3*55 04700033 ! 474: GO TO 43780 04710033 ! 475: 33780 IVDELE = IVDELE + 1 04720033 ! 476: WRITE (I02,80003) IVTNUM 04730033 ! 477: IF (ICZERO) 43780, 3791, 43780 04740033 ! 478: 43780 IF (IVCOMP-330) 23780,13780,23780 04750033 ! 479: 13780 IVPASS = IVPASS + 1 04760033 ! 480: WRITE (I02,80001) IVTNUM 04770033 ! 481: GO TO 3791 04780033 ! 482: 23780 IVFAIL = IVFAIL + 1 04790033 ! 483: IVCORR = 330 04800033 ! 484: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 04810033 ! 485: 3791 CONTINUE 04820033 ! 486: IVTNUM = 379 04830033 ! 487: C 04840033 ! 488: C **** TEST 379 **** 04850033 ! 489: C 04860033 ! 490: IF (ICZERO) 33790, 3790, 33790 04870033 ! 491: 3790 CONTINUE 04880033 ! 492: IVCOMP = 23*51*13 04890033 ! 493: GO TO 43790 04900033 ! 494: 33790 IVDELE = IVDELE + 1 04910033 ! 495: WRITE (I02,80003) IVTNUM 04920033 ! 496: IF (ICZERO) 43790, 3801, 43790 04930033 ! 497: 43790 IF (IVCOMP-15249) 23790,13790,23790 04940033 ! 498: 13790 IVPASS = IVPASS + 1 04950033 ! 499: WRITE (I02,80001) IVTNUM 04960033 ! 500: GO TO 3801 04970033 ! 501: 23790 IVFAIL = IVFAIL + 1 04980033 ! 502: IVCORR = 15249 04990033 ! 503: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 05000033 ! 504: 3801 CONTINUE 05010033 ! 505: IVTNUM = 380 05020033 ! 506: C 05030033 ! 507: C **** TEST 380 **** 05040033 ! 508: C 05050033 ! 509: IF (ICZERO) 33800, 3800, 33800 05060033 ! 510: 3800 CONTINUE 05070033 ! 511: IVCOMP = 3* 5461* 2 05080033 ! 512: GO TO 43800 05090033 ! 513: 33800 IVDELE = IVDELE + 1 05100033 ! 514: WRITE (I02,80003) IVTNUM 05110033 ! 515: IF (ICZERO) 43800, 3811, 43800 05120033 ! 516: 43800 IF (IVCOMP - 32766) 23800,13800,23800 05130033 ! 517: 13800 IVPASS = IVPASS + 1 05140033 ! 518: WRITE (I02,80001) IVTNUM 05150033 ! 519: GO TO 3811 05160033 ! 520: 23800 IVFAIL = IVFAIL + 1 05170033 ! 521: IVCORR = 32766 05180033 ! 522: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 05190033 ! 523: 3811 CONTINUE 05200033 ! 524: IVTNUM = 381 05210033 ! 525: C 05220033 ! 526: C **** TEST 381 **** 05230033 ! 527: C 05240033 ! 528: IF (ICZERO) 33810, 3810, 33810 05250033 ! 529: 3810 CONTINUE 05260033 ! 530: IVCOMP = 16383*2*1 05270033 ! 531: GO TO 43810 05280033 ! 532: 33810 IVDELE = IVDELE + 1 05290033 ! 533: WRITE (I02,80003) IVTNUM 05300033 ! 534: IF (ICZERO) 43810, 3821, 43810 05310033 ! 535: 43810 IF (IVCOMP-32766) 23810,13810,23810 05320033 ! 536: 13810 IVPASS = IVPASS + 1 05330033 ! 537: WRITE (I02,80001) IVTNUM 05340033 ! 538: GO TO 3821 05350033 ! 539: 23810 IVFAIL = IVFAIL + 1 05360033 ! 540: IVCORR = 32766 05370033 ! 541: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 05380033 ! 542: 3821 CONTINUE 05390033 ! 543: IVTNUM = 382 05400033 ! 544: C 05410033 ! 545: C **** TEST 382 **** 05420033 ! 546: C 05430033 ! 547: IF (ICZERO) 33820, 3820, 33820 05440033 ! 548: 3820 CONTINUE 05450033 ! 549: IVCOMP = 3*53*157 05460033 ! 550: GO TO 43820 05470033 ! 551: 33820 IVDELE = IVDELE + 1 05480033 ! 552: WRITE (I02,80003) IVTNUM 05490033 ! 553: IF (ICZERO) 43820, 3831, 43820 05500033 ! 554: 43820 IF (IVCOMP-24963) 23820,13820,23820 05510033 ! 555: 13820 IVPASS = IVPASS + 1 05520033 ! 556: WRITE (I02,80001) IVTNUM 05530033 ! 557: GO TO 3831 05540033 ! 558: 23820 IVFAIL = IVFAIL + 1 05550033 ! 559: IVCORR = 24963 05560033 ! 560: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 05570033 ! 561: C 05580033 ! 562: C TEST 383 THROUGH TEST 386 05590033 ! 563: C THREE POSITIVE INTEGER CONSTANTS GROUPED WITH PARENS. 05600033 ! 564: C 05610033 ! 565: 3831 CONTINUE 05620033 ! 566: IVTNUM = 383 05630033 ! 567: C 05640033 ! 568: C **** TEST 383 **** 05650033 ! 569: C 05660033 ! 570: IF (ICZERO) 33830, 3830, 33830 05670033 ! 571: 3830 CONTINUE 05680033 ! 572: IVCOMP = (2*3)*4 05690033 ! 573: GO TO 43830 05700033 ! 574: 33830 IVDELE = IVDELE + 1 05710033 ! 575: WRITE (I02,80003) IVTNUM 05720033 ! 576: IF (ICZERO) 43830, 3841, 43830 05730033 ! 577: 43830 IF (IVCOMP-24) 23830,13830,23830 05740033 ! 578: 13830 IVPASS = IVPASS + 1 05750033 ! 579: WRITE (I02,80001) IVTNUM 05760033 ! 580: GO TO 3841 05770033 ! 581: 23830 IVFAIL = IVFAIL + 1 05780033 ! 582: IVCORR = 24 05790033 ! 583: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 05800033 ! 584: 3841 CONTINUE 05810033 ! 585: IVTNUM = 384 05820033 ! 586: C 05830033 ! 587: C **** TEST 384 **** 05840033 ! 588: C 05850033 ! 589: IF (ICZERO) 33840, 3840, 33840 05860033 ! 590: 3840 CONTINUE 05870033 ! 591: IVCOMP = 2*(3*4) 05880033 ! 592: GO TO 43840 05890033 ! 593: 33840 IVDELE = IVDELE + 1 05900033 ! 594: WRITE (I02,80003) IVTNUM 05910033 ! 595: IF (ICZERO) 43840, 3851, 43840 05920033 ! 596: 43840 IF (IVCOMP-24) 23840,13840,23840 05930033 ! 597: 13840 IVPASS = IVPASS + 1 05940033 ! 598: WRITE (I02,80001) IVTNUM 05950033 ! 599: GO TO 3851 05960033 ! 600: 23840 IVFAIL = IVFAIL + 1 05970033 ! 601: IVCORR = 24 05980033 ! 602: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 05990033 ! 603: 3851 CONTINUE 06000033 ! 604: IVTNUM = 385 06010033 ! 605: C 06020033 ! 606: C **** TEST 385 **** 06030033 ! 607: C 06040033 ! 608: IF (ICZERO) 33850, 3850, 33850 06050033 ! 609: 3850 CONTINUE 06060033 ! 610: IVCOMP = (3*(+53)) * (+157) 06070033 ! 611: GO TO 43850 06080033 ! 612: 33850 IVDELE = IVDELE + 1 06090033 ! 613: WRITE (I02,80003) IVTNUM 06100033 ! 614: IF (ICZERO) 43850, 3861, 43850 06110033 ! 615: 43850 IF (IVCOMP-24963) 23850,13850,23850 06120033 ! 616: 13850 IVPASS = IVPASS + 1 06130033 ! 617: WRITE (I02,80001) IVTNUM 06140033 ! 618: GO TO 3861 06150033 ! 619: 23850 IVFAIL = IVFAIL + 1 06160033 ! 620: IVCORR = 24963 06170033 ! 621: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 06180033 ! 622: 3861 CONTINUE 06190033 ! 623: IVTNUM = 386 06200033 ! 624: C 06210033 ! 625: C **** TEST 386 **** 06220033 ! 626: C 06230033 ! 627: IF (ICZERO) 33860, 3860, 33860 06240033 ! 628: 3860 CONTINUE 06250033 ! 629: IVCOMP = 3 *((+53)*157) 06260033 ! 630: GO TO 43860 06270033 ! 631: 33860 IVDELE = IVDELE + 1 06280033 ! 632: WRITE (I02,80003) IVTNUM 06290033 ! 633: IF (ICZERO) 43860, 3871, 43860 06300033 ! 634: 43860 IF (IVCOMP-24963) 23860,13860,23860 06310033 ! 635: 13860 IVPASS = IVPASS + 1 06320033 ! 636: WRITE (I02,80001) IVTNUM 06330033 ! 637: GO TO 3871 06340033 ! 638: 23860 IVFAIL = IVFAIL + 1 06350033 ! 639: IVCORR=24963 06360033 ! 640: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 06370033 ! 641: C 06380033 ! 642: C TEST 387 THROUGH TEST 391 06390033 ! 643: C BOTH POSITIVE AND NEGATIVE CONSTANTS IN ARITHMETIC EXPRESSION.06400033 ! 644: C 06410033 ! 645: 3871 CONTINUE 06420033 ! 646: IVTNUM = 387 06430033 ! 647: C 06440033 ! 648: C **** TEST 387 **** 06450033 ! 649: C 06460033 ! 650: IF (ICZERO) 33870, 3870, 33870 06470033 ! 651: 3870 CONTINUE 06480033 ! 652: IVCOMP = 2*3*(-4) 06490033 ! 653: GO TO 43870 06500033 ! 654: 33870 IVDELE = IVDELE + 1 06510033 ! 655: WRITE (I02,80003) IVTNUM 06520033 ! 656: IF (ICZERO) 43870, 3881, 43870 06530033 ! 657: 43870 IF (IVCOMP + 24) 23870,13870,23870 06540033 ! 658: 13870 IVPASS = IVPASS + 1 06550033 ! 659: WRITE (I02,80001) IVTNUM 06560033 ! 660: GO TO 3881 06570033 ! 661: 23870 IVFAIL = IVFAIL + 1 06580033 ! 662: IVCORR = -24 06590033 ! 663: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 06600033 ! 664: 3881 CONTINUE 06610033 ! 665: IVTNUM = 388 06620033 ! 666: C 06630033 ! 667: C **** TEST 388 **** 06640033 ! 668: C 06650033 ! 669: IF (ICZERO) 33880, 3880, 33880 06660033 ! 670: 3880 CONTINUE 06670033 ! 671: IVCOMP = 2*(-3)*(+4) 06680033 ! 672: GO TO 43880 06690033 ! 673: 33880 IVDELE = IVDELE + 1 06700033 ! 674: WRITE (I02,80003) IVTNUM 06710033 ! 675: IF (ICZERO) 43880, 3891, 43880 06720033 ! 676: 43880 IF (IVCOMP + 24) 23880,13880,23880 06730033 ! 677: 13880 IVPASS = IVPASS + 1 06740033 ! 678: WRITE (I02,80001) IVTNUM 06750033 ! 679: GO TO 3891 06760033 ! 680: 23880 IVFAIL = IVFAIL + 1 06770033 ! 681: IVCORR = -24 06780033 ! 682: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 06790033 ! 683: 3891 CONTINUE 06800033 ! 684: IVTNUM = 389 06810033 ! 685: C 06820033 ! 686: C **** TEST 389 **** 06830033 ! 687: C 06840033 ! 688: IF (ICZERO) 33890, 3890, 33890 06850033 ! 689: 3890 CONTINUE 06860033 ! 690: IVCOMP = (-2)*3*4 06870033 ! 691: GO TO 43890 06880033 ! 692: 33890 IVDELE = IVDELE + 1 06890033 ! 693: WRITE (I02,80003) IVTNUM 06900033 ! 694: IF (ICZERO) 43890, 3901, 43890 06910033 ! 695: 43890 IF (IVCOMP+24) 23890,13890,23890 06920033 ! 696: 13890 IVPASS = IVPASS + 1 06930033 ! 697: WRITE (I02,80001) IVTNUM 06940033 ! 698: GO TO 3901 06950033 ! 699: 23890 IVFAIL = IVFAIL + 1 06960033 ! 700: IVCORR = -24 06970033 ! 701: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 06980033 ! 702: 3901 CONTINUE 06990033 ! 703: IVTNUM = 390 07000033 ! 704: C 07010033 ! 705: C **** TEST 390 **** 07020033 ! 706: C 07030033 ! 707: IF (ICZERO) 33900, 3900, 33900 07040033 ! 708: 3900 CONTINUE 07050033 ! 709: IVCOMP = -2*3*4 07060033 ! 710: GO TO 43900 07070033 ! 711: 33900 IVDELE = IVDELE + 1 07080033 ! 712: WRITE (I02,80003) IVTNUM 07090033 ! 713: IF (ICZERO) 43900, 3911, 43900 07100033 ! 714: 43900 IF (IVCOMP+24) 23900,13900,23900 07110033 ! 715: 13900 IVPASS = IVPASS + 1 07120033 ! 716: WRITE (I02,80001) IVTNUM 07130033 ! 717: GO TO 3911 07140033 ! 718: 23900 IVFAIL = IVFAIL + 1 07150033 ! 719: IVCORR = -24 07160033 ! 720: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 07170033 ! 721: 3911 CONTINUE 07180033 ! 722: IVTNUM = 391 07190033 ! 723: C 07200033 ! 724: C **** TEST 391 **** 07210033 ! 725: C 07220033 ! 726: IF (ICZERO) 33910, 3910, 33910 07230033 ! 727: 3910 CONTINUE 07240033 ! 728: IVCOMP = +2 * (-3) * (-4) 07250033 ! 729: GO TO 43910 07260033 ! 730: 33910 IVDELE = IVDELE + 1 07270033 ! 731: WRITE (I02,80003) IVTNUM 07280033 ! 732: IF (ICZERO) 43910, 3921, 43910 07290033 ! 733: 43910 IF (IVCOMP - 24) 23910,13910,23910 07300033 ! 734: 13910 IVPASS = IVPASS + 1 07310033 ! 735: WRITE (I02,80001) IVTNUM 07320033 ! 736: GO TO 3921 07330033 ! 737: 23910 IVFAIL = IVFAIL + 1 07340033 ! 738: IVCORR = 24 07350033 ! 739: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 07360033 ! 740: C 07370033 ! 741: C TEST 392 THROUGH TEST 394 07380033 ! 742: C ALL CONSTANTS ARE NEGATIVE. 07390033 ! 743: C 07400033 ! 744: 3921 CONTINUE 07410033 ! 745: IVTNUM = 392 07420033 ! 746: C 07430033 ! 747: C **** TEST 392 **** 07440033 ! 748: C 07450033 ! 749: IF (ICZERO) 33920, 3920, 33920 07460033 ! 750: 3920 CONTINUE 07470033 ! 751: IVCOMP = (-2)*(-3)*(-4) 07480033 ! 752: GO TO 43920 07490033 ! 753: 33920 IVDELE = IVDELE + 1 07500033 ! 754: WRITE (I02,80003) IVTNUM 07510033 ! 755: IF (ICZERO) 43920, 3931, 43920 07520033 ! 756: 43920 IF (IVCOMP+24) 23920,13920,23920 07530033 ! 757: 13920 IVPASS = IVPASS + 1 07540033 ! 758: WRITE (I02,80001) IVTNUM 07550033 ! 759: GO TO 3931 07560033 ! 760: 23920 IVFAIL = IVFAIL + 1 07570033 ! 761: IVCORR = -24 07580033 ! 762: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 07590033 ! 763: 3931 CONTINUE 07600033 ! 764: IVTNUM = 393 07610033 ! 765: C 07620033 ! 766: C **** TEST 393 **** 07630033 ! 767: C 07640033 ! 768: IF (ICZERO) 33930, 3930, 33930 07650033 ! 769: 3930 CONTINUE 07660033 ! 770: IVCOMP = (-23)*(-51)*(-13) 07670033 ! 771: GO TO 43930 07680033 ! 772: 33930 IVDELE = IVDELE + 1 07690033 ! 773: WRITE (I02,80003) IVTNUM 07700033 ! 774: IF (ICZERO) 43930, 3941, 43930 07710033 ! 775: 43930 IF (IVCOMP + 15249) 23930,13930,23930 07720033 ! 776: 13930 IVPASS = IVPASS + 1 07730033 ! 777: WRITE (I02,80001) IVTNUM 07740033 ! 778: GO TO 3941 07750033 ! 779: 23930 IVFAIL = IVFAIL + 1 07760033 ! 780: IVCORR = -15249 07770033 ! 781: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 07780033 ! 782: 3941 CONTINUE 07790033 ! 783: IVTNUM = 394 07800033 ! 784: C 07810033 ! 785: C **** TEST 394 **** 07820033 ! 786: C 07830033 ! 787: IF (ICZERO) 33940, 3940, 33940 07840033 ! 788: 3940 CONTINUE 07850033 ! 789: IVCOMP = -3 * (-53)*( -157) 07860033 ! 790: GO TO 43940 07870033 ! 791: 33940 IVDELE = IVDELE + 1 07880033 ! 792: WRITE (I02,80003) IVTNUM 07890033 ! 793: IF (ICZERO) 43940, 3951, 43940 07900033 ! 794: 43940 IF (IVCOMP +24963) 23940,13940,23940 07910033 ! 795: 13940 IVPASS = IVPASS + 1 07920033 ! 796: WRITE (I02,80001) IVTNUM 07930033 ! 797: GO TO 3951 07940033 ! 798: 23940 IVFAIL = IVFAIL + 1 07950033 ! 799: IVCORR = -24963 07960033 ! 800: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 07970033 ! 801: C **** END OF TESTS **** 07980033 ! 802: 3951 CONTINUE 07990033 ! 803: C 08000033 ! 804: C WRITE PAGE FOOTINGS AND RUN SUMMARIES 08010033 ! 805: 99999 CONTINUE 08020033 ! 806: WRITE (I02,90002) 08030033 ! 807: WRITE (I02,90006) 08040033 ! 808: WRITE (I02,90002) 08050033 ! 809: WRITE (I02,90002) 08060033 ! 810: WRITE (I02,90007) 08070033 ! 811: WRITE (I02,90002) 08080033 ! 812: WRITE (I02,90008) IVFAIL 08090033 ! 813: WRITE (I02,90009) IVPASS 08100033 ! 814: WRITE (I02,90010) IVDELE 08110033 ! 815: C 08120033 ! 816: C 08130033 ! 817: C TERMINATE ROUTINE EXECUTION 08140033 ! 818: STOP 08150033 ! 819: C 08160033 ! 820: C FORMAT STATEMENTS FOR PAGE HEADERS 08170033 ! 821: 90000 FORMAT (1H1) 08180033 ! 822: 90002 FORMAT (1H ) 08190033 ! 823: 90001 FORMAT (1H ,10X,34HFORTRAN COMPILER VALIDATION SYSTEM) 08200033 ! 824: 90003 FORMAT (1H ,21X,11HVERSION 1.0) 08210033 ! 825: 90004 FORMAT (1H ,10X,38HFOR OFFICIAL USE ONLY - COPYRIGHT 1978) 08220033 ! 826: 90005 FORMAT (1H ,5X,4HTEST,5X,9HPASS/FAIL, 5X,8HCOMPUTED,8X,7HCORRECT) 08230033 ! 827: 90006 FORMAT (1H ,5X,46H----------------------------------------------) 08240033 ! 828: 90011 FORMAT (1H ,18X,17HSUBSET LEVEL TEST) 08250033 ! 829: C 08260033 ! 830: C FORMAT STATEMENTS FOR RUN SUMMARIES 08270033 ! 831: 90008 FORMAT (1H ,15X,I5,19H ERRORS ENCOUNTERED) 08280033 ! 832: 90009 FORMAT (1H ,15X,I5,13H TESTS PASSED) 08290033 ! 833: 90010 FORMAT (1H ,15X,I5,14H TESTS DELETED) 08300033 ! 834: C 08310033 ! 835: C FORMAT STATEMENTS FOR TEST RESULTS 08320033 ! 836: 80001 FORMAT (1H ,4X,I5,7X,4HPASS) 08330033 ! 837: 80002 FORMAT (1H ,4X,I5,7X,4HFAIL) 08340033 ! 838: 80003 FORMAT (1H ,4X,I5,7X,7HDELETED) 08350033 ! 839: 80004 FORMAT (1H ,4X,I5,7X,4HFAIL,10X,I6,9X,I6) 08360033 ! 840: 80005 FORMAT (1H ,4X,I5,7X,4HFAIL,4X,E12.5,3X,E12.5) 08370033 ! 841: C 08380033 ! 842: 90007 FORMAT (1H ,20X,20HEND OF PROGRAM FM033) 08390033 ! 843: END 08400033
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.