![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to FM010.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 FM010.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. 00010010 ! 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 00020010 ! 6: C FM010 00030010 ! 7: C 00040010 ! 8: C THIS ROUTINE TESTS REFERENCE FORMAT OF FORTRAN STATEMENTS 00050010 ! 9: C AND STATEMENT NUMBERS. THE USE OF THE BLANK CHARACTER IS TESTED 00060010 ! 10: C BOTH WITHIN THE STATEMENT NUMBER FIELD AND WITHIN THE FORTRAN 00070010 ! 11: C STATEMENTS THEMSELVES. LEADING ZERO IS TESTED FOR STATEMENTS AND 00080010 ! 12: C INTEGER CONSTANTS. VARIABLE NAMES WHICH LOOK VERY MUCH LIKE 00090010 ! 13: C FORTRAN RESERVED WORDS ARE TESTED IN ARITHMETIC ASSIGNMENT 00100010 ! 14: C STATEMENTS. NAMING CONVENTIONS USED THROUGHOUT THE FCVS ARE 00110010 ! 15: C TESTED ALSO IN ARITHMETIC ASSIGNMENT STATEMENTS. 00120010 ! 16: C 00130010 ! 17: C REFERENCES 00140010 ! 18: C AMERICAN NATIONAL STANDARD PROGRAMMING LANGUAGE FORTRAN, 00150010 ! 19: C X3.9-1978 00160010 ! 20: C 00170010 ! 21: C SECTION 2.5, VARIABLES 00180010 ! 22: C SECTION 3.1.6, BLANK CHARACTER 00190010 ! 23: C SECTION 3.2.2, INITIAL LINES 00200010 ! 24: C SECTION 3.4, STATEMENT LABELS 00210010 ! 25: C 00220010 ! 26: C 00230010 ! 27: C ********************************************************** 00240010 ! 28: C 00250010 ! 29: C A COMPILER VALIDATION SYSTEM FOR THE FORTRAN LANGUAGE 00260010 ! 30: C BASED ON SPECIFICATIONS AS DEFINED IN AMERICAN NATIONAL STANDARD 00270010 ! 31: C PROGRAMMING LANGUAGE FORTRAN X3.9-1978, HAS BEEN DEVELOPED BY THE 00280010 ! 32: C FEDERAL COBOL COMPILER TESTING SERVICE. THE FORTRAN COMPILER 00290010 ! 33: C VALIDATION SYSTEM (FCVS) CONSISTS OF AUDIT ROUTINES, THEIR RELATED00300010 ! 34: C DATA, AND AN EXECUTIVE SYSTEM. EACH AUDIT ROUTINE IS A FORTRAN 00310010 ! 35: C PROGRAM, SUBPROGRAM OR FUNCTION WHICH INCLUDES TESTS OF SPECIFIC 00320010 ! 36: C LANGUAGE ELEMENTS AND SUPPORTING PROCEDURES INDICATING THE RESULT 00330010 ! 37: C OF EXECUTING THESE TESTS. 00340010 ! 38: C 00350010 ! 39: C THIS PARTICULAR PROGRAM/SUBPROGRAM/FUNCTION CONTAINS FEATURES 00360010 ! 40: C FOUND ONLY IN THE SUBSET AS DEFINED IN X3.9-1978. 00370010 ! 41: C 00380010 ! 42: C SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO - 00390010 ! 43: C 00400010 ! 44: C DEPARTMENT OF THE NAVY 00410010 ! 45: C FEDERAL COBOL COMPILER TESTING SERVICE 00420010 ! 46: C WASHINGTON, D.C. 20376 00430010 ! 47: C 00440010 ! 48: C ********************************************************** 00450010 ! 49: C 00460010 ! 50: C 00470010 ! 51: C 00480010 ! 52: C INITIALIZATION SECTION 00490010 ! 53: C 00500010 ! 54: C INITIALIZE CONSTANTS 00510010 ! 55: C ************** 00520010 ! 56: C I01 CONTAINS THE LOGICAL UNIT NUMBER FOR THE CARD READER. 00530010 ! 57: I01 = 5 00540010 ! 58: C I02 CONTAINS THE LOGICAL UNIT NUMBER FOR THE PRINTER. 00550010 ! 59: I02 = 6 00560010 ! 60: C SYSTEM ENVIRONMENT SECTION 00570010 ! 61: C 00580010 ! 62: I01 = 5 00590010 ! 63: C THE CX010 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I01 = 5 00600010 ! 64: C (UNIT NUMBER FOR CARD READER). 00610010 ! 65: CX011 THIS CARD IS REPLACED BY CONTENTS OF FEXEC X-011 CONTROL CARD. 00620010 ! 66: C THE CX011 CARD IS FOR SYSTEMS WHICH REQUIRE ADDITIONAL 00630010 ! 67: C FORTRAN STATEMENTS FOR FILES ASSOCIATED WITH CX010 ABOVE. 00640010 ! 68: C 00650010 ! 69: I02 = 6 00660010 ! 70: C THE CX020 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I02 = 6 00670010 ! 71: C (UNIT NUMBER FOR PRINTER). 00680010 ! 72: CX021 THIS CARD IS REPLACED BY CONTENTS OF FEXEC X-021 CONTROL CARD. 00690010 ! 73: C THE CX021 CARD IS FOR SYSTEMS WHICH REQUIRE ADDITIONAL 00700010 ! 74: C FORTRAN STATEMENTS FOR FILES ASSOCIATED WITH CX020 ABOVE. 00710010 ! 75: C 00720010 ! 76: IVPASS=0 00730010 ! 77: IVFAIL=0 00740010 ! 78: IVDELE=0 00750010 ! 79: ICZERO=0 00760010 ! 80: C 00770010 ! 81: C WRITE PAGE HEADERS 00780010 ! 82: WRITE (I02,90000) 00790010 ! 83: WRITE (I02,90001) 00800010 ! 84: WRITE (I02,90002) 00810010 ! 85: WRITE (I02, 90002) 00820010 ! 86: WRITE (I02,90003) 00830010 ! 87: WRITE (I02,90002) 00840010 ! 88: WRITE (I02,90004) 00850010 ! 89: WRITE (I02,90002) 00860010 ! 90: WRITE (I02,90011) 00870010 ! 91: WRITE (I02,90002) 00880010 ! 92: WRITE (I02,90002) 00890010 ! 93: WRITE (I02,90005) 00900010 ! 94: WRITE (I02,90006) 00910010 ! 95: WRITE (I02,90002) 00920010 ! 96: 1001 CONTINUE 00930010 ! 97: IVTNUM = 100 00940010 ! 98: C 00950010 ! 99: C **** TEST 100 **** 00960010 ! 100: C 00970010 ! 101: C TEST 100 - TO CHECK THE VARIOUS COMBINATIONS OF FORMING VARIABLE00980010 ! 102: C NAMES. THESE ARE ACTUALLY SYMBOLIC NAMES (ANSI X3.9-1978 00990010 ! 103: C SECTION 2.2). THIS IS BASICALLY A SYNTAX CHECK USING A 01000010 ! 104: C COMBINATION OF FROM ONE TO SIX ALPHANUMERIC CHARACTERS WITH 01010010 ! 105: C THE FIRST CHARACTER ALWAYS ALPHABETIC. REFERENCE FORMAT IS 01020010 ! 106: C ALSO CHECKED BY HAVING EACH ASSIGNMENT STATEMENT AN INITIAL 01030010 ! 107: C LINE (SECTION 3.2.2). THIS MEANS ZERO MAY APPEAR IN COLUMN 01040010 ! 108: C SIX WITHOUT EFFECT, THAT LINES MAY BEGIN ANYWHERE FROM 01050010 ! 109: C COLUMN SEVEN TO COLUMN 72, AND BLANKS MAY BE USED FREELY 01060010 ! 110: C WITHOUT MEANING (3.1.6 BLANK CHARACTERS). 01070010 ! 111: C 01080010 ! 112: IF (ICZERO) 31000, 1000, 31000 01090010 ! 113: 1000 CONTINUE 01100010 ! 114: A=1. 01110010 ! 115: B =2. 01120010 ! 116: C =3. 01130010 ! 117: D =4. 01140010 ! 118: E =5. 01150010 ! 119: F =6. 01160010 ! 120: 0G = 7. 01170010 ! 121: H=8. 01180010 ! 122: I=901190010 ! 123: J = 10 01200010 ! 124: K = 11 01210010 ! 125: L = 1201220010 ! 126: 0M=13 01230010 ! 127: N=14 01240010 ! 128: O=15. 01250010 ! 129: P=16. 01260010 ! 130: Q=17. 01270010 ! 131: R=18. 01280010 ! 132: S=19. 01290010 ! 133: T=20. 01300010 ! 134: U=21. 01310010 ! 135: V=22. 01320010 ! 136: W=23. 01330010 ! 137: X=24. 01340010 ! 138: Y=25. 01350010 ! 139: Z=26. 01360010 ! 140: AAAAAA=27. 01370010 ! 141: BBBBB=28. 01380010 ! 142: CCCC=29. 01390010 ! 143: DDD=30 01400010 ! 144: EE=31. 01410010 ! 145: F0=32. 01420010 ! 146: G12=33. 01430010 ! 147: H345 = 34. 01440010 ! 148: I6789 = 35 01450010 ! 149: J01234 = 36 01460010 ! 150: K 5 6 78 9=37 01470010 ! 151: L 2 L 2 L 2 =38 01480010 ! 152: M 3 M 3 M3 = 3901490010 ! 153: N 40 = 4 001500010 ! 154: 0 OMY = 4 1.01510010 ! 155: I PM H = 4 201520010 ! 156: GO TO 1 = 4 3. 01530010 ! 157: IF 3 = 44 01540010 ! 158: DO 3 = 53. 01550010 ! 159: CALL FL =62. 01560010 ! 160: TYPE I = 63. 01570010 ! 161: TRUE =71. 01580010 ! 162: FALSE = 72. 01590010 ! 163: GO TO 41000 01600010 ! 164: 31000 IVDELE = IVDELE + 1 01610010 ! 165: WRITE (I02,80003) IVTNUM 01620010 ! 166: IF (ICZERO) 41000, 1011, 41000 01630010 ! 167: 41000 IF (IPMH - 42) 21000,11000,21000 01640010 ! 168: 11000 IVPASS = IVPASS + 1 01650010 ! 169: WRITE (I02,80001) IVTNUM 01660010 ! 170: GO TO 1011 01670010 ! 171: 21000 IVFAIL = IVFAIL + 1 01680010 ! 172: IVCOMP = IPMH 01690010 ! 173: IVCORR = 42 01700010 ! 174: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 01710010 ! 175: 1011 CONTINUE 01720010 ! 176: IVTNUM = 101 01730010 ! 177: C 01740010 ! 178: C **** TEST 101 **** 01750010 ! 179: C TEST 101 - CHECKS THE FCVS NAMING CONVENTIONS FOR INTEGER AND 01760010 ! 180: C REAL VARIABLES IN ASSIGNMENT STATEMENTS: VARIABLE = CONSTANT01770010 ! 181: C BASICALLY A SYNTAX CHECK ON SIX CHARACTER VARIABLE NAMES. 01780010 ! 182: C 01790010 ! 183: IF (ICZERO) 31010, 1010, 31010 01800010 ! 184: 1010 CONTINUE 01810010 ! 185: IACE11 = 1 01820010 ! 186: IACE21 = 2 01830010 ! 187: IACE31 = 3 01840010 ! 188: IACN11 = 4 01850010 ! 189: IADN11 = 5 01860010 ! 190: IATE31 = 6 01870010 ! 191: RACE11 = 7. 01880010 ! 192: RACE21 = 8. 01890010 ! 193: RACN31 = 9. 01900010 ! 194: RADE31 = 10. 01910010 ! 195: IVTE69 = 11 01920010 ! 196: IVON78 = 12 01930010 ! 197: RVTNAZ = 13. 01940010 ! 198: RVOEZ9 = 14. 01950010 ! 199: ICTE96 = 15 01960010 ! 200: ICON84 = 16 01970010 ! 201: RCON48 = 17. 01980010 ! 202: RCTE54 = 18. 01990010 ! 203: IDONY4 = 19 02000010 ! 204: IDOEB6 = 20 02010010 ! 205: RDON46 = 21. 02020010 ! 206: IFONS3 = 22 02030010 ! 207: RFON77 = 23. 02040010 ! 208: GO TO 41010 02050010 ! 209: 31010 IVDELE = IVDELE + 1 02060010 ! 210: WRITE (I02,80003) IVTNUM 02070010 ! 211: IF (ICZERO) 41010, 1021, 41010 02080010 ! 212: 41010 IF (IVTE69 - 11) 21010,11010,21010 02090010 ! 213: 11010 IVPASS = IVPASS + 1 02100010 ! 214: WRITE (I02,80001) IVTNUM 02110010 ! 215: GO TO 1021 02120010 ! 216: 21010 IVFAIL = IVFAIL + 1 02130010 ! 217: IVCOMP = IVTE69 02140010 ! 218: IVCORR = 11 02150010 ! 219: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 02160010 ! 220: 1021 CONTINUE 02170010 ! 221: IVTNUM = 102 02180010 ! 222: C 02190010 ! 223: C **** TEST 102 **** 02200010 ! 224: C TEST 102 - REFERENCE FORMAT CHECK ON STATEMENT LABELS (SECTION 02210010 ! 225: C 3.4). THESE ARE NON-ZERO INTEGERS, FROM 1 TO 5 DIGITS, 02220010 ! 226: C MAY BEGIN ANYWHERE FROM COLS. 1 TO 5, AND LEADING ZEROS ARE 02230010 ! 227: C NOT SIGNIFICANT. BLANKS WILL BE IMBEDDED IN SOME OF THE 02240010 ! 228: C STATEMENT LABELS AND THESE SHOULD HAVE NO EFFECT. THE 02250010 ! 229: C CONTINUE STATEMENT (SECTION 11.11) IS USED FOR THIS TEST. 02260010 ! 230: C A BASIC FCVS ASSUMPTION IS THAT THE LOGIC WILL FALL THRU A 02270010 ! 231: C SERIES OF CONTINUE STATEMENTS (NORMAL EXECUTION SEQUENCE). 02280010 ! 232: C 02290010 ! 233: IF (ICZERO) 31020, 1020, 31020 02300010 ! 234: 1020 CONTINUE 02310010 ! 235: 1 CONTINUE 02320010 ! 236: 2 CONTINUE 02330010 ! 237: 3 CONTINUE 02340010 ! 238: 4 CONTINUE 02350010 ! 239: 5 CONTINUE 02360010 ! 240: 06 CONTINUE 02370010 ! 241: 007 CONTINUE 02380010 ! 242: 0008 CONTINUE 02390010 ! 243: 00009 CONTINUE 02400010 ! 244: 010 CONTINUE 02410010 ! 245: 1 1 CONTINUE 02420010 ! 246: 0 12 CONTINUE 02430010 ! 247: 0 1 3 CONTINUE 02440010 ! 248: 00 14 CONTINUE 02450010 ! 249: 0 15 CONTINUE 02460010 ! 250: 0 016 CONTINUE 02470010 ! 251: 100 CONTINUE 02480010 ! 252: 1 0 1 CONTINUE 02490010 ! 253: 10 2 IVON01 = 1 02500010 ! 254: 1 03 CONTINUE 02510010 ! 255: 1 04 CONTINUE 02520010 ! 256: 01 05 CONTINUE 02530010 ! 257: 010 6 CONTINUE 02540010 ! 258: 0107 CONTINUE 02550010 ! 259: 00108 CONTINUE 02560010 ! 260: 1 1 1 CONTINUE 02570010 ! 261: 1 111 CONTINUE 02580010 ! 262: 99 CONTINUE 02590010 ! 263: 9 9 9 CONTINUE 02600010 ! 264: 99 99 CONTINUE 02610010 ! 265: GO TO 41020 02620010 ! 266: 31020 IVDELE = IVDELE + 1 02630010 ! 267: WRITE (I02,80003) IVTNUM 02640010 ! 268: IF (ICZERO) 41020, 1031, 41020 02650010 ! 269: 41020 IF (IVON01 - 1) 21020,11020,21020 02660010 ! 270: 11020 IVPASS = IVPASS + 1 02670010 ! 271: WRITE (I02,80001) IVTNUM 02680010 ! 272: GO TO 1031 02690010 ! 273: 21020 IVFAIL = IVFAIL + 1 02700010 ! 274: IVCOMP = IVON01 02710010 ! 275: IVCORR = 1 02720010 ! 276: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 02730010 ! 277: 1031 CONTINUE 02740010 ! 278: C 02750010 ! 279: C WRITE PAGE FOOTINGS AND RUN SUMMARIES 02760010 ! 280: 99999 CONTINUE 02770010 ! 281: WRITE (I02,90002) 02780010 ! 282: WRITE (I02,90006) 02790010 ! 283: WRITE (I02,90002) 02800010 ! 284: WRITE (I02,90002) 02810010 ! 285: WRITE (I02,90007) 02820010 ! 286: WRITE (I02,90002) 02830010 ! 287: WRITE (I02,90008) IVFAIL 02840010 ! 288: WRITE (I02,90009) IVPASS 02850010 ! 289: WRITE (I02,90010) IVDELE 02860010 ! 290: C 02870010 ! 291: C 02880010 ! 292: C TERMINATE ROUTINE EXECUTION 02890010 ! 293: STOP 02900010 ! 294: C 02910010 ! 295: C FORMAT STATEMENTS FOR PAGE HEADERS 02920010 ! 296: 90000 FORMAT (1H1) 02930010 ! 297: 90002 FORMAT (1H ) 02940010 ! 298: 90001 FORMAT (1H ,10X,34HFORTRAN COMPILER VALIDATION SYSTEM) 02950010 ! 299: 90003 FORMAT (1H ,21X,11HVERSION 1.0) 02960010 ! 300: 90004 FORMAT (1H ,10X,38HFOR OFFICIAL USE ONLY - COPYRIGHT 1978) 02970010 ! 301: 90005 FORMAT (1H ,5X,4HTEST,5X,9HPASS/FAIL, 5X,8HCOMPUTED,8X,7HCORRECT) 02980010 ! 302: 90006 FORMAT (1H ,5X,46H----------------------------------------------) 02990010 ! 303: 90011 FORMAT (1H ,18X,17HSUBSET LEVEL TEST) 03000010 ! 304: C 03010010 ! 305: C FORMAT STATEMENTS FOR RUN SUMMARIES 03020010 ! 306: 90008 FORMAT (1H ,15X,I5,19H ERRORS ENCOUNTERED) 03030010 ! 307: 90009 FORMAT (1H ,15X,I5,13H TESTS PASSED) 03040010 ! 308: 90010 FORMAT (1H ,15X,I5,14H TESTS DELETED) 03050010 ! 309: C 03060010 ! 310: C FORMAT STATEMENTS FOR TEST RESULTS 03070010 ! 311: 80001 FORMAT (1H ,4X,I5,7X,4HPASS) 03080010 ! 312: 80002 FORMAT (1H ,4X,I5,7X,4HFAIL) 03090010 ! 313: 80003 FORMAT (1H ,4X,I5,7X,7HDELETED) 03100010 ! 314: 80004 FORMAT (1H ,4X,I5,7X,4HFAIL,10X,I6,9X,I6) 03110010 ! 315: 80005 FORMAT (1H ,4X,I5,7X,4HFAIL,4X,E12.5,3X,E12.5) 03120010 ! 316: C 03130010 ! 317: 90007 FORMAT (1H ,20X,20HEND OF PROGRAM FM010) 03140010 ! 318: END 03150010
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.