![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to FM200.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 FM200.f CVS log | Up to [Power 6/32 Unix Tahoe 4.2BSD] / cci / usr / src / usr.bin / f77 / testf77 / tests |
1.1 ! root 1: PROGRAM FM200 00010200 ! 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 00020200 ! 6: C 00030200 ! 7: C THIS ROUTINE IS THE FIRST AUDIT PROGRAM TO CONTAIN A PROGRAM 00040200 ! 8: C STATEMENT. THE FOLLOWING FEATURES FROM CHAPTER 3., CHARACTERS, 00050200 ! 9: C LINES AND EXECUTION SEQUENCE ARE TESTED. 00060200 ! 10: C 00070200 ! 11: C (1) ASTERISK (*) IN COLUMN 1 TO DESIGNATE A COMMENT LINE. 00080200 ! 12: C (2) USE OF NON-FORTRAN CHARACTERS WITHIN A COMMENT LINE. 00090200 ! 13: C (3) STATEMENT LABELS ON NONEXECUTABLE STATEMENTS. 00100200 ! 14: C (4) DIGIT 0 IN COLUMN 6 OF AN INITIAL LINE. 00110200 ! 15: C (5) CONTINUATION LINES - MAXIMUM OF NINE CONTINUATION LINES 00120200 ! 16: C (660 CHARACTERS). 00130200 ! 17: C (6) BLANK CHARACTERS WITHIN STATEMENTS. 00140200 ! 18: C (7) BLANK COMMENT LINE, BLANK CHARACTERS IN COLUMNS 1-72. 00150200 ! 19: C 00160200 ! 20: C THE BASIC FEATURES OF SUBSET FORTRAN WHICH ARE TESTED BY THIS 00170200 ! 21: C PROGRAM ARE USED THROUGHOUT THE REST OF THE SUBSET ROUTINES. 00180200 ! 22: C 00190200 ! 23: C REFERENCES 00200200 ! 24: C AMERICAN NATIONAL STANDARD PROGRAMMING LANGUAGE FORTRAN, 00210200 ! 25: C X3.9-1978 00220200 ! 26: C 00230200 ! 27: C SECTION 3.1.6, BLANK CHARACTER 00240200 ! 28: C SECTION 3.2.1, COMMENT LINE 00250200 ! 29: C SECTION 3.2.2, INITIAL LINE 00260200 ! 30: C SECTION 3.2.3, CONTINUATION LINE 00270200 ! 31: C SECTION 3.3, STATEMENTS 00280200 ! 32: C SECTION 3.4, STATEMENT LABEL 00290200 ! 33: C SECTION 14.1, PROGRAM STATEMENT 00300200 ! 34: C 00310200 ! 35: C 00320200 ! 36: C ******************************************************************00330200 ! 37: C A COMPILER VALIDATION SYSTEM FOR THE FORTRAN LANGUAGE 00340200 ! 38: C BASED ON SPECIFICATIONS AS DEFINED IN AMERICAN STANDARD FORTRAN 00350200 ! 39: C X3.9-1978, HAS BEEN DEVELOPED BY THE DEPARTMENT OF THE NAVY. THE 00360200 ! 40: C FORTRAN COMPILER VALIDATION SYSTEM (FCVS) CONSISTS OF AUDIT 00370200 ! 41: C ROUTINES, THEIR RELATED DATA, AND AN EXECUTIVE SYSTEM. EACH AUDIT00380200 ! 42: C ROUTINE IS A FORTRAN PROGRAM OR SUBPROGRAM WHICH INCLUDES TESTS 00390200 ! 43: C OF SPECIFIC LANGUAGE ELEMENTS AND SUPPORTING PROCEDURES INDICATING00400200 ! 44: C THE RESULT OF EXECUTING THESE TESTS. 00410200 ! 45: C 00420200 ! 46: C THIS PARTICULAR PROGRAM OR SUBPROGRAM CONTAINS ONLY FEATURES 00430200 ! 47: C FOUND IN THE SUBSET LEVEL OF THE STANDARD. 00440200 ! 48: C 00450200 ! 49: C SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00460200 ! 50: C DEPARTMENT OF THE NAVY 00470200 ! 51: C FEDERAL COBOL COMPILER TESTING SERVICE 00480200 ! 52: C WASHINGTON, D.C. 20376 00490200 ! 53: C 00500200 ! 54: C ******************************************************************00510200 ! 55: C 00520200 ! 56: C 00530200 ! 57: IMPLICIT LOGICAL (L) 00540200 ! 58: IMPLICIT CHARACTER*14 (C) 00550200 ! 59: C 00560200 ! 60: 12 INTEGER XVTN01 00570200 ! 61: 22 DATA IVON02/5/ 00580200 ! 62: C THE PRECEDING STATEMENTS ARE NONEXECUTABLE STATEMENTS WHICH 00590200 ! 63: C CONTAIN STATEMENT LABELS. THEY ARE REFERENCED IN TESTS 1 AND 2. 00600200 ! 64: C 00610200 ! 65: C 00620200 ! 66: C 00630200 ! 67: C INITIALIZATION SECTION. 00640200 ! 68: C 00650200 ! 69: C INITIALIZE CONSTANTS 00660200 ! 70: C ******************** 00670200 ! 71: C I01 CONTAINS THE LOGICAL UNIT NUMBER FOR THE CARD READER 00680200 ! 72: I01 = 5 00690200 ! 73: C I02 CONTAINS THE LOGICAL UNIT NUMBER FOR THE PRINTER 00700200 ! 74: I02 = 6 00710200 ! 75: C SYSTEM ENVIRONMENT SECTION 00720200 ! 76: C 00730200 ! 77: I01 = 5 00740200 ! 78: C THE CX010 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I01 = 5 00750200 ! 79: C (UNIT NUMBER FOR CARD READER). 00760200 ! 80: CX011 THIS CARD IS REPLACED BY CONTENTS OF FEXEC X-011 CONTROL CARD00770200 ! 81: C THE CX011 CARD IS FOR SYSTEMS WHICH REQUIRE ADDITIONAL 00780200 ! 82: C FORTRAN STATEMENTS FOR FILES ASSOCIATED WITH CX010 ABOVE. 00790200 ! 83: C 00800200 ! 84: I02 = 6 00810200 ! 85: C THE CX020 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I02 = 6 00820200 ! 86: C (UNIT NUMBER FOR PRINTER). 00830200 ! 87: CX021 THIS CARD IS PEPLACED BY CONTENTS OF FEXEC X-021 CONTROL CARD.00840200 ! 88: C THE CX021 CARD IS FOR SYSTEMS WHICH REQUIRE ADDITIONAL 00850200 ! 89: C FORTRAN STATEMENTS FOR FILES ASSOCIATED WITH CX020 ABOVE. 00860200 ! 90: C 00870200 ! 91: IVPASS = 0 00880200 ! 92: IVFAIL = 0 00890200 ! 93: IVDELE = 0 00900200 ! 94: ICZERO = 0 00910200 ! 95: C 00920200 ! 96: C WRITE OUT PAGE HEADERS 00930200 ! 97: C 00940200 ! 98: WRITE (I02,90002) 00950200 ! 99: WRITE (I02,90006) 00960200 ! 100: WRITE (I02,90008) 00970200 ! 101: WRITE (I02,90004) 00980200 ! 102: WRITE (I02,90010) 00990200 ! 103: WRITE (I02,90004) 01000200 ! 104: WRITE (I02,90016) 01010200 ! 105: WRITE (I02,90001) 01020200 ! 106: WRITE (I02,90004) 01030200 ! 107: WRITE (I02,90012) 01040200 ! 108: WRITE (I02,90014) 01050200 ! 109: WRITE (I02,90004) 01060200 ! 110: C 01070200 ! 111: C 01080200 ! 112: C TEST 1 AND TEST 2 REFERENCE VARIABLES DEFINED IN NONEXECUTABLE 01090200 ! 113: C STATEMENTS WHICH CONTAIN STATEMENT LABELS. THE NONEXECUTABLE 01100200 ! 114: C STATEMENTS WHICH APPEAR AT THE BEGINNING OF THE PROGRAM ARE 01110200 ! 115: C 12 INTEGER XVTN01 01120200 ! 116: C 22 DATA IVON02/5/ 01130200 ! 117: C 01140200 ! 118: C REFERENCE X3.9-1977, SECTION 3.4, STATEMENT LABELS 01150200 ! 119: C 01160200 ! 120: C 01170200 ! 121: C **** FCVS PROGRAM 200 - TEST 001 **** 01180200 ! 122: C 01190200 ! 123: C TEST 001 ASSIGNS AN INTEGER VALUE TO XVTN01 WHICH WAS SPECIFIED01200200 ! 124: C AS TYPE INTEGER IN AN INTEGER STATEMENT CONTAINING A STATEMENT 01210200 ! 125: C LABEL. 01220200 ! 126: C 01230200 ! 127: IVTNUM = 1 01240200 ! 128: IF (ICZERO) 30010, 0010, 30010 01250200 ! 129: 0010 CONTINUE 01260200 ! 130: IVCOMP = 0 01270200 ! 131: XVTN01 = 1 01280200 ! 132: IVCOMP = XVTN01 01290200 ! 133: IVCORR = 1 01300200 ! 134: 40010 IF (IVCOMP - 1) 20010, 10010, 20010 01310200 ! 135: 30010 IVDELE = IVDELE + 1 01320200 ! 136: WRITE (I02,80000) IVTNUM 01330200 ! 137: IF (ICZERO) 10010, 0021, 20010 01340200 ! 138: 10010 IVPASS = IVPASS + 1 01350200 ! 139: WRITE (I02,80002) IVTNUM 01360200 ! 140: GO TO 0021 01370200 ! 141: 20010 IVFAIL = IVFAIL + 1 01380200 ! 142: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 01390200 ! 143: 0021 CONTINUE 01400200 ! 144: C 01410200 ! 145: C **** FCVS PROGRAM 200 - TEST 002 **** 01420200 ! 146: C 01430200 ! 147: C TEST 002 CHECKS THE VALUE WHICH WAS ASSIGNED TO IVON02 BY A 01440200 ! 148: C DATA STATEMENT WITH A STATEMENT LABEL. 01450200 ! 149: C 01460200 ! 150: IVTNUM = 2 01470200 ! 151: IF (ICZERO) 30020, 0020, 30020 01480200 ! 152: 0020 CONTINUE 01490200 ! 153: IVCOMP = 0 01500200 ! 154: IVCOMP = IVON02 01510200 ! 155: IVCORR = 5 01520200 ! 156: 40020 IF (IVCOMP - 5) 20020, 10020, 20020 01530200 ! 157: 30020 IVDELE = IVDELE + 1 01540200 ! 158: WRITE (I02,80000) IVTNUM 01550200 ! 159: IF (ICZERO) 10020, 0031, 20020 01560200 ! 160: 10020 IVPASS = IVPASS + 1 01570200 ! 161: WRITE (I02,80002) IVTNUM 01580200 ! 162: GO TO 0031 01590200 ! 163: 20020 IVFAIL = IVFAIL + 1 01600200 ! 164: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 01610200 ! 165: 0031 CONTINUE 01620200 ! 166: C 01630200 ! 167: C TEST 3 THROUGH TEST 5 USE AN ASTERISK (*) IN COLUMN 1 TO 01640200 ! 168: C DENOTE A COMMENT LINE. 01650200 ! 169: C 01660200 ! 170: C REFERENCE X3.9-1977, SECTION 3.2.1, COMMENT LINE 01670200 ! 171: C 01680200 ! 172: C 01690200 ! 173: C **** FCVS PROGRAM 200 - TEST 003 **** 01700200 ! 174: C 01710200 ! 175: C GO TO STATEMENT IN ASTERISK COMMENT LINE. 01720200 ! 176: C 01730200 ! 177: IVTNUM = 3 01740200 ! 178: IF (ICZERO) 30030, 0030, 30030 01750200 ! 179: 0030 CONTINUE 01760200 ! 180: IVCOMP = 1 01770200 ! 181: * GO TO 20030 01780200 ! 182: IVCOMP = 0 01790200 ! 183: IVCORR = 0 01800200 ! 184: 40030 IF (IVCOMP) 20030, 10030, 20030 01810200 ! 185: 30030 IVDELE = IVDELE + 1 01820200 ! 186: WRITE (I02,80000) IVTNUM 01830200 ! 187: IF (ICZERO) 10030, 0041, 20030 01840200 ! 188: 10030 IVPASS = IVPASS + 1 01850200 ! 189: WRITE (I02,80002) IVTNUM 01860200 ! 190: GO TO 0041 01870200 ! 191: 20030 IVFAIL = IVFAIL + 1 01880200 ! 192: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 01890200 ! 193: 0041 CONTINUE 01900200 ! 194: C 01910200 ! 195: C **** FCVS PROGRAM 200 - TEST 004 **** 01920200 ! 196: C 01930200 ! 197: C SEVERAL * COMMENT LINES INTERMIXED WITH EXECUTABLE STATEMENTS. 01940200 ! 198: C 01950200 ! 199: IVTNUM = 4 01960200 ! 200: IF (ICZERO) 30040, 0040, 30040 01970200 ! 201: 0040 CONTINUE 01980200 ! 202: IVCOMP = 0 01990200 ! 203: * THE * COMMENT LINE IS THE SAME AS A C COMMENT LINE. 02000200 ! 204: IVCOMP = 1 02010200 ! 205: * THE * COMMENT LINES HAVE NO EFFECT ON THE PROGRAM EXECUTION. 02020200 ! 206: * THEIR USE IS STRICTLY FOR DOCUMENTATION PURPOSES. 02030200 ! 207: IVCOMP = 2 02040200 ! 208: * IVCOMP = 3 02050200 ! 209: * 40 ANY STATEMENT LABELS ON COMMENT LINES ARE IGNORED. 02060200 ! 210: IVCORR = 2 02070200 ! 211: 40040 IF (IVCOMP - 2) 20040, 10040, 20040 02080200 ! 212: 30040 IVDELE = IVDELE + 1 02090200 ! 213: WRITE (I02,80000) IVTNUM 02100200 ! 214: IF (ICZERO) 10040, 0051, 20040 02110200 ! 215: 10040 IVPASS = IVPASS + 1 02120200 ! 216: WRITE (I02,80002) IVTNUM 02130200 ! 217: GO TO 0051 02140200 ! 218: 20040 IVFAIL = IVFAIL + 1 02150200 ! 219: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 02160200 ! 220: 0051 CONTINUE 02170200 ! 221: C 02180200 ! 222: C **** FCVS PROGRAM 200 - TEST 005 **** 02190200 ! 223: C 02200200 ! 224: C NONFORTRAN CHARACTERS WITHIN C AND * COMMENT LINES. 02210200 ! 225: C 02220200 ! 226: IVTNUM = 5 02230200 ! 227: IF (ICZERO) 30050, 0050, 30050 02240200 ! 228: 0050 CONTINUE 02250200 ! 229: IVCOMP = 1 02260200 ! 230: * <>%? NONFORTRAN CHARACTER 02270200 ! 231: C <>%? NONFORTRAN CHARACTER 02280200 ! 232: IVCOMP = 0 02290200 ! 233: IVCORR = 0 02300200 ! 234: 40050 IF (IVCOMP) 20050, 10050, 20050 02310200 ! 235: 30050 IVDELE = IVDELE + 1 02320200 ! 236: WRITE (I02,80000) IVTNUM 02330200 ! 237: IF (ICZERO) 10050, 0061, 20050 02340200 ! 238: 10050 IVPASS = IVPASS + 1 02350200 ! 239: WRITE (I02,80002) IVTNUM 02360200 ! 240: GO TO 0061 02370200 ! 241: 20050 IVFAIL = IVFAIL + 1 02380200 ! 242: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 02390200 ! 243: 0061 CONTINUE 02400200 ! 244: C 02410200 ! 245: C **** FCVS PROGRAM 200 - TEST 006 **** 02420200 ! 246: C 02430200 ! 247: C LINES CONTAINING ONLY BLANK CHARACTERS IN COLUMNS 1 THROUGH 02440200 ! 248: C 72 ARE COMMENT LINES. 02450200 ! 249: C 02460200 ! 250: C REFERENCE X3.9-1977, SECTION 3.2.1, COMMENT LINE 02470200 ! 251: C 02480200 ! 252: IVTNUM = 6 02490200 ! 253: IF (ICZERO) 30060, 0060, 30060 02500200 ! 254: 0060 CONTINUE 02510200 ! 255: IVCOMP = 0 02520200 ! 256: 02530200 ! 257: IVCORR = 3 02540200 ! 258: IVCOMP = 9 02550200 ! 259: * ASTERISK COMMENT LINE FOLLOWED BY BLANK COMMENT LINE. 02560200 ! 260: 02570200 ! 261: * ASTERISK COMMENT LINE. 02580200 ! 262: IVCOMP = 3 02590200 ! 263: 40060 IF (IVCOMP - 3) 20060, 10060, 20060 02600200 ! 264: 30060 IVDELE = IVDELE + 1 02610200 ! 265: WRITE (I02,80000) IVTNUM 02620200 ! 266: IF (ICZERO) 10060, 0071, 20060 02630200 ! 267: 10060 IVPASS = IVPASS + 1 02640200 ! 268: WRITE (I02,80002) IVTNUM 02650200 ! 269: GO TO 0071 02660200 ! 270: 20060 IVFAIL = IVFAIL + 1 02670200 ! 271: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 02680200 ! 272: 0071 CONTINUE 02690200 ! 273: C 02700200 ! 274: C TEST 7 AND TEST 8 CONTAIN THE DIGIT 0 IN COLUMN 6 OF INITIAL 02710200 ! 275: C LINES. 02720200 ! 276: C 02730200 ! 277: C REFERENCE X3.9-1977, SECTION 3.2.2, INITIAL LINE 02740200 ! 278: C 02750200 ! 279: C 02760200 ! 280: C **** FCVS PROGRAM 200 - TEST 007 **** 02770200 ! 281: C 02780200 ! 282: C TEST 007 USES THE DIGIT 0 IN COLUMN 6 OF TWO SUCCESSIVE 02790200 ! 283: C INITIAL LINES. 02800200 ! 284: C 02810200 ! 285: IVTNUM = 7 02820200 ! 286: IF (ICZERO) 30070, 0070, 30070 02830200 ! 287: 0070 CONTINUE 02840200 ! 288: IVCOMP = 0 02850200 ! 289: 0IVON01 = 5 02860200 ! 290: 0IVON02 = 6 02870200 ! 291: IVCOMP = IVON01 + IVON02 02880200 ! 292: IVCORR = 11 02890200 ! 293: 40070 IF (IVCOMP - 11) 20070, 10070, 20070 02900200 ! 294: 30070 IVDELE = IVDELE + 1 02910200 ! 295: WRITE (I02,80000) IVTNUM 02920200 ! 296: IF (ICZERO) 10070, 0081, 20070 02930200 ! 297: 10070 IVPASS = IVPASS + 1 02940200 ! 298: WRITE (I02,80002) IVTNUM 02950200 ! 299: GO TO 0081 02960200 ! 300: 20070 IVFAIL = IVFAIL + 1 02970200 ! 301: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 02980200 ! 302: 0081 CONTINUE 02990200 ! 303: C 03000200 ! 304: C **** FCVS PROGRAM 200 - TEST 008 **** 03010200 ! 305: C 03020200 ! 306: C TEST 008 MIXES STATEMENTS WITH DIGIT 0 IN COLUMN 6 OF INITIAL 03030200 ! 307: C LINE AND COMMENT LINES WITH * IN COLUMN 1. 03040200 ! 308: C 03050200 ! 309: IVTNUM = 8 03060200 ! 310: IF (ICZERO) 30080, 0080, 30080 03070200 ! 311: 0080 CONTINUE 03080200 ! 312: IVCOMP = 0 03090200 ! 313: * FIRST INITIAL LINE FOLLOWS. 03100200 ! 314: 0IVON01 = 5 03110200 ! 315: * TWO SUCCESSIVE COMMENT LINES, 03120200 ! 316: * FOLLOWED BY TWO INITIAL LINES. 03130200 ! 317: 0IVON02=4 03140200 ! 318: 0IVCOMP=IVON01+IVON02 03150200 ! 319: * FALL THROUGH TO VERIFICATION CODE 03160200 ! 320: IVCORR = 9 03170200 ! 321: 40080 IF (IVCOMP - 9) 20080, 10080, 20080 03180200 ! 322: 30080 IVDELE = IVDELE + 1 03190200 ! 323: WRITE (I02,80000) IVTNUM 03200200 ! 324: IF (ICZERO) 10080, 0091, 20080 03210200 ! 325: 10080 IVPASS = IVPASS + 1 03220200 ! 326: WRITE (I02,80002) IVTNUM 03230200 ! 327: GO TO 0091 03240200 ! 328: 20080 IVFAIL = IVFAIL + 1 03250200 ! 329: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 03260200 ! 330: 0091 CONTINUE 03270200 ! 331: C 03280200 ! 332: C TEST 9 THROUGH TEST 13 VERIFY THAT CONTINUATION LINES ARE 03290200 ! 333: C PERMITTED. 03300200 ! 334: C 03310200 ! 335: C REFERENCE X3.9-1977, SECTION 3.2.3, CONTINUATION LINE 03320200 ! 336: C 03330200 ! 337: C 03340200 ! 338: C **** FCVS PROGRAM 200 - TEST 009 **** 03350200 ! 339: C 03360200 ! 340: C STATEMENT WITH TWO CONTINUATION LINES. 03370200 ! 341: C 03380200 ! 342: IVTNUM = 9 03390200 ! 343: IF (ICZERO) 30090, 0090, 30090 03400200 ! 344: 0090 CONTINUE 03410200 ! 345: IVON01 = 0 03420200 ! 346: IVON 03430200 ! 347: 1 01 03440200 ! 348: 2 = 2 03450200 ! 349: IVCOMP = IVON01 03460200 ! 350: IVCORR = 2 03470200 ! 351: 40090 IF (IVCOMP - 2) 20090, 10090, 20090 03480200 ! 352: 30090 IVDELE = IVDELE + 1 03490200 ! 353: WRITE (I02,80000) IVTNUM 03500200 ! 354: IF (ICZERO) 10090, 0101, 20090 03510200 ! 355: 10090 IVPASS = IVPASS + 1 03520200 ! 356: WRITE (I02,80002) IVTNUM 03530200 ! 357: GO TO 0101 03540200 ! 358: 20090 IVFAIL = IVFAIL + 1 03550200 ! 359: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 03560200 ! 360: 0101 CONTINUE 03570200 ! 361: C 03580200 ! 362: C **** FCVS PROGRAM 200 - TEST 010 **** 03590200 ! 363: C 03600200 ! 364: C STATEMENT WITH NINE CONTINUATION LINES. 03610200 ! 365: C 03620200 ! 366: IVTNUM = 10 03630200 ! 367: IF (ICZERO) 30100, 0100, 30100 03640200 ! 368: 0100 CONTINUE 03650200 ! 369: IVON01 = 0 03660200 ! 370: IVON01 = 03670200 ! 371: 1 1 03680200 ! 372: 2 +1 03690200 ! 373: 3 +1 03700200 ! 374: 4 +1 03710200 ! 375: 5 +1 03720200 ! 376: 6 +1 03730200 ! 377: 7 +1 03740200 ! 378: 8 +1 03750200 ! 379: 9+1 03760200 ! 380: IVCOMP = IVON01 03770200 ! 381: IVCORR = 9 03780200 ! 382: 40100 IF (IVCOMP - 9) 20100, 10100, 20100 03790200 ! 383: 30100 IVDELE = IVDELE + 1 03800200 ! 384: WRITE (I02,80000) IVTNUM 03810200 ! 385: IF (ICZERO) 10100, 0111, 20100 03820200 ! 386: 10100 IVPASS = IVPASS + 1 03830200 ! 387: WRITE (I02,80002) IVTNUM 03840200 ! 388: GO TO 0111 03850200 ! 389: 20100 IVFAIL = IVFAIL + 1 03860200 ! 390: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 03870200 ! 391: 0111 CONTINUE 03880200 ! 392: C 03890200 ! 393: C **** FCVS PROGRAM 200 - TEST 011 **** 03900200 ! 394: C 03910200 ! 395: C TEST 011 CONTAINS THE MAXIMUM NUMBER OF CONTINUATION LINES 03920200 ! 396: C PERMITTED IN THE SUBSET LANGUAGE AND EACH OF THE 660 CHARACTERS 03930200 ! 397: C IN THE STATEMENT ARE NONBLANK. 03940200 ! 398: C 03950200 ! 399: IVTNUM = 11 03960200 ! 400: IF (ICZERO) 30110, 0110, 30110 03970200 ! 401: 0110 CONTINUE 03980200 ! 402: IVON01 = 1 03990200 ! 403: IVCOMP = 0 04000200 ! 404: IVCOMP=IVON01+IVON01+IVON01+IVON01+IVON01+IVON01+IVON01+IVON01+IVO04010200 ! 405: 1N01+IVON01+IVON01+IVON01+IVON01+IVON01+IVON01+IVON01+IVON01+IVON0104020200 ! 406: 2+IVON01+IVON01+IVON01+IVON01+IVON01+IVON01+IVON01+IVON01+IVON01+IV04030200 ! 407: 3ON01+IVON01+IVON01+IVON01+IVON01+IVON01+IVON01+IVON01+IVON01+IVON004040200 ! 408: 41+IVON01+IVON01+IVON01+IVON01+IVON01+IVON01+IVON01+IVON01+IVON01+I04050200 ! 409: 5VON01+IVON01+IVON01+IVON01+IVON01+IVON01+IVON01+IVON01+IVON01+IVON04060200 ! 410: 601+IVON01+IVON01+IVON01+IVON01+IVON01+IVON01+IVON01+IVON01+IVON01+04070200 ! 411: 7IVON01+IVON01+IVON01+IVON01+IVON01+IVON01+IVON01+IVON01+IVON01+IVO04080200 ! 412: 8N01+IVON01+IVON01+IVON01+IVON01+IVON01+IVON01+IVON01+IVON01+IVON0104090200 ! 413: 9+IVON01+IVON01+IVON01+IVON01+IVON01+IVON01+IVON01+IVON01+IVON01+1204100200 ! 414: IVCORR = 105 04110200 ! 415: 40110 IF (IVCOMP - 105) 20110, 10110, 20110 04120200 ! 416: 30110 IVDELE = IVDELE + 1 04130200 ! 417: WRITE (I02,80000) IVTNUM 04140200 ! 418: IF (ICZERO) 10110, 0121, 20110 04150200 ! 419: 10110 IVPASS = IVPASS + 1 04160200 ! 420: WRITE (I02,80002) IVTNUM 04170200 ! 421: GO TO 0121 04180200 ! 422: 20110 IVFAIL = IVFAIL + 1 04190200 ! 423: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 04200200 ! 424: 0121 CONTINUE 04210200 ! 425: C 04220200 ! 426: C **** FCVS PROGRAM 200 - TEST 012 **** 04230200 ! 427: C 04240200 ! 428: C TEST 012 SPLITS A STATEMENT ACROSS 8 CONTINUATION LINES. 04250200 ! 429: C THERE IS A STATEMENT LABEL IN COLUMNS 1-5 AND 0 IN COLUMN 6 04260200 ! 430: C OF THE INITIAL LINE. 04270200 ! 431: C 04280200 ! 432: IVTNUM = 12 04290200 ! 433: IF (ICZERO) 30120, 0120, 30120 04300200 ! 434: 0120 CONTINUE 04310200 ! 435: IVON01 = 0 04320200 ! 436: GO TO 0122 04330200 ! 437: 01220 I 04340200 ! 438: 1 V 04350200 ! 439: 2 O 04360200 ! 440: 3 N 04370200 ! 441: 4 0 04380200 ! 442: 5 1 04390200 ! 443: 6 = 04400200 ! 444: 7 8 04410200 ! 445: 8 9 04420200 ! 446: IVCOMP = IVON01 04430200 ! 447: IVCORR = 89 04440200 ! 448: 40120 IF (IVCOMP - 89) 20120, 10120, 20120 04450200 ! 449: 30120 IVDELE = IVDELE + 1 04460200 ! 450: WRITE (I02,80000) IVTNUM 04470200 ! 451: IF (ICZERO) 10120, 0131, 20120 04480200 ! 452: 10120 IVPASS = IVPASS + 1 04490200 ! 453: WRITE (I02,80002) IVTNUM 04500200 ! 454: GO TO 0131 04510200 ! 455: 20120 IVFAIL = IVFAIL + 1 04520200 ! 456: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 04530200 ! 457: 0131 CONTINUE 04540200 ! 458: C 04550200 ! 459: C **** FCVS PROGRAM 200 - TEST 013 **** 04560200 ! 460: C 04570200 ! 461: C TEST 013 CONSISTS OF AN INITIAL LINE WHICH CONTAINS ONLY A 04580200 ! 462: C STATEMENT LABEL AND A CONTINUATION LINE WHICH CONTAINS THE 04590200 ! 463: C EXECUTABLE STATEMENT. 04600200 ! 464: C 04610200 ! 465: IVTNUM = 13 04620200 ! 466: IF (ICZERO) 30130, 0130, 30130 04630200 ! 467: 0130 CONTINUE 04640200 ! 468: IVCOMP = 0 04650200 ! 469: 0132 04660200 ! 470: 1IVCOMP = 4 04670200 ! 471: IVCORR = 4 04680200 ! 472: 40130 IF (IVCOMP - 4) 20130, 10130, 20130 04690200 ! 473: 30130 IVDELE = IVDELE + 1 04700200 ! 474: WRITE (I02,80000) IVTNUM 04710200 ! 475: IF (ICZERO) 10130, 0141, 20130 04720200 ! 476: 10130 IVPASS = IVPASS + 1 04730200 ! 477: WRITE (I02,80002) IVTNUM 04740200 ! 478: GO TO 0141 04750200 ! 479: 20130 IVFAIL = IVFAIL + 1 04760200 ! 480: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 04770200 ! 481: 0141 CONTINUE 04780200 ! 482: C 04790200 ! 483: C 04800200 ! 484: C WRITE OUT TEST SUMMARY 04810200 ! 485: C 04820200 ! 486: WRITE (I02,90004) 04830200 ! 487: WRITE (I02,90014) 04840200 ! 488: WRITE (I02,90004) 04850200 ! 489: WRITE (I02,90000) 04860200 ! 490: WRITE (I02,90004) 04870200 ! 491: WRITE (I02,90020) IVFAIL 04880200 ! 492: WRITE (I02,90022) IVPASS 04890200 ! 493: WRITE (I02,90024) IVDELE 04900200 ! 494: STOP 04910200 ! 495: 90001 FORMAT (1H ,24X,5HFM200) 04920200 ! 496: 90000 FORMAT (1H ,20X,20HEND OF PROGRAM FM200) 04930200 ! 497: C 04940200 ! 498: C FORMATS FOR TEST DETAIL LINES 04950200 ! 499: C 04960200 ! 500: 80000 FORMAT (1H ,4X,I5,6X,7HDELETED) 04970200 ! 501: 80002 FORMAT (1H ,4X,I5,7X,4HPASS) 04980200 ! 502: 80010 FORMAT (1H ,4X,I5,7X,4HFAIL,10X,I6,9X,I6) 04990200 ! 503: 80012 FORMAT (1H ,4X,I5,7X,4HFAIL,4X,E12.5,3X,E12.5) 05000200 ! 504: 80018 FORMAT (1H ,4X,I5,7X,4HFAIL,2X,A14,1X,A14) 05010200 ! 505: C 05020200 ! 506: C FORMAT STATEMENTS FOR PAGE HEADERS 05030200 ! 507: C 05040200 ! 508: 90002 FORMAT (1H1) 05050200 ! 509: 90004 FORMAT (1H ) 05060200 ! 510: 90006 FORMAT (1H ,10X,34HFORTRAN COMPILER VALIDATION SYSTEM) 05070200 ! 511: 90008 FORMAT (1H ,21X,11HVERSION 1.0) 05080200 ! 512: 90010 FORMAT (1H ,8X,38HFOR OFFICIAL USE ONLY - COPYRIGHT 1978) 05090200 ! 513: 90012 FORMAT (1H ,5X,4HTEST,5X,9HPASS/FAIL,5X,8HCOMPUTED,8X,7HCORRECT) 05100200 ! 514: 90014 FORMAT (1H ,5X,46H----------------------------------------------) 05110200 ! 515: 90016 FORMAT (1H ,18X,17HSUBSET LEVEL TEST) 05120200 ! 516: C 05130200 ! 517: C FORMAT STATEMENTS FOR RUN SUMMARY 05140200 ! 518: C 05150200 ! 519: 90020 FORMAT (1H ,19X,I5,13H TESTS FAILED) 05160200 ! 520: 90022 FORMAT (1H ,19X,I5,13H TESTS PASSED) 05170200 ! 521: 90024 FORMAT (1H ,19X,I5,14H TESTS DELETED) 05180200 ! 522: END 05190200
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.