![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to FM037.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 FM037.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 00010037 ! 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 00020037 ! 6: C FM037 00030037 ! 7: C 00040037 ! 8: C THIS ROUTINE TESTS ARITHMETIC ASSIGNMENT STATEMENTS OF THE 00050037 ! 9: C FORM 00060037 ! 10: C INTEGER VARIABLE = ARITHMETIC EXPRESSION 00070037 ! 11: C WHERE THE ARITHMETIC EXPRESSION IS FORMED WITH THREE INTEGER 00080037 ! 12: C CONSTANTS AND THE ARITHMETIC OPERATOR /. BOTH POSITIVE AND NEGA- 00090037 ! 13: C TIVE CONSTANTS ARE USED IN THE ARITHMETIC EXPRESSION. 00100037 ! 14: C 00110037 ! 15: C THERE ARE TESTS WHICH REQUIRE NO TRUNCATION OF THE RESULT 00120037 ! 16: C AND TESTS WHERE THE RESULT MUST BE TRUNCATED BEFORE BEING STORED 00130037 ! 17: C IN THE RESULTANT INTEGER VARIABLE. THE STANDARD STATES 'THE VALUE00140037 ! 18: C OF AN INTEGER FACTOR OR TERM IS THE NEAREST INTEGER WHOSE MAGNI- 00150037 ! 19: C TUDE DOES NOT EXCEED THE MAGNITUDE OF THE MATHEMATICAL VALUE 00160037 ! 20: C REPRESENTED BY THAT FACTOR OR TERM. THE ASSOCIATIVE AND COMMUTA- 00170037 ! 21: C TIVE LAWS DO NOT APPLY IN THE EVALUATION OF INTEGER TERMS CON- 00180037 ! 22: C TAINING DIVISION, HENCE THE EVALUATION OF SUCH TERMS MUST EFFEC- 00190037 ! 23: C TIVELY PROCEED FROM LEFT TO RIGHT.' 00200037 ! 24: C 00210037 ! 25: C THERE ARE TESTS WHERE THE ARITHMETIC EXPRESSION CONTAINS 00220037 ! 26: C (1) INTEGER CONSTANT/INTEGER CONSTANT/INTEGER CONSTANT 00230037 ! 27: C NO TRUNCATION REQUIRED 00240037 ! 28: C (2) INTEGER CONSTANT/INTEGER CONSTANT/INTEGER CONSTANT 00250037 ! 29: C TRUNCATION REQUIRED 00260037 ! 30: C 00270037 ! 31: C REFERENCES 00280037 ! 32: C AMERICAN NATIONAL STANDARD PROGRAMMING LANGUAGE FORTRAN, 00290037 ! 33: C X3.9-1978 00300037 ! 34: C 00310037 ! 35: C SECTION 4.3, INTEGER TYPE 00320037 ! 36: C SECTION 4.3.1, INTEGER CONSTANT 00330037 ! 37: C SECTION 6.1, ARITHMETIC EXPRESSIONS 00340037 ! 38: C SECTION 6.6, EVALUATION OF EXPRESSIONS 00350037 ! 39: C SECTION 10.1, ARITHMETIC ASSIGNMENT STATEMENT 00360037 ! 40: C 00370037 ! 41: C ********************************************************** 00380037 ! 42: C 00390037 ! 43: C A COMPILER VALIDATION SYSTEM FOR THE FORTRAN LANGUAGE 00400037 ! 44: C BASED ON SPECIFICATIONS AS DEFINED IN AMERICAN NATIONAL STANDARD 00410037 ! 45: C PROGRAMMING LANGUAGE FORTRAN X3.9-1978, HAS BEEN DEVELOPED BY THE 00420037 ! 46: C FEDERAL COBOL COMPILER TESTING SERVICE. THE FORTRAN COMPILER 00430037 ! 47: C VALIDATION SYSTEM (FCVS) CONSISTS OF AUDIT ROUTINES, THEIR RELATED00440037 ! 48: C DATA, AND AN EXECUTIVE SYSTEM. EACH AUDIT ROUTINE IS A FORTRAN 00450037 ! 49: C PROGRAM, SUBPROGRAM OR FUNCTION WHICH INCLUDES TESTS OF SPECIFIC 00460037 ! 50: C LANGUAGE ELEMENTS AND SUPPORTING PROCEDURES INDICATING THE RESULT 00470037 ! 51: C OF EXECUTING THESE TESTS. 00480037 ! 52: C 00490037 ! 53: C THIS PARTICULAR PROGRAM/SUBPROGRAM/FUNCTION CONTAINS FEATURES 00500037 ! 54: C FOUND ONLY IN THE SUBSET AS DEFINED IN X3.9-1978. 00510037 ! 55: C 00520037 ! 56: C SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO - 00530037 ! 57: C 00540037 ! 58: C DEPARTMENT OF THE NAVY 00550037 ! 59: C FEDERAL COBOL COMPILER TESTING SERVICE 00560037 ! 60: C WASHINGTON, D.C. 20376 00570037 ! 61: C 00580037 ! 62: C ********************************************************** 00590037 ! 63: C 00600037 ! 64: C 00610037 ! 65: C 00620037 ! 66: C INITIALIZATION SECTION 00630037 ! 67: C 00640037 ! 68: C INITIALIZE CONSTANTS 00650037 ! 69: C ************** 00660037 ! 70: C I01 CONTAINS THE LOGICAL UNIT NUMBER FOR THE CARD READER. 00670037 ! 71: I01 = 5 00680037 ! 72: C I02 CONTAINS THE LOGICAL UNIT NUMBER FOR THE PRINTER. 00690037 ! 73: I02 = 6 00700037 ! 74: C SYSTEM ENVIRONMENT SECTION 00710037 ! 75: C 00720037 ! 76: I01 = 5 00730037 ! 77: C THE CX010 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I01 = 5 00740037 ! 78: C (UNIT NUMBER FOR CARD READER). 00750037 ! 79: CX011 THIS CARD IS REPLACED BY CONTENTS OF FEXEC X-011 CONTROL CARD. 00760037 ! 80: C THE CX011 CARD IS FOR SYSTEMS WHICH REQUIRE ADDITIONAL 00770037 ! 81: C FORTRAN STATEMENTS FOR FILES ASSOCIATED WITH CX010 ABOVE. 00780037 ! 82: C 00790037 ! 83: I02 = 6 00800037 ! 84: C THE CX020 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I02 = 6 00810037 ! 85: C (UNIT NUMBER FOR PRINTER). 00820037 ! 86: CX021 THIS CARD IS REPLACED BY CONTENTS OF FEXEC X-021 CONTROL CARD. 00830037 ! 87: C THE CX021 CARD IS FOR SYSTEMS WHICH REQUIRE ADDITIONAL 00840037 ! 88: C FORTRAN STATEMENTS FOR FILES ASSOCIATED WITH CX020 ABOVE. 00850037 ! 89: C 00860037 ! 90: IVPASS=0 00870037 ! 91: IVFAIL=0 00880037 ! 92: IVDELE=0 00890037 ! 93: ICZERO=0 00900037 ! 94: C 00910037 ! 95: C WRITE PAGE HEADERS 00920037 ! 96: WRITE (I02,90000) 00930037 ! 97: WRITE (I02,90001) 00940037 ! 98: WRITE (I02,90002) 00950037 ! 99: WRITE (I02, 90002) 00960037 ! 100: WRITE (I02,90003) 00970037 ! 101: WRITE (I02,90002) 00980037 ! 102: WRITE (I02,90004) 00990037 ! 103: WRITE (I02,90002) 01000037 ! 104: WRITE (I02,90011) 01010037 ! 105: WRITE (I02,90002) 01020037 ! 106: WRITE (I02,90002) 01030037 ! 107: WRITE (I02,90005) 01040037 ! 108: WRITE (I02,90006) 01050037 ! 109: WRITE (I02,90002) 01060037 ! 110: C 01070037 ! 111: C TEST SECTION 01080037 ! 112: C 01090037 ! 113: C ARITHMETIC ASSIGNMENT STATEMENT 01100037 ! 114: C 01110037 ! 115: C TEST 491 THROUGH TEST 519 CONTAIN THREE INTEGER CONSTANTS AND 01120037 ! 116: C OPERATOR / IN AN ARITHMETIC EXPRESSION. THE FORM TESTED IS 01130037 ! 117: C INTEGER VARIABLE = INTEGER CONSTANT/INTEGER CONSTANT/INT.CON. 01140037 ! 118: C 01150037 ! 119: C 01160037 ! 120: C TEST 491 THROUGH TEST 496 - POSITIVE INTEGER CONSTANTS 01170037 ! 121: C NO TRUNCATION REQUIRED 01180037 ! 122: C 01190037 ! 123: 4911 CONTINUE 01200037 ! 124: IVTNUM = 491 01210037 ! 125: C 01220037 ! 126: C **** TEST 491 **** 01230037 ! 127: C 01240037 ! 128: IF (ICZERO) 34910, 4910, 34910 01250037 ! 129: 4910 CONTINUE 01260037 ! 130: IVCOMP = 24/3/4 01270037 ! 131: GO TO 44910 01280037 ! 132: 34910 IVDELE = IVDELE + 1 01290037 ! 133: WRITE (I02,80003) IVTNUM 01300037 ! 134: IF (ICZERO) 44910, 4921, 44910 01310037 ! 135: 44910 IF (IVCOMP - 2) 24910,14910,24910 01320037 ! 136: 14910 IVPASS = IVPASS + 1 01330037 ! 137: WRITE (I02,80001) IVTNUM 01340037 ! 138: GO TO 4921 01350037 ! 139: 24910 IVFAIL = IVFAIL + 1 01360037 ! 140: IVCORR = 2 01370037 ! 141: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 01380037 ! 142: 4921 CONTINUE 01390037 ! 143: IVTNUM = 492 01400037 ! 144: C 01410037 ! 145: C **** TEST 492 **** 01420037 ! 146: C 01430037 ! 147: IF (ICZERO) 34920, 4920, 34920 01440037 ! 148: 4920 CONTINUE 01450037 ! 149: IVCOMP = 330/3/2 01460037 ! 150: GO TO 44920 01470037 ! 151: 34920 IVDELE = IVDELE + 1 01480037 ! 152: WRITE (I02,80003) IVTNUM 01490037 ! 153: IF (ICZERO) 44920, 4931, 44920 01500037 ! 154: 44920 IF (IVCOMP - 55) 24920,14920,24920 01510037 ! 155: 14920 IVPASS = IVPASS + 1 01520037 ! 156: WRITE (I02,80001) IVTNUM 01530037 ! 157: GO TO 4931 01540037 ! 158: 24920 IVFAIL = IVFAIL + 1 01550037 ! 159: IVCORR = 55 01560037 ! 160: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 01570037 ! 161: 4931 CONTINUE 01580037 ! 162: IVTNUM = 493 01590037 ! 163: C 01600037 ! 164: C **** TEST 493 **** 01610037 ! 165: C 01620037 ! 166: IF (ICZERO) 34930, 4930, 34930 01630037 ! 167: 4930 CONTINUE 01640037 ! 168: IVCOMP = 15249/13/51 01650037 ! 169: GO TO 44930 01660037 ! 170: 34930 IVDELE = IVDELE + 1 01670037 ! 171: WRITE (I02,80003) IVTNUM 01680037 ! 172: IF (ICZERO) 44930, 4941, 44930 01690037 ! 173: 44930 IF (IVCOMP - 23) 24930,14930,24930 01700037 ! 174: 14930 IVPASS = IVPASS + 1 01710037 ! 175: WRITE (I02,80001) IVTNUM 01720037 ! 176: GO TO 4941 01730037 ! 177: 24930 IVFAIL = IVFAIL + 1 01740037 ! 178: IVCORR = 23 01750037 ! 179: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 01760037 ! 180: 4941 CONTINUE 01770037 ! 181: IVTNUM = 494 01780037 ! 182: C 01790037 ! 183: C **** TEST 494 **** 01800037 ! 184: C 01810037 ! 185: IF (ICZERO) 34940, 4940, 34940 01820037 ! 186: 4940 CONTINUE 01830037 ! 187: IVCOMP = 7150/2/25 01840037 ! 188: GO TO 44940 01850037 ! 189: 34940 IVDELE = IVDELE + 1 01860037 ! 190: WRITE (I02,80003) IVTNUM 01870037 ! 191: IF (ICZERO) 44940, 4951, 44940 01880037 ! 192: 44940 IF (IVCOMP - 143) 24940,14940,24940 01890037 ! 193: 14940 IVPASS = IVPASS + 1 01900037 ! 194: WRITE (I02,80001) IVTNUM 01910037 ! 195: GO TO 4951 01920037 ! 196: 24940 IVFAIL = IVFAIL + 1 01930037 ! 197: IVCORR = 143 01940037 ! 198: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 01950037 ! 199: 4951 CONTINUE 01960037 ! 200: IVTNUM = 495 01970037 ! 201: C 01980037 ! 202: C **** TEST 495 **** 01990037 ! 203: C 02000037 ! 204: IF (ICZERO) 34950, 4950, 34950 02010037 ! 205: 4950 CONTINUE 02020037 ! 206: IVCOMP = 32766/2/3 02030037 ! 207: GO TO 44950 02040037 ! 208: 34950 IVDELE = IVDELE + 1 02050037 ! 209: WRITE (I02,80003) IVTNUM 02060037 ! 210: IF (ICZERO) 44950, 4961, 44950 02070037 ! 211: 44950 IF (IVCOMP - 5461) 24950,14950,24950 02080037 ! 212: 14950 IVPASS = IVPASS + 1 02090037 ! 213: WRITE (I02,80001) IVTNUM 02100037 ! 214: GO TO 4961 02110037 ! 215: 24950 IVFAIL = IVFAIL + 1 02120037 ! 216: IVCORR = 5461 02130037 ! 217: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 02140037 ! 218: 4961 CONTINUE 02150037 ! 219: IVTNUM = 496 02160037 ! 220: C 02170037 ! 221: C **** TEST 496 **** 02180037 ! 222: C 02190037 ! 223: IF (ICZERO) 34960, 4960, 34960 02200037 ! 224: 4960 CONTINUE 02210037 ! 225: IVCOMP = 32766/1/1 02220037 ! 226: GO TO 44960 02230037 ! 227: 34960 IVDELE = IVDELE + 1 02240037 ! 228: WRITE (I02,80003) IVTNUM 02250037 ! 229: IF (ICZERO) 44960, 4971, 44960 02260037 ! 230: 44960 IF (IVCOMP - 32766) 24960,14960,24960 02270037 ! 231: 14960 IVPASS = IVPASS + 1 02280037 ! 232: WRITE (I02,80001) IVTNUM 02290037 ! 233: GO TO 4971 02300037 ! 234: 24960 IVFAIL = IVFAIL + 1 02310037 ! 235: IVCORR = 32766 02320037 ! 236: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 02330037 ! 237: C 02340037 ! 238: C TEST 497 THROUGH TEST 502 - POSITIVE INTEGER CONSTANTS 02350037 ! 239: C TRUNCATION REQUIRED 02360037 ! 240: C 02370037 ! 241: 4971 CONTINUE 02380037 ! 242: IVTNUM = 497 02390037 ! 243: C 02400037 ! 244: C **** TEST 497 **** 02410037 ! 245: C 02420037 ! 246: IF (ICZERO) 34970, 4970, 34970 02430037 ! 247: 4970 CONTINUE 02440037 ! 248: IVCOMP = 24/3/3 02450037 ! 249: GO TO 44970 02460037 ! 250: 34970 IVDELE = IVDELE + 1 02470037 ! 251: WRITE (I02,80003) IVTNUM 02480037 ! 252: IF (ICZERO) 44970, 4981, 44970 02490037 ! 253: 44970 IF (IVCOMP -2) 24970,14970,24970 02500037 ! 254: 14970 IVPASS = IVPASS + 1 02510037 ! 255: WRITE (I02,80001) IVTNUM 02520037 ! 256: GO TO 4981 02530037 ! 257: 24970 IVFAIL = IVFAIL + 1 02540037 ! 258: IVCORR = 2 02550037 ! 259: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 02560037 ! 260: 4981 CONTINUE 02570037 ! 261: IVTNUM = 498 02580037 ! 262: C 02590037 ! 263: C **** TEST 498 **** 02600037 ! 264: C 02610037 ! 265: IF (ICZERO) 34980, 4980, 34980 02620037 ! 266: 4980 CONTINUE 02630037 ! 267: IVCOMP = 230/2/3 02640037 ! 268: GO TO 44980 02650037 ! 269: 34980 IVDELE = IVDELE + 1 02660037 ! 270: WRITE (I02,80003) IVTNUM 02670037 ! 271: IF (ICZERO) 44980, 4991, 44980 02680037 ! 272: 44980 IF (IVCOMP - 38) 24980,14980,24980 02690037 ! 273: 14980 IVPASS = IVPASS + 1 02700037 ! 274: WRITE (I02,80001) IVTNUM 02710037 ! 275: GO TO 4991 02720037 ! 276: 24980 IVFAIL = IVFAIL + 1 02730037 ! 277: IVCORR = 38 02740037 ! 278: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 02750037 ! 279: 4991 CONTINUE 02760037 ! 280: IVTNUM = 499 02770037 ! 281: C 02780037 ! 282: C **** TEST 499 **** 02790037 ! 283: C 02800037 ! 284: IF (ICZERO) 34990, 4990, 34990 02810037 ! 285: 4990 CONTINUE 02820037 ! 286: IVCOMP = 7151/3/10 02830037 ! 287: GO TO 44990 02840037 ! 288: 34990 IVDELE = IVDELE + 1 02850037 ! 289: WRITE (I02,80003) IVTNUM 02860037 ! 290: IF (ICZERO) 44990, 5001, 44990 02870037 ! 291: 44990 IF (IVCOMP - 238) 24990,14990,24990 02880037 ! 292: 14990 IVPASS = IVPASS + 1 02890037 ! 293: WRITE (I02,80001) IVTNUM 02900037 ! 294: GO TO 5001 02910037 ! 295: 24990 IVFAIL = IVFAIL + 1 02920037 ! 296: IVCORR = 238 02930037 ! 297: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 02940037 ! 298: 5001 CONTINUE 02950037 ! 299: IVTNUM = 500 02960037 ! 300: C 02970037 ! 301: C **** TEST 500 **** 02980037 ! 302: C 02990037 ! 303: IF (ICZERO) 35000, 5000, 35000 03000037 ! 304: 5000 CONTINUE 03010037 ! 305: IVCOMP = 15248/51/13 03020037 ! 306: GO TO 45000 03030037 ! 307: 35000 IVDELE = IVDELE + 1 03040037 ! 308: WRITE (I02,80003) IVTNUM 03050037 ! 309: IF (ICZERO) 45000, 5011, 45000 03060037 ! 310: 45000 IF (IVCOMP - 22) 25000,15000,25000 03070037 ! 311: 15000 IVPASS = IVPASS + 1 03080037 ! 312: WRITE (I02,80001) IVTNUM 03090037 ! 313: GO TO 5011 03100037 ! 314: 25000 IVFAIL = IVFAIL + 1 03110037 ! 315: IVCORR = 22 03120037 ! 316: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 03130037 ! 317: 5011 CONTINUE 03140037 ! 318: IVTNUM = 501 03150037 ! 319: C 03160037 ! 320: C **** TEST 501 **** 03170037 ! 321: C 03180037 ! 322: IF (ICZERO) 35010, 5010, 35010 03190037 ! 323: 5010 CONTINUE 03200037 ! 324: IVCOMP = 27342/4/3 03210037 ! 325: GO TO 45010 03220037 ! 326: 35010 IVDELE = IVDELE + 1 03230037 ! 327: WRITE (I02,80003) IVTNUM 03240037 ! 328: IF (ICZERO) 45010, 5021, 45010 03250037 ! 329: 45010 IF (IVCOMP - 2278) 25010,15010,25010 03260037 ! 330: 15010 IVPASS = IVPASS + 1 03270037 ! 331: WRITE (I02,80001) IVTNUM 03280037 ! 332: GO TO 5021 03290037 ! 333: 25010 IVFAIL = IVFAIL + 1 03300037 ! 334: IVCORR = 2278 03310037 ! 335: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 03320037 ! 336: 5021 CONTINUE 03330037 ! 337: IVTNUM = 502 03340037 ! 338: C 03350037 ! 339: C **** TEST 502 **** 03360037 ! 340: C 03370037 ! 341: IF (ICZERO) 35020, 5020, 35020 03380037 ! 342: 5020 CONTINUE 03390037 ! 343: IVCOMP = 32767/2/1 03400037 ! 344: GO TO 45020 03410037 ! 345: 35020 IVDELE = IVDELE + 1 03420037 ! 346: WRITE (I02,80003) IVTNUM 03430037 ! 347: IF (ICZERO) 45020, 5031, 45020 03440037 ! 348: 45020 IF (IVCOMP - 16383) 25020,15020,25020 03450037 ! 349: 15020 IVPASS = IVPASS + 1 03460037 ! 350: WRITE (I02,80001) IVTNUM 03470037 ! 351: GO TO 5031 03480037 ! 352: 25020 IVFAIL = IVFAIL + 1 03490037 ! 353: IVCORR = 16383 03500037 ! 354: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 03510037 ! 355: C 03520037 ! 356: C TEST 503 THROUGH TEST 507 - NEGATIVE INTEGER CONSTANTS INCLUDED 03530037 ! 357: C NO TRUNCATION REQUIRED 03540037 ! 358: C 03550037 ! 359: 5031 CONTINUE 03560037 ! 360: IVTNUM = 503 03570037 ! 361: C 03580037 ! 362: C **** TEST 503 **** 03590037 ! 363: C 03600037 ! 364: IF (ICZERO) 35030, 5030, 35030 03610037 ! 365: 5030 CONTINUE 03620037 ! 366: IVCOMP = -24/3/4 03630037 ! 367: GO TO 45030 03640037 ! 368: 35030 IVDELE = IVDELE + 1 03650037 ! 369: WRITE (I02,80003) IVTNUM 03660037 ! 370: IF (ICZERO) 45030, 5041, 45030 03670037 ! 371: 45030 IF (IVCOMP +2) 25030,15030,25030 03680037 ! 372: 15030 IVPASS = IVPASS + 1 03690037 ! 373: WRITE (I02,80001) IVTNUM 03700037 ! 374: GO TO 5041 03710037 ! 375: 25030 IVFAIL = IVFAIL + 1 03720037 ! 376: IVCORR = -2 03730037 ! 377: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 03740037 ! 378: 5041 CONTINUE 03750037 ! 379: IVTNUM = 504 03760037 ! 380: C 03770037 ! 381: C **** TEST 504 **** 03780037 ! 382: C 03790037 ! 383: IF (ICZERO) 35040, 5040, 35040 03800037 ! 384: 5040 CONTINUE 03810037 ! 385: IVCOMP = 330/(-3)/2 03820037 ! 386: GO TO 45040 03830037 ! 387: 35040 IVDELE = IVDELE + 1 03840037 ! 388: WRITE (I02,80003) IVTNUM 03850037 ! 389: IF (ICZERO) 45040, 5051, 45040 03860037 ! 390: 45040 IF (IVCOMP + 55) 25040,15040,25040 03870037 ! 391: 15040 IVPASS = IVPASS + 1 03880037 ! 392: WRITE (I02,80001) IVTNUM 03890037 ! 393: GO TO 5051 03900037 ! 394: 25040 IVFAIL = IVFAIL + 1 03910037 ! 395: IVCORR = -55 03920037 ! 396: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 03930037 ! 397: 5051 CONTINUE 03940037 ! 398: IVTNUM = 505 03950037 ! 399: C 03960037 ! 400: C **** TEST 505 **** 03970037 ! 401: C 03980037 ! 402: IF (ICZERO) 35050, 5050, 35050 03990037 ! 403: 5050 CONTINUE 04000037 ! 404: IVCOMP = 15249/(-13)/(-51) 04010037 ! 405: GO TO 45050 04020037 ! 406: 35050 IVDELE = IVDELE + 1 04030037 ! 407: WRITE (I02,80003) IVTNUM 04040037 ! 408: IF (ICZERO) 45050, 5061, 45050 04050037 ! 409: 45050 IF (IVCOMP - 23) 25050,15050,25050 04060037 ! 410: 15050 IVPASS = IVPASS + 1 04070037 ! 411: WRITE (I02,80001) IVTNUM 04080037 ! 412: GO TO 5061 04090037 ! 413: 25050 IVFAIL = IVFAIL + 1 04100037 ! 414: IVCORR = 23 04110037 ! 415: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 04120037 ! 416: 5061 CONTINUE 04130037 ! 417: IVTNUM = 506 04140037 ! 418: C 04150037 ! 419: C **** TEST 506 **** 04160037 ! 420: C 04170037 ! 421: IF (ICZERO) 35060, 5060, 35060 04180037 ! 422: 5060 CONTINUE 04190037 ! 423: IVCOMP = -7150/(-2)/(-25) 04200037 ! 424: GO TO 45060 04210037 ! 425: 35060 IVDELE = IVDELE + 1 04220037 ! 426: WRITE (I02,80003) IVTNUM 04230037 ! 427: IF (ICZERO) 45060, 5071, 45060 04240037 ! 428: 45060 IF (IVCOMP + 143) 25060,15060,25060 04250037 ! 429: 15060 IVPASS = IVPASS + 1 04260037 ! 430: WRITE (I02,80001) IVTNUM 04270037 ! 431: GO TO 5071 04280037 ! 432: 25060 IVFAIL = IVFAIL + 1 04290037 ! 433: IVCORR = -143 04300037 ! 434: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 04310037 ! 435: 5071 CONTINUE 04320037 ! 436: IVTNUM = 507 04330037 ! 437: C 04340037 ! 438: C **** TEST 507 **** 04350037 ! 439: C 04360037 ! 440: IF (ICZERO) 35070, 5070, 35070 04370037 ! 441: 5070 CONTINUE 04380037 ! 442: IVCOMP = (-32766)/(-2)/(-3) 04390037 ! 443: GO TO 45070 04400037 ! 444: 35070 IVDELE = IVDELE + 1 04410037 ! 445: WRITE (I02,80003) IVTNUM 04420037 ! 446: IF (ICZERO) 45070, 5081, 45070 04430037 ! 447: 45070 IF (IVCOMP + 5461) 25070,15070,25070 04440037 ! 448: 15070 IVPASS = IVPASS + 1 04450037 ! 449: WRITE (I02,80001) IVTNUM 04460037 ! 450: GO TO 5081 04470037 ! 451: 25070 IVFAIL = IVFAIL + 1 04480037 ! 452: IVCORR = -5461 04490037 ! 453: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 04500037 ! 454: C 04510037 ! 455: C TEST 508 THROUGH TEST 513 - NEGATIVE INTEGER CONSTANTS INCLUDED 04520037 ! 456: C TRUNCATION REQUIRED 04530037 ! 457: C 04540037 ! 458: 5081 CONTINUE 04550037 ! 459: IVTNUM = 508 04560037 ! 460: C 04570037 ! 461: C **** TEST 508 **** 04580037 ! 462: C 04590037 ! 463: IF (ICZERO) 35080, 5080, 35080 04600037 ! 464: 5080 CONTINUE 04610037 ! 465: IVCOMP = -24/3/3 04620037 ! 466: GO TO 45080 04630037 ! 467: 35080 IVDELE = IVDELE + 1 04640037 ! 468: WRITE (I02,80003) IVTNUM 04650037 ! 469: IF (ICZERO) 45080, 5091, 45080 04660037 ! 470: 45080 IF (IVCOMP + 2) 25080,15080,25080 04670037 ! 471: 15080 IVPASS = IVPASS + 1 04680037 ! 472: WRITE (I02,80001) IVTNUM 04690037 ! 473: GO TO 5091 04700037 ! 474: 25080 IVFAIL = IVFAIL + 1 04710037 ! 475: IVCORR = -2 04720037 ! 476: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 04730037 ! 477: 5091 CONTINUE 04740037 ! 478: IVTNUM = 509 04750037 ! 479: C 04760037 ! 480: C **** TEST 509 **** 04770037 ! 481: C 04780037 ! 482: IF (ICZERO) 35090, 5090, 35090 04790037 ! 483: 5090 CONTINUE 04800037 ! 484: IVCOMP = 230/(-2)/3 04810037 ! 485: GO TO 45090 04820037 ! 486: 35090 IVDELE = IVDELE + 1 04830037 ! 487: WRITE (I02,80003) IVTNUM 04840037 ! 488: IF (ICZERO) 45090, 5101, 45090 04850037 ! 489: 45090 IF (IVCOMP + 38) 25090,15090,25090 04860037 ! 490: 15090 IVPASS = IVPASS + 1 04870037 ! 491: WRITE (I02,80001) IVTNUM 04880037 ! 492: GO TO 5101 04890037 ! 493: 25090 IVFAIL = IVFAIL + 1 04900037 ! 494: IVCORR = -38 04910037 ! 495: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 04920037 ! 496: 5101 CONTINUE 04930037 ! 497: IVTNUM = 510 04940037 ! 498: C 04950037 ! 499: C **** TEST 510 **** 04960037 ! 500: C 04970037 ! 501: IF (ICZERO) 35100, 5100, 35100 04980037 ! 502: 5100 CONTINUE 04990037 ! 503: IVCOMP = 7151/(-3)/(-10) 05000037 ! 504: GO TO 45100 05010037 ! 505: 35100 IVDELE = IVDELE + 1 05020037 ! 506: WRITE (I02,80003) IVTNUM 05030037 ! 507: IF (ICZERO) 45100, 5111, 45100 05040037 ! 508: 45100 IF (IVCOMP - 238) 25100,15100,25100 05050037 ! 509: 15100 IVPASS = IVPASS + 1 05060037 ! 510: WRITE (I02,80001) IVTNUM 05070037 ! 511: GO TO 5111 05080037 ! 512: 25100 IVFAIL = IVFAIL + 1 05090037 ! 513: IVCORR = 238 05100037 ! 514: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 05110037 ! 515: 5111 CONTINUE 05120037 ! 516: IVTNUM = 511 05130037 ! 517: C 05140037 ! 518: C **** TEST 511 **** 05150037 ! 519: C 05160037 ! 520: IF (ICZERO) 35110, 5110, 35110 05170037 ! 521: 5110 CONTINUE 05180037 ! 522: IVCOMP = -15248/(-51)/(-13) 05190037 ! 523: GO TO 45110 05200037 ! 524: 35110 IVDELE = IVDELE + 1 05210037 ! 525: WRITE (I02,80003) IVTNUM 05220037 ! 526: IF (ICZERO) 45110, 5121, 45110 05230037 ! 527: 45110 IF (IVCOMP + 22) 25110,15110,25110 05240037 ! 528: 15110 IVPASS = IVPASS + 1 05250037 ! 529: WRITE (I02,80001) IVTNUM 05260037 ! 530: GO TO 5121 05270037 ! 531: 25110 IVFAIL = IVFAIL + 1 05280037 ! 532: IVCORR = -22 05290037 ! 533: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 05300037 ! 534: 5121 CONTINUE 05310037 ! 535: IVTNUM = 512 05320037 ! 536: C 05330037 ! 537: C **** TEST 512 **** 05340037 ! 538: C 05350037 ! 539: IF (ICZERO) 35120, 5120, 35120 05360037 ! 540: 5120 CONTINUE 05370037 ! 541: IVCOMP = (-27342)/(-4)/(-3) 05380037 ! 542: GO TO 45120 05390037 ! 543: 35120 IVDELE = IVDELE + 1 05400037 ! 544: WRITE (I02,80003) IVTNUM 05410037 ! 545: IF (ICZERO) 45120, 5131, 45120 05420037 ! 546: 45120 IF (IVCOMP + 2278) 25120,15120,25120 05430037 ! 547: 15120 IVPASS = IVPASS + 1 05440037 ! 548: WRITE (I02,80001) IVTNUM 05450037 ! 549: GO TO 5131 05460037 ! 550: 25120 IVFAIL = IVFAIL + 1 05470037 ! 551: IVCORR = -2278 05480037 ! 552: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 05490037 ! 553: 5131 CONTINUE 05500037 ! 554: IVTNUM = 513 05510037 ! 555: C 05520037 ! 556: C **** TEST 513 **** 05530037 ! 557: C 05540037 ! 558: IF (ICZERO) 35130, 5130, 35130 05550037 ! 559: 5130 CONTINUE 05560037 ! 560: IVCOMP = 32767/2/(-1) 05570037 ! 561: GO TO 45130 05580037 ! 562: 35130 IVDELE = IVDELE + 1 05590037 ! 563: WRITE (I02,80003) IVTNUM 05600037 ! 564: IF (ICZERO) 45130, 5141, 45130 05610037 ! 565: 45130 IF (IVCOMP + 16383) 25130,15130,25130 05620037 ! 566: 15130 IVPASS = IVPASS + 1 05630037 ! 567: WRITE (I02,80001) IVTNUM 05640037 ! 568: GO TO 5141 05650037 ! 569: 25130 IVFAIL = IVFAIL + 1 05660037 ! 570: IVCORR = -16383 05670037 ! 571: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 05680037 ! 572: C 05690037 ! 573: C TEST 514 THROUGH TEST 519 - POSITIVE AND NEGATIVE SIGNED INTEGER 05700037 ! 574: C CONSTANTS IN ARITHMETIC EXPRESSION. 05710037 ! 575: C 05720037 ! 576: 5141 CONTINUE 05730037 ! 577: IVTNUM = 514 05740037 ! 578: C 05750037 ! 579: C **** TEST 514 **** 05760037 ! 580: C 05770037 ! 581: IF (ICZERO) 35140, 5140, 35140 05780037 ! 582: 5140 CONTINUE 05790037 ! 583: IVCOMP = +24/(-3)/4 05800037 ! 584: GO TO 45140 05810037 ! 585: 35140 IVDELE = IVDELE + 1 05820037 ! 586: WRITE (I02,80003) IVTNUM 05830037 ! 587: IF (ICZERO) 45140, 5151, 45140 05840037 ! 588: 45140 IF (IVCOMP +2) 25140,15140,25140 05850037 ! 589: 15140 IVPASS = IVPASS + 1 05860037 ! 590: WRITE (I02,80001) IVTNUM 05870037 ! 591: GO TO 5151 05880037 ! 592: 25140 IVFAIL = IVFAIL + 1 05890037 ! 593: IVCORR = -2 05900037 ! 594: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 05910037 ! 595: 5151 CONTINUE 05920037 ! 596: IVTNUM = 515 05930037 ! 597: C 05940037 ! 598: C **** TEST 515 **** 05950037 ! 599: C 05960037 ! 600: IF (ICZERO) 35150, 5150, 35150 05970037 ! 601: 5150 CONTINUE 05980037 ! 602: IVCOMP = 24/(+3)/(-4) 05990037 ! 603: GO TO 45150 06000037 ! 604: 35150 IVDELE = IVDELE + 1 06010037 ! 605: WRITE (I02,80003) IVTNUM 06020037 ! 606: IF (ICZERO) 45150, 5161, 45150 06030037 ! 607: 45150 IF (IVCOMP +2) 25150,15150,25150 06040037 ! 608: 15150 IVPASS = IVPASS + 1 06050037 ! 609: WRITE (I02,80001) IVTNUM 06060037 ! 610: GO TO 5161 06070037 ! 611: 25150 IVFAIL = IVFAIL + 1 06080037 ! 612: IVCORR = -2 06090037 ! 613: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 06100037 ! 614: 5161 CONTINUE 06110037 ! 615: IVTNUM = 516 06120037 ! 616: C 06130037 ! 617: C **** TEST 516 **** 06140037 ! 618: C 06150037 ! 619: IF (ICZERO) 35160, 5160, 35160 06160037 ! 620: 5160 CONTINUE 06170037 ! 621: IVCOMP = -24/(-3)/(+4) 06180037 ! 622: GO TO 45160 06190037 ! 623: 35160 IVDELE = IVDELE + 1 06200037 ! 624: WRITE (I02,80003) IVTNUM 06210037 ! 625: IF (ICZERO) 45160, 5171, 45160 06220037 ! 626: 45160 IF (IVCOMP -2) 25160,15160,25160 06230037 ! 627: 15160 IVPASS = IVPASS + 1 06240037 ! 628: WRITE (I02,80001) IVTNUM 06250037 ! 629: GO TO 5171 06260037 ! 630: 25160 IVFAIL = IVFAIL + 1 06270037 ! 631: IVCORR = 2 06280037 ! 632: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 06290037 ! 633: 5171 CONTINUE 06300037 ! 634: IVTNUM = 517 06310037 ! 635: C 06320037 ! 636: C **** TEST 517 **** 06330037 ! 637: C 06340037 ! 638: IF (ICZERO) 35170, 5170, 35170 06350037 ! 639: 5170 CONTINUE 06360037 ! 640: IVCOMP = -16811/(-16812)/(+1) 06370037 ! 641: GO TO 45170 06380037 ! 642: 35170 IVDELE = IVDELE + 1 06390037 ! 643: WRITE (I02,80003) IVTNUM 06400037 ! 644: IF (ICZERO) 45170, 5181, 45170 06410037 ! 645: 45170 IF (IVCOMP - 0) 25170,15170,25170 06420037 ! 646: 15170 IVPASS = IVPASS + 1 06430037 ! 647: WRITE (I02,80001) IVTNUM 06440037 ! 648: GO TO 5181 06450037 ! 649: 25170 IVFAIL = IVFAIL + 1 06460037 ! 650: IVCORR = 0 06470037 ! 651: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 06480037 ! 652: 5181 CONTINUE 06490037 ! 653: IVTNUM = 518 06500037 ! 654: C 06510037 ! 655: C **** TEST 518 **** 06520037 ! 656: C 06530037 ! 657: IF (ICZERO) 35180, 5180, 35180 06540037 ! 658: 5180 CONTINUE 06550037 ! 659: IVCOMP = (-16811) / (+16811) / (+1) 06560037 ! 660: GO TO 45180 06570037 ! 661: 35180 IVDELE = IVDELE + 1 06580037 ! 662: WRITE (I02,80003) IVTNUM 06590037 ! 663: IF (ICZERO) 45180, 5191, 45180 06600037 ! 664: 45180 IF (IVCOMP +1) 25180,15180,25180 06610037 ! 665: 15180 IVPASS = IVPASS + 1 06620037 ! 666: WRITE (I02,80001) IVTNUM 06630037 ! 667: GO TO 5191 06640037 ! 668: 25180 IVFAIL = IVFAIL + 1 06650037 ! 669: IVCORR = -1 06660037 ! 670: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 06670037 ! 671: 5191 CONTINUE 06680037 ! 672: IVTNUM = 519 06690037 ! 673: C 06700037 ! 674: C **** TEST 519 **** 06710037 ! 675: C 06720037 ! 676: IF (ICZERO) 35190, 5190, 35190 06730037 ! 677: 5190 CONTINUE 06740037 ! 678: IVCOMP = (-335)/(+168)/(+1) 06750037 ! 679: GO TO 45190 06760037 ! 680: 35190 IVDELE = IVDELE + 1 06770037 ! 681: WRITE (I02,80003) IVTNUM 06780037 ! 682: IF (ICZERO) 45190, 5201, 45190 06790037 ! 683: 45190 IF (IVCOMP + 1) 25190,15190,25190 06800037 ! 684: 15190 IVPASS = IVPASS + 1 06810037 ! 685: WRITE (I02,80001) IVTNUM 06820037 ! 686: GO TO 5201 06830037 ! 687: 25190 IVFAIL = IVFAIL + 1 06840037 ! 688: IVCORR = -1 06850037 ! 689: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 06860037 ! 690: C **** END OF TESTS **** 06870037 ! 691: 5201 CONTINUE 06880037 ! 692: C 06890037 ! 693: C WRITE PAGE FOOTINGS AND RUN SUMMARIES 06900037 ! 694: 99999 CONTINUE 06910037 ! 695: WRITE (I02,90002) 06920037 ! 696: WRITE (I02,90006) 06930037 ! 697: WRITE (I02,90002) 06940037 ! 698: WRITE (I02,90002) 06950037 ! 699: WRITE (I02,90007) 06960037 ! 700: WRITE (I02,90002) 06970037 ! 701: WRITE (I02,90008) IVFAIL 06980037 ! 702: WRITE (I02,90009) IVPASS 06990037 ! 703: WRITE (I02,90010) IVDELE 07000037 ! 704: C 07010037 ! 705: C 07020037 ! 706: C TERMINATE ROUTINE EXECUTION 07030037 ! 707: STOP 07040037 ! 708: C 07050037 ! 709: C FORMAT STATEMENTS FOR PAGE HEADERS 07060037 ! 710: 90000 FORMAT (1H1) 07070037 ! 711: 90002 FORMAT (1H ) 07080037 ! 712: 90001 FORMAT (1H ,10X,34HFORTRAN COMPILER VALIDATION SYSTEM) 07090037 ! 713: 90003 FORMAT (1H ,21X,11HVERSION 1.0) 07100037 ! 714: 90004 FORMAT (1H ,10X,38HFOR OFFICIAL USE ONLY - COPYRIGHT 1978) 07110037 ! 715: 90005 FORMAT (1H ,5X,4HTEST,5X,9HPASS/FAIL, 5X,8HCOMPUTED,8X,7HCORRECT) 07120037 ! 716: 90006 FORMAT (1H ,5X,46H----------------------------------------------) 07130037 ! 717: 90011 FORMAT (1H ,18X,17HSUBSET LEVEL TEST) 07140037 ! 718: C 07150037 ! 719: C FORMAT STATEMENTS FOR RUN SUMMARIES 07160037 ! 720: 90008 FORMAT (1H ,15X,I5,19H ERRORS ENCOUNTERED) 07170037 ! 721: 90009 FORMAT (1H ,15X,I5,13H TESTS PASSED) 07180037 ! 722: 90010 FORMAT (1H ,15X,I5,14H TESTS DELETED) 07190037 ! 723: C 07200037 ! 724: C FORMAT STATEMENTS FOR TEST RESULTS 07210037 ! 725: 80001 FORMAT (1H ,4X,I5,7X,4HPASS) 07220037 ! 726: 80002 FORMAT (1H ,4X,I5,7X,4HFAIL) 07230037 ! 727: 80003 FORMAT (1H ,4X,I5,7X,7HDELETED) 07240037 ! 728: 80004 FORMAT (1H ,4X,I5,7X,4HFAIL,10X,I6,9X,I6) 07250037 ! 729: 80005 FORMAT (1H ,4X,I5,7X,4HFAIL,4X,E12.5,3X,E12.5) 07260037 ! 730: C 07270037 ! 731: 90007 FORMAT (1H ,20X,20HEND OF PROGRAM FM037) 07280037 ! 732: END 07290037
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.