![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to FM032.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 FM032.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 00010032 ! 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 00020032 ! 6: C FM032 00030032 ! 7: C 00040032 ! 8: C THIS ROUTINE TESTS ARITHMETIC ASSIGNMENT STATEMENTS OF THE 00050032 ! 9: C FORM 00060032 ! 10: C INTEGER VARIABLE = ARITHMETIC EXPRESSION 00070032 ! 11: C WHERE THE ARITHMETIC EXPRESSION IS FORMED WITH THE ARITHMETIC 00080032 ! 12: C OPERATOR -, INTEGER CONSTANTS AND INTEGER VARIABLES. SOME OF THE 00090032 ! 13: C TESTS USE PARENTHESES TO GROUP ELEMENTS IN AN ARITHMETIC 00100032 ! 14: C EXPRESSION. 00110032 ! 15: C 00120032 ! 16: C THERE ARE TESTS WHERE THE ARITHMETIC EXPRESSION CONTAINS 00130032 ! 17: C (1) INTEGER VAR.= INT. VAR. - INT.VAR.-INT.CON 00140032 ! 18: C = INT. VAR. - INT.CON.-INT.VAR 00150032 ! 19: C = INT. CON. - INT.VAR -INT.VAR. 00160032 ! 20: C (2) SAME FORMS AS (1) BUT WITH PARENTHESES TO GROUP ELEMENTS 00170032 ! 21: C IN ARITHMETIC EXPRESSION. 00180032 ! 22: C 00190032 ! 23: C REFERENCES 00200032 ! 24: C AMERICAN NATIONAL STANDARD PROGRAMMING LANGUAGE FORTRAN, 00210032 ! 25: C X3.9-1978 00220032 ! 26: C 00230032 ! 27: C SECTION 4.3, INTEGER TYPE 00240032 ! 28: C SECTION 4.3.1, INTEGER CONSTANT 00250032 ! 29: C SECTION 6.1, ARITHMETIC EXPRESSIONS 00260032 ! 30: C SECTION 10.1, ARITHMETIC ASSIGNMENT STATEMENT 00270032 ! 31: C 00280032 ! 32: C 00290032 ! 33: C ********************************************************** 00300032 ! 34: C 00310032 ! 35: C A COMPILER VALIDATION SYSTEM FOR THE FORTRAN LANGUAGE 00320032 ! 36: C BASED ON SPECIFICATIONS AS DEFINED IN AMERICAN NATIONAL STANDARD 00330032 ! 37: C PROGRAMMING LANGUAGE FORTRAN X3.9-1978, HAS BEEN DEVELOPED BY THE 00340032 ! 38: C FEDERAL COBOL COMPILER TESTING SERVICE. THE FORTRAN COMPILER 00350032 ! 39: C VALIDATION SYSTEM (FCVS) CONSISTS OF AUDIT ROUTINES, THEIR RELATED00360032 ! 40: C DATA, AND AN EXECUTIVE SYSTEM. EACH AUDIT ROUTINE IS A FORTRAN 00370032 ! 41: C PROGRAM, SUBPROGRAM OR FUNCTION WHICH INCLUDES TESTS OF SPECIFIC 00380032 ! 42: C LANGUAGE ELEMENTS AND SUPPORTING PROCEDURES INDICATING THE RESULT 00390032 ! 43: C OF EXECUTING THESE TESTS. 00400032 ! 44: C 00410032 ! 45: C THIS PARTICULAR PROGRAM/SUBPROGRAM/FUNCTION CONTAINS FEATURES 00420032 ! 46: C FOUND ONLY IN THE SUBSET AS DEFINED IN X3.9-1978. 00430032 ! 47: C 00440032 ! 48: C SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO - 00450032 ! 49: C 00460032 ! 50: C DEPARTMENT OF THE NAVY 00470032 ! 51: C FEDERAL COBOL COMPILER TESTING SERVICE 00480032 ! 52: C WASHINGTON, D.C. 20376 00490032 ! 53: C 00500032 ! 54: C ********************************************************** 00510032 ! 55: C 00520032 ! 56: C 00530032 ! 57: C 00540032 ! 58: C INITIALIZATION SECTION 00550032 ! 59: C 00560032 ! 60: C INITIALIZE CONSTANTS 00570032 ! 61: C ************** 00580032 ! 62: C I01 CONTAINS THE LOGICAL UNIT NUMBER FOR THE CARD READER. 00590032 ! 63: I01 = 5 00600032 ! 64: C I02 CONTAINS THE LOGICAL UNIT NUMBER FOR THE PRINTER. 00610032 ! 65: I02 = 6 00620032 ! 66: C SYSTEM ENVIRONMENT SECTION 00630032 ! 67: C 00640032 ! 68: I01 = 5 00650032 ! 69: C THE CX010 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I01 = 5 00660032 ! 70: C (UNIT NUMBER FOR CARD READER). 00670032 ! 71: CX011 THIS CARD IS REPLACED BY CONTENTS OF FEXEC X-011 CONTROL CARD. 00680032 ! 72: C THE CX011 CARD IS FOR SYSTEMS WHICH REQUIRE ADDITIONAL 00690032 ! 73: C FORTRAN STATEMENTS FOR FILES ASSOCIATED WITH CX010 ABOVE. 00700032 ! 74: C 00710032 ! 75: I02 = 6 00720032 ! 76: C THE CX020 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I02 = 6 00730032 ! 77: C (UNIT NUMBER FOR PRINTER). 00740032 ! 78: CX021 THIS CARD IS REPLACED BY CONTENTS OF FEXEC X-021 CONTROL CARD. 00750032 ! 79: C THE CX021 CARD IS FOR SYSTEMS WHICH REQUIRE ADDITIONAL 00760032 ! 80: C FORTRAN STATEMENTS FOR FILES ASSOCIATED WITH CX020 ABOVE. 00770032 ! 81: C 00780032 ! 82: IVPASS=0 00790032 ! 83: IVFAIL=0 00800032 ! 84: IVDELE=0 00810032 ! 85: ICZERO=0 00820032 ! 86: C 00830032 ! 87: C WRITE PAGE HEADERS 00840032 ! 88: WRITE (I02,90000) 00850032 ! 89: WRITE (I02,90001) 00860032 ! 90: WRITE (I02,90002) 00870032 ! 91: WRITE (I02, 90002) 00880032 ! 92: WRITE (I02,90003) 00890032 ! 93: WRITE (I02,90002) 00900032 ! 94: WRITE (I02,90004) 00910032 ! 95: WRITE (I02,90002) 00920032 ! 96: WRITE (I02,90011) 00930032 ! 97: WRITE (I02,90002) 00940032 ! 98: WRITE (I02,90002) 00950032 ! 99: WRITE (I02,90005) 00960032 ! 100: WRITE (I02,90006) 00970032 ! 101: WRITE (I02,90002) 00980032 ! 102: C TEST SECTION 00990032 ! 103: C 01000032 ! 104: C ARITHMETIC ASSIGNMENT STATEMENT 01010032 ! 105: C 01020032 ! 106: C TEST 330 THROUGH TEST 347 CONTAIN TWO INTEGER VARIABLES, AN 01030032 ! 107: C INTEGER CONSTANT AND OPERATOR - IN AN ARITHMETIC EXPRESSION. THE 01040032 ! 108: C INTEGER VARIABLES CONTAIN POSITIVE AND NEGATIVE VALUES. 01050032 ! 109: C 01060032 ! 110: C TEST 330 THROUGH TEST 337 IV = IV -IV -IC 01070032 ! 111: C 01080032 ! 112: 3301 CONTINUE 01090032 ! 113: IVTNUM = 330 01100032 ! 114: C 01110032 ! 115: C **** TEST 330 **** 01120032 ! 116: C 01130032 ! 117: IF (ICZERO) 33300, 3300, 33300 01140032 ! 118: 3300 CONTINUE 01150032 ! 119: IVON01 =9 01160032 ! 120: IVON02 =4 01170032 ! 121: IVCOMP = IVON01-IVON02-2 01180032 ! 122: GO TO 43300 01190032 ! 123: 33300 IVDELE = IVDELE + 1 01200032 ! 124: WRITE (I02,80003) IVTNUM 01210032 ! 125: IF (ICZERO) 43300, 3311, 43300 01220032 ! 126: 43300 IF (IVCOMP-3) 23300,13300,23300 01230032 ! 127: 13300 IVPASS = IVPASS + 1 01240032 ! 128: WRITE (I02,80001) IVTNUM 01250032 ! 129: GO TO 3311 01260032 ! 130: 23300 IVFAIL = IVFAIL + 1 01270032 ! 131: IVCORR= 3 01280032 ! 132: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 01290032 ! 133: 3311 CONTINUE 01300032 ! 134: IVTNUM = 331 01310032 ! 135: C 01320032 ! 136: C **** TEST 331 **** 01330032 ! 137: C 01340032 ! 138: IF (ICZERO) 33310, 3310, 33310 01350032 ! 139: 3310 CONTINUE 01360032 ! 140: IVON01 =-9 01370032 ! 141: IVON02 = 4 01380032 ! 142: IVCOMP = IVON01-IVON02-2 01390032 ! 143: GO TO 43310 01400032 ! 144: 33310 IVDELE = IVDELE + 1 01410032 ! 145: WRITE (I02,80003) IVTNUM 01420032 ! 146: IF (ICZERO) 43310, 3321, 43310 01430032 ! 147: 43310 IF (IVCOMP +15) 23310,13310,23310 01440032 ! 148: 13310 IVPASS = IVPASS + 1 01450032 ! 149: WRITE (I02,80001) IVTNUM 01460032 ! 150: GO TO 3321 01470032 ! 151: 23310 IVFAIL = IVFAIL + 1 01480032 ! 152: IVCORR = -15 01490032 ! 153: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 01500032 ! 154: 3321 CONTINUE 01510032 ! 155: IVTNUM = 332 01520032 ! 156: C 01530032 ! 157: C **** TEST 332 **** 01540032 ! 158: C 01550032 ! 159: IF (ICZERO) 33320, 3320, 33320 01560032 ! 160: 3320 CONTINUE 01570032 ! 161: IVON01 =9 01580032 ! 162: IVON02 =-4 01590032 ! 163: IVCOMP =IVON01-IVON02-2 01600032 ! 164: GO TO 43320 01610032 ! 165: 33320 IVDELE = IVDELE + 1 01620032 ! 166: WRITE (I02,80003) IVTNUM 01630032 ! 167: IF (ICZERO) 43320, 3331, 43320 01640032 ! 168: 43320 IF (IVCOMP-11) 23320,13320,23320 01650032 ! 169: 13320 IVPASS = IVPASS + 1 01660032 ! 170: WRITE (I02,80001) IVTNUM 01670032 ! 171: GO TO 3331 01680032 ! 172: 23320 IVFAIL = IVFAIL + 1 01690032 ! 173: IVCORR = 11 01700032 ! 174: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 01710032 ! 175: 3331 CONTINUE 01720032 ! 176: IVTNUM = 333 01730032 ! 177: C 01740032 ! 178: C **** TEST 333 **** 01750032 ! 179: C 01760032 ! 180: IF (ICZERO) 33330, 3330, 33330 01770032 ! 181: 3330 CONTINUE 01780032 ! 182: IVON01 =57 01790032 ! 183: IVON02 =25 01800032 ! 184: IVCOMP=IVON01-IVON02-22 01810032 ! 185: GO TO 43330 01820032 ! 186: 33330 IVDELE = IVDELE + 1 01830032 ! 187: WRITE (I02,80003) IVTNUM 01840032 ! 188: IF (ICZERO) 43330, 3341, 43330 01850032 ! 189: 43330 IF (IVCOMP -10) 23330,13330,23330 01860032 ! 190: 13330 IVPASS = IVPASS + 1 01870032 ! 191: WRITE (I02,80001) IVTNUM 01880032 ! 192: GO TO 3341 01890032 ! 193: 23330 IVFAIL = IVFAIL + 1 01900032 ! 194: IVCORR = 10 01910032 ! 195: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 01920032 ! 196: 3341 CONTINUE 01930032 ! 197: IVTNUM = 334 01940032 ! 198: C 01950032 ! 199: C **** TEST 334 **** 01960032 ! 200: C 01970032 ! 201: IF (ICZERO) 33340, 3340, 33340 01980032 ! 202: 3340 CONTINUE 01990032 ! 203: IVON01 = 101 02000032 ! 204: IVON02 = 683 02010032 ! 205: IVCOMP = IVON01 - IVON02 - 156 02020032 ! 206: GO TO 43340 02030032 ! 207: 33340 IVDELE = IVDELE + 1 02040032 ! 208: WRITE (I02,80003) IVTNUM 02050032 ! 209: IF (ICZERO) 43340, 3351, 43340 02060032 ! 210: 43340 IF (IVCOMP +738) 23340,13340,23340 02070032 ! 211: 13340 IVPASS = IVPASS + 1 02080032 ! 212: WRITE (I02,80001) IVTNUM 02090032 ! 213: GO TO 3351 02100032 ! 214: 23340 IVFAIL = IVFAIL + 1 02110032 ! 215: IVCORR = -738 02120032 ! 216: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 02130032 ! 217: 3351 CONTINUE 02140032 ! 218: IVTNUM = 335 02150032 ! 219: C 02160032 ! 220: C **** TEST 335 **** 02170032 ! 221: C 02180032 ! 222: IF (ICZERO) 33350, 3350, 33350 02190032 ! 223: 3350 CONTINUE 02200032 ! 224: IVON01=8542 02210032 ! 225: IVON02=1122 02220032 ! 226: IVCOMP=IVON01-IVON02-1289 02230032 ! 227: GO TO 43350 02240032 ! 228: 33350 IVDELE = IVDELE + 1 02250032 ! 229: WRITE (I02,80003) IVTNUM 02260032 ! 230: IF (ICZERO) 43350, 3361, 43350 02270032 ! 231: 43350 IF (IVCOMP -6131) 23350,13350,23350 02280032 ! 232: 13350 IVPASS = IVPASS + 1 02290032 ! 233: WRITE (I02,80001) IVTNUM 02300032 ! 234: GO TO 3361 02310032 ! 235: 23350 IVFAIL = IVFAIL + 1 02320032 ! 236: IVCORR = 6131 02330032 ! 237: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 02340032 ! 238: 3361 CONTINUE 02350032 ! 239: IVTNUM = 336 02360032 ! 240: C 02370032 ! 241: C **** TEST 336 **** 02380032 ! 242: C 02390032 ! 243: IF (ICZERO) 33360, 3360, 33360 02400032 ! 244: 3360 CONTINUE 02410032 ! 245: IVON01 = 31333 02420032 ! 246: IVON02 = 11111 02430032 ! 247: IVCOMP = IVON01-IVON02-10111 02440032 ! 248: GO TO 43360 02450032 ! 249: 33360 IVDELE = IVDELE + 1 02460032 ! 250: WRITE (I02,80003) IVTNUM 02470032 ! 251: IF (ICZERO) 43360, 3371, 43360 02480032 ! 252: 43360 IF (IVCOMP -10111) 23360,13360,23360 02490032 ! 253: 13360 IVPASS = IVPASS + 1 02500032 ! 254: WRITE (I02,80001) IVTNUM 02510032 ! 255: GO TO 3371 02520032 ! 256: 23360 IVFAIL = IVFAIL + 1 02530032 ! 257: IVCORR = 10111 02540032 ! 258: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 02550032 ! 259: 3371 CONTINUE 02560032 ! 260: IVTNUM = 337 02570032 ! 261: C 02580032 ! 262: C **** TEST 337 **** 02590032 ! 263: C 02600032 ! 264: IF (ICZERO) 33370, 3370, 33370 02610032 ! 265: 3370 CONTINUE 02620032 ! 266: IVON01 = -31444 02630032 ! 267: IVON02 = +1001 02640032 ! 268: IVCOMP = IVON01-IVON02-300 02650032 ! 269: GO TO 43370 02660032 ! 270: 33370 IVDELE = IVDELE + 1 02670032 ! 271: WRITE (I02,80003) IVTNUM 02680032 ! 272: IF (ICZERO) 43370, 3381, 43370 02690032 ! 273: 43370 IF (IVCOMP +32745) 23370,13370,23370 02700032 ! 274: 13370 IVPASS = IVPASS + 1 02710032 ! 275: WRITE (I02,80001) IVTNUM 02720032 ! 276: GO TO 3381 02730032 ! 277: 23370 IVFAIL = IVFAIL + 1 02740032 ! 278: IVCORR = -32745 02750032 ! 279: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 02760032 ! 280: C 02770032 ! 281: C TEST 338 THROUGH TEST 343 IV=IV-IC-IV 02780032 ! 282: C 02790032 ! 283: 3381 CONTINUE 02800032 ! 284: IVTNUM = 338 02810032 ! 285: C 02820032 ! 286: C **** TEST 338 **** 02830032 ! 287: C 02840032 ! 288: IF (ICZERO) 33380, 3380, 33380 02850032 ! 289: 3380 CONTINUE 02860032 ! 290: IVON01 =9 02870032 ! 291: IVON03 =2 02880032 ! 292: IVCOMP = IVON01-4-IVON03 02890032 ! 293: GO TO 43380 02900032 ! 294: 33380 IVDELE = IVDELE + 1 02910032 ! 295: WRITE (I02,80003) IVTNUM 02920032 ! 296: IF (ICZERO) 43380, 3391, 43380 02930032 ! 297: 43380 IF (IVCOMP -3) 23380,13380,23380 02940032 ! 298: 13380 IVPASS = IVPASS + 1 02950032 ! 299: WRITE (I02,80001) IVTNUM 02960032 ! 300: GO TO 3391 02970032 ! 301: 23380 IVFAIL = IVFAIL + 1 02980032 ! 302: IVCORR = 3 02990032 ! 303: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 03000032 ! 304: 3391 CONTINUE 03010032 ! 305: IVTNUM = 339 03020032 ! 306: C 03030032 ! 307: C **** TEST 339 **** 03040032 ! 308: C 03050032 ! 309: IF (ICZERO) 33390, 3390, 33390 03060032 ! 310: 3390 CONTINUE 03070032 ! 311: IVON01 = -9 03080032 ! 312: IVON03 = 2 03090032 ! 313: IVCOMP = IVON01-4-IVON03 03100032 ! 314: GO TO 43390 03110032 ! 315: 33390 IVDELE = IVDELE + 1 03120032 ! 316: WRITE (I02,80003) IVTNUM 03130032 ! 317: IF (ICZERO) 43390, 3401, 43390 03140032 ! 318: 43390 IF (IVCOMP+15) 23390,13390,23390 03150032 ! 319: 13390 IVPASS = IVPASS + 1 03160032 ! 320: WRITE (I02,80001) IVTNUM 03170032 ! 321: GO TO 3401 03180032 ! 322: 23390 IVFAIL = IVFAIL + 1 03190032 ! 323: IVCORR = -15 03200032 ! 324: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 03210032 ! 325: 3401 CONTINUE 03220032 ! 326: IVTNUM = 340 03230032 ! 327: C 03240032 ! 328: C **** TEST 340 **** 03250032 ! 329: C 03260032 ! 330: IF (ICZERO) 33400, 3400, 33400 03270032 ! 331: 3400 CONTINUE 03280032 ! 332: IVON01 = 9 03290032 ! 333: IVON03 =-2 03300032 ! 334: IVCOMP =IVON01-4-IVON03 03310032 ! 335: GO TO 43400 03320032 ! 336: 33400 IVDELE = IVDELE + 1 03330032 ! 337: WRITE (I02,80003) IVTNUM 03340032 ! 338: IF (ICZERO) 43400, 3411, 43400 03350032 ! 339: 43400 IF (IVCOMP-7) 23400,13400,23400 03360032 ! 340: 13400 IVPASS = IVPASS + 1 03370032 ! 341: WRITE (I02,80001) IVTNUM 03380032 ! 342: GO TO 3411 03390032 ! 343: 23400 IVFAIL = IVFAIL + 1 03400032 ! 344: IVCORR=7 03410032 ! 345: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 03420032 ! 346: 3411 CONTINUE 03430032 ! 347: IVTNUM = 341 03440032 ! 348: C 03450032 ! 349: C **** TEST 341 **** 03460032 ! 350: C 03470032 ! 351: IF (ICZERO) 33410, 3410, 33410 03480032 ! 352: 3410 CONTINUE 03490032 ! 353: IVON01=-57 03500032 ! 354: IVON03=22 03510032 ! 355: IVCOMP=IVON01-25-IVON03 03520032 ! 356: GO TO 43410 03530032 ! 357: 33410 IVDELE = IVDELE + 1 03540032 ! 358: WRITE (I02,80003) IVTNUM 03550032 ! 359: IF (ICZERO) 43410, 3421, 43410 03560032 ! 360: 43410 IF (IVCOMP+104) 23410,13410,23410 03570032 ! 361: 13410 IVPASS = IVPASS + 1 03580032 ! 362: WRITE (I02,80001) IVTNUM 03590032 ! 363: GO TO 3421 03600032 ! 364: 23410 IVFAIL = IVFAIL + 1 03610032 ! 365: IVCORR = -104 03620032 ! 366: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 03630032 ! 367: 3421 CONTINUE 03640032 ! 368: IVTNUM = 342 03650032 ! 369: C 03660032 ! 370: C **** TEST 342 **** 03670032 ! 371: C 03680032 ! 372: IF (ICZERO) 33420, 3420, 33420 03690032 ! 373: 3420 CONTINUE 03700032 ! 374: IVON01=8542 03710032 ! 375: IVON03=3 03720032 ! 376: IVCOMP=IVON01-125-IVON03 03730032 ! 377: GO TO 43420 03740032 ! 378: 33420 IVDELE = IVDELE + 1 03750032 ! 379: WRITE (I02,80003) IVTNUM 03760032 ! 380: IF (ICZERO) 43420, 3431, 43420 03770032 ! 381: 43420 IF (IVCOMP-8414) 23420,13420,23420 03780032 ! 382: 13420 IVPASS = IVPASS + 1 03790032 ! 383: WRITE (I02,80001) IVTNUM 03800032 ! 384: GO TO 3431 03810032 ! 385: 23420 IVFAIL = IVFAIL + 1 03820032 ! 386: IVCORR = 8414 03830032 ! 387: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 03840032 ! 388: 3431 CONTINUE 03850032 ! 389: IVTNUM = 343 03860032 ! 390: C 03870032 ! 391: C **** TEST 343 **** 03880032 ! 392: C 03890032 ! 393: IF (ICZERO) 33430, 3430, 33430 03900032 ! 394: 3430 CONTINUE 03910032 ! 395: IVON01 = -32111 03920032 ! 396: IVON03 = -111 03930032 ! 397: IVCOMP = IVON01-111-IVON03 03940032 ! 398: GO TO 43430 03950032 ! 399: 33430 IVDELE = IVDELE + 1 03960032 ! 400: WRITE (I02,80003) IVTNUM 03970032 ! 401: IF (ICZERO) 43430, 3441, 43430 03980032 ! 402: 43430 IF (IVCOMP + 32111) 23430,13430,23430 03990032 ! 403: 13430 IVPASS = IVPASS + 1 04000032 ! 404: WRITE (I02,80001) IVTNUM 04010032 ! 405: GO TO 3441 04020032 ! 406: 23430 IVFAIL = IVFAIL + 1 04030032 ! 407: IVCORR = -32111 04040032 ! 408: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 04050032 ! 409: C 04060032 ! 410: C TEST 344 THROUGH TEST 347 IV=IC-IV-IV 04070032 ! 411: C 04080032 ! 412: 3441 CONTINUE 04090032 ! 413: IVTNUM = 344 04100032 ! 414: C 04110032 ! 415: C **** TEST 344 **** 04120032 ! 416: C 04130032 ! 417: IF (ICZERO) 33440, 3440, 33440 04140032 ! 418: 3440 CONTINUE 04150032 ! 419: IVON02=4 04160032 ! 420: IVON03=2 04170032 ! 421: IVCOMP=9-IVON02-IVON03 04180032 ! 422: GO TO 43440 04190032 ! 423: 33440 IVDELE = IVDELE + 1 04200032 ! 424: WRITE (I02,80003) IVTNUM 04210032 ! 425: IF (ICZERO) 43440, 3451, 43440 04220032 ! 426: 43440 IF (IVCOMP -3) 23440,13440,23440 04230032 ! 427: 13440 IVPASS = IVPASS + 1 04240032 ! 428: WRITE (I02,80001) IVTNUM 04250032 ! 429: GO TO 3451 04260032 ! 430: 23440 IVFAIL = IVFAIL + 1 04270032 ! 431: IVCORR = 3 04280032 ! 432: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 04290032 ! 433: 3451 CONTINUE 04300032 ! 434: IVTNUM = 345 04310032 ! 435: C 04320032 ! 436: C **** TEST 345 **** 04330032 ! 437: C 04340032 ! 438: IF (ICZERO) 33450, 3450, 33450 04350032 ! 439: 3450 CONTINUE 04360032 ! 440: IVON02=-4 04370032 ! 441: IVON03= 2 04380032 ! 442: IVCOMP= 9-IVON02-IVON03 04390032 ! 443: GO TO 43450 04400032 ! 444: 33450 IVDELE = IVDELE + 1 04410032 ! 445: WRITE (I02,80003) IVTNUM 04420032 ! 446: IF (ICZERO) 43450, 3461, 43450 04430032 ! 447: 43450 IF (IVCOMP -11) 23450,13450,23450 04440032 ! 448: 13450 IVPASS = IVPASS + 1 04450032 ! 449: WRITE (I02,80001) IVTNUM 04460032 ! 450: GO TO 3461 04470032 ! 451: 23450 IVFAIL = IVFAIL + 1 04480032 ! 452: IVCORR =11 04490032 ! 453: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 04500032 ! 454: 3461 CONTINUE 04510032 ! 455: IVTNUM = 346 04520032 ! 456: C 04530032 ! 457: C **** TEST 346 **** 04540032 ! 458: C 04550032 ! 459: IF (ICZERO) 33460, 3460, 33460 04560032 ! 460: 3460 CONTINUE 04570032 ! 461: IVON02 = 683 04580032 ! 462: IVON03 = 156 04590032 ! 463: IVCOMP = 101 -IVON02-IVON03 04600032 ! 464: GO TO 43460 04610032 ! 465: 33460 IVDELE = IVDELE + 1 04620032 ! 466: WRITE (I02,80003) IVTNUM 04630032 ! 467: IF (ICZERO) 43460, 3471, 43460 04640032 ! 468: 43460 IF (IVCOMP +738) 23460,13460,23460 04650032 ! 469: 13460 IVPASS = IVPASS + 1 04660032 ! 470: WRITE (I02,80001) IVTNUM 04670032 ! 471: GO TO 3471 04680032 ! 472: 23460 IVFAIL = IVFAIL + 1 04690032 ! 473: IVCORR = -738 04700032 ! 474: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 04710032 ! 475: 3471 CONTINUE 04720032 ! 476: IVTNUM = 347 04730032 ! 477: C 04740032 ! 478: C **** TEST 347 **** 04750032 ! 479: C 04760032 ! 480: IF (ICZERO) 33470, 3470, 33470 04770032 ! 481: 3470 CONTINUE 04780032 ! 482: IVON02 = 15687 04790032 ! 483: IVON03 = 387 04800032 ! 484: IVCOMP = 8542-IVON02-IVON03 04810032 ! 485: GO TO 43470 04820032 ! 486: 33470 IVDELE = IVDELE + 1 04830032 ! 487: WRITE (I02,80003) IVTNUM 04840032 ! 488: IF (ICZERO) 43470, 3481, 43470 04850032 ! 489: 43470 IF (IVCOMP + 7532) 23470,13470,23470 04860032 ! 490: 13470 IVPASS = IVPASS + 1 04870032 ! 491: WRITE (I02,80001) IVTNUM 04880032 ! 492: GO TO 3481 04890032 ! 493: 23470 IVFAIL = IVFAIL + 1 04900032 ! 494: IVCORR = -7532 04910032 ! 495: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 04920032 ! 496: C 04930032 ! 497: C TEST 348 THROUGH TEST 359 CONTAIN TWO INTEGER VARIABLES, AN 04940032 ! 498: C INTEGER CONSTANT AND OPERATOR - IN AN ARITHMETIC EXPRESSION. 04950032 ! 499: C PARENTHESES ARE USED TO GROUP THE ELEMENTS IN THE ARITHMETIC 04960032 ! 500: C EXPRESSION. THE INTEGER VARIABLES CONTAIN POSITIVE AND NEGATIVE 04970032 ! 501: C VALUES. 04980032 ! 502: C 04990032 ! 503: 3481 CONTINUE 05000032 ! 504: IVTNUM = 348 05010032 ! 505: C 05020032 ! 506: C **** TEST 348 **** 05030032 ! 507: C 05040032 ! 508: IF (ICZERO) 33480, 3480, 33480 05050032 ! 509: 3480 CONTINUE 05060032 ! 510: IVON01= 9 05070032 ! 511: IVON02= 4 05080032 ! 512: IVCOMP=(IVON01-IVON02)-2 05090032 ! 513: GO TO 43480 05100032 ! 514: 33480 IVDELE = IVDELE + 1 05110032 ! 515: WRITE (I02,80003) IVTNUM 05120032 ! 516: IF (ICZERO) 43480, 3491, 43480 05130032 ! 517: 43480 IF (IVCOMP - 3) 23480,13480,23480 05140032 ! 518: 13480 IVPASS = IVPASS + 1 05150032 ! 519: WRITE (I02,80001) IVTNUM 05160032 ! 520: GO TO 3491 05170032 ! 521: 23480 IVFAIL = IVFAIL + 1 05180032 ! 522: IVCORR = 3 05190032 ! 523: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 05200032 ! 524: 3491 CONTINUE 05210032 ! 525: IVTNUM = 349 05220032 ! 526: C 05230032 ! 527: C **** TEST 349 **** 05240032 ! 528: C 05250032 ! 529: IF (ICZERO) 33490, 3490, 33490 05260032 ! 530: 3490 CONTINUE 05270032 ! 531: IVON01=9 05280032 ! 532: IVON02=4 05290032 ! 533: IVCOMP=IVON01-(IVON02-2) 05300032 ! 534: GO TO 43490 05310032 ! 535: 33490 IVDELE = IVDELE + 1 05320032 ! 536: WRITE (I02,80003) IVTNUM 05330032 ! 537: IF (ICZERO) 43490, 3501, 43490 05340032 ! 538: 43490 IF (IVCOMP -7) 23490,13490,23490 05350032 ! 539: 13490 IVPASS = IVPASS + 1 05360032 ! 540: WRITE (I02,80001) IVTNUM 05370032 ! 541: GO TO 3501 05380032 ! 542: 23490 IVFAIL = IVFAIL + 1 05390032 ! 543: IVCORR=7 05400032 ! 544: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 05410032 ! 545: 3501 CONTINUE 05420032 ! 546: IVTNUM = 350 05430032 ! 547: C 05440032 ! 548: C **** TEST 350 **** 05450032 ! 549: C 05460032 ! 550: IF (ICZERO) 33500, 3500, 33500 05470032 ! 551: 3500 CONTINUE 05480032 ! 552: IVON01 = 9 05490032 ! 553: IVON02 = -4 05500032 ! 554: IVCOMP = (IVON01-IVON02) -2 05510032 ! 555: GO TO 43500 05520032 ! 556: 33500 IVDELE = IVDELE + 1 05530032 ! 557: WRITE (I02,80003) IVTNUM 05540032 ! 558: IF (ICZERO) 43500, 3511, 43500 05550032 ! 559: 43500 IF (IVCOMP -11) 23500,13500,23500 05560032 ! 560: 13500 IVPASS = IVPASS + 1 05570032 ! 561: WRITE (I02,80001) IVTNUM 05580032 ! 562: GO TO 3511 05590032 ! 563: 23500 IVFAIL = IVFAIL + 1 05600032 ! 564: IVCORR = 11 05610032 ! 565: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 05620032 ! 566: 3511 CONTINUE 05630032 ! 567: IVTNUM = 351 05640032 ! 568: C 05650032 ! 569: C **** TEST 351 **** 05660032 ! 570: C 05670032 ! 571: IF (ICZERO) 33510, 3510, 33510 05680032 ! 572: 3510 CONTINUE 05690032 ! 573: IVON01 = 9 05700032 ! 574: IVON02 = -4 05710032 ! 575: IVCOMP = IVON01-(IVON02-2) 05720032 ! 576: GO TO 43510 05730032 ! 577: 33510 IVDELE = IVDELE + 1 05740032 ! 578: WRITE (I02,80003) IVTNUM 05750032 ! 579: IF (ICZERO) 43510, 3521, 43510 05760032 ! 580: 43510 IF (IVCOMP - 15) 23510,13510,23510 05770032 ! 581: 13510 IVPASS = IVPASS + 1 05780032 ! 582: WRITE (I02,80001) IVTNUM 05790032 ! 583: GO TO 3521 05800032 ! 584: 23510 IVFAIL = IVFAIL + 1 05810032 ! 585: IVCORR = 15 05820032 ! 586: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 05830032 ! 587: 3521 CONTINUE 05840032 ! 588: IVTNUM = 352 05850032 ! 589: C 05860032 ! 590: C **** TEST 352 **** 05870032 ! 591: C 05880032 ! 592: IF (ICZERO) 33520, 3520, 33520 05890032 ! 593: 3520 CONTINUE 05900032 ! 594: IVON01 = 683 05910032 ! 595: IVON03 = 156 05920032 ! 596: IVCOMP = (IVON01-101)-IVON03 05930032 ! 597: GO TO 43520 05940032 ! 598: 33520 IVDELE = IVDELE + 1 05950032 ! 599: WRITE (I02,80003) IVTNUM 05960032 ! 600: IF (ICZERO) 43520, 3531, 43520 05970032 ! 601: 43520 IF (IVCOMP - 426) 23520,13520,23520 05980032 ! 602: 13520 IVPASS = IVPASS + 1 05990032 ! 603: WRITE (I02,80001) IVTNUM 06000032 ! 604: GO TO 3531 06010032 ! 605: 23520 IVFAIL = IVFAIL + 1 06020032 ! 606: IVCORR = 426 06030032 ! 607: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 06040032 ! 608: 3531 CONTINUE 06050032 ! 609: IVTNUM = 353 06060032 ! 610: C 06070032 ! 611: C **** TEST 353 **** 06080032 ! 612: C 06090032 ! 613: IF (ICZERO) 33530, 3530, 33530 06100032 ! 614: 3530 CONTINUE 06110032 ! 615: IVON01 = 683 06120032 ! 616: IVON03 = 156 06130032 ! 617: IVCOMP = IVON01 -(101-IVON03) 06140032 ! 618: GO TO 43530 06150032 ! 619: 33530 IVDELE = IVDELE + 1 06160032 ! 620: WRITE (I02,80003) IVTNUM 06170032 ! 621: IF (ICZERO) 43530, 3541, 43530 06180032 ! 622: 43530 IF (IVCOMP -738) 23530,13530,23530 06190032 ! 623: 13530 IVPASS = IVPASS + 1 06200032 ! 624: WRITE (I02,80001) IVTNUM 06210032 ! 625: GO TO 3541 06220032 ! 626: 23530 IVFAIL = IVFAIL + 1 06230032 ! 627: IVCORR = 738 06240032 ! 628: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 06250032 ! 629: 3541 CONTINUE 06260032 ! 630: IVTNUM = 354 06270032 ! 631: C 06280032 ! 632: C **** TEST 354 **** 06290032 ! 633: C 06300032 ! 634: IF (ICZERO) 33540, 3540, 33540 06310032 ! 635: 3540 CONTINUE 06320032 ! 636: IVON01 = 683 06330032 ! 637: IVON03 =-156 06340032 ! 638: IVCOMP = IVON01 -(101-IVON03) 06350032 ! 639: GO TO 43540 06360032 ! 640: 33540 IVDELE = IVDELE + 1 06370032 ! 641: WRITE (I02,80003) IVTNUM 06380032 ! 642: IF (ICZERO) 43540, 3551, 43540 06390032 ! 643: 43540 IF (IVCOMP -426) 23540,13540,23540 06400032 ! 644: 13540 IVPASS = IVPASS + 1 06410032 ! 645: WRITE (I02,80001) IVTNUM 06420032 ! 646: GO TO 3551 06430032 ! 647: 23540 IVFAIL = IVFAIL + 1 06440032 ! 648: IVCORR = 426 06450032 ! 649: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 06460032 ! 650: 3551 CONTINUE 06470032 ! 651: IVTNUM = 355 06480032 ! 652: C 06490032 ! 653: C **** TEST 355 **** 06500032 ! 654: C 06510032 ! 655: IF (ICZERO) 33550, 3550, 33550 06520032 ! 656: 3550 CONTINUE 06530032 ! 657: IVON01 = -683 06540032 ! 658: IVON03 = -156 06550032 ! 659: IVCOMP = (IVON01-101)-IVON03 06560032 ! 660: GO TO 43550 06570032 ! 661: 33550 IVDELE = IVDELE + 1 06580032 ! 662: WRITE (I02,80003) IVTNUM 06590032 ! 663: IF (ICZERO) 43550, 3561, 43550 06600032 ! 664: 43550 IF (IVCOMP +628) 23550,13550,23550 06610032 ! 665: 13550 IVPASS = IVPASS + 1 06620032 ! 666: WRITE (I02,80001) IVTNUM 06630032 ! 667: GO TO 3561 06640032 ! 668: 23550 IVFAIL = IVFAIL + 1 06650032 ! 669: IVCORR = -628 06660032 ! 670: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 06670032 ! 671: 3561 CONTINUE 06680032 ! 672: IVTNUM = 356 06690032 ! 673: C 06700032 ! 674: C **** TEST 356 **** 06710032 ! 675: C 06720032 ! 676: IF (ICZERO) 33560, 3560, 33560 06730032 ! 677: 3560 CONTINUE 06740032 ! 678: IVON02 = 15687 06750032 ! 679: IVON03 = 387 06760032 ! 680: IVCOMP = (8542-IVON02)-IVON03 06770032 ! 681: GO TO 43560 06780032 ! 682: 33560 IVDELE = IVDELE + 1 06790032 ! 683: WRITE (I02,80003) IVTNUM 06800032 ! 684: IF (ICZERO) 43560, 3571, 43560 06810032 ! 685: 43560 IF (IVCOMP +7532) 23560,13560,23560 06820032 ! 686: 13560 IVPASS = IVPASS + 1 06830032 ! 687: WRITE (I02,80001) IVTNUM 06840032 ! 688: GO TO 3571 06850032 ! 689: 23560 IVFAIL = IVFAIL + 1 06860032 ! 690: IVCORR = -7532 06870032 ! 691: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 06880032 ! 692: 3571 CONTINUE 06890032 ! 693: IVTNUM = 357 06900032 ! 694: C 06910032 ! 695: C **** TEST 357 **** 06920032 ! 696: C 06930032 ! 697: IF (ICZERO) 33570, 3570, 33570 06940032 ! 698: 3570 CONTINUE 06950032 ! 699: IVON02= 15687 06960032 ! 700: IVON03= 387 06970032 ! 701: IVCOMP= 8542-(IVON02-IVON03) 06980032 ! 702: GO TO 43570 06990032 ! 703: 33570 IVDELE = IVDELE + 1 07000032 ! 704: WRITE (I02,80003) IVTNUM 07010032 ! 705: IF (ICZERO) 43570, 3581, 43570 07020032 ! 706: 43570 IF (IVCOMP + 6758) 23570,13570,23570 07030032 ! 707: 13570 IVPASS = IVPASS + 1 07040032 ! 708: WRITE (I02,80001) IVTNUM 07050032 ! 709: GO TO 3581 07060032 ! 710: 23570 IVFAIL = IVFAIL + 1 07070032 ! 711: IVCORR = -6758 07080032 ! 712: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 07090032 ! 713: 3581 CONTINUE 07100032 ! 714: IVTNUM = 358 07110032 ! 715: C 07120032 ! 716: C **** TEST 358 **** 07130032 ! 717: C 07140032 ! 718: IF (ICZERO) 33580, 3580, 33580 07150032 ! 719: 3580 CONTINUE 07160032 ! 720: IVON02 = -15687 07170032 ! 721: IVON03 = 387 07180032 ! 722: IVCOMP =(8542-IVON02)-IVON03 07190032 ! 723: GO TO 43580 07200032 ! 724: 33580 IVDELE = IVDELE + 1 07210032 ! 725: WRITE (I02,80003) IVTNUM 07220032 ! 726: IF (ICZERO) 43580, 3591, 43580 07230032 ! 727: 43580 IF (IVCOMP - 23842) 23580,13580,23580 07240032 ! 728: 13580 IVPASS = IVPASS + 1 07250032 ! 729: WRITE (I02,80001) IVTNUM 07260032 ! 730: GO TO 3591 07270032 ! 731: 23580 IVFAIL = IVFAIL + 1 07280032 ! 732: IVCORR =23842 07290032 ! 733: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 07300032 ! 734: 3591 CONTINUE 07310032 ! 735: IVTNUM = 359 07320032 ! 736: C 07330032 ! 737: C **** TEST 359 **** 07340032 ! 738: C 07350032 ! 739: IF (ICZERO) 33590, 3590, 33590 07360032 ! 740: 3590 CONTINUE 07370032 ! 741: IVON02 = -15687 07380032 ! 742: IVON03 = 387 07390032 ! 743: IVCOMP = 8542-(IVON02-IVON03) 07400032 ! 744: GO TO 43590 07410032 ! 745: 33590 IVDELE = IVDELE + 1 07420032 ! 746: WRITE (I02,80003) IVTNUM 07430032 ! 747: IF (ICZERO) 43590, 3601, 43590 07440032 ! 748: 43590 IF (IVCOMP - 24616) 23590,13590,23590 07450032 ! 749: 13590 IVPASS = IVPASS + 1 07460032 ! 750: WRITE (I02,80001) IVTNUM 07470032 ! 751: GO TO 3601 07480032 ! 752: 23590 IVFAIL = IVFAIL + 1 07490032 ! 753: IVCORR = 24616 07500032 ! 754: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 07510032 ! 755: C **** END OF TESTS **** 07520032 ! 756: 3601 CONTINUE 07530032 ! 757: C 07540032 ! 758: C WRITE PAGE FOOTINGS AND RUN SUMMARIES 07550032 ! 759: 99999 CONTINUE 07560032 ! 760: WRITE (I02,90002) 07570032 ! 761: WRITE (I02,90006) 07580032 ! 762: WRITE (I02,90002) 07590032 ! 763: WRITE (I02,90002) 07600032 ! 764: WRITE (I02,90007) 07610032 ! 765: WRITE (I02,90002) 07620032 ! 766: WRITE (I02,90008) IVFAIL 07630032 ! 767: WRITE (I02,90009) IVPASS 07640032 ! 768: WRITE (I02,90010) IVDELE 07650032 ! 769: C 07660032 ! 770: C 07670032 ! 771: C TERMINATE ROUTINE EXECUTION 07680032 ! 772: STOP 07690032 ! 773: C 07700032 ! 774: C FORMAT STATEMENTS FOR PAGE HEADERS 07710032 ! 775: 90000 FORMAT (1H1) 07720032 ! 776: 90002 FORMAT (1H ) 07730032 ! 777: 90001 FORMAT (1H ,10X,34HFORTRAN COMPILER VALIDATION SYSTEM) 07740032 ! 778: 90003 FORMAT (1H ,21X,11HVERSION 1.0) 07750032 ! 779: 90004 FORMAT (1H ,10X,38HFOR OFFICIAL USE ONLY - COPYRIGHT 1978) 07760032 ! 780: 90005 FORMAT (1H ,5X,4HTEST,5X,9HPASS/FAIL, 5X,8HCOMPUTED,8X,7HCORRECT) 07770032 ! 781: 90006 FORMAT (1H ,5X,46H----------------------------------------------) 07780032 ! 782: 90011 FORMAT (1H ,18X,17HSUBSET LEVEL TEST) 07790032 ! 783: C 07800032 ! 784: C FORMAT STATEMENTS FOR RUN SUMMARIES 07810032 ! 785: 90008 FORMAT (1H ,15X,I5,19H ERRORS ENCOUNTERED) 07820032 ! 786: 90009 FORMAT (1H ,15X,I5,13H TESTS PASSED) 07830032 ! 787: 90010 FORMAT (1H ,15X,I5,14H TESTS DELETED) 07840032 ! 788: C 07850032 ! 789: C FORMAT STATEMENTS FOR TEST RESULTS 07860032 ! 790: 80001 FORMAT (1H ,4X,I5,7X,4HPASS) 07870032 ! 791: 80002 FORMAT (1H ,4X,I5,7X,4HFAIL) 07880032 ! 792: 80003 FORMAT (1H ,4X,I5,7X,7HDELETED) 07890032 ! 793: 80004 FORMAT (1H ,4X,I5,7X,4HFAIL,10X,I6,9X,I6) 07900032 ! 794: 80005 FORMAT (1H ,4X,I5,7X,4HFAIL,4X,E12.5,3X,E12.5) 07910032 ! 795: C 07920032 ! 796: 90007 FORMAT (1H ,20X,20HEND OF PROGRAM FM032) 07930032 ! 797: END 07940032
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.