![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to FM045.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 FM045.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 00010045 ! 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 00020045 ! 6: C FM045 00030045 ! 7: C 00040045 ! 8: C THIS ROUTINE TESTS ARITHMETIC ASSIGNMENTS USING INTEGER 00050045 ! 9: C VARIABLES CONNECTED BY A SERIES OF ARITHMETIC OPERATORS. 00060045 ! 10: C DIFFERENT COMBINATIONS OF PARENTHETICAL NOTATION ARE EXERCIZED. 00070045 ! 11: C 00080045 ! 12: C 00090045 ! 13: C REFERENCES 00100045 ! 14: C AMERICAN NATIONAL STANDARD PROGRAMMING LANGUAGE FORTRAN, 00110045 ! 15: C X3.9-1978 00120045 ! 16: C 00130045 ! 17: C SECTION 4.3, INTEGER TYPE 00140045 ! 18: C SECTION 4.3.1, INTEGER CONSTANT 00150045 ! 19: C SECTION 6.1, ARITHMETIC EXPRESSIONS 00160045 ! 20: C SECTION 6.6, EVALUATION OF EXPRESSIONS 00170045 ! 21: C SECTION 10.1, ARITHMETIC ASSIGNMENT STATEMENT 00180045 ! 22: C 00190045 ! 23: C 00200045 ! 24: C 00210045 ! 25: C ********************************************************** 00220045 ! 26: C 00230045 ! 27: C A COMPILER VALIDATION SYSTEM FOR THE FORTRAN LANGUAGE 00240045 ! 28: C BASED ON SPECIFICATIONS AS DEFINED IN AMERICAN NATIONAL STANDARD 00250045 ! 29: C PROGRAMMING LANGUAGE FORTRAN X3.9-1978, HAS BEEN DEVELOPED BY THE 00260045 ! 30: C FEDERAL COBOL COMPILER TESTING SERVICE. THE FORTRAN COMPILER 00270045 ! 31: C VALIDATION SYSTEM (FCVS) CONSISTS OF AUDIT ROUTINES, THEIR RELATED00280045 ! 32: C DATA, AND AN EXECUTIVE SYSTEM. EACH AUDIT ROUTINE IS A FORTRAN 00290045 ! 33: C PROGRAM, SUBPROGRAM OR FUNCTION WHICH INCLUDES TESTS OF SPECIFIC 00300045 ! 34: C LANGUAGE ELEMENTS AND SUPPORTING PROCEDURES INDICATING THE RESULT 00310045 ! 35: C OF EXECUTING THESE TESTS. 00320045 ! 36: C 00330045 ! 37: C THIS PARTICULAR PROGRAM/SUBPROGRAM/FUNCTION CONTAINS FEATURES 00340045 ! 38: C FOUND ONLY IN THE SUBSET AS DEFINED IN X3.9-1978. 00350045 ! 39: C 00360045 ! 40: C SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO - 00370045 ! 41: C 00380045 ! 42: C DEPARTMENT OF THE NAVY 00390045 ! 43: C FEDERAL COBOL COMPILER TESTING SERVICE 00400045 ! 44: C WASHINGTON, D.C. 20376 00410045 ! 45: C 00420045 ! 46: C ********************************************************** 00430045 ! 47: C 00440045 ! 48: C 00450045 ! 49: C 00460045 ! 50: C INITIALIZATION SECTION 00470045 ! 51: C 00480045 ! 52: C INITIALIZE CONSTANTS 00490045 ! 53: C ************** 00500045 ! 54: C I01 CONTAINS THE LOGICAL UNIT NUMBER FOR THE CARD READER. 00510045 ! 55: I01 = 5 00520045 ! 56: C I02 CONTAINS THE LOGICAL UNIT NUMBER FOR THE PRINTER. 00530045 ! 57: I02 = 6 00540045 ! 58: C SYSTEM ENVIRONMENT SECTION 00550045 ! 59: C 00560045 ! 60: I01 = 5 00570045 ! 61: C THE CX010 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I01 = 5 00580045 ! 62: C (UNIT NUMBER FOR CARD READER). 00590045 ! 63: CX011 THIS CARD IS REPLACED BY CONTENTS OF FEXEC X-011 CONTROL CARD. 00600045 ! 64: C THE CX011 CARD IS FOR SYSTEMS WHICH REQUIRE ADDITIONAL 00610045 ! 65: C FORTRAN STATEMENTS FOR FILES ASSOCIATED WITH CX010 ABOVE. 00620045 ! 66: C 00630045 ! 67: I02 = 6 00640045 ! 68: C THE CX020 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I02 = 6 00650045 ! 69: C (UNIT NUMBER FOR PRINTER). 00660045 ! 70: CX021 THIS CARD IS REPLACED BY CONTENTS OF FEXEC X-021 CONTROL CARD. 00670045 ! 71: C THE CX021 CARD IS FOR SYSTEMS WHICH REQUIRE ADDITIONAL 00680045 ! 72: C FORTRAN STATEMENTS FOR FILES ASSOCIATED WITH CX020 ABOVE. 00690045 ! 73: C 00700045 ! 74: IVPASS=0 00710045 ! 75: IVFAIL=0 00720045 ! 76: IVDELE=0 00730045 ! 77: ICZERO=0 00740045 ! 78: C 00750045 ! 79: C WRITE PAGE HEADERS 00760045 ! 80: WRITE (I02,90000) 00770045 ! 81: WRITE (I02,90001) 00780045 ! 82: WRITE (I02,90002) 00790045 ! 83: WRITE (I02, 90002) 00800045 ! 84: WRITE (I02,90003) 00810045 ! 85: WRITE (I02,90002) 00820045 ! 86: WRITE (I02,90004) 00830045 ! 87: WRITE (I02,90002) 00840045 ! 88: WRITE (I02,90011) 00850045 ! 89: WRITE (I02,90002) 00860045 ! 90: WRITE (I02,90002) 00870045 ! 91: WRITE (I02,90005) 00880045 ! 92: WRITE (I02,90006) 00890045 ! 93: WRITE (I02,90002) 00900045 ! 94: C 00910045 ! 95: C 00920045 ! 96: C TEST SECTION 00930045 ! 97: C 00940045 ! 98: C ARITHMETIC ASSIGNMENT STATEMENT 00950045 ! 99: C 00960045 ! 100: C 00970045 ! 101: C TESTS 747 THROUGH 755 USE THE SAME STRING OF VARIABLES AND 00980045 ! 102: C OPERATORS, BUT USE DIFFERENT COMBINATIONS OF PARENTHETICAL 00990045 ! 103: C NOTATION TO ALTER PRIORITIES IN ORDER OF EVALUATION. 01000045 ! 104: C 01010045 ! 105: C TESTS 756 THROUGH 759 CHECK THE CAPABILITY TO ENCLOSE THE ENTIRE 01020045 ! 106: C RIGHT HAND SIDE OF AN ASSIGNMENT STATEMENT IN PARENTHESES OR SETS 01030045 ! 107: C OF NESTED PARENTHESES. 01040045 ! 108: C 01050045 ! 109: C 01060045 ! 110: C 01070045 ! 111: C 01080045 ! 112: C 01090045 ! 113: C 01100045 ! 114: C 01110045 ! 115: IVTNUM = 747 01120045 ! 116: C 01130045 ! 117: C **** TEST 747 **** 01140045 ! 118: C 01150045 ! 119: IF (ICZERO) 37470, 7470, 37470 01160045 ! 120: 7470 CONTINUE 01170045 ! 121: IVON01 = 15 01180045 ! 122: IVON02 = 9 01190045 ! 123: IVON03 = 4 01200045 ! 124: IVON04 = 18 01210045 ! 125: IVON05 = 6 01220045 ! 126: IVON06 = 2 01230045 ! 127: IVCOMP = IVON01 + IVON02 - IVON03 * IVON04 / IVON05 ** IVON06 01240045 ! 128: GO TO 47470 01250045 ! 129: 37470 IVDELE = IVDELE + 1 01260045 ! 130: WRITE (I02,80003) IVTNUM 01270045 ! 131: IF (ICZERO) 47470, 7481, 47470 01280045 ! 132: 47470 IF (IVCOMP - 22) 27470,17470,27470 01290045 ! 133: 17470 IVPASS = IVPASS + 1 01300045 ! 134: WRITE (I02,80001) IVTNUM 01310045 ! 135: GO TO 7481 01320045 ! 136: 27470 IVFAIL = IVFAIL + 1 01330045 ! 137: IVCORR = 22 01340045 ! 138: WRITE (I02,80004) IVTNUM, IVCOMP, IVCORR 01350045 ! 139: 7481 CONTINUE 01360045 ! 140: IVTNUM = 748 01370045 ! 141: C 01380045 ! 142: C **** TEST 748 **** 01390045 ! 143: C 01400045 ! 144: IF (ICZERO) 37480, 7480, 37480 01410045 ! 145: 7480 CONTINUE 01420045 ! 146: IVON01 = 15 01430045 ! 147: IVON02 = 9 01440045 ! 148: IVON03 = 4 01450045 ! 149: IVON04 = 18 01460045 ! 150: IVON05 = 6 01470045 ! 151: IVON06 = 2 01480045 ! 152: IVCOMP = ((((IVON01 + IVON02) - IVON03) * IVON04) / IVON05) 01490045 ! 153: * ** IVON06 01500045 ! 154: GO TO 47480 01510045 ! 155: 37480 IVDELE = IVDELE + 1 01520045 ! 156: WRITE (I02,80003) IVTNUM 01530045 ! 157: IF (ICZERO) 47480, 7491, 47480 01540045 ! 158: 47480 IF (IVCOMP - 3600) 27480,17480,27480 01550045 ! 159: 17480 IVPASS = IVPASS + 1 01560045 ! 160: WRITE (I02,80001) IVTNUM 01570045 ! 161: GO TO 7491 01580045 ! 162: 27480 IVFAIL = IVFAIL + 1 01590045 ! 163: IVCORR = 3600 01600045 ! 164: WRITE (I02,80004) IVTNUM, IVCOMP, IVCORR 01610045 ! 165: 7491 CONTINUE 01620045 ! 166: IVTNUM = 749 01630045 ! 167: C 01640045 ! 168: C **** TEST 749 **** 01650045 ! 169: C 01660045 ! 170: IF (ICZERO) 37490, 7490, 37490 01670045 ! 171: 7490 CONTINUE 01680045 ! 172: IVON01 = 15 01690045 ! 173: IVON02 = 9 01700045 ! 174: IVON03 = 4 01710045 ! 175: IVON04 = 36 01720045 ! 176: IVON05 = 6 01730045 ! 177: IVON06 = 2 01740045 ! 178: IVCOMP = (IVON01 + IVON02 - IVON03) * (IVON04 / IVON05 ** IVON06) 01750045 ! 179: GO TO 47490 01760045 ! 180: 37490 IVDELE = IVDELE + 1 01770045 ! 181: WRITE (I02,80003) IVTNUM 01780045 ! 182: IF (ICZERO) 47490, 7501, 47490 01790045 ! 183: 47490 IF (IVCOMP - 20) 27490,17490,27490 01800045 ! 184: 17490 IVPASS = IVPASS + 1 01810045 ! 185: WRITE (I02,80001) IVTNUM 01820045 ! 186: GO TO 7501 01830045 ! 187: 27490 IVFAIL = IVFAIL + 1 01840045 ! 188: IVCORR = 20 01850045 ! 189: WRITE (I02,80004) IVTNUM, IVCOMP, IVCORR 01860045 ! 190: 7501 CONTINUE 01870045 ! 191: IVTNUM = 750 01880045 ! 192: C 01890045 ! 193: C **** TEST 750 **** 01900045 ! 194: C 01910045 ! 195: IF (ICZERO) 37500, 7500, 37500 01920045 ! 196: 7500 CONTINUE 01930045 ! 197: IVON01 = 15 01940045 ! 198: IVON02 = 9 01950045 ! 199: IVON03 = 4 01960045 ! 200: IVON04 = 36 01970045 ! 201: IVON05 = 6 01980045 ! 202: IVON06 = 2 01990045 ! 203: IVCOMP = (IVON01 + IVON02) - (IVON03 * IVON04) / (IVON05 ** 02000045 ! 204: * IVON06) 02010045 ! 205: GO TO 47500 02020045 ! 206: 37500 IVDELE = IVDELE + 1 02030045 ! 207: WRITE (I02,80003) IVTNUM 02040045 ! 208: IF (ICZERO) 47500, 7511, 47500 02050045 ! 209: 47500 IF (IVCOMP - 20) 27500,17500,27500 02060045 ! 210: 17500 IVPASS = IVPASS + 1 02070045 ! 211: WRITE (I02,80001) IVTNUM 02080045 ! 212: GO TO 7511 02090045 ! 213: 27500 IVFAIL = IVFAIL + 1 02100045 ! 214: IVCORR = 20 02110045 ! 215: WRITE (I02,80004) IVTNUM, IVCOMP, IVCORR 02120045 ! 216: 7511 CONTINUE 02130045 ! 217: IVTNUM = 751 02140045 ! 218: C 02150045 ! 219: C **** TEST 751 **** 02160045 ! 220: C 02170045 ! 221: IF (ICZERO) 37510, 7510, 37510 02180045 ! 222: 7510 CONTINUE 02190045 ! 223: IVON01 = 15 02200045 ! 224: IVON02 = 9 02210045 ! 225: IVON03 = 4 02220045 ! 226: IVON04 = 36 02230045 ! 227: IVON05 = 6 02240045 ! 228: IVON06 = 2 02250045 ! 229: IVCOMP = ((IVON01 + IVON02) - (IVON03 * IVON04)) / (IVON05 ** 02260045 ! 230: * IVON06) 02270045 ! 231: GO TO 47510 02280045 ! 232: 37510 IVDELE = IVDELE + 1 02290045 ! 233: WRITE (I02,80003) IVTNUM 02300045 ! 234: IF (ICZERO) 47510, 7521, 47510 02310045 ! 235: 47510 IF (IVCOMP + 3) 27510,17510,27510 02320045 ! 236: 17510 IVPASS = IVPASS + 1 02330045 ! 237: WRITE (I02,80001) IVTNUM 02340045 ! 238: GO TO 7521 02350045 ! 239: 27510 IVFAIL = IVFAIL + 1 02360045 ! 240: IVCORR = -3 02370045 ! 241: C ACTUAL ANSWER IS -3.333333... TRUNCATION IS NECESSARY 02380045 ! 242: WRITE (I02,80004) IVTNUM, IVCOMP, IVCORR 02390045 ! 243: 7521 CONTINUE 02400045 ! 244: IVTNUM = 752 02410045 ! 245: C 02420045 ! 246: C **** TEST 752 **** 02430045 ! 247: C 02440045 ! 248: IF (ICZERO) 37520, 7520, 37520 02450045 ! 249: 7520 CONTINUE 02460045 ! 250: IVON01 = 15 02470045 ! 251: IVON02 = 9 02480045 ! 252: IVON03 = 4 02490045 ! 253: IVON04 = 36 02500045 ! 254: IVON05 = 6 02510045 ! 255: IVON06 = 2 02520045 ! 256: IVCOMP = (IVON01 + IVON02) - (IVON03 * IVON04 / IVON05) ** IVON06 02530045 ! 257: GO TO 47520 02540045 ! 258: 37520 IVDELE = IVDELE + 1 02550045 ! 259: WRITE (I02,80003) IVTNUM 02560045 ! 260: IF (ICZERO) 47520, 7531, 47520 02570045 ! 261: 47520 IF (IVCOMP + 552) 27520,17520,27520 02580045 ! 262: 17520 IVPASS = IVPASS + 1 02590045 ! 263: WRITE (I02,80001) IVTNUM 02600045 ! 264: GO TO 7531 02610045 ! 265: 27520 IVFAIL = IVFAIL + 1 02620045 ! 266: IVCORR = -552 02630045 ! 267: WRITE (I02,80004) IVTNUM, IVCOMP, IVCORR 02640045 ! 268: 7531 CONTINUE 02650045 ! 269: IVTNUM = 753 02660045 ! 270: C 02670045 ! 271: C **** TEST 753 **** 02680045 ! 272: C 02690045 ! 273: IF (ICZERO) 37530, 7530, 37530 02700045 ! 274: 7530 CONTINUE 02710045 ! 275: IVON01 = 15 02720045 ! 276: IVON02 = 9 02730045 ! 277: IVON03 = 4 02740045 ! 278: IVON04 = 36 02750045 ! 279: IVON05 = 6 02760045 ! 280: IVON06 = 2 02770045 ! 281: IVCOMP = IVON01 + (IVON02 - IVON03 * IVON04) / IVON05 ** IVON06 02780045 ! 282: GO TO 47530 02790045 ! 283: 37530 IVDELE = IVDELE + 1 02800045 ! 284: WRITE (I02,80003) IVTNUM 02810045 ! 285: IF (ICZERO) 47530, 7541, 47530 02820045 ! 286: 47530 IF (IVCOMP - 12) 27530,17530,27530 02830045 ! 287: 17530 IVPASS = IVPASS + 1 02840045 ! 288: WRITE (I02,80001) IVTNUM 02850045 ! 289: GO TO 7541 02860045 ! 290: 27530 IVFAIL = IVFAIL + 1 02870045 ! 291: IVCORR = 12 02880045 ! 292: C ACTUAL ANSWER IS 11.25 TRUNCATION IS NECESSARY 02890045 ! 293: C DURING AN INTERMEDIATE STEP 02900045 ! 294: WRITE (I02,80004) IVTNUM, IVCOMP, IVCORR 02910045 ! 295: 7541 CONTINUE 02920045 ! 296: IVTNUM = 754 02930045 ! 297: C 02940045 ! 298: C **** TEST 754 **** 02950045 ! 299: C 02960045 ! 300: IF (ICZERO) 37540, 7540, 37540 02970045 ! 301: 7540 CONTINUE 02980045 ! 302: IVON01 = 15 02990045 ! 303: IVON02 = 9 03000045 ! 304: IVON03 = 4 03010045 ! 305: IVON04 = 36 03020045 ! 306: IVON05 = 6 03030045 ! 307: IVON06 = 2 03040045 ! 308: IVCOMP = IVON01 + (IVON02 - IVON03) * (IVON04 / IVON05) ** IVON06 03050045 ! 309: GO TO 47540 03060045 ! 310: 37540 IVDELE = IVDELE + 1 03070045 ! 311: WRITE (I02,80003) IVTNUM 03080045 ! 312: IF (ICZERO) 47540, 7551, 47540 03090045 ! 313: 47540 IF (IVCOMP - 195) 27540,17540,27540 03100045 ! 314: 17540 IVPASS = IVPASS + 1 03110045 ! 315: WRITE (I02,80001) IVTNUM 03120045 ! 316: GO TO 7551 03130045 ! 317: 27540 IVFAIL = IVFAIL + 1 03140045 ! 318: IVCORR = 195 03150045 ! 319: WRITE (I02,80004) IVTNUM, IVCOMP, IVCORR 03160045 ! 320: 7551 CONTINUE 03170045 ! 321: IVTNUM = 755 03180045 ! 322: C 03190045 ! 323: C **** TEST 755 **** 03200045 ! 324: C 03210045 ! 325: IF (ICZERO) 37550, 7550, 37550 03220045 ! 326: 7550 CONTINUE 03230045 ! 327: IVON01 = 15 03240045 ! 328: IVON02 = 9 03250045 ! 329: IVON03 = 4 03260045 ! 330: IVON04 = 36 03270045 ! 331: IVON05 = 6 03280045 ! 332: IVON06 = 2 03290045 ! 333: IVCOMP = ((IVON01 + (IVON02 - IVON03) * IVON04) / IVON05) ** 03300045 ! 334: * IVON06 03310045 ! 335: GO TO 47550 03320045 ! 336: 37550 IVDELE = IVDELE + 1 03330045 ! 337: WRITE (I02,80003) IVTNUM 03340045 ! 338: IF (ICZERO) 47550, 7561, 47550 03350045 ! 339: 47550 IF (IVCOMP - 1024) 27550,17550,27550 03360045 ! 340: 17550 IVPASS = IVPASS + 1 03370045 ! 341: WRITE (I02,80001) IVTNUM 03380045 ! 342: GO TO 7561 03390045 ! 343: 27550 IVFAIL = IVFAIL + 1 03400045 ! 344: IVCORR = 1024 03410045 ! 345: C ACTUAL ANSWER IS 1056.25 TRUNCATION IS NECESSARY 03420045 ! 346: C DURING AN INTERMEDIATE STEP 03430045 ! 347: WRITE (I02,80004) IVTNUM, IVCOMP, IVCORR 03440045 ! 348: 7561 CONTINUE 03450045 ! 349: IVTNUM = 756 03460045 ! 350: C 03470045 ! 351: C **** TEST 756 **** 03480045 ! 352: C SINGLE PARENTHESES 03490045 ! 353: C 03500045 ! 354: IF (ICZERO) 37560, 7560, 37560 03510045 ! 355: 7560 CONTINUE 03520045 ! 356: IVON01 = 13 03530045 ! 357: IVON02 = 37 03540045 ! 358: IVCOMP = (IVON01 + IVON02) 03550045 ! 359: GO TO 47560 03560045 ! 360: 37560 IVDELE = IVDELE + 1 03570045 ! 361: WRITE (I02,80003) IVTNUM 03580045 ! 362: IF (ICZERO) 47560, 7571, 47560 03590045 ! 363: 47560 IF (IVCOMP - 50) 27560,17560,27560 03600045 ! 364: 17560 IVPASS = IVPASS + 1 03610045 ! 365: WRITE (I02,80001) IVTNUM 03620045 ! 366: GO TO 7571 03630045 ! 367: 27560 IVFAIL = IVFAIL + 1 03640045 ! 368: IVCORR = 50 03650045 ! 369: WRITE (I02,80004) IVTNUM, IVCOMP, IVCORR 03660045 ! 370: 7571 CONTINUE 03670045 ! 371: IVTNUM = 757 03680045 ! 372: C 03690045 ! 373: C **** TEST 757 **** 03700045 ! 374: C NESTED PARENTHESES (TWO SETS) 03710045 ! 375: C 03720045 ! 376: IF (ICZERO) 37570, 7570, 37570 03730045 ! 377: 7570 CONTINUE 03740045 ! 378: IVON01 = 13 03750045 ! 379: IVON02 = 37 03760045 ! 380: IVCOMP = ((IVON01 - IVON02)) 03770045 ! 381: GO TO 47570 03780045 ! 382: 37570 IVDELE = IVDELE + 1 03790045 ! 383: WRITE (I02,80003) IVTNUM 03800045 ! 384: IF (ICZERO) 47570, 7581, 47570 03810045 ! 385: 47570 IF (IVCOMP + 24) 27570,17570,27570 03820045 ! 386: 17570 IVPASS = IVPASS + 1 03830045 ! 387: WRITE (I02,80001) IVTNUM 03840045 ! 388: GO TO 7581 03850045 ! 389: 27570 IVFAIL = IVFAIL + 1 03860045 ! 390: IVCORR = -24 03870045 ! 391: WRITE (I02,80004) IVTNUM, IVCOMP, IVCORR 03880045 ! 392: 7581 CONTINUE 03890045 ! 393: IVTNUM = 758 03900045 ! 394: C 03910045 ! 395: C **** TEST 758 **** 03920045 ! 396: C NESTED PARENTHESES (21 SETS - SAME LINE) 03930045 ! 397: C 03940045 ! 398: IF (ICZERO) 37580, 7580, 37580 03950045 ! 399: 7580 CONTINUE 03960045 ! 400: IVON01 = 13 03970045 ! 401: IVON02 = 37 03980045 ! 402: IVCOMP = (((((((((((((((((((((IVON01 * IVON02)))))))))))))))))))))03990045 ! 403: GO TO 47580 04000045 ! 404: 37580 IVDELE = IVDELE + 1 04010045 ! 405: WRITE (I02,80003) IVTNUM 04020045 ! 406: IF (ICZERO) 47580, 7591, 47580 04030045 ! 407: 47580 IF (IVCOMP - 481) 27580,17580,27580 04040045 ! 408: 17580 IVPASS = IVPASS + 1 04050045 ! 409: WRITE (I02,80001) IVTNUM 04060045 ! 410: GO TO 7591 04070045 ! 411: 27580 IVFAIL = IVFAIL + 1 04080045 ! 412: IVCORR = 481 04090045 ! 413: WRITE (I02,80004) IVTNUM, IVCOMP, IVCORR 04100045 ! 414: 7591 CONTINUE 04110045 ! 415: IVTNUM = 759 04120045 ! 416: C 04130045 ! 417: C **** TEST 759 **** 04140045 ! 418: C NESTED PARENTHESES (57 SETS - MULTIPLE LINES) 04150045 ! 419: C 04160045 ! 420: IF (ICZERO) 37590, 7590, 37590 04170045 ! 421: 7590 CONTINUE 04180045 ! 422: IVON01 = 13 04190045 ! 423: IVON02 = 37 04200045 ! 424: IVCOMP = (((((((((((((((((((((((((((((((((((((((((((((((((((((((((04210045 ! 425: * IVON01 / IVON02 04220045 ! 426: * )))))))))))))))))))))))))))))))))))))))))))))))))))))))))04230045 ! 427: GO TO 47590 04240045 ! 428: 37590 IVDELE = IVDELE + 1 04250045 ! 429: WRITE (I02,80003) IVTNUM 04260045 ! 430: IF (ICZERO) 47590, 7601, 47590 04270045 ! 431: 47590 IF (IVCOMP) 27590,17590,27590 04280045 ! 432: 17590 IVPASS = IVPASS + 1 04290045 ! 433: WRITE (I02,80001) IVTNUM 04300045 ! 434: GO TO 7601 04310045 ! 435: 27590 IVFAIL = IVFAIL + 1 04320045 ! 436: IVCORR = 0 04330045 ! 437: WRITE (I02,80004) IVTNUM, IVCOMP, IVCORR 04340045 ! 438: 7601 CONTINUE 04350045 ! 439: C 04360045 ! 440: C WRITE PAGE FOOTINGS AND RUN SUMMARIES 04370045 ! 441: 99999 CONTINUE 04380045 ! 442: WRITE (I02,90002) 04390045 ! 443: WRITE (I02,90006) 04400045 ! 444: WRITE (I02,90002) 04410045 ! 445: WRITE (I02,90002) 04420045 ! 446: WRITE (I02,90007) 04430045 ! 447: WRITE (I02,90002) 04440045 ! 448: WRITE (I02,90008) IVFAIL 04450045 ! 449: WRITE (I02,90009) IVPASS 04460045 ! 450: WRITE (I02,90010) IVDELE 04470045 ! 451: C 04480045 ! 452: C 04490045 ! 453: C TERMINATE ROUTINE EXECUTION 04500045 ! 454: STOP 04510045 ! 455: C 04520045 ! 456: C FORMAT STATEMENTS FOR PAGE HEADERS 04530045 ! 457: 90000 FORMAT (1H1) 04540045 ! 458: 90002 FORMAT (1H ) 04550045 ! 459: 90001 FORMAT (1H ,10X,34HFORTRAN COMPILER VALIDATION SYSTEM) 04560045 ! 460: 90003 FORMAT (1H ,21X,11HVERSION 1.0) 04570045 ! 461: 90004 FORMAT (1H ,10X,38HFOR OFFICIAL USE ONLY - COPYRIGHT 1978) 04580045 ! 462: 90005 FORMAT (1H ,5X,4HTEST,5X,9HPASS/FAIL, 5X,8HCOMPUTED,8X,7HCORRECT) 04590045 ! 463: 90006 FORMAT (1H ,5X,46H----------------------------------------------) 04600045 ! 464: 90011 FORMAT (1H ,18X,17HSUBSET LEVEL TEST) 04610045 ! 465: C 04620045 ! 466: C FORMAT STATEMENTS FOR RUN SUMMARIES 04630045 ! 467: 90008 FORMAT (1H ,15X,I5,19H ERRORS ENCOUNTERED) 04640045 ! 468: 90009 FORMAT (1H ,15X,I5,13H TESTS PASSED) 04650045 ! 469: 90010 FORMAT (1H ,15X,I5,14H TESTS DELETED) 04660045 ! 470: C 04670045 ! 471: C FORMAT STATEMENTS FOR TEST RESULTS 04680045 ! 472: 80001 FORMAT (1H ,4X,I5,7X,4HPASS) 04690045 ! 473: 80002 FORMAT (1H ,4X,I5,7X,4HFAIL) 04700045 ! 474: 80003 FORMAT (1H ,4X,I5,7X,7HDELETED) 04710045 ! 475: 80004 FORMAT (1H ,4X,I5,7X,4HFAIL,10X,I6,9X,I6) 04720045 ! 476: 80005 FORMAT (1H ,4X,I5,7X,4HFAIL,4X,E12.5,3X,E12.5) 04730045 ! 477: C 04740045 ! 478: 90007 FORMAT (1H ,20X,20HEND OF PROGRAM FM045) 04750045 ! 479: END 04760045
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.