![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to FM008.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 FM008.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. 00010008 ! 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 00020008 ! 6: C FM008 00030008 ! 7: C 00040008 ! 8: C THIS ROUTINE TESTS ARITHMETIC ASSIGNMENT STATEMENTS OF THE 00050008 ! 9: C FORM INTEGER VARIABLE = ARITHMETIC EXPRESSION 00060008 ! 10: C WHERE THE ARITHMETIC EXPRESSION IS FORMED WITH THE ARITHMETIC 00070008 ! 11: C OPERATOR + INTEGER CONSTANTS AND POSITIVE INTEGER VARIABLES. 00080008 ! 12: C SOME OF THE TESTS USE PARENTHESES TO GROUP ELEMENTS IN THE 00090008 ! 13: C ARITHMETIC EXPRESSION. 00100008 ! 14: C 00110008 ! 15: C THERE ARE TESTS WHERE THE ARITHMETIC EXPRESSION CONTAINS 00120008 ! 16: C (1) TWO INTEGER CONSTANTS, 00130008 ! 17: C (2) THREE INTEGER CONSTANTS, 00140008 ! 18: C (3) THREE INTEGER CONSTANTS WITH PARENTHESES TO GROUP 00150008 ! 19: C ELEMENTS, 00160008 ! 20: C (4) ONE INTEGER VARIABLE AND ONE INTEGER CONSTANT, 00170008 ! 21: C (5) ONE INTEGER VARIABLE AND TWO INTEGER CONSTANTS, 00180008 ! 22: C (6) ONE INTEGER VARIABLE AND TWO INTEGER CONSTANTS WITH 00190008 ! 23: C PARENTHESES TO GROUP ELEMENTS. 00200008 ! 24: C 00210008 ! 25: C 00220008 ! 26: C REFERENCES 00230008 ! 27: C AMERICAN NATIONAL STANDARD PROGRAMMING LANGUAGE FORTRAN, 00240008 ! 28: C X3.9-1978 00250008 ! 29: C 00260008 ! 30: C SECTION 4.3, INTEGER TYPE 00270008 ! 31: C SECTION 4.3.1, INTEGER CONSTANT 00280008 ! 32: C SECTION 6.1, ARITHMETIC EXPRESSIONS 00290008 ! 33: C SECTION 10.1, ARITHMETIC ASSIGNMENT STATEMENTS 00300008 ! 34: C 00310008 ! 35: C 00320008 ! 36: C ********************************************************** 00330008 ! 37: C 00340008 ! 38: C A COMPILER VALIDATION SYSTEM FOR THE FORTRAN LANGUAGE 00350008 ! 39: C BASED ON SPECIFICATIONS AS DEFINED IN AMERICAN NATIONAL STANDARD 00360008 ! 40: C PROGRAMMING LANGUAGE FORTRAN X3.9-1978, HAS BEEN DEVELOPED BY THE 00370008 ! 41: C FEDERAL COBOL COMPILER TESTING SERVICE. THE FORTRAN COMPILER 00380008 ! 42: C VALIDATION SYSTEM (FCVS) CONSISTS OF AUDIT ROUTINES, THEIR RELATED00390008 ! 43: C DATA, AND AN EXECUTIVE SYSTEM. EACH AUDIT ROUTINE IS A FORTRAN 00400008 ! 44: C PROGRAM, SUBPROGRAM OR FUNCTION WHICH INCLUDES TESTS OF SPECIFIC 00410008 ! 45: C LANGUAGE ELEMENTS AND SUPPORTING PROCEDURES INDICATING THE RESULT 00420008 ! 46: C OF EXECUTING THESE TESTS. 00430008 ! 47: C 00440008 ! 48: C THIS PARTICULAR PROGRAM/SUBPROGRAM/FUNCTION CONTAINS FEATURES 00450008 ! 49: C FOUND ONLY IN THE SUBSET AS DEFINED IN X3.9-1978. 00460008 ! 50: C 00470008 ! 51: C SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO - 00480008 ! 52: C 00490008 ! 53: C DEPARTMENT OF THE NAVY 00500008 ! 54: C FEDERAL COBOL COMPILER TESTING SERVICE 00510008 ! 55: C WASHINGTON, D.C. 20376 00520008 ! 56: C 00530008 ! 57: C ********************************************************** 00540008 ! 58: C 00550008 ! 59: C 00560008 ! 60: C 00570008 ! 61: C INITIALIZATION SECTION 00580008 ! 62: C 00590008 ! 63: C INITIALIZE CONSTANTS 00600008 ! 64: C ************** 00610008 ! 65: C I01 CONTAINS THE LOGICAL UNIT NUMBER FOR THE CARD READER. 00620008 ! 66: I01 = 5 00630008 ! 67: C I02 CONTAINS THE LOGICAL UNIT NUMBER FOR THE PRINTER. 00640008 ! 68: I02 = 6 00650008 ! 69: C SYSTEM ENVIRONMENT SECTION 00660008 ! 70: C 00670008 ! 71: I01 = 5 00680008 ! 72: C THE CX010 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I01 = 5 00690008 ! 73: C (UNIT NUMBER FOR CARD READER). 00700008 ! 74: CX011 THIS CARD IS REPLACED BY CONTENTS OF FEXEC X-011 CONTROL CARD. 00710008 ! 75: C THE CX011 CARD IS FOR SYSTEMS WHICH REQUIRE ADDITIONAL 00720008 ! 76: C FORTRAN STATEMENTS FOR FILES ASSOCIATED WITH CX010 ABOVE. 00730008 ! 77: C 00740008 ! 78: I02 = 6 00750008 ! 79: C THE CX020 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I02 = 6 00760008 ! 80: C (UNIT NUMBER FOR PRINTER). 00770008 ! 81: CX021 THIS CARD IS REPLACED BY CONTENTS OF FEXEC X-021 CONTROL CARD. 00780008 ! 82: C THE CX021 CARD IS FOR SYSTEMS WHICH REQUIRE ADDITIONAL 00790008 ! 83: C FORTRAN STATEMENTS FOR FILES ASSOCIATED WITH CX020 ABOVE. 00800008 ! 84: C 00810008 ! 85: IVPASS=0 00820008 ! 86: IVFAIL=0 00830008 ! 87: IVDELE=0 00840008 ! 88: ICZERO=0 00850008 ! 89: C 00860008 ! 90: C WRITE PAGE HEADERS 00870008 ! 91: WRITE (I02,90000) 00880008 ! 92: WRITE (I02,90001) 00890008 ! 93: WRITE (I02,90002) 00900008 ! 94: WRITE (I02, 90002) 00910008 ! 95: WRITE (I02,90003) 00920008 ! 96: WRITE (I02,90002) 00930008 ! 97: WRITE (I02,90004) 00940008 ! 98: WRITE (I02,90002) 00950008 ! 99: WRITE (I02,90011) 00960008 ! 100: WRITE (I02,90002) 00970008 ! 101: WRITE (I02,90002) 00980008 ! 102: WRITE (I02,90005) 00990008 ! 103: WRITE (I02,90006) 01000008 ! 104: WRITE (I02,90002) 01010008 ! 105: C TEST SECTION 01020008 ! 106: C 01030008 ! 107: C ARITHMETIC ASSIGNMENT STATEMENT 01040008 ! 108: C 01050008 ! 109: C TEST 200 THROUGH TEST 214 CONTAIN INTEGER CONSTANTS AND OPERATOR +01060008 ! 110: C IN ARITHMETIC EXPRESSION. 01070008 ! 111: C 01080008 ! 112: C TEST 200 THROUGH TEST 206 - TWO INTEGER CONSTANTS 01090008 ! 113: C 01100008 ! 114: 2001 CONTINUE 01110008 ! 115: IVTNUM = 200 01120008 ! 116: C 01130008 ! 117: C **** TEST 200 **** 01140008 ! 118: C 01150008 ! 119: IF (ICZERO) 32000, 2000, 32000 01160008 ! 120: 2000 CONTINUE 01170008 ! 121: IVCOMP = 2+3 01180008 ! 122: GO TO 42000 01190008 ! 123: 32000 IVDELE = IVDELE + 1 01200008 ! 124: WRITE (I02,80003) IVTNUM 01210008 ! 125: IF (ICZERO) 42000, 2011, 42000 01220008 ! 126: 42000 IF (IVCOMP - 5) 22000,12000,22000 01230008 ! 127: 12000 IVPASS = IVPASS + 1 01240008 ! 128: WRITE (I02,80001) IVTNUM 01250008 ! 129: GO TO 2011 01260008 ! 130: 22000 IVFAIL = IVFAIL + 1 01270008 ! 131: IVCORR = 5 01280008 ! 132: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 01290008 ! 133: 2011 CONTINUE 01300008 ! 134: IVTNUM = 201 01310008 ! 135: C 01320008 ! 136: C **** TEST 201 **** 01330008 ! 137: C 01340008 ! 138: IF (ICZERO) 32010, 2010, 32010 01350008 ! 139: 2010 CONTINUE 01360008 ! 140: IVCOMP = 51 + 52 01370008 ! 141: GO TO 42010 01380008 ! 142: 32010 IVDELE = IVDELE + 1 01390008 ! 143: WRITE (I02,80003) IVTNUM 01400008 ! 144: IF (ICZERO) 42010, 2021, 42010 01410008 ! 145: 42010 IF (IVCOMP - 103) 22010,12010,22010 01420008 ! 146: 12010 IVPASS = IVPASS + 1 01430008 ! 147: WRITE (I02,80001) IVTNUM 01440008 ! 148: GO TO 2021 01450008 ! 149: 22010 IVFAIL = IVFAIL + 1 01460008 ! 150: IVCORR = 103 01470008 ! 151: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 01480008 ! 152: 2021 CONTINUE 01490008 ! 153: IVTNUM = 202 01500008 ! 154: C 01510008 ! 155: C **** TEST 202 **** 01520008 ! 156: C 01530008 ! 157: IF (ICZERO) 32020, 2020, 32020 01540008 ! 158: 2020 CONTINUE 01550008 ! 159: IVCOMP = 189 + 676 01560008 ! 160: GO TO 42020 01570008 ! 161: 32020 IVDELE = IVDELE + 1 01580008 ! 162: WRITE (I02,80003) IVTNUM 01590008 ! 163: IF (ICZERO) 42020, 2031, 42020 01600008 ! 164: 42020 IF (IVCOMP - 865) 22020,12020,22020 01610008 ! 165: 12020 IVPASS = IVPASS + 1 01620008 ! 166: WRITE (I02,80001) IVTNUM 01630008 ! 167: GO TO 2031 01640008 ! 168: 22020 IVFAIL = IVFAIL + 1 01650008 ! 169: IVCORR = 865 01660008 ! 170: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 01670008 ! 171: 2031 CONTINUE 01680008 ! 172: IVTNUM = 203 01690008 ! 173: C 01700008 ! 174: C **** TEST 203 **** 01710008 ! 175: C 01720008 ! 176: IF (ICZERO) 32030, 2030, 32030 01730008 ! 177: 2030 CONTINUE 01740008 ! 178: IVCOMP = 1358 + 8001 01750008 ! 179: GO TO 42030 01760008 ! 180: 32030 IVDELE = IVDELE + 1 01770008 ! 181: WRITE (I02,80003) IVTNUM 01780008 ! 182: IF (ICZERO) 42030, 2041, 42030 01790008 ! 183: 42030 IF (IVCOMP - 9359) 22030, 12030, 22030 01800008 ! 184: 12030 IVPASS = IVPASS + 1 01810008 ! 185: WRITE (I02,80001) IVTNUM 01820008 ! 186: GO TO 2041 01830008 ! 187: 22030 IVFAIL = IVFAIL + 1 01840008 ! 188: IVCORR = 9359 01850008 ! 189: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 01860008 ! 190: 2041 CONTINUE 01870008 ! 191: IVTNUM = 204 01880008 ! 192: C 01890008 ! 193: C **** TEST 204 **** 01900008 ! 194: C 01910008 ! 195: IF (ICZERO) 32040, 2040, 32040 01920008 ! 196: 2040 CONTINUE 01930008 ! 197: IVCOMP = 11112 + 10001 01940008 ! 198: GO TO 42040 01950008 ! 199: 32040 IVDELE = IVDELE + 1 01960008 ! 200: WRITE (I02,80003) IVTNUM 01970008 ! 201: IF (ICZERO) 42040, 2051, 42040 01980008 ! 202: 42040 IF (IVCOMP - 21113) 22040, 12040, 22040 01990008 ! 203: 12040 IVPASS = IVPASS + 1 02000008 ! 204: WRITE (I02,80001) IVTNUM 02010008 ! 205: GO TO 2051 02020008 ! 206: 22040 IVFAIL = IVFAIL + 1 02030008 ! 207: IVCORR=21113 02040008 ! 208: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 02050008 ! 209: 2051 CONTINUE 02060008 ! 210: IVTNUM = 205 02070008 ! 211: C 02080008 ! 212: C **** TEST 205 **** 02090008 ! 213: C 02100008 ! 214: IF (ICZERO) 32050, 2050, 32050 02110008 ! 215: 2050 CONTINUE 02120008 ! 216: IVCOMP = 189 + 9876 02130008 ! 217: GO TO 42050 02140008 ! 218: 32050 IVDELE = IVDELE + 1 02150008 ! 219: WRITE (I02,80003) IVTNUM 02160008 ! 220: IF (ICZERO) 42050, 2061, 42050 02170008 ! 221: 42050 IF (IVCOMP - 10065) 22050,12050,22050 02180008 ! 222: 12050 IVPASS = IVPASS + 1 02190008 ! 223: WRITE (I02,80001) IVTNUM 02200008 ! 224: GO TO 2061 02210008 ! 225: 22050 IVFAIL = IVFAIL + 1 02220008 ! 226: IVCORR = 10065 02230008 ! 227: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 02240008 ! 228: 2061 CONTINUE 02250008 ! 229: IVTNUM = 206 02260008 ! 230: C 02270008 ! 231: C **** TEST 206 **** 02280008 ! 232: C REQUIRES 32767 02290008 ! 233: C 02300008 ! 234: IF (ICZERO) 32060, 2060, 32060 02310008 ! 235: 2060 CONTINUE 02320008 ! 236: IVCOMP = 32752 + 15 02330008 ! 237: GO TO 42060 02340008 ! 238: 32060 IVDELE = IVDELE + 1 02350008 ! 239: WRITE (I02,80003) IVTNUM 02360008 ! 240: IF (ICZERO) 42060, 2071, 42060 02370008 ! 241: 42060 IF (IVCOMP - 32767) 22060,12060,22060 02380008 ! 242: 12060 IVPASS = IVPASS + 1 02390008 ! 243: WRITE (I02,80001) IVTNUM 02400008 ! 244: GO TO 2071 02410008 ! 245: 22060 IVFAIL = IVFAIL + 1 02420008 ! 246: IVCORR = 32767 02430008 ! 247: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 02440008 ! 248: C 02450008 ! 249: C TEST 207 THROUGH TEST 210 - THREE INTEGER CONSTANTS 02460008 ! 250: C 02470008 ! 251: 2071 CONTINUE 02480008 ! 252: IVTNUM = 207 02490008 ! 253: C 02500008 ! 254: C **** TEST 207 **** 02510008 ! 255: C 02520008 ! 256: IF (ICZERO) 32070, 2070, 32070 02530008 ! 257: 2070 CONTINUE 02540008 ! 258: IVCOMP = 2+3+4 02550008 ! 259: GO TO 42070 02560008 ! 260: 32070 IVDELE = IVDELE + 1 02570008 ! 261: WRITE (I02,80003) IVTNUM 02580008 ! 262: IF (ICZERO) 42070, 2081, 42070 02590008 ! 263: 42070 IF (IVCOMP - 9) 22070,12070,22070 02600008 ! 264: 12070 IVPASS = IVPASS + 1 02610008 ! 265: WRITE (I02,80001) IVTNUM 02620008 ! 266: GO TO 2081 02630008 ! 267: 22070 IVFAIL = IVFAIL + 1 02640008 ! 268: IVCORR = 9 02650008 ! 269: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 02660008 ! 270: 2081 CONTINUE 02670008 ! 271: IVTNUM = 208 02680008 ! 272: C 02690008 ! 273: C **** TEST 208 **** 02700008 ! 274: C 02710008 ! 275: IF (ICZERO) 32080, 2080, 32080 02720008 ! 276: 2080 CONTINUE 02730008 ! 277: IVCOMP = 51 + 52 + 53 02740008 ! 278: GO TO 42080 02750008 ! 279: 32080 IVDELE = IVDELE + 1 02760008 ! 280: WRITE (I02,80003) IVTNUM 02770008 ! 281: IF (ICZERO) 42080, 2091, 42080 02780008 ! 282: 42080 IF (IVCOMP - 156) 22080,12080,22080 02790008 ! 283: 12080 IVPASS = IVPASS + 1 02800008 ! 284: WRITE (I02,80001) IVTNUM 02810008 ! 285: GO TO 2091 02820008 ! 286: 22080 IVFAIL = IVFAIL + 1 02830008 ! 287: IVCORR = 156 02840008 ! 288: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 02850008 ! 289: 2091 CONTINUE 02860008 ! 290: IVTNUM = 209 02870008 ! 291: C 02880008 ! 292: C **** TEST 209 **** 02890008 ! 293: C 02900008 ! 294: IF (ICZERO) 32090, 2090, 32090 02910008 ! 295: 2090 CONTINUE 02920008 ! 296: IVCOMP = 189 +676+101 02930008 ! 297: GO TO 42090 02940008 ! 298: 32090 IVDELE = IVDELE + 1 02950008 ! 299: WRITE (I02,80003) IVTNUM 02960008 ! 300: IF (ICZERO) 42090, 2101, 42090 02970008 ! 301: 42090 IF (IVCOMP - 966) 22090,12090,22090 02980008 ! 302: 12090 IVPASS = IVPASS + 1 02990008 ! 303: WRITE (I02,80001) IVTNUM 03000008 ! 304: GO TO 2101 03010008 ! 305: 22090 IVFAIL = IVFAIL + 1 03020008 ! 306: IVCORR = 966 03030008 ! 307: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 03040008 ! 308: 2101 CONTINUE 03050008 ! 309: IVTNUM = 210 03060008 ! 310: C 03070008 ! 311: C **** TEST 210 **** 03080008 ! 312: C 03090008 ! 313: IF (ICZERO) 32100, 2100, 32100 03100008 ! 314: 2100 CONTINUE 03110008 ! 315: IVCOMP = 1358 + 8001 + 2189 03120008 ! 316: GO TO 42100 03130008 ! 317: 32100 IVDELE = IVDELE + 1 03140008 ! 318: WRITE (I02,80003) IVTNUM 03150008 ! 319: IF (ICZERO) 42100, 2111, 42100 03160008 ! 320: 42100 IF (IVCOMP - 11548) 22100,12100,22100 03170008 ! 321: 12100 IVPASS = IVPASS + 1 03180008 ! 322: WRITE (I02,80001) IVTNUM 03190008 ! 323: GO TO 2111 03200008 ! 324: 22100 IVFAIL = IVFAIL + 1 03210008 ! 325: IVCORR = 11548 03220008 ! 326: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 03230008 ! 327: C 03240008 ! 328: C TESTS 211 THROUGH 214 ARE THE SAME AS 207 THROUGH 210 EXCEPT 03250008 ! 329: C PARENTHESES ARE USED TO GROUP THE CONSTANTS. 03260008 ! 330: C 03270008 ! 331: 2111 CONTINUE 03280008 ! 332: IVTNUM = 211 03290008 ! 333: C 03300008 ! 334: C **** TEST 211 **** 03310008 ! 335: C 03320008 ! 336: IF (ICZERO) 32110, 2110, 32110 03330008 ! 337: 2110 CONTINUE 03340008 ! 338: IVCOMP = (2+3)+4 03350008 ! 339: GO TO 42110 03360008 ! 340: 32110 IVDELE = IVDELE + 1 03370008 ! 341: WRITE (I02,80003) IVTNUM 03380008 ! 342: IF (ICZERO) 42110, 2121, 42110 03390008 ! 343: 42110 IF (IVCOMP -9) 22110,12110,22110 03400008 ! 344: 12110 IVPASS = IVPASS + 1 03410008 ! 345: WRITE (I02,80001) IVTNUM 03420008 ! 346: GO TO 2121 03430008 ! 347: 22110 IVFAIL = IVFAIL + 1 03440008 ! 348: IVCORR = 9 03450008 ! 349: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 03460008 ! 350: 2121 CONTINUE 03470008 ! 351: IVTNUM = 212 03480008 ! 352: C 03490008 ! 353: C **** TEST 212 **** 03500008 ! 354: C 03510008 ! 355: IF (ICZERO) 32120, 2120, 32120 03520008 ! 356: 2120 CONTINUE 03530008 ! 357: IVCOMP = 51+(52+53) 03540008 ! 358: GO TO 42120 03550008 ! 359: 32120 IVDELE = IVDELE + 1 03560008 ! 360: WRITE (I02,80003) IVTNUM 03570008 ! 361: IF (ICZERO) 42120, 2131, 42120 03580008 ! 362: 42120 IF (IVCOMP - 156) 22120,12120,22120 03590008 ! 363: 12120 IVPASS = IVPASS + 1 03600008 ! 364: WRITE (I02,80001) IVTNUM 03610008 ! 365: GO TO 2131 03620008 ! 366: 22120 IVFAIL = IVFAIL + 1 03630008 ! 367: IVCORR = 156 03640008 ! 368: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 03650008 ! 369: 2131 CONTINUE 03660008 ! 370: IVTNUM = 213 03670008 ! 371: C 03680008 ! 372: C **** TEST 213 **** 03690008 ! 373: C 03700008 ! 374: IF (ICZERO) 32130, 2130, 32130 03710008 ! 375: 2130 CONTINUE 03720008 ! 376: IVCOMP = 189 +(676+101) 03730008 ! 377: GO TO 42130 03740008 ! 378: 32130 IVDELE = IVDELE + 1 03750008 ! 379: WRITE (I02,80003) IVTNUM 03760008 ! 380: IF (ICZERO) 42130, 2141, 42130 03770008 ! 381: 42130 IF (IVCOMP - 966) 22130,12130,22130 03780008 ! 382: 12130 IVPASS = IVPASS + 1 03790008 ! 383: WRITE (I02,80001) IVTNUM 03800008 ! 384: GO TO 2141 03810008 ! 385: 22130 IVFAIL = IVFAIL + 1 03820008 ! 386: IVCORR = 966 03830008 ! 387: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 03840008 ! 388: 2141 CONTINUE 03850008 ! 389: IVTNUM = 214 03860008 ! 390: C 03870008 ! 391: C **** TEST 214 **** 03880008 ! 392: C 03890008 ! 393: IF (ICZERO) 32140, 2140, 32140 03900008 ! 394: 2140 CONTINUE 03910008 ! 395: IVCOMP = (1358+2189) + 8001 03920008 ! 396: GO TO 42140 03930008 ! 397: 32140 IVDELE = IVDELE + 1 03940008 ! 398: WRITE (I02,80003) IVTNUM 03950008 ! 399: IF (ICZERO) 42140, 2151, 42140 03960008 ! 400: 42140 IF (IVCOMP - 11548) 22140,12140,22140 03970008 ! 401: 12140 IVPASS = IVPASS + 1 03980008 ! 402: WRITE (I02,80001) IVTNUM 03990008 ! 403: GO TO 2151 04000008 ! 404: 22140 IVFAIL = IVFAIL + 1 04010008 ! 405: IVCORR = 11548 04020008 ! 406: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 04030008 ! 407: C 04040008 ! 408: C TEST 215 THROUGH TEST 234 CONTAIN INTEGER VARIABLES, INTEGER 04050008 ! 409: C CONSTANTS AND THE OPERATOR + IN ARITHMETIC EXPRESSION. 04060008 ! 410: C 04070008 ! 411: C TEST 215 THROUGH TEST 219 - ONE INTEGER VARIABLE AND ONE INTEGER 04080008 ! 412: C CONSTANT IN ARITHMETIC EXPRESSION. 04090008 ! 413: C 04100008 ! 414: 2151 CONTINUE 04110008 ! 415: IVTNUM = 215 04120008 ! 416: C 04130008 ! 417: C **** TEST 215 **** 04140008 ! 418: C 04150008 ! 419: IF (ICZERO) 32150, 2150, 32150 04160008 ! 420: 2150 CONTINUE 04170008 ! 421: IVON01 = 2 04180008 ! 422: IVCOMP = IVON01 + 3 04190008 ! 423: GO TO 42150 04200008 ! 424: 32150 IVDELE = IVDELE + 1 04210008 ! 425: WRITE (I02,80003) IVTNUM 04220008 ! 426: IF (ICZERO) 42150, 2161, 42150 04230008 ! 427: 42150 IF (IVCOMP - 5) 22150,12150,22150 04240008 ! 428: 12150 IVPASS = IVPASS + 1 04250008 ! 429: WRITE (I02,80001) IVTNUM 04260008 ! 430: GO TO 2161 04270008 ! 431: 22150 IVFAIL = IVFAIL + 1 04280008 ! 432: IVCORR=5 04290008 ! 433: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 04300008 ! 434: 2161 CONTINUE 04310008 ! 435: IVTNUM = 216 04320008 ! 436: C 04330008 ! 437: C **** TEST 216 **** 04340008 ! 438: C 04350008 ! 439: IF (ICZERO) 32160, 2160, 32160 04360008 ! 440: 2160 CONTINUE 04370008 ! 441: IVON01 = 3 04380008 ! 442: IVCOMP = 2 + IVON01 04390008 ! 443: GO TO 42160 04400008 ! 444: 32160 IVDELE = IVDELE + 1 04410008 ! 445: WRITE (I02,80003) IVTNUM 04420008 ! 446: IF (ICZERO) 42160, 2171, 42160 04430008 ! 447: 42160 IF (IVCOMP - 5) 22160,12160,22160 04440008 ! 448: 12160 IVPASS = IVPASS + 1 04450008 ! 449: WRITE (I02,80001) IVTNUM 04460008 ! 450: GO TO 2171 04470008 ! 451: 22160 IVFAIL = IVFAIL + 1 04480008 ! 452: IVCORR = 5 04490008 ! 453: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 04500008 ! 454: 2171 CONTINUE 04510008 ! 455: IVTNUM = 217 04520008 ! 456: C 04530008 ! 457: C **** TEST 217 **** 04540008 ! 458: C 04550008 ! 459: IF (ICZERO) 32170, 2170, 32170 04560008 ! 460: 2170 CONTINUE 04570008 ! 461: IVON01 = 51 04580008 ! 462: IVCOMP = IVON01 +52 04590008 ! 463: GO TO 42170 04600008 ! 464: 32170 IVDELE = IVDELE + 1 04610008 ! 465: WRITE (I02,80003) IVTNUM 04620008 ! 466: IF (ICZERO) 42170, 2181, 42170 04630008 ! 467: 42170 IF (IVCOMP - 103) 22170,12170,22170 04640008 ! 468: 12170 IVPASS = IVPASS + 1 04650008 ! 469: WRITE (I02,80001) IVTNUM 04660008 ! 470: GO TO 2181 04670008 ! 471: 22170 IVFAIL = IVFAIL + 1 04680008 ! 472: IVCORR = 103 04690008 ! 473: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 04700008 ! 474: 2181 CONTINUE 04710008 ! 475: IVTNUM = 218 04720008 ! 476: C 04730008 ! 477: C **** TEST 218 **** 04740008 ! 478: C 04750008 ! 479: IF (ICZERO) 32180, 2180, 32180 04760008 ! 480: 2180 CONTINUE 04770008 ! 481: IVON01 = 676 04780008 ! 482: IVCOMP = 189 + IVON01 04790008 ! 483: GO TO 42180 04800008 ! 484: 32180 IVDELE = IVDELE + 1 04810008 ! 485: WRITE (I02,80003) IVTNUM 04820008 ! 486: IF (ICZERO) 42180, 2191, 42180 04830008 ! 487: 42180 IF (IVCOMP - 865) 22180,12180,22180 04840008 ! 488: 12180 IVPASS = IVPASS + 1 04850008 ! 489: WRITE (I02,80001) IVTNUM 04860008 ! 490: GO TO 2191 04870008 ! 491: 22180 IVFAIL = IVFAIL + 1 04880008 ! 492: IVCORR = 865 04890008 ! 493: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 04900008 ! 494: 2191 CONTINUE 04910008 ! 495: IVTNUM = 219 04920008 ! 496: C 04930008 ! 497: C **** TEST 219 **** 04940008 ! 498: C 04950008 ! 499: IF (ICZERO) 32190, 2190, 32190 04960008 ! 500: 2190 CONTINUE 04970008 ! 501: IVON01 = 1358 04980008 ! 502: IVCOMP = IVON01 + 8001 04990008 ! 503: GO TO 42190 05000008 ! 504: 32190 IVDELE = IVDELE + 1 05010008 ! 505: WRITE (I02,80003) IVTNUM 05020008 ! 506: IF (ICZERO) 42190, 2201, 42190 05030008 ! 507: 42190 IF (IVCOMP - 9359) 22190,12190,22190 05040008 ! 508: 12190 IVPASS = IVPASS + 1 05050008 ! 509: WRITE (I02,80001) IVTNUM 05060008 ! 510: GO TO 2201 05070008 ! 511: 22190 IVFAIL = IVFAIL + 1 05080008 ! 512: IVCORR = 9359 05090008 ! 513: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 05100008 ! 514: C 05110008 ! 515: C TEST 220 THROUGH TEST 224 - ONE INTEGER VARIABLE, TWO INTEGER 05120008 ! 516: C CONSTANTS IN ARITHMETIC EXPRESSION. 05130008 ! 517: C 05140008 ! 518: 2201 CONTINUE 05150008 ! 519: IVTNUM = 220 05160008 ! 520: C 05170008 ! 521: C **** TEST 220 **** 05180008 ! 522: C 05190008 ! 523: IF (ICZERO) 32200, 2200, 32200 05200008 ! 524: 2200 CONTINUE 05210008 ! 525: IVON01 = 2 05220008 ! 526: IVCOMP = IVON01 +3 +4 05230008 ! 527: GO TO 42200 05240008 ! 528: 32200 IVDELE = IVDELE + 1 05250008 ! 529: WRITE (I02,80003) IVTNUM 05260008 ! 530: IF (ICZERO) 42200, 2211, 42200 05270008 ! 531: 42200 IF (IVCOMP - 9) 22200,12200,22200 05280008 ! 532: 12200 IVPASS = IVPASS + 1 05290008 ! 533: WRITE (I02,80001) IVTNUM 05300008 ! 534: GO TO 2211 05310008 ! 535: 22200 IVFAIL = IVFAIL + 1 05320008 ! 536: IVCORR = 9 05330008 ! 537: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 05340008 ! 538: 2211 CONTINUE 05350008 ! 539: IVTNUM = 221 05360008 ! 540: C 05370008 ! 541: C **** TEST 221 **** 05380008 ! 542: C 05390008 ! 543: IF (ICZERO) 32210, 2210, 32210 05400008 ! 544: 2210 CONTINUE 05410008 ! 545: IVON01 = 3 05420008 ! 546: IVCOMP = 2+IVON01+4 05430008 ! 547: GO TO 42210 05440008 ! 548: 32210 IVDELE = IVDELE + 1 05450008 ! 549: WRITE (I02,80003) IVTNUM 05460008 ! 550: IF (ICZERO) 42210, 2221, 42210 05470008 ! 551: 42210 IF (IVCOMP - 9) 22210,12210,22210 05480008 ! 552: 12210 IVPASS = IVPASS + 1 05490008 ! 553: WRITE (I02,80001) IVTNUM 05500008 ! 554: GO TO 2221 05510008 ! 555: 22210 IVFAIL = IVFAIL + 1 05520008 ! 556: IVCORR = 9 05530008 ! 557: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 05540008 ! 558: 2221 CONTINUE 05550008 ! 559: IVTNUM = 222 05560008 ! 560: C 05570008 ! 561: C **** TEST 222 **** 05580008 ! 562: C 05590008 ! 563: IF (ICZERO) 32220, 2220, 32220 05600008 ! 564: 2220 CONTINUE 05610008 ! 565: IVON01 = 4 05620008 ! 566: IVCOMP= 2+3+IVON01 05630008 ! 567: GO TO 42220 05640008 ! 568: 32220 IVDELE = IVDELE + 1 05650008 ! 569: WRITE (I02,80003) IVTNUM 05660008 ! 570: IF (ICZERO) 42220, 2231, 42220 05670008 ! 571: 42220 IF (IVCOMP - 9) 22220,12220,22220 05680008 ! 572: 12220 IVPASS = IVPASS + 1 05690008 ! 573: WRITE (I02,80001) IVTNUM 05700008 ! 574: GO TO 2231 05710008 ! 575: 22220 IVFAIL = IVFAIL + 1 05720008 ! 576: IVCORR = 9 05730008 ! 577: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 05740008 ! 578: 2231 CONTINUE 05750008 ! 579: IVTNUM = 223 05760008 ! 580: C 05770008 ! 581: C **** TEST 223 **** 05780008 ! 582: C 05790008 ! 583: IF (ICZERO) 32230, 2230, 32230 05800008 ! 584: 2230 CONTINUE 05810008 ! 585: IVON01 = 2189 05820008 ! 586: IVCOMP = 1358+IVON01+8001 05830008 ! 587: GO TO 42230 05840008 ! 588: 32230 IVDELE = IVDELE + 1 05850008 ! 589: WRITE (I02,80003) IVTNUM 05860008 ! 590: IF (ICZERO) 42230, 2241, 42230 05870008 ! 591: 42230 IF (IVCOMP - 11548) 22230,12230,22230 05880008 ! 592: 12230 IVPASS = IVPASS + 1 05890008 ! 593: WRITE (I02,80001) IVTNUM 05900008 ! 594: GO TO 2241 05910008 ! 595: 22230 IVFAIL = IVFAIL + 1 05920008 ! 596: IVCORR=11548 05930008 ! 597: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 05940008 ! 598: 2241 CONTINUE 05950008 ! 599: IVTNUM = 224 05960008 ! 600: C 05970008 ! 601: C **** TEST 224 **** 05980008 ! 602: C 05990008 ! 603: IF (ICZERO) 32240, 2240, 32240 06000008 ! 604: 2240 CONTINUE 06010008 ! 605: IVON01 = 11111 06020008 ! 606: IVCOMP = 11111 + IVON01 + 10111 06030008 ! 607: GO TO 42240 06040008 ! 608: 32240 IVDELE = IVDELE + 1 06050008 ! 609: WRITE (I02,80003) IVTNUM 06060008 ! 610: IF (ICZERO) 42240, 2251, 42240 06070008 ! 611: 42240 IF (IVCOMP - 32333) 22240,12240,22240 06080008 ! 612: 12240 IVPASS = IVPASS + 1 06090008 ! 613: WRITE (I02,80001) IVTNUM 06100008 ! 614: GO TO 2251 06110008 ! 615: 22240 IVFAIL = IVFAIL + 1 06120008 ! 616: IVCORR = 32333 06130008 ! 617: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 06140008 ! 618: C 06150008 ! 619: C TEST 225 THROUGH TEST 234 USE PARENTHESES TO GROUP ELEMENTS IN 06160008 ! 620: C AN ARITHMETIC EXPRESSION. THE RESULTS ARE THE SAME AS TESTS 06170008 ! 621: C 220 THROUGH 224. 06180008 ! 622: C 06190008 ! 623: 2251 CONTINUE 06200008 ! 624: IVTNUM = 225 06210008 ! 625: C 06220008 ! 626: C **** TEST 225 **** 06230008 ! 627: C 06240008 ! 628: IF (ICZERO) 32250, 2250, 32250 06250008 ! 629: 2250 CONTINUE 06260008 ! 630: IVON01 = 2 06270008 ! 631: IVCOMP = (IVON01 +3) + 4 06280008 ! 632: GO TO 42250 06290008 ! 633: 32250 IVDELE = IVDELE + 1 06300008 ! 634: WRITE (I02,80003) IVTNUM 06310008 ! 635: IF (ICZERO) 42250, 2261, 42250 06320008 ! 636: 42250 IF (IVCOMP -9) 22250,12250,22250 06330008 ! 637: 12250 IVPASS = IVPASS + 1 06340008 ! 638: WRITE (I02,80001) IVTNUM 06350008 ! 639: GO TO 2261 06360008 ! 640: 22250 IVFAIL = IVFAIL + 1 06370008 ! 641: IVCORR = 9 06380008 ! 642: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 06390008 ! 643: 2261 CONTINUE 06400008 ! 644: IVTNUM = 226 06410008 ! 645: C 06420008 ! 646: C **** TEST 226 **** 06430008 ! 647: C 06440008 ! 648: IF (ICZERO) 32260, 2260, 32260 06450008 ! 649: 2260 CONTINUE 06460008 ! 650: IVON01 = 2 06470008 ! 651: IVCOMP = IVON01 + (3+4) 06480008 ! 652: GO TO 42260 06490008 ! 653: 32260 IVDELE = IVDELE + 1 06500008 ! 654: WRITE (I02,80003) IVTNUM 06510008 ! 655: IF (ICZERO) 42260, 2271, 42260 06520008 ! 656: 42260 IF (IVCOMP - 9) 22260,12260,22260 06530008 ! 657: 12260 IVPASS = IVPASS + 1 06540008 ! 658: WRITE (I02,80001) IVTNUM 06550008 ! 659: GO TO 2271 06560008 ! 660: 22260 IVFAIL = IVFAIL + 1 06570008 ! 661: IVCORR = 9 06580008 ! 662: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 06590008 ! 663: 2271 CONTINUE 06600008 ! 664: IVTNUM = 227 06610008 ! 665: C 06620008 ! 666: C **** TEST 227 **** 06630008 ! 667: C 06640008 ! 668: IF (ICZERO) 32270, 2270, 32270 06650008 ! 669: 2270 CONTINUE 06660008 ! 670: IVON01 = 3 06670008 ! 671: IVCOMP = (2+IVON01) + 4 06680008 ! 672: GO TO 42270 06690008 ! 673: 32270 IVDELE = IVDELE + 1 06700008 ! 674: WRITE (I02,80003) IVTNUM 06710008 ! 675: IF (ICZERO) 42270, 2281, 42270 06720008 ! 676: 42270 IF (IVCOMP - 9) 22270,12270,22270 06730008 ! 677: 12270 IVPASS = IVPASS + 1 06740008 ! 678: WRITE (I02,80001) IVTNUM 06750008 ! 679: GO TO 2281 06760008 ! 680: 22270 IVFAIL = IVFAIL + 1 06770008 ! 681: IVCORR = 9 06780008 ! 682: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 06790008 ! 683: 2281 CONTINUE 06800008 ! 684: IVTNUM = 228 06810008 ! 685: C 06820008 ! 686: C **** TEST 228 **** 06830008 ! 687: C 06840008 ! 688: IF (ICZERO) 32280, 2280, 32280 06850008 ! 689: 2280 CONTINUE 06860008 ! 690: IVON01 = 3 06870008 ! 691: IVCOMP = 2 +(IVON01+4) 06880008 ! 692: GO TO 42280 06890008 ! 693: 32280 IVDELE = IVDELE + 1 06900008 ! 694: WRITE (I02,80003) IVTNUM 06910008 ! 695: IF (ICZERO) 42280, 2291, 42280 06920008 ! 696: 42280 IF (IVCOMP - 9) 22280, 12280, 22280 06930008 ! 697: 12280 IVPASS = IVPASS + 1 06940008 ! 698: WRITE (I02,80001) IVTNUM 06950008 ! 699: GO TO 2291 06960008 ! 700: 22280 IVFAIL = IVFAIL + 1 06970008 ! 701: IVCORR = 9 06980008 ! 702: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 06990008 ! 703: 2291 CONTINUE 07000008 ! 704: IVTNUM = 229 07010008 ! 705: C 07020008 ! 706: C **** TEST 229 **** 07030008 ! 707: C 07040008 ! 708: IF (ICZERO) 32290, 2290, 32290 07050008 ! 709: 2290 CONTINUE 07060008 ! 710: IVON01 = 4 07070008 ! 711: IVCOMP = (2+3)+IVON01 07080008 ! 712: GO TO 42290 07090008 ! 713: 32290 IVDELE = IVDELE + 1 07100008 ! 714: WRITE (I02,80003) IVTNUM 07110008 ! 715: IF (ICZERO) 42290, 2301, 42290 07120008 ! 716: 42290 IF (IVCOMP - 9) 22290,12290,22290 07130008 ! 717: 12290 IVPASS = IVPASS + 1 07140008 ! 718: WRITE (I02,80001) IVTNUM 07150008 ! 719: GO TO 2301 07160008 ! 720: 22290 IVFAIL = IVFAIL + 1 07170008 ! 721: IVCORR = 9 07180008 ! 722: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 07190008 ! 723: 2301 CONTINUE 07200008 ! 724: IVTNUM = 230 07210008 ! 725: C 07220008 ! 726: C **** TEST 230 **** 07230008 ! 727: C 07240008 ! 728: IF (ICZERO) 32300, 2300, 32300 07250008 ! 729: 2300 CONTINUE 07260008 ! 730: IVON01 = 2189 07270008 ! 731: IVCOMP = 1358 + (IVON01+8001) 07280008 ! 732: GO TO 42300 07290008 ! 733: 32300 IVDELE = IVDELE + 1 07300008 ! 734: WRITE (I02,80003) IVTNUM 07310008 ! 735: IF (ICZERO) 42300, 2311, 42300 07320008 ! 736: 42300 IF (IVCOMP - 11548) 22300,12300,22300 07330008 ! 737: 12300 IVPASS = IVPASS + 1 07340008 ! 738: WRITE (I02,80001) IVTNUM 07350008 ! 739: GO TO 2311 07360008 ! 740: 22300 IVFAIL = IVFAIL + 1 07370008 ! 741: IVCORR = 11548 07380008 ! 742: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 07390008 ! 743: 2311 CONTINUE 07400008 ! 744: IVTNUM = 231 07410008 ! 745: C 07420008 ! 746: C **** TEST 231 **** 07430008 ! 747: C 07440008 ! 748: IF (ICZERO) 32310, 2310, 32310 07450008 ! 749: 2310 CONTINUE 07460008 ! 750: IVON01 = 2189 07470008 ! 751: IVCOMP = (1358+IVON01) + 8001 07480008 ! 752: GO TO 42310 07490008 ! 753: 32310 IVDELE = IVDELE + 1 07500008 ! 754: WRITE (I02,80003) IVTNUM 07510008 ! 755: IF (ICZERO) 42310, 2321, 42310 07520008 ! 756: 42310 IF (IVCOMP - 11548) 22310,12310,22310 07530008 ! 757: 12310 IVPASS = IVPASS + 1 07540008 ! 758: WRITE (I02,80001) IVTNUM 07550008 ! 759: GO TO 2321 07560008 ! 760: 22310 IVFAIL = IVFAIL + 1 07570008 ! 761: IVCORR = 11548 07580008 ! 762: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 07590008 ! 763: 2321 CONTINUE 07600008 ! 764: IVTNUM = 232 07610008 ! 765: C 07620008 ! 766: C **** TEST 232 **** 07630008 ! 767: C 07640008 ! 768: IF (ICZERO) 32320, 2320, 32320 07650008 ! 769: 2320 CONTINUE 07660008 ! 770: IVON01 = 11111 07670008 ! 771: IVCOMP = (11111 + IVON01) + 10111 07680008 ! 772: GO TO 42320 07690008 ! 773: 32320 IVDELE = IVDELE + 1 07700008 ! 774: WRITE (I02,80003) IVTNUM 07710008 ! 775: IF (ICZERO) 42320, 2331, 42320 07720008 ! 776: 42320 IF (IVCOMP - 32333) 22320,12320,22320 07730008 ! 777: 12320 IVPASS = IVPASS + 1 07740008 ! 778: WRITE (I02,80001) IVTNUM 07750008 ! 779: GO TO 2331 07760008 ! 780: 22320 IVFAIL = IVFAIL + 1 07770008 ! 781: IVCORR = 32333 07780008 ! 782: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 07790008 ! 783: 2331 CONTINUE 07800008 ! 784: IVTNUM = 233 07810008 ! 785: C 07820008 ! 786: C **** TEST 233 **** 07830008 ! 787: C 07840008 ! 788: IF (ICZERO) 32330, 2330, 32330 07850008 ! 789: 2330 CONTINUE 07860008 ! 790: IVON01 = 11111 07870008 ! 791: IVCOMP = (IVON01 + 10111) + 11111 07880008 ! 792: GO TO 42330 07890008 ! 793: 32330 IVDELE = IVDELE + 1 07900008 ! 794: WRITE (I02,80003) IVTNUM 07910008 ! 795: IF (ICZERO) 42330, 2341, 42330 07920008 ! 796: 42330 IF (IVCOMP - 32333) 22330,12330,22330 07930008 ! 797: 12330 IVPASS = IVPASS + 1 07940008 ! 798: WRITE (I02,80001) IVTNUM 07950008 ! 799: GO TO 2341 07960008 ! 800: 22330 IVFAIL = IVFAIL + 1 07970008 ! 801: IVCORR = 32333 07980008 ! 802: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 07990008 ! 803: 2341 CONTINUE 08000008 ! 804: IVTNUM = 234 08010008 ! 805: C 08020008 ! 806: C **** TEST 234 **** 08030008 ! 807: C 08040008 ! 808: IF (ICZERO) 32340, 2340, 32340 08050008 ! 809: 2340 CONTINUE 08060008 ! 810: IVON01 = 10111 08070008 ! 811: IVCOMP = 11111 + (11111+IVON01) 08080008 ! 812: GO TO 42340 08090008 ! 813: 32340 IVDELE = IVDELE + 1 08100008 ! 814: WRITE (I02,80003) IVTNUM 08110008 ! 815: IF (ICZERO) 42340, 2351, 42340 08120008 ! 816: 42340 IF (IVCOMP - 32333) 22340,12340,22340 08130008 ! 817: 12340 IVPASS = IVPASS + 1 08140008 ! 818: WRITE (I02,80001) IVTNUM 08150008 ! 819: GO TO 2351 08160008 ! 820: 22340 IVFAIL = IVFAIL + 1 08170008 ! 821: IVCORR = 32333 08180008 ! 822: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 08190008 ! 823: 2351 CONTINUE 08200008 ! 824: C 08210008 ! 825: C WRITE PAGE FOOTINGS AND RUN SUMMARIES 08220008 ! 826: 99999 CONTINUE 08230008 ! 827: WRITE (I02,90002) 08240008 ! 828: WRITE (I02,90006) 08250008 ! 829: WRITE (I02,90002) 08260008 ! 830: WRITE (I02,90002) 08270008 ! 831: WRITE (I02,90007) 08280008 ! 832: WRITE (I02,90002) 08290008 ! 833: WRITE (I02,90008) IVFAIL 08300008 ! 834: WRITE (I02,90009) IVPASS 08310008 ! 835: WRITE (I02,90010) IVDELE 08320008 ! 836: C 08330008 ! 837: C 08340008 ! 838: C TERMINATE ROUTINE EXECUTION 08350008 ! 839: STOP 08360008 ! 840: C 08370008 ! 841: C FORMAT STATEMENTS FOR PAGE HEADERS 08380008 ! 842: 90000 FORMAT (1H1) 08390008 ! 843: 90002 FORMAT (1H ) 08400008 ! 844: 90001 FORMAT (1H ,10X,34HFORTRAN COMPILER VALIDATION SYSTEM) 08410008 ! 845: 90003 FORMAT (1H ,21X,11HVERSION 1.0) 08420008 ! 846: 90004 FORMAT (1H ,10X,38HFOR OFFICIAL USE ONLY - COPYRIGHT 1978) 08430008 ! 847: 90005 FORMAT (1H ,5X,4HTEST,5X,9HPASS/FAIL, 5X,8HCOMPUTED,8X,7HCORRECT) 08440008 ! 848: 90006 FORMAT (1H ,5X,46H----------------------------------------------) 08450008 ! 849: 90011 FORMAT (1H ,18X,17HSUBSET LEVEL TEST) 08460008 ! 850: C 08470008 ! 851: C FORMAT STATEMENTS FOR RUN SUMMARIES 08480008 ! 852: 90008 FORMAT (1H ,15X,I5,19H ERRORS ENCOUNTERED) 08490008 ! 853: 90009 FORMAT (1H ,15X,I5,13H TESTS PASSED) 08500008 ! 854: 90010 FORMAT (1H ,15X,I5,14H TESTS DELETED) 08510008 ! 855: C 08520008 ! 856: C FORMAT STATEMENTS FOR TEST RESULTS 08530008 ! 857: 80001 FORMAT (1H ,4X,I5,7X,4HPASS) 08540008 ! 858: 80002 FORMAT (1H ,4X,I5,7X,4HFAIL) 08550008 ! 859: 80003 FORMAT (1H ,4X,I5,7X,7HDELETED) 08560008 ! 860: 80004 FORMAT (1H ,4X,I5,7X,4HFAIL,10X,I6,9X,I6) 08570008 ! 861: 80005 FORMAT (1H ,4X,I5,7X,4HFAIL,4X,E12.5,3X,E12.5) 08580008 ! 862: C 08590008 ! 863: 90007 FORMAT (1H ,20X,20HEND OF PROGRAM FM008) 08600008 ! 864: END 08610008
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.