![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to FM006.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 FM006.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 00010006 ! 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 00020006 ! 6: C FM006 00030006 ! 7: C 00040006 ! 8: C THIS ROUTINE TESTS ARITHMETIC ASSIGNMENT STATEMENTS OF 00050006 ! 9: C THE FORM 00060006 ! 10: C INTEGER VARIABLE = INTEGER CONSTANT 00070006 ! 11: C INTEGER VARIABLE = INTEGER VARIABLE 00080006 ! 12: C THE INTEGER CONSTANT MAY BE UNSIGNED, POSITIVE OR NEGATIVE. 00090006 ! 13: C 00100006 ! 14: C AN INTEGER DATUM IS ALWAYS AN EXACT REPRESENTATION OF AN 00110006 ! 15: C INTEGER VALUE. IT MAY ASSUME POSITIVE, NEGATIVE AND ZERO VALUES. 00120006 ! 16: C IT MAY ONLY ASSUME INTEGRAL VALUES. 00130006 ! 17: C 00140006 ! 18: C AN INTEGER CONSTANT IS WRITTEN AS A NONEMPTY STRING OF DIGITS.00150006 ! 19: C THE CONSTANT IS THE DIGIT STRING INTERPRETED AS A DECIMAL NUMBER. 00160006 ! 20: C 00170006 ! 21: C THIS ROUTINE ALSO CONTAINS TESTS WHICH CHECK ON THE USE OF 00180006 ! 22: C AT LEAST 16 BITS FOR REPRESENTING INTEGER DATA VALUES. THE 00190006 ! 23: C CONSTANT VALUES 32767 AND -32766 ARE USED IN THESE TESTS. 00200006 ! 24: C 00210006 ! 25: C REFERENCES 00220006 ! 26: C AMERICAN NATIONAL STANDARD PROGRAMMING LANGUAGE FORTRAN, 00230006 ! 27: C X3.9-1978 00240006 ! 28: C 00250006 ! 29: C SECTION 4.3, INTEGER TYPE 00260006 ! 30: C SECTION 4.3.1, INTEGER CONSTANT 00270006 ! 31: C SECTION 10.1, ARITHMETIC ASSIGNMENT STATEMENTS 00280006 ! 32: C 00290006 ! 33: C 00300006 ! 34: C ********************************************************** 00310006 ! 35: C 00320006 ! 36: C A COMPILER VALIDATION SYSTEM FOR THE FORTRAN LANGUAGE 00330006 ! 37: C BASED ON SPECIFICATIONS AS DEFINED IN AMERICAN NATIONAL STANDARD 00340006 ! 38: C PROGRAMMING LANGUAGE FORTRAN X3.9-1978, HAS BEEN DEVELOPED BY THE 00350006 ! 39: C FEDERAL COBOL COMPILER TESTING SERVICE. THE FORTRAN COMPILER 00360006 ! 40: C VALIDATION SYSTEM (FCVS) CONSISTS OF AUDIT ROUTINES, THEIR RELATED00370006 ! 41: C DATA, AND AN EXECUTIVE SYSTEM. EACH AUDIT ROUTINE IS A FORTRAN 00380006 ! 42: C PROGRAM, SUBPROGRAM OR FUNCTION WHICH INCLUDES TESTS OF SPECIFIC 00390006 ! 43: C LANGUAGE ELEMENTS AND SUPPORTING PROCEDURES INDICATING THE RESULT 00400006 ! 44: C OF EXECUTING THESE TESTS. 00410006 ! 45: C 00420006 ! 46: C THIS PARTICULAR PROGRAM/SUBPROGRAM/FUNCTION CONTAINS FEATURES 00430006 ! 47: C FOUND ONLY IN THE SUBSET AS DEFINED IN X3.9-1978. 00440006 ! 48: C 00450006 ! 49: C SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO - 00460006 ! 50: C 00470006 ! 51: C DEPARTMENT OF THE NAVY 00480006 ! 52: C FEDERAL COBOL COMPILER TESTING SERVICE 00490006 ! 53: C WASHINGTON, D.C. 20376 00500006 ! 54: C 00510006 ! 55: C ********************************************************** 00520006 ! 56: C 00530006 ! 57: C 00540006 ! 58: C 00550006 ! 59: C INITIALIZATION SECTION 00560006 ! 60: C 00570006 ! 61: C INITIALIZE CONSTANTS 00580006 ! 62: C ************** 00590006 ! 63: C I01 CONTAINS THE LOGICAL UNIT NUMBER FOR THE CARD READER. 00600006 ! 64: I01 = 5 00610006 ! 65: C I02 CONTAINS THE LOGICAL UNIT NUMBER FOR THE PRINTER. 00620006 ! 66: I02 = 6 00630006 ! 67: C SYSTEM ENVIRONMENT SECTION 00640006 ! 68: C 00650006 ! 69: I01 = 5 00660006 ! 70: C THE CX010 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I01 = 5 00670006 ! 71: C (UNIT NUMBER FOR CARD READER). 00680006 ! 72: CX011 THIS CARD IS REPLACED BY CONTENTS OF FEXEC X-011 CONTROL CARD. 00690006 ! 73: C THE CX011 CARD IS FOR SYSTEMS WHICH REQUIRE ADDITIONAL 00700006 ! 74: C FORTRAN STATEMENTS FOR FILES ASSOCIATED WITH CX010 ABOVE. 00710006 ! 75: C 00720006 ! 76: I02 = 6 00730006 ! 77: C THE CX020 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I02 = 6 00740006 ! 78: C (UNIT NUMBER FOR PRINTER). 00750006 ! 79: CX021 THIS CARD IS REPLACED BY CONTENTS OF FEXEC X-021 CONTROL CARD. 00760006 ! 80: C THE CX021 CARD IS FOR SYSTEMS WHICH REQUIRE ADDITIONAL 00770006 ! 81: C FORTRAN STATEMENTS FOR FILES ASSOCIATED WITH CX020 ABOVE. 00780006 ! 82: C 00790006 ! 83: IVPASS=0 00800006 ! 84: IVFAIL=0 00810006 ! 85: IVDELE=0 00820006 ! 86: ICZERO=0 00830006 ! 87: C 00840006 ! 88: C WRITE PAGE HEADERS 00850006 ! 89: WRITE (I02,90000) 00860006 ! 90: WRITE (I02,90001) 00870006 ! 91: WRITE (I02,90002) 00880006 ! 92: WRITE (I02, 90002) 00890006 ! 93: WRITE (I02,90003) 00900006 ! 94: WRITE (I02,90002) 00910006 ! 95: WRITE (I02,90004) 00920006 ! 96: WRITE (I02,90002) 00930006 ! 97: WRITE (I02,90011) 00940006 ! 98: WRITE (I02,90002) 00950006 ! 99: WRITE (I02,90002) 00960006 ! 100: WRITE (I02,90005) 00970006 ! 101: WRITE (I02,90006) 00980006 ! 102: WRITE (I02,90002) 00990006 ! 103: C TEST SECTION 01000006 ! 104: C 01010006 ! 105: C ARITHMETIC ASSIGNMENT STATEMENT 01020006 ! 106: C 01030006 ! 107: C TEST 50 THROUGH TEST 61 CONTAIN STATEMENT OF FORM 01040006 ! 108: C INTEGER VARIABLE = INTEGER CONSTANT 01050006 ! 109: C 01060006 ! 110: C TESTS 50 THROUGH 53 CONTAIN UNSIGNED INTEGER CONSTANT. 01070006 ! 111: C 01080006 ! 112: 501 CONTINUE 01090006 ! 113: IVTNUM = 50 01100006 ! 114: C 01110006 ! 115: C **** TEST 50 **** 01120006 ! 116: C 01130006 ! 117: IF (ICZERO) 30500, 500, 30500 01140006 ! 118: 500 CONTINUE 01150006 ! 119: IVCOMP=3 01160006 ! 120: GO TO 40500 01170006 ! 121: 30500 IVDELE = IVDELE + 1 01180006 ! 122: WRITE (I02,80003) IVTNUM 01190006 ! 123: IF (ICZERO) 40500, 511, 40500 01200006 ! 124: 40500 IF (IVCOMP - 3) 20500, 10500, 20500 01210006 ! 125: 10500 IVPASS = IVPASS + 1 01220006 ! 126: WRITE (I02,80001) IVTNUM 01230006 ! 127: GO TO 511 01240006 ! 128: 20500 IVFAIL = IVFAIL + 1 01250006 ! 129: IVCORR = 3 01260006 ! 130: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 01270006 ! 131: 511 CONTINUE 01280006 ! 132: IVTNUM = 51 01290006 ! 133: C 01300006 ! 134: C **** TEST 51 **** 01310006 ! 135: C 01320006 ! 136: IF (ICZERO) 30510, 510, 30510 01330006 ! 137: 510 CONTINUE 01340006 ! 138: IVCOMP = 76 01350006 ! 139: GO TO 40510 01360006 ! 140: 30510 IVDELE = IVDELE + 1 01370006 ! 141: WRITE (I02,80003) IVTNUM 01380006 ! 142: IF (ICZERO) 40510, 521, 40510 01390006 ! 143: 40510 IF (IVCOMP - 76) 20510, 10510, 20510 01400006 ! 144: 10510 IVPASS = IVPASS + 1 01410006 ! 145: WRITE (I02,80001) IVTNUM 01420006 ! 146: GO TO 521 01430006 ! 147: 20510 IVFAIL = IVFAIL + 1 01440006 ! 148: IVCORR = 76 01450006 ! 149: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 01460006 ! 150: 521 CONTINUE 01470006 ! 151: IVTNUM = 52 01480006 ! 152: C 01490006 ! 153: C **** TEST 52 **** 01500006 ! 154: C 01510006 ! 155: IF (ICZERO) 30520, 520, 30520 01520006 ! 156: 520 CONTINUE 01530006 ! 157: IVCOMP = 587 01540006 ! 158: GO TO 40520 01550006 ! 159: 30520 IVDELE = IVDELE + 1 01560006 ! 160: WRITE (I02,80003) IVTNUM 01570006 ! 161: IF (ICZERO) 40520, 531, 40520 01580006 ! 162: 40520 IF (IVCOMP - 587) 20520, 10520, 20520 01590006 ! 163: 10520 IVPASS = IVPASS + 1 01600006 ! 164: WRITE (I02,80001) IVTNUM 01610006 ! 165: GO TO 531 01620006 ! 166: 20520 IVFAIL = IVFAIL + 1 01630006 ! 167: IVCORR = 587 01640006 ! 168: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 01650006 ! 169: 531 CONTINUE 01660006 ! 170: IVTNUM = 53 01670006 ! 171: C 01680006 ! 172: C **** TEST 53 **** 01690006 ! 173: C 01700006 ! 174: IF (ICZERO) 30530, 530, 30530 01710006 ! 175: 530 CONTINUE 01720006 ! 176: IVCOMP = 9999 01730006 ! 177: GO TO 40530 01740006 ! 178: 30530 IVDELE = IVDELE + 1 01750006 ! 179: WRITE (I02,80003) IVTNUM 01760006 ! 180: IF (ICZERO) 40530, 541, 40530 01770006 ! 181: 40530 IF (IVCOMP - 9999) 20530, 10530, 20530 01780006 ! 182: 10530 IVPASS = IVPASS + 1 01790006 ! 183: WRITE (I02,80001) IVTNUM 01800006 ! 184: GO TO 541 01810006 ! 185: 20530 IVFAIL = IVFAIL + 1 01820006 ! 186: IVCORR = 9999 01830006 ! 187: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 01840006 ! 188: C 01850006 ! 189: C TESTS 54 THROUGH 57 CONTAIN POSITIVE SIGNED INTEGERS 01860006 ! 190: C 01870006 ! 191: 541 CONTINUE 01880006 ! 192: IVTNUM = 54 01890006 ! 193: C 01900006 ! 194: C **** TEST 54 **** 01910006 ! 195: C 01920006 ! 196: IF (ICZERO) 30540, 540, 30540 01930006 ! 197: 540 CONTINUE 01940006 ! 198: IVCOMP = +3 01950006 ! 199: GO TO 40540 01960006 ! 200: 30540 IVDELE = IVDELE + 1 01970006 ! 201: WRITE (I02,80003) IVTNUM 01980006 ! 202: IF (ICZERO) 40540, 551, 40540 01990006 ! 203: 40540 IF (IVCOMP - 3) 20540, 10540, 20540 02000006 ! 204: 10540 IVPASS = IVPASS + 1 02010006 ! 205: WRITE (I02,80001) IVTNUM 02020006 ! 206: GO TO 551 02030006 ! 207: 20540 IVFAIL = IVFAIL + 1 02040006 ! 208: IVCORR = 3 02050006 ! 209: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 02060006 ! 210: 551 CONTINUE 02070006 ! 211: IVTNUM = 55 02080006 ! 212: C 02090006 ! 213: C **** TEST 55 **** 02100006 ! 214: C 02110006 ! 215: IF (ICZERO) 30550, 550, 30550 02120006 ! 216: 550 CONTINUE 02130006 ! 217: IVCOMP = +76 02140006 ! 218: GO TO 40550 02150006 ! 219: 30550 IVDELE = IVDELE + 1 02160006 ! 220: WRITE (I02,80003) IVTNUM 02170006 ! 221: IF (ICZERO) 40550, 561, 40550 02180006 ! 222: 40550 IF (IVCOMP - 76) 20550, 10550, 20550 02190006 ! 223: 10550 IVPASS = IVPASS + 1 02200006 ! 224: WRITE (I02,80001) IVTNUM 02210006 ! 225: GO TO 561 02220006 ! 226: 20550 IVFAIL = IVFAIL + 1 02230006 ! 227: IVCORR = 76 02240006 ! 228: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 02250006 ! 229: 561 CONTINUE 02260006 ! 230: IVTNUM = 56 02270006 ! 231: C 02280006 ! 232: C **** TEST 56 **** 02290006 ! 233: C 02300006 ! 234: IF (ICZERO) 30560, 560, 30560 02310006 ! 235: 560 CONTINUE 02320006 ! 236: IVCOMP = +587 02330006 ! 237: GO TO 40560 02340006 ! 238: 30560 IVDELE = IVDELE + 1 02350006 ! 239: WRITE (I02,80003) IVTNUM 02360006 ! 240: IF (ICZERO) 40560, 571, 40560 02370006 ! 241: 40560 IF (IVCOMP - 587) 20560, 10560, 20560 02380006 ! 242: 10560 IVPASS = IVPASS + 1 02390006 ! 243: WRITE (I02,80001) IVTNUM 02400006 ! 244: GO TO 571 02410006 ! 245: 20560 IVFAIL = IVFAIL + 1 02420006 ! 246: IVCORR = 587 02430006 ! 247: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 02440006 ! 248: 571 CONTINUE 02450006 ! 249: IVTNUM = 57 02460006 ! 250: C 02470006 ! 251: C **** TEST 57 **** 02480006 ! 252: C 02490006 ! 253: IF (ICZERO) 30570, 570, 30570 02500006 ! 254: 570 CONTINUE 02510006 ! 255: IVCOMP = +9999 02520006 ! 256: GO TO 40570 02530006 ! 257: 30570 IVDELE = IVDELE + 1 02540006 ! 258: WRITE (I02,80003) IVTNUM 02550006 ! 259: IF (ICZERO) 40570, 581, 40570 02560006 ! 260: 40570 IF (IVCOMP - 9999) 20570, 10570, 20570 02570006 ! 261: 10570 IVPASS = IVPASS + 1 02580006 ! 262: WRITE (I02,80001) IVTNUM 02590006 ! 263: GO TO 581 02600006 ! 264: 20570 IVFAIL = IVFAIL + 1 02610006 ! 265: IVCORR = 9999 02620006 ! 266: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 02630006 ! 267: C 02640006 ! 268: C TESTS 58 THROUGH 61 CONTAIN SIGNED NEGATIVE INTEGERS 02650006 ! 269: C 02660006 ! 270: 581 CONTINUE 02670006 ! 271: IVTNUM = 58 02680006 ! 272: C 02690006 ! 273: C **** TEST 58 **** 02700006 ! 274: C 02710006 ! 275: IF (ICZERO) 30580, 580, 30580 02720006 ! 276: 580 CONTINUE 02730006 ! 277: IVCOMP = -3 02740006 ! 278: GO TO 40580 02750006 ! 279: 30580 IVDELE = IVDELE + 1 02760006 ! 280: WRITE (I02,80003) IVTNUM 02770006 ! 281: IF (ICZERO) 40580, 591, 40580 02780006 ! 282: 40580 IF (IVCOMP + 3) 20580, 10580, 20580 02790006 ! 283: 10580 IVPASS = IVPASS + 1 02800006 ! 284: WRITE (I02,80001) IVTNUM 02810006 ! 285: GO TO 591 02820006 ! 286: 20580 IVFAIL = IVFAIL + 1 02830006 ! 287: IVCORR = -3 02840006 ! 288: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 02850006 ! 289: 591 CONTINUE 02860006 ! 290: IVTNUM = 59 02870006 ! 291: C 02880006 ! 292: C **** TEST 59 **** 02890006 ! 293: C 02900006 ! 294: IF (ICZERO) 30590, 590, 30590 02910006 ! 295: 590 CONTINUE 02920006 ! 296: IVCOMP = -76 02930006 ! 297: GO TO 40590 02940006 ! 298: 30590 IVDELE = IVDELE + 1 02950006 ! 299: WRITE (I02,80003) IVTNUM 02960006 ! 300: IF (ICZERO) 40590, 601, 40590 02970006 ! 301: 40590 IF (IVCOMP + 76) 20590, 10590, 20590 02980006 ! 302: 10590 IVPASS = IVPASS + 1 02990006 ! 303: WRITE (I02,80001) IVTNUM 03000006 ! 304: GO TO 601 03010006 ! 305: 20590 IVFAIL = IVFAIL + 1 03020006 ! 306: IVCORR = -76 03030006 ! 307: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 03040006 ! 308: 601 CONTINUE 03050006 ! 309: IVTNUM = 60 03060006 ! 310: C 03070006 ! 311: C **** TEST 60 **** 03080006 ! 312: C 03090006 ! 313: IF (ICZERO) 30600, 600, 30600 03100006 ! 314: 600 CONTINUE 03110006 ! 315: IVCOMP = -587 03120006 ! 316: GO TO 40600 03130006 ! 317: 30600 IVDELE = IVDELE + 1 03140006 ! 318: WRITE (I02,80003) IVTNUM 03150006 ! 319: IF (ICZERO) 40600, 611, 40600 03160006 ! 320: 40600 IF (IVCOMP + 587) 20600,10600,20600 03170006 ! 321: 10600 IVPASS = IVPASS + 1 03180006 ! 322: WRITE (I02,80001) IVTNUM 03190006 ! 323: GO TO 611 03200006 ! 324: 20600 IVFAIL = IVFAIL + 1 03210006 ! 325: IVCORR = -587 03220006 ! 326: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 03230006 ! 327: 611 CONTINUE 03240006 ! 328: IVTNUM = 61 03250006 ! 329: C 03260006 ! 330: C **** TEST 61 **** 03270006 ! 331: C 03280006 ! 332: IF (ICZERO) 30610, 610, 30610 03290006 ! 333: 610 CONTINUE 03300006 ! 334: IVCOMP = -9999 03310006 ! 335: GO TO 40610 03320006 ! 336: 30610 IVDELE = IVDELE + 1 03330006 ! 337: WRITE (I02,80003) IVTNUM 03340006 ! 338: IF (ICZERO) 40610, 621, 40610 03350006 ! 339: 40610 IF (IVCOMP + 9999) 20610, 10610, 20610 03360006 ! 340: 10610 IVPASS = IVPASS + 1 03370006 ! 341: WRITE (I02,80001) IVTNUM 03380006 ! 342: GO TO 621 03390006 ! 343: 20610 IVFAIL = IVFAIL + 1 03400006 ! 344: IVCORR = -9999 03410006 ! 345: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 03420006 ! 346: C 03430006 ! 347: C TEST 62 THROUGH TEST 73 CONTAIN STATEMENT OF FORM 03440006 ! 348: C INTEGER VARIABLE = INTEGER VARIABLE 03450006 ! 349: C 03460006 ! 350: C TESTS 62 THROUGH 65 CONTAIN UNSIGNED VALUES. 03470006 ! 351: C 03480006 ! 352: 621 CONTINUE 03490006 ! 353: IVTNUM = 62 03500006 ! 354: C 03510006 ! 355: C **** TEST 62 **** 03520006 ! 356: C 03530006 ! 357: IF (ICZERO) 30620, 620, 30620 03540006 ! 358: 620 CONTINUE 03550006 ! 359: IVON01 = 3 03560006 ! 360: IVCOMP = IVON01 03570006 ! 361: GO TO 40620 03580006 ! 362: 30620 IVDELE = IVDELE + 1 03590006 ! 363: WRITE (I02,80003) IVTNUM 03600006 ! 364: IF (ICZERO) 40620, 631, 40620 03610006 ! 365: 40620 IF (IVCOMP - 3) 20620, 10620, 20620 03620006 ! 366: 10620 IVPASS = IVPASS + 1 03630006 ! 367: WRITE (I02,80001) IVTNUM 03640006 ! 368: GO TO 631 03650006 ! 369: 20620 IVFAIL = IVFAIL + 1 03660006 ! 370: IVCORR = 3 03670006 ! 371: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 03680006 ! 372: 631 CONTINUE 03690006 ! 373: IVTNUM = 63 03700006 ! 374: C 03710006 ! 375: C **** TEST 63 **** 03720006 ! 376: C 03730006 ! 377: IF (ICZERO) 30630, 630, 30630 03740006 ! 378: 630 CONTINUE 03750006 ! 379: IVON01 = 76 03760006 ! 380: IVCOMP = IVON01 03770006 ! 381: GO TO 40630 03780006 ! 382: 30630 IVDELE = IVDELE + 1 03790006 ! 383: WRITE (I02,80003) IVTNUM 03800006 ! 384: IF (ICZERO) 40630, 641, 40630 03810006 ! 385: 40630 IF (IVCOMP - 76) 20630, 10630, 20630 03820006 ! 386: 10630 IVPASS = IVPASS + 1 03830006 ! 387: WRITE (I02,80001) IVTNUM 03840006 ! 388: GO TO 641 03850006 ! 389: 20630 IVFAIL = IVFAIL + 1 03860006 ! 390: IVCORR = 76 03870006 ! 391: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 03880006 ! 392: 641 CONTINUE 03890006 ! 393: IVTNUM = 64 03900006 ! 394: C 03910006 ! 395: C **** TEST 64 **** 03920006 ! 396: C 03930006 ! 397: IF (ICZERO) 30640, 640, 30640 03940006 ! 398: 640 CONTINUE 03950006 ! 399: IVON01 = 587 03960006 ! 400: IVCOMP = IVON01 03970006 ! 401: GO TO 40640 03980006 ! 402: 30640 IVDELE = IVDELE + 1 03990006 ! 403: WRITE (I02,80003) IVTNUM 04000006 ! 404: IF (ICZERO) 40640, 651, 40640 04010006 ! 405: 40640 IF (IVCOMP - 587) 20640, 10640, 20640 04020006 ! 406: 10640 IVPASS = IVPASS + 1 04030006 ! 407: WRITE (I02,80001) IVTNUM 04040006 ! 408: GO TO 651 04050006 ! 409: 20640 IVFAIL = IVFAIL + 1 04060006 ! 410: IVCORR = 587 04070006 ! 411: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 04080006 ! 412: 651 CONTINUE 04090006 ! 413: IVTNUM = 65 04100006 ! 414: C 04110006 ! 415: C **** TEST 65 **** 04120006 ! 416: C 04130006 ! 417: IF (ICZERO) 30650, 650, 30650 04140006 ! 418: 650 CONTINUE 04150006 ! 419: IVON01 = 9999 04160006 ! 420: IVCOMP = IVON01 04170006 ! 421: GO TO 40650 04180006 ! 422: 30650 IVDELE = IVDELE + 1 04190006 ! 423: WRITE (I02,80003) IVTNUM 04200006 ! 424: IF (ICZERO) 40650, 661, 40650 04210006 ! 425: 40650 IF (IVCOMP - 9999) 20650, 10650, 20650 04220006 ! 426: 10650 IVPASS = IVPASS + 1 04230006 ! 427: WRITE (I02,80001) IVTNUM 04240006 ! 428: GO TO 661 04250006 ! 429: 20650 IVFAIL = IVFAIL + 1 04260006 ! 430: IVCORR = 9999 04270006 ! 431: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 04280006 ! 432: C 04290006 ! 433: C TESTS 66 THROUGH 69 CONTAIN POSITIVE VALUES. 04300006 ! 434: C 04310006 ! 435: 661 CONTINUE 04320006 ! 436: IVTNUM = 66 04330006 ! 437: C 04340006 ! 438: C **** TEST 66 **** 04350006 ! 439: C 04360006 ! 440: IF (ICZERO) 30660, 660, 30660 04370006 ! 441: 660 CONTINUE 04380006 ! 442: IVON01 = +3 04390006 ! 443: IVCOMP = IVON01 04400006 ! 444: GO TO 40660 04410006 ! 445: 30660 IVDELE = IVDELE + 1 04420006 ! 446: WRITE (I02,80003) IVTNUM 04430006 ! 447: IF (ICZERO) 40660, 671, 40660 04440006 ! 448: 40660 IF (IVCOMP - 3) 20660,10660,20660 04450006 ! 449: 10660 IVPASS = IVPASS + 1 04460006 ! 450: WRITE (I02,80001) IVTNUM 04470006 ! 451: GO TO 671 04480006 ! 452: 20660 IVFAIL = IVFAIL + 1 04490006 ! 453: IVCORR = 3 04500006 ! 454: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 04510006 ! 455: 671 CONTINUE 04520006 ! 456: IVTNUM = 67 04530006 ! 457: C 04540006 ! 458: C **** TEST 67 **** 04550006 ! 459: C 04560006 ! 460: IF (ICZERO) 30670, 670, 30670 04570006 ! 461: 670 CONTINUE 04580006 ! 462: IVON01 = +76 04590006 ! 463: IVCOMP = IVON01 04600006 ! 464: GO TO 40670 04610006 ! 465: 30670 IVDELE = IVDELE + 1 04620006 ! 466: WRITE (I02,80003) IVTNUM 04630006 ! 467: IF (ICZERO) 40670, 681, 40670 04640006 ! 468: 40670 IF (IVCOMP - 76) 20670, 10670, 20670 04650006 ! 469: 10670 IVPASS = IVPASS + 1 04660006 ! 470: WRITE (I02,80001) IVTNUM 04670006 ! 471: GO TO 681 04680006 ! 472: 20670 IVFAIL = IVFAIL + 1 04690006 ! 473: IVCORR = 76 04700006 ! 474: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 04710006 ! 475: 681 CONTINUE 04720006 ! 476: IVTNUM = 68 04730006 ! 477: C 04740006 ! 478: C **** TEST 68 **** 04750006 ! 479: C 04760006 ! 480: IF (ICZERO) 30680, 680, 30680 04770006 ! 481: 680 CONTINUE 04780006 ! 482: IVON01 = +587 04790006 ! 483: IVCOMP = IVON01 04800006 ! 484: GO TO 40680 04810006 ! 485: 30680 IVDELE = IVDELE + 1 04820006 ! 486: WRITE (I02,80003) IVTNUM 04830006 ! 487: IF (ICZERO) 40680, 691, 40680 04840006 ! 488: 40680 IF (IVCOMP - 587) 20680, 10680, 20680 04850006 ! 489: 10680 IVPASS = IVPASS + 1 04860006 ! 490: WRITE (I02,80001) IVTNUM 04870006 ! 491: GO TO 691 04880006 ! 492: 20680 IVFAIL = IVFAIL + 1 04890006 ! 493: IVCORR = 587 04900006 ! 494: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 04910006 ! 495: 691 CONTINUE 04920006 ! 496: IVTNUM = 69 04930006 ! 497: C 04940006 ! 498: C **** TEST 69 **** 04950006 ! 499: C 04960006 ! 500: IF (ICZERO) 30690, 690, 30690 04970006 ! 501: 690 CONTINUE 04980006 ! 502: IVON01 = +9999 04990006 ! 503: IVCOMP = IVON01 05000006 ! 504: GO TO 40690 05010006 ! 505: 30690 IVDELE = IVDELE + 1 05020006 ! 506: WRITE (I02,80003) IVTNUM 05030006 ! 507: IF (ICZERO) 40690, 701, 40690 05040006 ! 508: 40690 IF (IVCOMP - 9999) 20690, 10690, 20690 05050006 ! 509: 10690 IVPASS = IVPASS + 1 05060006 ! 510: WRITE (I02,80001) IVTNUM 05070006 ! 511: GO TO 701 05080006 ! 512: 20690 IVFAIL = IVFAIL + 1 05090006 ! 513: IVCORR = 9999 05100006 ! 514: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 05110006 ! 515: C 05120006 ! 516: C TESTS 70 THROUGH 73 CONTAIN NEGATIVE VALUES. 05130006 ! 517: C 05140006 ! 518: 701 CONTINUE 05150006 ! 519: IVTNUM = 70 05160006 ! 520: C 05170006 ! 521: C **** TEST 70 **** 05180006 ! 522: C 05190006 ! 523: IF (ICZERO) 30700, 700, 30700 05200006 ! 524: 700 CONTINUE 05210006 ! 525: IVON01 = -3 05220006 ! 526: IVCOMP = IVON01 05230006 ! 527: GO TO 40700 05240006 ! 528: 30700 IVDELE = IVDELE + 1 05250006 ! 529: WRITE (I02,80003) IVTNUM 05260006 ! 530: IF (ICZERO) 40700, 711, 40700 05270006 ! 531: 40700 IF (IVCOMP + 3) 20700, 10700, 20700 05280006 ! 532: 10700 IVPASS = IVPASS + 1 05290006 ! 533: WRITE (I02,80001) IVTNUM 05300006 ! 534: GO TO 711 05310006 ! 535: 20700 IVFAIL = IVFAIL + 1 05320006 ! 536: IVCORR = -3 05330006 ! 537: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 05340006 ! 538: 711 CONTINUE 05350006 ! 539: IVTNUM = 71 05360006 ! 540: C 05370006 ! 541: C **** TEST 71 **** 05380006 ! 542: C 05390006 ! 543: IF (ICZERO) 30710, 710, 30710 05400006 ! 544: 710 CONTINUE 05410006 ! 545: IVON01 = -76 05420006 ! 546: IVCOMP = IVON01 05430006 ! 547: GO TO 40710 05440006 ! 548: 30710 IVDELE = IVDELE + 1 05450006 ! 549: WRITE (I02,80003) IVTNUM 05460006 ! 550: IF (ICZERO) 40710, 721, 40710 05470006 ! 551: 40710 IF (IVCOMP + 76) 20710, 10710, 20710 05480006 ! 552: 10710 IVPASS = IVPASS + 1 05490006 ! 553: WRITE (I02,80001) IVTNUM 05500006 ! 554: GO TO 721 05510006 ! 555: 20710 IVFAIL = IVFAIL + 1 05520006 ! 556: IVCORR = -76 05530006 ! 557: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 05540006 ! 558: 721 CONTINUE 05550006 ! 559: IVTNUM = 72 05560006 ! 560: C 05570006 ! 561: C **** TEST 72 **** 05580006 ! 562: C 05590006 ! 563: IF (ICZERO) 30720, 720, 30720 05600006 ! 564: 720 CONTINUE 05610006 ! 565: IVON01 = -587 05620006 ! 566: IVCOMP = IVON01 05630006 ! 567: GO TO 40720 05640006 ! 568: 30720 IVDELE = IVDELE + 1 05650006 ! 569: WRITE (I02,80003) IVTNUM 05660006 ! 570: IF (ICZERO) 40720, 731, 40720 05670006 ! 571: 40720 IF (IVCOMP + 587) 20720, 10720, 20720 05680006 ! 572: 10720 IVPASS = IVPASS + 1 05690006 ! 573: WRITE (I02,80001) IVTNUM 05700006 ! 574: GO TO 731 05710006 ! 575: 20720 IVFAIL = IVFAIL + 1 05720006 ! 576: IVCORR = -587 05730006 ! 577: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 05740006 ! 578: 731 CONTINUE 05750006 ! 579: IVTNUM = 73 05760006 ! 580: C 05770006 ! 581: C **** TEST 73 **** 05780006 ! 582: C 05790006 ! 583: IF (ICZERO) 30730, 730, 30730 05800006 ! 584: 730 CONTINUE 05810006 ! 585: IVON01 = -9999 05820006 ! 586: IVCOMP = IVON01 05830006 ! 587: GO TO 40730 05840006 ! 588: 30730 IVDELE = IVDELE + 1 05850006 ! 589: WRITE (I02,80003) IVTNUM 05860006 ! 590: IF (ICZERO) 40730, 741, 40730 05870006 ! 591: 40730 IF (IVCOMP + 9999) 20730, 10730, 20730 05880006 ! 592: 10730 IVPASS = IVPASS + 1 05890006 ! 593: WRITE (I02,80001) IVTNUM 05900006 ! 594: GO TO 741 05910006 ! 595: 20730 IVFAIL = IVFAIL + 1 05920006 ! 596: IVCORR = -9999 05930006 ! 597: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 05940006 ! 598: C 05950006 ! 599: C TESTS 74 THROUGH 79 CHECK THAT AT LEAST 16 BITS ARE USED IN THE 05960006 ! 600: C INTERNAL REPRESENTATION OF AN INTEGER DATUM. THIS INCLUDES ONE 05970006 ! 601: C BIT FOR THE SIGN. THE LARGEST INTEGER USED IS 32767 =2**15 - 1, 05980006 ! 602: C AND THE SMALLEST INTEGER USED IS -32766. 05990006 ! 603: C 06000006 ! 604: 741 CONTINUE 06010006 ! 605: IVTNUM = 74 06020006 ! 606: C 06030006 ! 607: C **** TEST 74 **** 06040006 ! 608: C UNSIGNED CONSTANT 32767 06050006 ! 609: C 06060006 ! 610: IF (ICZERO) 30740, 740, 30740 06070006 ! 611: 740 CONTINUE 06080006 ! 612: IVCOMP = 32767 06090006 ! 613: GO TO 40740 06100006 ! 614: 30740 IVDELE = IVDELE + 1 06110006 ! 615: WRITE (I02,80003) IVTNUM 06120006 ! 616: IF (ICZERO) 40740, 751, 40740 06130006 ! 617: 40740 IF (IVCOMP - 32767) 20740, 10740, 20740 06140006 ! 618: 10740 IVPASS = IVPASS + 1 06150006 ! 619: WRITE (I02,80001) IVTNUM 06160006 ! 620: GO TO 751 06170006 ! 621: 20740 IVFAIL = IVFAIL + 1 06180006 ! 622: IVCORR = 32767 06190006 ! 623: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 06200006 ! 624: 751 CONTINUE 06210006 ! 625: IVTNUM = 75 06220006 ! 626: C 06230006 ! 627: C **** TEST 75 **** 06240006 ! 628: C SIGNED POSITIVE CONSTANT +32767 06250006 ! 629: C 06260006 ! 630: IF (ICZERO) 30750, 750, 30750 06270006 ! 631: 750 CONTINUE 06280006 ! 632: IVCOMP = +32767 06290006 ! 633: GO TO 40750 06300006 ! 634: 30750 IVDELE = IVDELE + 1 06310006 ! 635: WRITE (I02,80003) IVTNUM 06320006 ! 636: IF (ICZERO) 40750, 761, 40750 06330006 ! 637: 40750 IF (IVCOMP - 32767) 20750, 10750, 20750 06340006 ! 638: 10750 IVPASS = IVPASS + 1 06350006 ! 639: WRITE (I02,80001) IVTNUM 06360006 ! 640: GO TO 761 06370006 ! 641: 20750 IVFAIL = IVFAIL + 1 06380006 ! 642: IVCORR = 32767 06390006 ! 643: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 06400006 ! 644: 761 CONTINUE 06410006 ! 645: IVTNUM = 76 06420006 ! 646: C 06430006 ! 647: C **** TEST 76 **** 06440006 ! 648: C SIGNED NEGATIVE CONSTANT -32766 06450006 ! 649: C 06460006 ! 650: IF (ICZERO) 30760, 760, 30760 06470006 ! 651: 760 CONTINUE 06480006 ! 652: IVCOMP = - 32766 06490006 ! 653: GO TO 40760 06500006 ! 654: 30760 IVDELE = IVDELE + 1 06510006 ! 655: WRITE (I02,80003) IVTNUM 06520006 ! 656: IF (ICZERO) 40760, 771, 40760 06530006 ! 657: 40760 IF (IVCOMP + 32766) 20760, 10760, 20760 06540006 ! 658: 10760 IVPASS = IVPASS + 1 06550006 ! 659: WRITE (I02,80001) IVTNUM 06560006 ! 660: GO TO 771 06570006 ! 661: 20760 IVFAIL = IVFAIL + 1 06580006 ! 662: IVCORR = -32766 06590006 ! 663: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 06600006 ! 664: 771 CONTINUE 06610006 ! 665: IVTNUM = 77 06620006 ! 666: C 06630006 ! 667: C **** TEST 77 **** 06640006 ! 668: C 06650006 ! 669: IF (ICZERO) 30770, 770, 30770 06660006 ! 670: 770 CONTINUE 06670006 ! 671: IVON01 = 32767 06680006 ! 672: IVCOMP = IVON01 06690006 ! 673: GO TO 40770 06700006 ! 674: 30770 IVDELE = IVDELE + 1 06710006 ! 675: WRITE (I02,80003) IVTNUM 06720006 ! 676: IF (ICZERO) 40770, 781, 40770 06730006 ! 677: 40770 IF (IVCOMP - 32767) 20770, 10770, 20770 06740006 ! 678: 10770 IVPASS = IVPASS + 1 06750006 ! 679: WRITE (I02,80001) IVTNUM 06760006 ! 680: GO TO 781 06770006 ! 681: 20770 IVFAIL = IVFAIL + 1 06780006 ! 682: IVCORR = 32767 06790006 ! 683: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 06800006 ! 684: 781 CONTINUE 06810006 ! 685: IVTNUM = 78 06820006 ! 686: C 06830006 ! 687: C **** TEST 78 **** 06840006 ! 688: C 06850006 ! 689: IF (ICZERO) 30780, 780, 30780 06860006 ! 690: 780 CONTINUE 06870006 ! 691: IVON01 = +32767 06880006 ! 692: IVCOMP = IVON01 06890006 ! 693: GO TO 40780 06900006 ! 694: 30780 IVDELE = IVDELE + 1 06910006 ! 695: WRITE (I02,80003) IVTNUM 06920006 ! 696: IF (ICZERO) 40780, 791, 40780 06930006 ! 697: 40780 IF (IVCOMP - 32767) 20780, 10780, 20780 06940006 ! 698: 10780 IVPASS = IVPASS + 1 06950006 ! 699: WRITE (I02,80001) IVTNUM 06960006 ! 700: GO TO 791 06970006 ! 701: 20780 IVFAIL = IVFAIL + 1 06980006 ! 702: IVCORR = 32767 06990006 ! 703: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 07000006 ! 704: 791 CONTINUE 07010006 ! 705: IVTNUM = 79 07020006 ! 706: C 07030006 ! 707: C **** TEST 79 **** 07040006 ! 708: C 07050006 ! 709: IF (ICZERO) 30790, 790, 30790 07060006 ! 710: 790 CONTINUE 07070006 ! 711: IVON01 = -32766 07080006 ! 712: IVCOMP=IVON01 07090006 ! 713: GO TO 40790 07100006 ! 714: 30790 IVDELE = IVDELE + 1 07110006 ! 715: WRITE (I02,80003) IVTNUM 07120006 ! 716: IF (ICZERO) 40790, 801, 40790 07130006 ! 717: 40790 IF (IVCOMP + 32766) 20790, 10790, 20790 07140006 ! 718: 10790 IVPASS = IVPASS + 1 07150006 ! 719: WRITE (I02,80001) IVTNUM 07160006 ! 720: GO TO 801 07170006 ! 721: 20790 IVFAIL = IVFAIL + 1 07180006 ! 722: IVCORR = -32766 07190006 ! 723: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 07200006 ! 724: 801 CONTINUE 07210006 ! 725: C 07220006 ! 726: C WRITE PAGE FOOTINGS AND RUN SUMMARIES 07230006 ! 727: 99999 CONTINUE 07240006 ! 728: WRITE (I02,90002) 07250006 ! 729: WRITE (I02,90006) 07260006 ! 730: WRITE (I02,90002) 07270006 ! 731: WRITE (I02,90002) 07280006 ! 732: WRITE (I02,90007) 07290006 ! 733: WRITE (I02,90002) 07300006 ! 734: WRITE (I02,90008) IVFAIL 07310006 ! 735: WRITE (I02,90009) IVPASS 07320006 ! 736: WRITE (I02,90010) IVDELE 07330006 ! 737: C 07340006 ! 738: C 07350006 ! 739: C TERMINATE ROUTINE EXECUTION 07360006 ! 740: STOP 07370006 ! 741: C 07380006 ! 742: C FORMAT STATEMENTS FOR PAGE HEADERS 07390006 ! 743: 90000 FORMAT (1H1) 07400006 ! 744: 90002 FORMAT (1H ) 07410006 ! 745: 90001 FORMAT (1H ,10X,34HFORTRAN COMPILER VALIDATION SYSTEM) 07420006 ! 746: 90003 FORMAT (1H ,21X,11HVERSION 1.0) 07430006 ! 747: 90004 FORMAT (1H ,10X,38HFOR OFFICIAL USE ONLY - COPYRIGHT 1978) 07440006 ! 748: 90005 FORMAT (1H ,5X,4HTEST,5X,9HPASS/FAIL, 5X,8HCOMPUTED,8X,7HCORRECT) 07450006 ! 749: 90006 FORMAT (1H ,5X,46H----------------------------------------------) 07460006 ! 750: 90011 FORMAT (1H ,18X,17HSUBSET LEVEL TEST) 07470006 ! 751: C 07480006 ! 752: C FORMAT STATEMENTS FOR RUN SUMMARIES 07490006 ! 753: 90008 FORMAT (1H ,15X,I5,19H ERRORS ENCOUNTERED) 07500006 ! 754: 90009 FORMAT (1H ,15X,I5,13H TESTS PASSED) 07510006 ! 755: 90010 FORMAT (1H ,15X,I5,14H TESTS DELETED) 07520006 ! 756: C 07530006 ! 757: C FORMAT STATEMENTS FOR TEST RESULTS 07540006 ! 758: 80001 FORMAT (1H ,4X,I5,7X,4HPASS) 07550006 ! 759: 80002 FORMAT (1H ,4X,I5,7X,4HFAIL) 07560006 ! 760: 80003 FORMAT (1H ,4X,I5,7X,7HDELETED) 07570006 ! 761: 80004 FORMAT (1H ,4X,I5,7X,4HFAIL,10X,I6,9X,I6) 07580006 ! 762: 80005 FORMAT (1H ,4X,I5,7X,4HFAIL,4X,E12.5,3X,E12.5) 07590006 ! 763: C 07600006 ! 764: 90007 FORMAT (1H ,20X,20HEND OF PROGRAM FM006) 07610006 ! 765: END 07620006
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.