![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to FM007.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 FM007.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 00010007 ! 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 00020007 ! 6: C FM007 00030007 ! 7: C 00040007 ! 8: C THIS ROUTINE TESTS THE USE OF DATA INITIALIZATION STATEMENTS. 00050007 ! 9: C DATA INITIALIZATION STATEMENTS ARE USED TO DEFINE INITIAL VALUES 00060007 ! 10: C OF INTEGER VARIABLES. THE DATA STATEMENTS CONTAIN UNSIGNED, 00070007 ! 11: C POSITIVE SIGNED AND NEGATIVE SIGNED INTEGER CONSTANTS. THE LAST 00080007 ! 12: C DATA STATEMENT CONTAINS THE FORM 00090007 ! 13: C J*INTEGER CONSTANT 00100007 ! 14: C WHICH INDICATES THE CONSTANT IS TO BE SPECIFIED J TIMES. 00110007 ! 15: C 00120007 ! 16: C THE TESTS IN THIS ROUTINE CHECK THE INTEGER VARIABLES IN THE 00130007 ! 17: C DATA STATEMENT FOR THE ASSIGNED INITIAL VALUES. 00140007 ! 18: C 00150007 ! 19: C REFERENCES 00160007 ! 20: C AMERICAN NATIONAL STANDARD PROGRAMMING LANGUAGE FORTRAN, 00170007 ! 21: C X3.9-1978 00180007 ! 22: C 00190007 ! 23: C SECTION 4.3, INTEGER TYPE 00200007 ! 24: C SECTION 4.3.1, INTEGER CONSTANT 00210007 ! 25: C SECTION 9, DATA STATEMENT 00220007 ! 26: C 00230007 ! 27: C 00240007 ! 28: C DATA INITIALIZATION STATEMENTS 00250007 ! 29: C 00260007 ! 30: DATA IVON01,IVON02,IVON03,IVON04,IVON05/3,76,587,9999,21111/ 00270007 ! 31: DATA IVON06,IVON07,IVON08,IVON09,IVON10/+3,+76,+587,+9999,+21111/ 00280007 ! 32: DATA IVON11,IVON12,IVON13,IVON14,IVON15/-3,-76,-587,-9999,-21111/ 00290007 ! 33: DATA IVON16,IVON17,IVON18,IVON19,IVON20/ 2*119, 2*7, -427/ 00300007 ! 34: C 00310007 ! 35: C 00320007 ! 36: C ********************************************************** 00330007 ! 37: C 00340007 ! 38: C A COMPILER VALIDATION SYSTEM FOR THE FORTRAN LANGUAGE 00350007 ! 39: C BASED ON SPECIFICATIONS AS DEFINED IN AMERICAN NATIONAL STANDARD 00360007 ! 40: C PROGRAMMING LANGUAGE FORTRAN X3.9-1978, HAS BEEN DEVELOPED BY THE 00370007 ! 41: C FEDERAL COBOL COMPILER TESTING SERVICE. THE FORTRAN COMPILER 00380007 ! 42: C VALIDATION SYSTEM (FCVS) CONSISTS OF AUDIT ROUTINES, THEIR RELATED00390007 ! 43: C DATA, AND AN EXECUTIVE SYSTEM. EACH AUDIT ROUTINE IS A FORTRAN 00400007 ! 44: C PROGRAM, SUBPROGRAM OR FUNCTION WHICH INCLUDES TESTS OF SPECIFIC 00410007 ! 45: C LANGUAGE ELEMENTS AND SUPPORTING PROCEDURES INDICATING THE RESULT 00420007 ! 46: C OF EXECUTING THESE TESTS. 00430007 ! 47: C 00440007 ! 48: C THIS PARTICULAR PROGRAM/SUBPROGRAM/FUNCTION CONTAINS FEATURES 00450007 ! 49: C FOUND ONLY IN THE SUBSET AS DEFINED IN X3.9-1978. 00460007 ! 50: C 00470007 ! 51: C SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO - 00480007 ! 52: C 00490007 ! 53: C DEPARTMENT OF THE NAVY 00500007 ! 54: C FEDERAL COBOL COMPILER TESTING SERVICE 00510007 ! 55: C WASHINGTON, D.C. 20376 00520007 ! 56: C 00530007 ! 57: C ********************************************************** 00540007 ! 58: C 00550007 ! 59: C 00560007 ! 60: C 00570007 ! 61: C INITIALIZATION SECTION 00580007 ! 62: C 00590007 ! 63: C INITIALIZE CONSTANTS 00600007 ! 64: C ************** 00610007 ! 65: C I01 CONTAINS THE LOGICAL UNIT NUMBER FOR THE CARD READER. 00620007 ! 66: I01 = 5 00630007 ! 67: C I02 CONTAINS THE LOGICAL UNIT NUMBER FOR THE PRINTER. 00640007 ! 68: I02 = 6 00650007 ! 69: C SYSTEM ENVIRONMENT SECTION 00660007 ! 70: C 00670007 ! 71: I01 = 5 00680007 ! 72: C THE CX010 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I01 = 5 00690007 ! 73: C (UNIT NUMBER FOR CARD READER). 00700007 ! 74: CX011 THIS CARD IS REPLACED BY CONTENTS OF FEXEC X-011 CONTROL CARD. 00710007 ! 75: C THE CX011 CARD IS FOR SYSTEMS WHICH REQUIRE ADDITIONAL 00720007 ! 76: C FORTRAN STATEMENTS FOR FILES ASSOCIATED WITH CX010 ABOVE. 00730007 ! 77: C 00740007 ! 78: I02 = 6 00750007 ! 79: C THE CX020 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I02 = 6 00760007 ! 80: C (UNIT NUMBER FOR PRINTER). 00770007 ! 81: CX021 THIS CARD IS REPLACED BY CONTENTS OF FEXEC X-021 CONTROL CARD. 00780007 ! 82: C THE CX021 CARD IS FOR SYSTEMS WHICH REQUIRE ADDITIONAL 00790007 ! 83: C FORTRAN STATEMENTS FOR FILES ASSOCIATED WITH CX020 ABOVE. 00800007 ! 84: C 00810007 ! 85: IVPASS=0 00820007 ! 86: IVFAIL=0 00830007 ! 87: IVDELE=0 00840007 ! 88: ICZERO=0 00850007 ! 89: C 00860007 ! 90: C WRITE PAGE HEADERS 00870007 ! 91: WRITE (I02,90000) 00880007 ! 92: WRITE (I02,90001) 00890007 ! 93: WRITE (I02,90002) 00900007 ! 94: WRITE (I02, 90002) 00910007 ! 95: WRITE (I02,90003) 00920007 ! 96: WRITE (I02,90002) 00930007 ! 97: WRITE (I02,90004) 00940007 ! 98: WRITE (I02,90002) 00950007 ! 99: WRITE (I02,90011) 00960007 ! 100: WRITE (I02,90002) 00970007 ! 101: WRITE (I02,90002) 00980007 ! 102: WRITE (I02,90005) 00990007 ! 103: WRITE (I02,90006) 01000007 ! 104: WRITE (I02,90002) 01010007 ! 105: C TEST SECTION 01020007 ! 106: C 01030007 ! 107: C TESTS 80 THROUGH 84 CHECK THE VALUES INITIALIZED BY THE DATA 01040007 ! 108: C STATEMENT CONTAINING IVON01,..., IVON05. 01050007 ! 109: C 01060007 ! 110: 801 CONTINUE 01070007 ! 111: IVTNUM = 80 01080007 ! 112: C 01090007 ! 113: C **** TEST 80 **** 01100007 ! 114: C 01110007 ! 115: IF (ICZERO) 30800, 800, 30800 01120007 ! 116: 800 CONTINUE 01130007 ! 117: IVCOMP = IVON01 01140007 ! 118: GO TO 40800 01150007 ! 119: 30800 IVDELE = IVDELE + 1 01160007 ! 120: WRITE (I02,80003) IVTNUM 01170007 ! 121: IF (ICZERO) 40800, 811, 40800 01180007 ! 122: 40800 IF (IVCOMP - 3) 20800, 10800,20800 01190007 ! 123: 10800 IVPASS = IVPASS + 1 01200007 ! 124: WRITE (I02,80001) IVTNUM 01210007 ! 125: GO TO 811 01220007 ! 126: 20800 IVFAIL = IVFAIL + 1 01230007 ! 127: IVCORR = 3 01240007 ! 128: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 01250007 ! 129: 811 CONTINUE 01260007 ! 130: IVTNUM = 81 01270007 ! 131: C 01280007 ! 132: C **** TEST 81 **** 01290007 ! 133: C 01300007 ! 134: IF (ICZERO) 30810, 810, 30810 01310007 ! 135: 810 CONTINUE 01320007 ! 136: IVCOMP = IVON02 01330007 ! 137: GO TO 40810 01340007 ! 138: 30810 IVDELE = IVDELE + 1 01350007 ! 139: WRITE (I02,80003) IVTNUM 01360007 ! 140: IF (ICZERO) 40810, 821, 40810 01370007 ! 141: 40810 IF (IVCOMP - 76) 20810, 10810, 20810 01380007 ! 142: 10810 IVPASS = IVPASS + 1 01390007 ! 143: WRITE (I02,80001) IVTNUM 01400007 ! 144: GO TO 821 01410007 ! 145: 20810 IVFAIL = IVFAIL + 1 01420007 ! 146: IVCORR = 76 01430007 ! 147: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 01440007 ! 148: 821 CONTINUE 01450007 ! 149: IVTNUM = 82 01460007 ! 150: C 01470007 ! 151: C **** TEST 82 **** 01480007 ! 152: C 01490007 ! 153: IF (ICZERO) 30820, 820, 30820 01500007 ! 154: 820 CONTINUE 01510007 ! 155: IVCOMP = IVON03 01520007 ! 156: GO TO 40820 01530007 ! 157: 30820 IVDELE = IVDELE + 1 01540007 ! 158: WRITE (I02,80003) IVTNUM 01550007 ! 159: IF (ICZERO) 40820, 831, 40820 01560007 ! 160: 40820 IF (IVCOMP - 587) 20820, 10820, 20820 01570007 ! 161: 10820 IVPASS = IVPASS + 1 01580007 ! 162: WRITE (I02,80001) IVTNUM 01590007 ! 163: GO TO 831 01600007 ! 164: 20820 IVFAIL = IVFAIL + 1 01610007 ! 165: IVCORR = 587 01620007 ! 166: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 01630007 ! 167: 831 CONTINUE 01640007 ! 168: IVTNUM = 83 01650007 ! 169: C 01660007 ! 170: C **** TEST 83 **** 01670007 ! 171: C 01680007 ! 172: IF (ICZERO) 30830, 830, 30830 01690007 ! 173: 830 CONTINUE 01700007 ! 174: IVCOMP =IVON04 01710007 ! 175: GO TO 40830 01720007 ! 176: 30830 IVDELE = IVDELE + 1 01730007 ! 177: WRITE (I02,80003) IVTNUM 01740007 ! 178: IF (ICZERO) 40830, 841, 40830 01750007 ! 179: 40830 IF (IVCOMP - 9999) 20830, 10830, 20830 01760007 ! 180: 10830 IVPASS = IVPASS + 1 01770007 ! 181: WRITE (I02,80001) IVTNUM 01780007 ! 182: GO TO 841 01790007 ! 183: 20830 IVFAIL = IVFAIL + 1 01800007 ! 184: IVCORR = 9999 01810007 ! 185: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 01820007 ! 186: 841 CONTINUE 01830007 ! 187: IVTNUM = 84 01840007 ! 188: C 01850007 ! 189: C **** TEST 84 **** 01860007 ! 190: C 01870007 ! 191: IF (ICZERO) 30840, 840, 30840 01880007 ! 192: 840 CONTINUE 01890007 ! 193: IVCOMP = IVON05 01900007 ! 194: GO TO 40840 01910007 ! 195: 30840 IVDELE = IVDELE + 1 01920007 ! 196: WRITE (I02,80003) IVTNUM 01930007 ! 197: IF (ICZERO) 40840, 851, 40840 01940007 ! 198: 40840 IF (IVCOMP - 21111) 20840, 10840, 20840 01950007 ! 199: 10840 IVPASS = IVPASS + 1 01960007 ! 200: WRITE (I02,80001) IVTNUM 01970007 ! 201: GO TO 851 01980007 ! 202: 20840 IVFAIL = IVFAIL + 1 01990007 ! 203: IVCORR = 21111 02000007 ! 204: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 02010007 ! 205: C 02020007 ! 206: C TESTS 85 THROUGH 89 CHECK THE VALUES INITIALIZED BY THE DATA 02030007 ! 207: C STATEMENT CONTAINING IVON06,...,IVON10. 02040007 ! 208: C 02050007 ! 209: 851 CONTINUE 02060007 ! 210: IVTNUM = 85 02070007 ! 211: C 02080007 ! 212: C **** TEST 85 **** 02090007 ! 213: C 02100007 ! 214: IF (ICZERO) 30850, 850, 30850 02110007 ! 215: 850 CONTINUE 02120007 ! 216: IVCOMP=IVON06 02130007 ! 217: GO TO 40850 02140007 ! 218: 30850 IVDELE = IVDELE + 1 02150007 ! 219: WRITE (I02,80003) IVTNUM 02160007 ! 220: IF (ICZERO) 40850, 861, 40850 02170007 ! 221: 40850 IF (IVCOMP - 3) 20850, 10850, 20850 02180007 ! 222: 10850 IVPASS = IVPASS + 1 02190007 ! 223: WRITE (I02,80001) IVTNUM 02200007 ! 224: GO TO 861 02210007 ! 225: 20850 IVFAIL = IVFAIL + 1 02220007 ! 226: IVCORR = 3 02230007 ! 227: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 02240007 ! 228: 861 CONTINUE 02250007 ! 229: IVTNUM = 86 02260007 ! 230: C 02270007 ! 231: C **** TEST 86 **** 02280007 ! 232: C 02290007 ! 233: IF (ICZERO) 30860, 860, 30860 02300007 ! 234: 860 CONTINUE 02310007 ! 235: IVCOMP = IVON07 02320007 ! 236: GO TO 40860 02330007 ! 237: 30860 IVDELE = IVDELE + 1 02340007 ! 238: WRITE (I02,80003) IVTNUM 02350007 ! 239: IF (ICZERO) 40860, 871, 40860 02360007 ! 240: 40860 IF (IVCOMP - 76) 20860, 10860, 20860 02370007 ! 241: 10860 IVPASS = IVPASS + 1 02380007 ! 242: WRITE (I02,80001) IVTNUM 02390007 ! 243: GO TO 871 02400007 ! 244: 20860 IVFAIL = IVFAIL + 1 02410007 ! 245: IVCORR = 76 02420007 ! 246: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 02430007 ! 247: 871 CONTINUE 02440007 ! 248: IVTNUM = 87 02450007 ! 249: C 02460007 ! 250: C **** TEST 87 **** 02470007 ! 251: C 02480007 ! 252: IF (ICZERO) 30870, 870, 30870 02490007 ! 253: 870 CONTINUE 02500007 ! 254: IVCOMP = IVON08 02510007 ! 255: GO TO 40870 02520007 ! 256: 30870 IVDELE = IVDELE + 1 02530007 ! 257: WRITE (I02,80003) IVTNUM 02540007 ! 258: IF (ICZERO) 40870, 881, 40870 02550007 ! 259: 40870 IF (IVCOMP - 587) 20870, 10870, 20870 02560007 ! 260: 10870 IVPASS = IVPASS + 1 02570007 ! 261: WRITE (I02,80001) IVTNUM 02580007 ! 262: GO TO 881 02590007 ! 263: 20870 IVFAIL = IVFAIL + 1 02600007 ! 264: IVCORR = 587 02610007 ! 265: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 02620007 ! 266: 881 CONTINUE 02630007 ! 267: IVTNUM = 88 02640007 ! 268: C 02650007 ! 269: C **** TEST 88 **** 02660007 ! 270: C 02670007 ! 271: IF (ICZERO) 30880, 880, 30880 02680007 ! 272: 880 CONTINUE 02690007 ! 273: IVCOMP = IVON09 02700007 ! 274: GO TO 40880 02710007 ! 275: 30880 IVDELE = IVDELE + 1 02720007 ! 276: WRITE (I02,80003) IVTNUM 02730007 ! 277: IF (ICZERO) 40880, 891, 40880 02740007 ! 278: 40880 IF (IVCOMP - 9999) 20880, 10880, 20880 02750007 ! 279: 10880 IVPASS = IVPASS + 1 02760007 ! 280: WRITE (I02,80001) IVTNUM 02770007 ! 281: GO TO 891 02780007 ! 282: 20880 IVFAIL = IVFAIL + 1 02790007 ! 283: IVCORR = 9999 02800007 ! 284: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 02810007 ! 285: 891 CONTINUE 02820007 ! 286: IVTNUM = 89 02830007 ! 287: C 02840007 ! 288: C **** TEST 89 **** 02850007 ! 289: C 02860007 ! 290: IF (ICZERO) 30890, 890, 30890 02870007 ! 291: 890 CONTINUE 02880007 ! 292: IVCOMP = IVON10 02890007 ! 293: GO TO 40890 02900007 ! 294: 30890 IVDELE = IVDELE + 1 02910007 ! 295: WRITE (I02,80003) IVTNUM 02920007 ! 296: IF (ICZERO) 40890, 901, 40890 02930007 ! 297: 40890 IF (IVCOMP - 21111) 20890, 10890, 20890 02940007 ! 298: 10890 IVPASS = IVPASS + 1 02950007 ! 299: WRITE (I02,80001) IVTNUM 02960007 ! 300: GO TO 901 02970007 ! 301: 20890 IVFAIL = IVFAIL + 1 02980007 ! 302: IVCORR= 21111 02990007 ! 303: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 03000007 ! 304: C 03010007 ! 305: C TESTS 90 THROUGH 94 CHECK THE VALUES INITIALIZED BY THE DATA 03020007 ! 306: C STATEMENT CONTAINING IVON11,...,IVON15. 03030007 ! 307: C 03040007 ! 308: 901 CONTINUE 03050007 ! 309: IVTNUM = 90 03060007 ! 310: C 03070007 ! 311: C **** TEST 90 **** 03080007 ! 312: C 03090007 ! 313: IF (ICZERO) 30900, 900, 30900 03100007 ! 314: 900 CONTINUE 03110007 ! 315: IVCOMP = IVON11 03120007 ! 316: GO TO 40900 03130007 ! 317: 30900 IVDELE = IVDELE + 1 03140007 ! 318: WRITE (I02,80003) IVTNUM 03150007 ! 319: IF (ICZERO) 40900, 911, 40900 03160007 ! 320: 40900 IF (IVCOMP + 3) 20900, 10900, 20900 03170007 ! 321: 10900 IVPASS = IVPASS + 1 03180007 ! 322: WRITE (I02,80001) IVTNUM 03190007 ! 323: GO TO 911 03200007 ! 324: 20900 IVFAIL = IVFAIL + 1 03210007 ! 325: IVCORR = -3 03220007 ! 326: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 03230007 ! 327: 911 CONTINUE 03240007 ! 328: IVTNUM = 91 03250007 ! 329: C 03260007 ! 330: C **** TEST 91 **** 03270007 ! 331: C 03280007 ! 332: IF (ICZERO) 30910, 910, 30910 03290007 ! 333: 910 CONTINUE 03300007 ! 334: IVCOMP = IVON12 03310007 ! 335: GO TO 40910 03320007 ! 336: 30910 IVDELE = IVDELE + 1 03330007 ! 337: WRITE (I02,80003) IVTNUM 03340007 ! 338: IF (ICZERO) 40910, 921, 40910 03350007 ! 339: 40910 IF (IVCOMP + 76) 20910, 10910, 20910 03360007 ! 340: 10910 IVPASS = IVPASS + 1 03370007 ! 341: WRITE (I02,80001) IVTNUM 03380007 ! 342: GO TO 921 03390007 ! 343: 20910 IVFAIL = IVFAIL + 1 03400007 ! 344: IVCORR = -76 03410007 ! 345: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 03420007 ! 346: 921 CONTINUE 03430007 ! 347: IVTNUM = 92 03440007 ! 348: C 03450007 ! 349: C **** TEST 92 **** 03460007 ! 350: C 03470007 ! 351: IF (ICZERO) 30920, 920, 30920 03480007 ! 352: 920 CONTINUE 03490007 ! 353: IVCOMP= IVON13 03500007 ! 354: GO TO 40920 03510007 ! 355: 30920 IVDELE = IVDELE + 1 03520007 ! 356: WRITE (I02,80003) IVTNUM 03530007 ! 357: IF (ICZERO) 40920, 931, 40920 03540007 ! 358: 40920 IF (IVCOMP + 587) 20920, 10920, 20920 03550007 ! 359: 10920 IVPASS = IVPASS + 1 03560007 ! 360: WRITE (I02,80001) IVTNUM 03570007 ! 361: GO TO 931 03580007 ! 362: 20920 IVFAIL = IVFAIL + 1 03590007 ! 363: IVCORR = -587 03600007 ! 364: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 03610007 ! 365: 931 CONTINUE 03620007 ! 366: IVTNUM = 93 03630007 ! 367: C 03640007 ! 368: C **** TEST 93 **** 03650007 ! 369: C 03660007 ! 370: IF (ICZERO) 30930, 930, 30930 03670007 ! 371: 930 CONTINUE 03680007 ! 372: IVCOMP = IVON14 03690007 ! 373: GO TO 40930 03700007 ! 374: 30930 IVDELE = IVDELE + 1 03710007 ! 375: WRITE (I02,80003) IVTNUM 03720007 ! 376: IF (ICZERO) 40930, 941, 40930 03730007 ! 377: 40930 IF (IVCOMP + 9999) 20930, 10930, 20930 03740007 ! 378: 10930 IVPASS = IVPASS + 1 03750007 ! 379: WRITE (I02,80001) IVTNUM 03760007 ! 380: GO TO 941 03770007 ! 381: 20930 IVFAIL = IVFAIL + 1 03780007 ! 382: IVCORR = -9999 03790007 ! 383: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 03800007 ! 384: 941 CONTINUE 03810007 ! 385: IVTNUM = 94 03820007 ! 386: C 03830007 ! 387: C **** TEST 94 **** 03840007 ! 388: C 03850007 ! 389: IF (ICZERO) 30940, 940, 30940 03860007 ! 390: 940 CONTINUE 03870007 ! 391: IVCOMP = IVON15 03880007 ! 392: GO TO 40940 03890007 ! 393: 30940 IVDELE = IVDELE + 1 03900007 ! 394: WRITE (I02,80003) IVTNUM 03910007 ! 395: IF (ICZERO) 40940, 951, 40940 03920007 ! 396: 40940 IF (IVCOMP + 21111) 20940, 10940, 20940 03930007 ! 397: 10940 IVPASS = IVPASS + 1 03940007 ! 398: WRITE (I02,80001) IVTNUM 03950007 ! 399: GO TO 951 03960007 ! 400: 20940 IVFAIL = IVFAIL + 1 03970007 ! 401: IVCORR = -21111 03980007 ! 402: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 03990007 ! 403: C 04000007 ! 404: C TESTS 95 THROUGH 99 CHECK THE VALUES INITIALIZED BY THE DATA 04010007 ! 405: C STATEMENT CONTAINING IVON16,...,IVON20. 04020007 ! 406: C 04030007 ! 407: 951 CONTINUE 04040007 ! 408: IVTNUM = 95 04050007 ! 409: C 04060007 ! 410: C **** TEST 95 **** 04070007 ! 411: C 04080007 ! 412: IF (ICZERO) 30950, 950, 30950 04090007 ! 413: 950 CONTINUE 04100007 ! 414: IVCOMP =IVON16 04110007 ! 415: GO TO 40950 04120007 ! 416: 30950 IVDELE = IVDELE + 1 04130007 ! 417: WRITE (I02,80003) IVTNUM 04140007 ! 418: IF (ICZERO) 40950, 961, 40950 04150007 ! 419: 40950 IF (IVCOMP - 119) 20950, 10950, 20950 04160007 ! 420: 10950 IVPASS = IVPASS + 1 04170007 ! 421: WRITE (I02,80001) IVTNUM 04180007 ! 422: GO TO 961 04190007 ! 423: 20950 IVFAIL = IVFAIL + 1 04200007 ! 424: IVCORR = 119 04210007 ! 425: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 04220007 ! 426: 961 CONTINUE 04230007 ! 427: IVTNUM = 96 04240007 ! 428: C 04250007 ! 429: C **** TEST 96 **** 04260007 ! 430: C 04270007 ! 431: IF (ICZERO) 30960, 960, 30960 04280007 ! 432: 960 CONTINUE 04290007 ! 433: IVCOMP=IVON17 04300007 ! 434: GO TO 40960 04310007 ! 435: 30960 IVDELE = IVDELE + 1 04320007 ! 436: WRITE (I02,80003) IVTNUM 04330007 ! 437: IF (ICZERO) 40960, 971, 40960 04340007 ! 438: 40960 IF (IVCOMP - 119) 20960, 10960, 20960 04350007 ! 439: 10960 IVPASS = IVPASS + 1 04360007 ! 440: WRITE (I02,80001) IVTNUM 04370007 ! 441: GO TO 971 04380007 ! 442: 20960 IVFAIL = IVFAIL + 1 04390007 ! 443: IVCORR = 119 04400007 ! 444: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 04410007 ! 445: 971 CONTINUE 04420007 ! 446: IVTNUM = 97 04430007 ! 447: C 04440007 ! 448: C **** TEST 97 **** 04450007 ! 449: C 04460007 ! 450: IF (ICZERO) 30970, 970, 30970 04470007 ! 451: 970 CONTINUE 04480007 ! 452: IVCOMP = IVON18 04490007 ! 453: GO TO 40970 04500007 ! 454: 30970 IVDELE = IVDELE + 1 04510007 ! 455: WRITE (I02,80003) IVTNUM 04520007 ! 456: IF (ICZERO) 40970, 981, 40970 04530007 ! 457: 40970 IF (IVCOMP - 7) 20970, 10970, 20970 04540007 ! 458: 10970 IVPASS = IVPASS + 1 04550007 ! 459: WRITE (I02,80001) IVTNUM 04560007 ! 460: GO TO 981 04570007 ! 461: 20970 IVFAIL = IVFAIL + 1 04580007 ! 462: IVCORR = 7 04590007 ! 463: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 04600007 ! 464: 981 CONTINUE 04610007 ! 465: IVTNUM = 98 04620007 ! 466: C 04630007 ! 467: C **** TEST 98 **** 04640007 ! 468: C 04650007 ! 469: IF (ICZERO) 30980, 980, 30980 04660007 ! 470: 980 CONTINUE 04670007 ! 471: IVCOMP = IVON19 04680007 ! 472: GO TO 40980 04690007 ! 473: 30980 IVDELE = IVDELE + 1 04700007 ! 474: WRITE (I02,80003) IVTNUM 04710007 ! 475: IF (ICZERO) 40980, 991, 40980 04720007 ! 476: 40980 IF (IVCOMP - 7) 20980, 10980, 20980 04730007 ! 477: 10980 IVPASS = IVPASS + 1 04740007 ! 478: WRITE (I02,80001) IVTNUM 04750007 ! 479: GO TO 991 04760007 ! 480: 20980 IVFAIL = IVFAIL + 1 04770007 ! 481: IVCORR = 7 04780007 ! 482: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 04790007 ! 483: 991 CONTINUE 04800007 ! 484: IVTNUM = 99 04810007 ! 485: C 04820007 ! 486: C **** TEST 99 **** 04830007 ! 487: C 04840007 ! 488: IF (ICZERO) 30990, 990, 30990 04850007 ! 489: 990 CONTINUE 04860007 ! 490: IVCOMP = IVON20 04870007 ! 491: GO TO 40990 04880007 ! 492: 30990 IVDELE = IVDELE + 1 04890007 ! 493: WRITE (I02,80003) IVTNUM 04900007 ! 494: IF (ICZERO) 40990, 1001, 40990 04910007 ! 495: 40990 IF (IVCOMP + 427) 20990,10990,20990 04920007 ! 496: 10990 IVPASS = IVPASS + 1 04930007 ! 497: WRITE (I02,80001) IVTNUM 04940007 ! 498: GO TO 1001 04950007 ! 499: 20990 IVFAIL = IVFAIL + 1 04960007 ! 500: IVCORR = -427 04970007 ! 501: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 04980007 ! 502: 1001 CONTINUE 04990007 ! 503: C 05000007 ! 504: C WRITE PAGE FOOTINGS AND RUN SUMMARIES 05010007 ! 505: 99999 CONTINUE 05020007 ! 506: WRITE (I02,90002) 05030007 ! 507: WRITE (I02,90006) 05040007 ! 508: WRITE (I02,90002) 05050007 ! 509: WRITE (I02,90002) 05060007 ! 510: WRITE (I02,90007) 05070007 ! 511: WRITE (I02,90002) 05080007 ! 512: WRITE (I02,90008) IVFAIL 05090007 ! 513: WRITE (I02,90009) IVPASS 05100007 ! 514: WRITE (I02,90010) IVDELE 05110007 ! 515: C 05120007 ! 516: C 05130007 ! 517: C TERMINATE ROUTINE EXECUTION 05140007 ! 518: STOP 05150007 ! 519: C 05160007 ! 520: C FORMAT STATEMENTS FOR PAGE HEADERS 05170007 ! 521: 90000 FORMAT (1H1) 05180007 ! 522: 90002 FORMAT (1H ) 05190007 ! 523: 90001 FORMAT (1H ,10X,34HFORTRAN COMPILER VALIDATION SYSTEM) 05200007 ! 524: 90003 FORMAT (1H ,21X,11HVERSION 1.0) 05210007 ! 525: 90004 FORMAT (1H ,10X,38HFOR OFFICIAL USE ONLY - COPYRIGHT 1978) 05220007 ! 526: 90005 FORMAT (1H ,5X,4HTEST,5X,9HPASS/FAIL, 5X,8HCOMPUTED,8X,7HCORRECT) 05230007 ! 527: 90006 FORMAT (1H ,5X,46H----------------------------------------------) 05240007 ! 528: 90011 FORMAT (1H ,18X,17HSUBSET LEVEL TEST) 05250007 ! 529: C 05260007 ! 530: C FORMAT STATEMENTS FOR RUN SUMMARIES 05270007 ! 531: 90008 FORMAT (1H ,15X,I5,19H ERRORS ENCOUNTERED) 05280007 ! 532: 90009 FORMAT (1H ,15X,I5,13H TESTS PASSED) 05290007 ! 533: 90010 FORMAT (1H ,15X,I5,14H TESTS DELETED) 05300007 ! 534: C 05310007 ! 535: C FORMAT STATEMENTS FOR TEST RESULTS 05320007 ! 536: 80001 FORMAT (1H ,4X,I5,7X,4HPASS) 05330007 ! 537: 80002 FORMAT (1H ,4X,I5,7X,4HFAIL) 05340007 ! 538: 80003 FORMAT (1H ,4X,I5,7X,7HDELETED) 05350007 ! 539: 80004 FORMAT (1H ,4X,I5,7X,4HFAIL,10X,I6,9X,I6) 05360007 ! 540: 80005 FORMAT (1H ,4X,I5,7X,4HFAIL,4X,E12.5,3X,E12.5) 05370007 ! 541: C 05380007 ! 542: 90007 FORMAT (1H ,20X,20HEND OF PROGRAM FM007) 05390007 ! 543: END 05400007
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.