![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to FM003.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 FM003.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 00010003 ! 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 00020003 ! 6: C FM003 00030003 ! 7: C 00040003 ! 8: C THIS ROUTINE CONTAINS THE BASIC CONTINUE TESTS. THESE TESTS 00050003 ! 9: C ENSURE THAT EXECUTION OF A CONTINUE STATEMENT CAUSES CONTINUATION 00060003 ! 10: C OF THE NORMAL PROGRAM EXECUTION SEQUENCE. ONLY THE STATEMENTS IN 00070003 ! 11: C THE BASIC ASSUMPTIONS ARE INCLUDED IN THESE TESTS. OTHER CONTINUE00080003 ! 12: C TESTS ARE CONTAINED IN OTHER ROUTINES AS PART OF THE TESTS FOR 00090003 ! 13: C OTHER LANGUAGE FEATURES SUCH AS THE DO STATEMENTS TESTS. 00100003 ! 14: C 00110003 ! 15: C REFERENCES 00120003 ! 16: C AMERICAN NATIONAL STANDARD PROGRAMMING LANGUAGE FORTRAN, 00130003 ! 17: C X3.9-1978 00140003 ! 18: C 00150003 ! 19: C SECTION 3.6, NORMAL EXECUTION SEQUENCE AND TRANSFER OF CONTROL 00160003 ! 20: C SECTION 11.11, CONTINUE STATEMENT 00170003 ! 21: C 00180003 ! 22: C 00190003 ! 23: C ********************************************************** 00200003 ! 24: C 00210003 ! 25: C A COMPILER VALIDATION SYSTEM FOR THE FORTRAN LANGUAGE 00220003 ! 26: C BASED ON SPECIFICATIONS AS DEFINED IN AMERICAN NATIONAL STANDARD 00230003 ! 27: C PROGRAMMING LANGUAGE FORTRAN X3.9-1978, HAS BEEN DEVELOPED BY THE 00240003 ! 28: C FEDERAL COBOL COMPILER TESTING SERVICE. THE FORTRAN COMPILER 00250003 ! 29: C VALIDATION SYSTEM (FCVS) CONSISTS OF AUDIT ROUTINES, THEIR RELATED00260003 ! 30: C DATA, AND AN EXECUTIVE SYSTEM. EACH AUDIT ROUTINE IS A FORTRAN 00270003 ! 31: C PROGRAM, SUBPROGRAM OR FUNCTION WHICH INCLUDES TESTS OF SPECIFIC 00280003 ! 32: C LANGUAGE ELEMENTS AND SUPPORTING PROCEDURES INDICATING THE RESULT 00290003 ! 33: C OF EXECUTING THESE TESTS. 00300003 ! 34: C 00310003 ! 35: C THIS PARTICULAR PROGRAM/SUBPROGRAM/FUNCTION CONTAINS FEATURES 00320003 ! 36: C FOUND ONLY IN THE SUBSET AS DEFINED IN X3.9-1978. 00330003 ! 37: C 00340003 ! 38: C SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO - 00350003 ! 39: C 00360003 ! 40: C DEPARTMENT OF THE NAVY 00370003 ! 41: C FEDERAL COBOL COMPILER TESTING SERVICE 00380003 ! 42: C WASHINGTON, D.C. 20376 00390003 ! 43: C 00400003 ! 44: C ********************************************************** 00410003 ! 45: C 00420003 ! 46: C 00430003 ! 47: C 00440003 ! 48: C INITIALIZATION SECTION 00450003 ! 49: C 00460003 ! 50: C INITIALIZE CONSTANTS 00470003 ! 51: C ************** 00480003 ! 52: C I01 CONTAINS THE LOGICAL UNIT NUMBER FOR THE CARD READER. 00490003 ! 53: I01 = 5 00500003 ! 54: C I02 CONTAINS THE LOGICAL UNIT NUMBER FOR THE PRINTER. 00510003 ! 55: I02 = 6 00520003 ! 56: C SYSTEM ENVIRONMENT SECTION 00530003 ! 57: C 00540003 ! 58: I01 = 5 00550003 ! 59: C THE CX010 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I01 = 5 00560003 ! 60: C (UNIT NUMBER FOR CARD READER). 00570003 ! 61: CX011 THIS CARD IS REPLACED BY CONTENTS OF FEXEC X-011 CONTROL CARD. 00580003 ! 62: C THE CX011 CARD IS FOR SYSTEMS WHICH REQUIRE ADDITIONAL 00590003 ! 63: C FORTRAN STATEMENTS FOR FILES ASSOCIATED WITH CX010 ABOVE. 00600003 ! 64: C 00610003 ! 65: I02 = 6 00620003 ! 66: C THE CX020 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I02 = 6 00630003 ! 67: C (UNIT NUMBER FOR PRINTER). 00640003 ! 68: CX021 THIS CARD IS REPLACED BY CONTENTS OF FEXEC X-021 CONTROL CARD. 00650003 ! 69: C THE CX021 CARD IS FOR SYSTEMS WHICH REQUIRE ADDITIONAL 00660003 ! 70: C FORTRAN STATEMENTS FOR FILES ASSOCIATED WITH CX020 ABOVE. 00670003 ! 71: C 00680003 ! 72: IVPASS=0 00690003 ! 73: IVFAIL=0 00700003 ! 74: IVDELE=0 00710003 ! 75: ICZERO=0 00720003 ! 76: C 00730003 ! 77: C WRITE PAGE HEADERS 00740003 ! 78: WRITE (I02,90000) 00750003 ! 79: WRITE (I02,90001) 00760003 ! 80: WRITE (I02,90002) 00770003 ! 81: WRITE (I02, 90002) 00780003 ! 82: WRITE (I02,90003) 00790003 ! 83: WRITE (I02,90002) 00800003 ! 84: WRITE (I02,90004) 00810003 ! 85: WRITE (I02,90002) 00820003 ! 86: WRITE (I02,90011) 00830003 ! 87: WRITE (I02,90002) 00840003 ! 88: WRITE (I02,90002) 00850003 ! 89: WRITE (I02,90005) 00860003 ! 90: WRITE (I02,90006) 00870003 ! 91: WRITE (I02,90002) 00880003 ! 92: 131 CONTINUE 00890003 ! 93: IVTNUM = 13 00900003 ! 94: C 00910003 ! 95: C **** TEST 013 **** 00920003 ! 96: C TEST 13 - CONTINUE TEST 00930003 ! 97: C CONTINUE STATEMENT FOLLOWING INTEGER ASSIGNMENT 00940003 ! 98: C STATEMENTS. 00950003 ! 99: C 00960003 ! 100: IF (ICZERO) 30130, 130, 30130 00970003 ! 101: 130 CONTINUE 00980003 ! 102: IVON01=5 00990003 ! 103: IVON02=6 01000003 ! 104: CONTINUE 01010003 ! 105: GO TO 40130 01020003 ! 106: 30130 IVDELE = IVDELE + 1 01030003 ! 107: WRITE (I02,80003) IVTNUM 01040003 ! 108: IF (ICZERO) 40130, 141, 40130 01050003 ! 109: 40130 IF (IVON01-5) 20131,40131,20131 01060003 ! 110: 40131 IF (IVON02-6) 20132,10130,20132 01070003 ! 111: 10130 IVPASS = IVPASS + 1 01080003 ! 112: WRITE (I02,80001) IVTNUM 01090003 ! 113: GO TO 141 01100003 ! 114: 20131 IVCOMP=IVON01 01110003 ! 115: IVCORR=5 01120003 ! 116: GO TO 20130 01130003 ! 117: 20132 IVCOMP=IVON02 01140003 ! 118: IVCORR=6 01150003 ! 119: 20130 IVFAIL = IVFAIL + 1 01160003 ! 120: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 01170003 ! 121: 141 CONTINUE 01180003 ! 122: IVTNUM = 14 01190003 ! 123: C 01200003 ! 124: C **** TEST 014 **** 01210003 ! 125: C TEST 14 - CONTINUE TEST 01220003 ! 126: C CONTINUE STATEMENT BETWEEN INTEGER ASSIGNMENT 01230003 ! 127: C STATEMENTS 01240003 ! 128: C 01250003 ! 129: IF (ICZERO) 30140, 140, 30140 01260003 ! 130: 140 CONTINUE 01270003 ! 131: IVON01=14 01280003 ! 132: CONTINUE 01290003 ! 133: IVON02=15 01300003 ! 134: GO TO 40140 01310003 ! 135: 30140 IVDELE = IVDELE + 1 01320003 ! 136: WRITE (I02,80003) IVTNUM 01330003 ! 137: IF (ICZERO) 40140, 151, 40140 01340003 ! 138: 40140 IF (IVON01 - 14) 20141,40141,20141 01350003 ! 139: 40141 IF (IVON02 - 15) 20142, 10140, 20142 01360003 ! 140: 10140 IVPASS = IVPASS + 1 01370003 ! 141: WRITE (I02,80001) IVTNUM 01380003 ! 142: GO TO 151 01390003 ! 143: 20141 IVCOMP=IVON01 01400003 ! 144: IVCORR=14 01410003 ! 145: GO TO 20140 01420003 ! 146: 20142 IVCOMP=IVON02 01430003 ! 147: IVCORR=15 01440003 ! 148: 20140 IVFAIL = IVFAIL + 1 01450003 ! 149: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 01460003 ! 150: 151 CONTINUE 01470003 ! 151: IVTNUM = 15 01480003 ! 152: C 01490003 ! 153: C **** TEST 015 **** 01500003 ! 154: C TEST 15 - CONTINUE TEST 01510003 ! 155: C TWO CONSECUTIVE CONTINUE STATEMENTS 01520003 ! 156: C 01530003 ! 157: IF (ICZERO) 30150, 150, 30150 01540003 ! 158: 150 CONTINUE 01550003 ! 159: CONTINUE 01560003 ! 160: IVON01=19 01570003 ! 161: IVON02=20 01580003 ! 162: GO TO 40150 01590003 ! 163: 30150 IVDELE = IVDELE + 1 01600003 ! 164: WRITE (I02,80003) IVTNUM 01610003 ! 165: IF (ICZERO) 40150, 161, 40150 01620003 ! 166: 40150 IF (IVON01 - 19) 20151,40151,20151 01630003 ! 167: 40151 IF (IVON02 -20) 20152,10150,20152 01640003 ! 168: 10150 IVPASS = IVPASS + 1 01650003 ! 169: WRITE (I02,80001) IVTNUM 01660003 ! 170: GO TO 161 01670003 ! 171: 20151 IVCOMP=IVON01 01680003 ! 172: IVCORR=19 01690003 ! 173: GO TO 20150 01700003 ! 174: 20152 IVCOMP=IVON02 01710003 ! 175: IVCORR=20 01720003 ! 176: 20150 IVFAIL = IVFAIL + 1 01730003 ! 177: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 01740003 ! 178: 161 CONTINUE 01750003 ! 179: IVTNUM = 16 01760003 ! 180: C 01770003 ! 181: C **** TEST 016 **** 01780003 ! 182: C TEST 16 - CONTINUE TEST 01790003 ! 183: C BRANCH TO CONTINUE STATEMENT FROM IF STATEMENT 01800003 ! 184: C 01810003 ! 185: IF (ICZERO) 30160, 160, 30160 01820003 ! 186: 160 CONTINUE 01830003 ! 187: IVON01=16 01840003 ! 188: IF (IVON01 - 16) 162,163,162 01850003 ! 189: 162 IVCORR=16 01860003 ! 190: GO TO 20160 01870003 ! 191: 163 CONTINUE 01880003 ! 192: IVON01=160 01890003 ! 193: GO TO 40160 01900003 ! 194: 30160 IVDELE = IVDELE + 1 01910003 ! 195: WRITE (I02,80003) IVTNUM 01920003 ! 196: IF (ICZERO) 40160, 171, 40160 01930003 ! 197: 40160 IF (IVON01-160) 20161,10160,20161 01940003 ! 198: 10160 IVPASS = IVPASS + 1 01950003 ! 199: WRITE (I02,80001) IVTNUM 01960003 ! 200: GO TO 171 01970003 ! 201: 20161 IVCORR=160 01980003 ! 202: 20160 IVFAIL = IVFAIL + 1 01990003 ! 203: IVCOMP=IVON01 02000003 ! 204: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 02010003 ! 205: 171 CONTINUE 02020003 ! 206: IVTNUM = 17 02030003 ! 207: C 02040003 ! 208: C **** TEST 017 **** 02050003 ! 209: C TEST 17 - CONTINUE TEST 02060003 ! 210: C TWO OF THE BRANCHES OF AN IF STATEMENT ARE TO THE SAME 02070003 ! 211: C CONTINUE STATEMENT. THE THIRD BRANCH ALSO IS MADE TO 02080003 ! 212: C A CONTINUE STATEMENT. 02090003 ! 213: C 02100003 ! 214: IF (ICZERO) 30170, 170, 30170 02110003 ! 215: 170 CONTINUE 02120003 ! 216: IVON01=17 02130003 ! 217: IF (IVON01-19) 173,172,172 02140003 ! 218: 172 CONTINUE 02150003 ! 219: IVCORR=17 02160003 ! 220: GO TO 20170 02170003 ! 221: 173 CONTINUE 02180003 ! 222: IVON01=170 02190003 ! 223: GO TO 40170 02200003 ! 224: 30170 IVDELE = IVDELE + 1 02210003 ! 225: WRITE (I02,80003) IVTNUM 02220003 ! 226: IF (ICZERO) 40170, 181, 40170 02230003 ! 227: 40170 IF (IVON01 - 170) 20171,10170,20171 02240003 ! 228: 10170 IVPASS = IVPASS + 1 02250003 ! 229: WRITE (I02,80001) IVTNUM 02260003 ! 230: GO TO 181 02270003 ! 231: 20171 IVCORR=170 02280003 ! 232: 20170 IVFAIL = IVFAIL + 1 02290003 ! 233: IVCOMP=IVON01 02300003 ! 234: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 02310003 ! 235: 181 CONTINUE 02320003 ! 236: IVTNUM = 18 02330003 ! 237: C 02340003 ! 238: C **** TEST 018 **** 02350003 ! 239: C TEST 18 - CONTINUE TEST 02360003 ! 240: C BRANCH TO CONTINUE STATEMENT FROM GO TO STATEMENT 02370003 ! 241: C 02380003 ! 242: IF (ICZERO) 30180, 180, 30180 02390003 ! 243: 180 CONTINUE 02400003 ! 244: IF (ICZERO) 184,182,184 02410003 ! 245: 182 IVON01=18 02420003 ! 246: GO TO 183 02430003 ! 247: 184 IVON01=20 02440003 ! 248: 183 CONTINUE 02450003 ! 249: IVON02=180 02460003 ! 250: GO TO 40180 02470003 ! 251: 30180 IVDELE = IVDELE + 1 02480003 ! 252: WRITE (I02,80003) IVTNUM 02490003 ! 253: IF (ICZERO) 40180, 191, 40180 02500003 ! 254: 40180 IF (IVON01 - 18) 20181,40181,20181 02510003 ! 255: 40181 IF (IVON02 -180) 20182,10180,20182 02520003 ! 256: 10180 IVPASS = IVPASS + 1 02530003 ! 257: WRITE (I02,80001) IVTNUM 02540003 ! 258: GO TO 191 02550003 ! 259: 20181 IVCORR=18 02560003 ! 260: IVCOMP=IVON01 02570003 ! 261: GO TO 20180 02580003 ! 262: 20182 IVCOMP=IVON02 02590003 ! 263: IVCORR=180 02600003 ! 264: 20180 IVFAIL = IVFAIL + 1 02610003 ! 265: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 02620003 ! 266: 191 CONTINUE 02630003 ! 267: IVTNUM = 19 02640003 ! 268: C 02650003 ! 269: C **** TEST 019 **** 02660003 ! 270: C TEST 19 - CONTINUE TEST 02670003 ! 271: C BRANCH TO THREE CONTINUE STATEMENTS FROM IF STATEMENT. 02680003 ! 272: C CONTINUE STATEMENTS FOLLOW EACH OTHER. 02690003 ! 273: C 02700003 ! 274: IF (ICZERO) 30190, 190, 30190 02710003 ! 275: 190 CONTINUE 02720003 ! 276: ICONE = 1 02730003 ! 277: IF (ICONE) 194,192,193 02740003 ! 278: 193 CONTINUE 02750003 ! 279: 192 CONTINUE 02760003 ! 280: 194 CONTINUE 02770003 ! 281: IVON01=19 02780003 ! 282: GO TO 40190 02790003 ! 283: 30190 IVDELE = IVDELE + 1 02800003 ! 284: WRITE (I02,80003) IVTNUM 02810003 ! 285: IF (ICZERO) 40190, 201, 40190 02820003 ! 286: 40190 IF (IVON01 - 19) 20190,10190,20190 02830003 ! 287: 10190 IVPASS = IVPASS + 1 02840003 ! 288: WRITE (I02,80001) IVTNUM 02850003 ! 289: GO TO 201 02860003 ! 290: 20190 IVFAIL = IVFAIL + 1 02870003 ! 291: IVCOMP=IVON01 02880003 ! 292: IVCORR=19 02890003 ! 293: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 02900003 ! 294: 201 CONTINUE 02910003 ! 295: IVTNUM = 20 02920003 ! 296: C 02930003 ! 297: C **** TEST 020 **** 02940003 ! 298: C TEST 20 - CONTINUE TEST 02950003 ! 299: C THREE SEPARATE BRANCHES OF AN IF STATEMENT ARE TO 02960003 ! 300: C CONTINUE STATEMENTS. 02970003 ! 301: C 02980003 ! 302: IF (ICZERO) 30200, 200, 30200 02990003 ! 303: 200 CONTINUE 03000003 ! 304: ICON02=-2 03010003 ! 305: IF (ICON02) 204,202,203 03020003 ! 306: 203 CONTINUE 03030003 ! 307: IVON01=203 03040003 ! 308: GO TO 40200 03050003 ! 309: 204 CONTINUE 03060003 ! 310: IVON01 = 204 03070003 ! 311: GO TO 40200 03080003 ! 312: 202 CONTINUE 03090003 ! 313: IVON01=202 03100003 ! 314: GO TO 40200 03110003 ! 315: 30200 IVDELE = IVDELE + 1 03120003 ! 316: WRITE (I02,80003) IVTNUM 03130003 ! 317: IF (ICZERO) 40200, 211, 40200 03140003 ! 318: 40200 IF (IVON01 - 204) 20200,10200,20200 03150003 ! 319: 10200 IVPASS = IVPASS + 1 03160003 ! 320: WRITE (I02,80001) IVTNUM 03170003 ! 321: GO TO 211 03180003 ! 322: 20200 IVFAIL = IVFAIL + 1 03190003 ! 323: IVCOMP=IVON01 03200003 ! 324: IVCORR=204 03210003 ! 325: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 03220003 ! 326: 211 CONTINUE 03230003 ! 327: C 03240003 ! 328: C WRITE PAGE FOOTINGS AND RUN SUMMARIES 03250003 ! 329: 99999 CONTINUE 03260003 ! 330: WRITE (I02,90002) 03270003 ! 331: WRITE (I02,90006) 03280003 ! 332: WRITE (I02,90002) 03290003 ! 333: WRITE (I02,90002) 03300003 ! 334: WRITE (I02,90007) 03310003 ! 335: WRITE (I02,90002) 03320003 ! 336: WRITE (I02,90008) IVFAIL 03330003 ! 337: WRITE (I02,90009) IVPASS 03340003 ! 338: WRITE (I02,90010) IVDELE 03350003 ! 339: C 03360003 ! 340: C 03370003 ! 341: C TERMINATE ROUTINE EXECUTION 03380003 ! 342: STOP 03390003 ! 343: C 03400003 ! 344: C FORMAT STATEMENTS FOR PAGE HEADERS 03410003 ! 345: 90000 FORMAT (1H1) 03420003 ! 346: 90002 FORMAT (1H ) 03430003 ! 347: 90001 FORMAT (1H ,10X,34HFORTRAN COMPILER VALIDATION SYSTEM) 03440003 ! 348: 90003 FORMAT (1H ,21X,11HVERSION 1.0) 03450003 ! 349: 90004 FORMAT (1H ,10X,38HFOR OFFICIAL USE ONLY - COPYRIGHT 1978) 03460003 ! 350: 90005 FORMAT (1H ,5X,4HTEST,5X,9HPASS/FAIL, 5X,8HCOMPUTED,8X,7HCORRECT) 03470003 ! 351: 90006 FORMAT (1H ,5X,46H----------------------------------------------) 03480003 ! 352: 90011 FORMAT (1H ,18X,17HSUBSET LEVEL TEST) 03490003 ! 353: C 03500003 ! 354: C FORMAT STATEMENTS FOR RUN SUMMARIES 03510003 ! 355: 90008 FORMAT (1H ,15X,I5,19H ERRORS ENCOUNTERED) 03520003 ! 356: 90009 FORMAT (1H ,15X,I5,13H TESTS PASSED) 03530003 ! 357: 90010 FORMAT (1H ,15X,I5,14H TESTS DELETED) 03540003 ! 358: C 03550003 ! 359: C FORMAT STATEMENTS FOR TEST RESULTS 03560003 ! 360: 80001 FORMAT (1H ,4X,I5,7X,4HPASS) 03570003 ! 361: 80002 FORMAT (1H ,4X,I5,7X,4HFAIL) 03580003 ! 362: 80003 FORMAT (1H ,4X,I5,7X,7HDELETED) 03590003 ! 363: 80004 FORMAT (1H ,4X,I5,7X,4HFAIL,10X,I6,9X,I6) 03600003 ! 364: 80005 FORMAT (1H ,4X,I5,7X,4HFAIL,4X,E12.5,3X,E12.5) 03610003 ! 365: C 03620003 ! 366: 90007 FORMAT (1H ,20X,20HEND OF PROGRAM FM003) 03630003 ! 367: END 03640003
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.