![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to FM002.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 FM002.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 00010002 ! 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 00020002 ! 6: C FM002 00030002 ! 7: C 00040002 ! 8: C THIS ROUTINE CHECKS THAT COMMENT LINES WHICH HAVE VALID 00050002 ! 9: C FORTRAN STATEMENTS DO NOT AFFECT THE EXECUTION OF THE PROGRAM 00060002 ! 10: C IN ANY WAY. 00070002 ! 11: C 00080002 ! 12: C REFERENCES 00090002 ! 13: C AMERICAN NATIONAL STANDARD PROGRAMMING LANGUAGE FORTRAN, 00100002 ! 14: C X3.9-1978 00110002 ! 15: C 00120002 ! 16: C SECTION 3.2.1, COMMENT LINE 00130002 ! 17: C 00140002 ! 18: C ********************************************************** 00150002 ! 19: C 00160002 ! 20: C A COMPILER VALIDATION SYSTEM FOR THE FORTRAN LANGUAGE 00170002 ! 21: C BASED ON SPECIFICATIONS AS DEFINED IN AMERICAN NATIONAL STANDARD 00180002 ! 22: C PROGRAMMING LANGUAGE FORTRAN X3.9-1978, HAS BEEN DEVELOPED BY THE 00190002 ! 23: C FEDERAL COBOL COMPILER TESTING SERVICE. THE FORTRAN COMPILER 00200002 ! 24: C VALIDATION SYSTEM (FCVS) CONSISTS OF AUDIT ROUTINES, THEIR RELATED00210002 ! 25: C DATA, AND AN EXECUTIVE SYSTEM. EACH AUDIT ROUTINE IS A FORTRAN 00220002 ! 26: C PROGRAM, SUBPROGRAM OR FUNCTION WHICH INCLUDES TESTS OF SPECIFIC 00230002 ! 27: C LANGUAGE ELEMENTS AND SUPPORTING PROCEDURES INDICATING THE RESULT 00240002 ! 28: C OF EXECUTING THESE TESTS. 00250002 ! 29: C 00260002 ! 30: C THIS PARTICULAR PROGRAM/SUBPROGRAM/FUNCTION CONTAINS FEATURES 00270002 ! 31: C FOUND ONLY IN THE SUBSET AS DEFINED IN X3.9-1978. 00280002 ! 32: C 00290002 ! 33: C SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO - 00300002 ! 34: C 00310002 ! 35: C DEPARTMENT OF THE NAVY 00320002 ! 36: C FEDERAL COBOL COMPILER TESTING SERVICE 00330002 ! 37: C WASHINGTON, D.C. 20376 00340002 ! 38: C 00350002 ! 39: C ********************************************************** 00360002 ! 40: C 00370002 ! 41: C 00380002 ! 42: C 00390002 ! 43: C INITIALIZATION SECTION 00400002 ! 44: C 00410002 ! 45: C INITIALIZE CONSTANTS 00420002 ! 46: C ************** 00430002 ! 47: C I01 CONTAINS THE LOGICAL UNIT NUMBER FOR THE CARD READER. 00440002 ! 48: I01 = 5 00450002 ! 49: C I02 CONTAINS THE LOGICAL UNIT NUMBER FOR THE PRINTER. 00460002 ! 50: I02 = 6 00470002 ! 51: C SYSTEM ENVIRONMENT SECTION 00480002 ! 52: C 00490002 ! 53: I01 = 5 00500002 ! 54: C THE CX010 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I01 = 5 00510002 ! 55: C (UNIT NUMBER FOR CARD READER). 00520002 ! 56: CX011 THIS CARD IS REPLACED BY CONTENTS OF FEXEC X-011 CONTROL CARD. 00530002 ! 57: C THE CX011 CARD IS FOR SYSTEMS WHICH REQUIRE ADDITIONAL 00540002 ! 58: C FORTRAN STATEMENTS FOR FILES ASSOCIATED WITH CX010 ABOVE. 00550002 ! 59: C 00560002 ! 60: I02 = 6 00570002 ! 61: C THE CX020 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I02 = 6 00580002 ! 62: C (UNIT NUMBER FOR PRINTER). 00590002 ! 63: CX021 THIS CARD IS REPLACED BY CONTENTS OF FEXEC X-021 CONTROL CARD. 00600002 ! 64: C THE CX021 CARD IS FOR SYSTEMS WHICH REQUIRE ADDITIONAL 00610002 ! 65: C FORTRAN STATEMENTS FOR FILES ASSOCIATED WITH CX020 ABOVE. 00620002 ! 66: C 00630002 ! 67: IVPASS=0 00640002 ! 68: IVFAIL=0 00650002 ! 69: IVDELE=0 00660002 ! 70: ICZERO=0 00670002 ! 71: C 00680002 ! 72: C WRITE PAGE HEADERS 00690002 ! 73: WRITE (I02,90000) 00700002 ! 74: WRITE (I02,90001) 00710002 ! 75: WRITE (I02,90002) 00720002 ! 76: WRITE (I02, 90002) 00730002 ! 77: WRITE (I02,90003) 00740002 ! 78: WRITE (I02,90002) 00750002 ! 79: WRITE (I02,90004) 00760002 ! 80: WRITE (I02,90002) 00770002 ! 81: WRITE (I02,90011) 00780002 ! 82: WRITE (I02,90002) 00790002 ! 83: WRITE (I02,90002) 00800002 ! 84: WRITE (I02,90005) 00810002 ! 85: WRITE (I02,90006) 00820002 ! 86: WRITE (I02,90002) 00830002 ! 87: C TEST SECTION 00840002 ! 88: C 00850002 ! 89: 41 CONTINUE 00860002 ! 90: IVTNUM=4 00870002 ! 91: C 00880002 ! 92: C **** TEST 004 **** 00890002 ! 93: C TEST 004 - BLANK COMMENT LINE 00900002 ! 94: C 00910002 ! 95: IF (ICZERO) 30040,40,30040 00920002 ! 96: 40 CONTINUE 00930002 ! 97: IVON01=4 00940002 ! 98: C 00950002 ! 99: GO TO 40040 00960002 ! 100: 30040 IVDELE=IVDELE+1 00970002 ! 101: WRITE (I02,80003) IVTNUM 00980002 ! 102: IF (ICZERO) 40040, 51, 40040 00990002 ! 103: 40040 IF (IVON01 - 4) 20040, 10040, 20040 01000002 ! 104: 10040 IVPASS=IVPASS+1 01010002 ! 105: WRITE (I02,80001) IVTNUM 01020002 ! 106: GO TO 51 01030002 ! 107: 20040 IVFAIL=IVFAIL+1 01040002 ! 108: IVCOMP=IVON01 01050002 ! 109: IVCORR=4 01060002 ! 110: WRITE (I02,80004) IVTNUM,IVCOMP,IVCORR 01070002 ! 111: 51 CONTINUE 01080002 ! 112: IVTNUM=5 01090002 ! 113: C 01100002 ! 114: C **** TEST 005 **** 01110002 ! 115: C TEST 005 - GO TO IN COMMENT LINE 01120002 ! 116: C 01130002 ! 117: IF (ICZERO) 30050, 50, 30050 01140002 ! 118: 50 CONTINUE 01150002 ! 119: IVON01 = 3 01160002 ! 120: C GO TO 20050 01170002 ! 121: IVON01=5 01180002 ! 122: GO TO 40050 01190002 ! 123: 30050 IVDELE=IVDELE+1 01200002 ! 124: WRITE (I02,80003) IVTNUM 01210002 ! 125: IF (ICZERO) 40050, 61, 40050 01220002 ! 126: 40050 IF (IVON01 - 5) 20050,10050,20050 01230002 ! 127: 10050 IVPASS=IVPASS+1 01240002 ! 128: WRITE (I02,80001) IVTNUM 01250002 ! 129: GO TO 61 01260002 ! 130: 20050 IVFAIL=IVFAIL+1 01270002 ! 131: IVCOMP=IVON01 01280002 ! 132: IVCORR=5 01290002 ! 133: WRITE (I02,80004) IVTNUM,IVCOMP,IVCORR 01300002 ! 134: 61 CONTINUE 01310002 ! 135: IVTNUM=6 01320002 ! 136: C 01330002 ! 137: C **** TEST 006 **** 01340002 ! 138: C TEST 006 - INTEGER ASSIGNMENT STATEMENT IN COMMENT LINE 01350002 ! 139: C 01360002 ! 140: IF (ICZERO) 30060,60,30060 01370002 ! 141: 60 CONTINUE 01380002 ! 142: IVON01=6 01390002 ! 143: C IVON01=1 01400002 ! 144: GO TO 40060 01410002 ! 145: 30060 IVDELE=IVDELE+1 01420002 ! 146: WRITE (I02,80003) IVTNUM 01430002 ! 147: IF (ICZERO) 40060,71,40060 01440002 ! 148: 40060 IF (IVON01-6) 20060,10060,20060 01450002 ! 149: 10060 IVPASS=IVPASS+1 01460002 ! 150: WRITE (I02,80001) IVTNUM 01470002 ! 151: GO TO 71 01480002 ! 152: 20060 IVFAIL=IVFAIL+1 01490002 ! 153: IVCOMP=IVON01 01500002 ! 154: IVCORR=6 01510002 ! 155: WRITE (I02,80004) IVTNUM,IVCOMP,IVCORR 01520002 ! 156: 71 CONTINUE 01530002 ! 157: IVTNUM=7 01540002 ! 158: C 01550002 ! 159: C **** TEST 007 **** 01560002 ! 160: C TEST 007 - INTEGER ASSIGNMENT STATEMENT IN COMMENT LINE 01570002 ! 161: C INTEGER EXPRESSION TO RIGHT OF = 01580002 ! 162: C 01590002 ! 163: IF (ICZERO) 30070,70,30070 01600002 ! 164: 70 CONTINUE 01610002 ! 165: IVON02=6 01620002 ! 166: IVON01=7 01630002 ! 167: C IVON01= 3*IVON02 01640002 ! 168: GO TO 40070 01650002 ! 169: 30070 IVDELE=IVDELE+1 01660002 ! 170: WRITE (I02,80003) IVTNUM 01670002 ! 171: IF (ICZERO) 40070,81,40070 01680002 ! 172: 40070 IF (IVON01-7) 20070,10070,20070 01690002 ! 173: 10070 IVPASS=IVPASS+1 01700002 ! 174: WRITE (I02,80001) IVTNUM 01710002 ! 175: GO TO 81 01720002 ! 176: 20070 IVFAIL=IVFAIL+1 01730002 ! 177: IVCOMP=IVON01 01740002 ! 178: IVCORR=7 01750002 ! 179: WRITE (I02,80004) IVTNUM,IVCOMP,IVCORR 01760002 ! 180: 81 CONTINUE 01770002 ! 181: IVTNUM=8 01780002 ! 182: C 01790002 ! 183: C **** TEST 008 **** 01800002 ! 184: C TEST 008 - IF STATEMENT IN COMMENT LINE 01810002 ! 185: C 01820002 ! 186: IF (ICZERO) 30080,80,30080 01830002 ! 187: 80 CONTINUE 01840002 ! 188: IVON01=300 01850002 ! 189: C IF (IVON01) 20080,20080,20080 01860002 ! 190: IVON01=8 01870002 ! 191: GO TO 40080 01880002 ! 192: 30080 IVDELE=IVDELE+1 01890002 ! 193: WRITE (I02,80003) IVTNUM 01900002 ! 194: IF (ICZERO) 40080,91,40080 01910002 ! 195: 40080 IF (IVON01-8) 20080,10080,20080 01920002 ! 196: 10080 IVPASS=IVPASS+1 01930002 ! 197: WRITE (I02,80001) IVTNUM 01940002 ! 198: GO TO 91 01950002 ! 199: 20080 IVFAIL=IVFAIL+1 01960002 ! 200: IVCOMP=IVON01 01970002 ! 201: IVCORR=8 01980002 ! 202: WRITE (I02,80004) IVTNUM,IVCOMP,IVCORR 01990002 ! 203: 91 CONTINUE 02000002 ! 204: IVTNUM=9 02010002 ! 205: C 02020002 ! 206: C **** TEST 009 **** 02030002 ! 207: C TEST 009 - WRITE STATEMENT IN A COMMENT LINE 02040002 ! 208: C 02050002 ! 209: IF (ICZERO) 30090,90,30090 02060002 ! 210: 90 CONTINUE 02070002 ! 211: IVON01=200 02080002 ! 212: C 92 WRITE (I02,80002) IVTNUM 02090002 ! 213: IVON01=9 02100002 ! 214: GO TO 40090 02110002 ! 215: 30090 IVDELE=IVDELE+1 02120002 ! 216: WRITE (I02,80003) IVTNUM 02130002 ! 217: IF (ICZERO) 40090,101,40090 02140002 ! 218: 40090 IF (IVON01-9) 20090,10090,20090 02150002 ! 219: 10090 IVPASS=IVPASS+1 02160002 ! 220: WRITE (I02,80001) IVTNUM 02170002 ! 221: GO TO 101 02180002 ! 222: 20090 IVFAIL=IVFAIL+1 02190002 ! 223: IVCOMP=IVON01 02200002 ! 224: IVCORR=9 02210002 ! 225: WRITE (I02,80004) IVTNUM,IVCOMP,IVCORR 02220002 ! 226: 101 IVTNUM=10 02230002 ! 227: C 02240002 ! 228: C **** TEST 010 **** 02250002 ! 229: C TEST 010 - STATEMENT LABEL IN COMMENT LINE 02260002 ! 230: C 02270002 ! 231: IF (ICZERO) 30100,100,30100 02280002 ! 232: 100 CONTINUE 02290002 ! 233: GO TO 102 02300002 ! 234: C 102 WRITE (I02,80002) 02310002 ! 235: C GO TO 111 02320002 ! 236: 102 IVON01=10 02330002 ! 237: GO TO 40100 02340002 ! 238: 30100 IVDELE=IVDELE+1 02350002 ! 239: WRITE (I02,80003) IVTNUM 02360002 ! 240: IF (ICZERO) 40100,111,40100 02370002 ! 241: 40100 IF (IVON01-10) 20100,10100,20100 02380002 ! 242: 10100 IVPASS=IVPASS+1 02390002 ! 243: WRITE (I02,80001) IVTNUM 02400002 ! 244: GO TO 111 02410002 ! 245: 20100 IVFAIL=IVFAIL+1 02420002 ! 246: IVCOMP=IVON01 02430002 ! 247: IVCORR=10 02440002 ! 248: WRITE (I02,80004) IVTNUM,IVCOMP,IVCORR 02450002 ! 249: 111 CONTINUE 02460002 ! 250: IVTNUM=11 02470002 ! 251: C 02480002 ! 252: C **** TEST 011 **** 02490002 ! 253: C TEST 011 - CONTINUE IN COMMENT LINE 02500002 ! 254: C FOLLOWED BY INTEGER ASSIGNMENT STATEMENT IN COMMENT 02510002 ! 255: C 02520002 ! 256: IF (ICZERO) 30110,110,30110 02530002 ! 257: 110 IVON01=11 02540002 ! 258: C CONTINUE 02550002 ! 259: C IVON01=7000 02560002 ! 260: GO TO 40110 02570002 ! 261: 30110 IVDELE=IVDELE+1 02580002 ! 262: WRITE (I02,80003) IVTNUM 02590002 ! 263: IF (ICZERO) 40110,121,40110 02600002 ! 264: 40110 IF (IVON01 -11) 20110,10110,20110 02610002 ! 265: 10110 IVPASS=IVPASS+1 02620002 ! 266: WRITE (I02,80001) IVTNUM 02630002 ! 267: GO TO 121 02640002 ! 268: 20110 IVFAIL=IVFAIL+1 02650002 ! 269: IVCOMP=IVON01 02660002 ! 270: IVCORR=11 02670002 ! 271: WRITE (I02,80004) IVTNUM,IVCOMP,IVCORR 02680002 ! 272: 121 CONTINUE 02690002 ! 273: IVTNUM=12 02700002 ! 274: C 02710002 ! 275: C **** TEST 012 **** 02720002 ! 276: C TEST 012 - INTEGER ASSIGNMENT STATEMENT IN COMMENT LINE 02730002 ! 277: C 02740002 ! 278: IF (ICZERO) 30120,120,30120 02750002 ! 279: 120 CONTINUE 02760002 ! 280: IVON01=12 02770002 ! 281: C IVON01=IVON01+1 02780002 ! 282: GO TO 40120 02790002 ! 283: 30120 IVDELE=IVDELE+1 02800002 ! 284: WRITE (I02,80003) IVTNUM 02810002 ! 285: IF (ICZERO) 40120,99999,40120 02820002 ! 286: 40120 IF (IVON01 - 12) 20120,10120,20120 02830002 ! 287: 10120 IVPASS=IVPASS+1 02840002 ! 288: WRITE (I02,80001) IVTNUM 02850002 ! 289: GO TO 99999 02860002 ! 290: 20120 IVFAIL=IVFAIL+1 02870002 ! 291: IVCOMP=IVON01 02880002 ! 292: IVCORR=12 02890002 ! 293: WRITE (I02,80004) IVTNUM,IVCOMP,IVCORR 02900002 ! 294: C 02910002 ! 295: C WRITE PAGE FOOTINGS AND RUN SUMMARIES 02920002 ! 296: 99999 CONTINUE 02930002 ! 297: WRITE (I02,90002) 02940002 ! 298: WRITE (I02,90006) 02950002 ! 299: WRITE (I02,90002) 02960002 ! 300: WRITE (I02,90002) 02970002 ! 301: WRITE (I02,90007) 02980002 ! 302: WRITE (I02,90002) 02990002 ! 303: WRITE (I02,90008) IVFAIL 03000002 ! 304: WRITE (I02,90009) IVPASS 03010002 ! 305: WRITE (I02,90010) IVDELE 03020002 ! 306: C 03030002 ! 307: C 03040002 ! 308: C TERMINATE ROUTINE EXECUTION 03050002 ! 309: STOP 03060002 ! 310: C 03070002 ! 311: C FORMAT STATEMENTS FOR PAGE HEADERS 03080002 ! 312: 90000 FORMAT (1H1) 03090002 ! 313: 90002 FORMAT (1H ) 03100002 ! 314: 90001 FORMAT (1H ,10X,34HFORTRAN COMPILER VALIDATION SYSTEM) 03110002 ! 315: 90003 FORMAT (1H ,21X,11HVERSION 1.0) 03120002 ! 316: 90004 FORMAT (1H ,10X,38HFOR OFFICIAL USE ONLY - COPYRIGHT 1978) 03130002 ! 317: 90005 FORMAT (1H ,5X,4HTEST,5X,9HPASS/FAIL, 5X,8HCOMPUTED,8X,7HCORRECT) 03140002 ! 318: 90006 FORMAT (1H ,5X,46H----------------------------------------------) 03150002 ! 319: 90011 FORMAT (1H ,18X,17HSUBSET LEVEL TEST) 03160002 ! 320: C 03170002 ! 321: C FORMAT STATEMENTS FOR RUN SUMMARIES 03180002 ! 322: 90008 FORMAT (1H ,15X,I5,19H ERRORS ENCOUNTERED) 03190002 ! 323: 90009 FORMAT (1H ,15X,I5,13H TESTS PASSED) 03200002 ! 324: 90010 FORMAT (1H ,15X,I5,14H TESTS DELETED) 03210002 ! 325: C 03220002 ! 326: C FORMAT STATEMENTS FOR TEST RESULTS 03230002 ! 327: 80001 FORMAT (1H ,4X,I5,7X,4HPASS) 03240002 ! 328: 80002 FORMAT (1H ,4X,I5,7X,4HFAIL) 03250002 ! 329: 80003 FORMAT (1H ,4X,I5,7X,7HDELETED) 03260002 ! 330: 80004 FORMAT (1H ,4X,I5,7X,4HFAIL,10X,I6,9X,I6) 03270002 ! 331: 80005 FORMAT (1H ,4X,I5,7X,4HFAIL,4X,E12.5,3X,E12.5) 03280002 ! 332: C 03290002 ! 333: 90007 FORMAT (1H ,20X,20HEND OF PROGRAM FM002) 03300002 ! 334: C COMMENT LINE BEFORE END STATEMENT 03310002 ! 335: END 03320002
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.