![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to FM715.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 FM715.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 FM715 00010715 ! 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 00020715 ! 6: C THIS ROUTINE TESTS CHARACTER EXPRESSIONS ANS REF. 00030715 ! 7: C AND CONCATENATION OPERATIONS USING 6.2, 6.2.1, 00040715 ! 8: C ASSIGNMENT STATEMENTS AND RELATIONAL 6.2.2, 6.2.2.2,00050715 ! 9: C EXPRESSIONS. 6.6.5 00060715 ! 10: C 00070715 ! 11: C THIS ROUTINE USES ROUTINES CF716-CF717 AS FUNCTION SUBPROGRAMS. 00080715 ! 12: C 00090715 ! 13: C THE FUNCTION LEN IS ASSUMED WORKING. 00100715 ! 14: C 00110715 ! 15: CBB** ********************** BBCCOMNT **********************************00120715 ! 16: C**** 00130715 ! 17: C**** 1978 FORTRAN COMPILER VALIDATION SYSTEM 00140715 ! 18: C**** VERSION 2.0 00150715 ! 19: C**** 00160715 ! 20: C**** 00170715 ! 21: C**** SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00180715 ! 22: C**** GENERAL SERVICES ADMINISTRATION 00190715 ! 23: C**** FEDERAL SOFTWARE TESTING CENTER 00200715 ! 24: C**** 5203 LEESBURG PIKE, SUITE 1100 00210715 ! 25: C**** FALLS CHURCH, VA. 22041 00220715 ! 26: C**** 00230715 ! 27: C**** (703) 756-6153 00240715 ! 28: C**** 00250715 ! 29: CBE** ********************** BBCCOMNT **********************************00260715 ! 30: IMPLICIT DOUBLE PRECISION (D), COMPLEX (Z), LOGICAL (L) 00270715 ! 31: IMPLICIT CHARACTER*27 (C) 00280715 ! 32: CBB** ********************** BBCINITA **********************************00290715 ! 33: C**** SPECIFICATION STATEMENTS 00300715 ! 34: C**** 00310715 ! 35: CHARACTER ZVERS*13, ZVERSD*17, ZDATE*17, ZPROG*5, ZCOMPL*20, 00320715 ! 36: 1 ZNAME*20, ZTAPE*10, ZPROJ*13, REMRKS*31, ZTAPED*13 00330715 ! 37: CBE** ********************** BBCINITA **********************************00340715 ! 38: C 00350715 ! 39: CHARACTER CVCOMP*65, CVCORR*65, CPN001*5, CPN002*10 00360715 ! 40: CHARACTER CVN001*7, CVN002*35, C2N001(2,2)*6, CF716*10 00370715 ! 41: CHARACTER*(*) CPN003 00380715 ! 42: CHARACTER*2 CVN003, CVN004, CVD005, CF717 00390715 ! 43: PARAMETER (CPN001='PQRST', CPN002='EXPRESSION') 00400715 ! 44: PARAMETER (CPN003='NOW IS THE TIME FOR ALL GOOD MEN') 00410715 ! 45: DATA CVN001 / 'ONE+TWO' / 00420715 ! 46: DATA CVN002 / 'THIS-IS-A-LONG-CHARACTER-STRING' / 00430715 ! 47: DATA C2N001 / 'ABCDEF', 'GHIJKL', 'MNOPQR', 'STUVWX' / 00440715 ! 48: C 00450715 ! 49: C 00460715 ! 50: CBB** ********************** BBCINITB **********************************00470715 ! 51: C**** INITIALIZE SECTION 00480715 ! 52: DATA ZVERS, ZVERSD, ZDATE 00490715 ! 53: 1 /'VERSION 2.0 ', '82/08/02*18.33.46', '*NO DATE*TIME'/ 00500715 ! 54: DATA ZCOMPL, ZNAME, ZTAPE 00510715 ! 55: 1 /'*NONE SPECIFIED*', '*NO COMPANY NAME*', '*NO TAPE*'/ 00520715 ! 56: DATA ZPROJ, ZTAPED, ZPROG 00530715 ! 57: 1 /'*NO PROJECT*', '*NO TAPE DATE', 'XXXXX'/ 00540715 ! 58: DATA REMRKS /' '/ 00550715 ! 59: C**** THE FOLLOWING 9 COMMENT LINES (CZ01, CZ02, ...) CAN BE REPLACED 00560715 ! 60: C**** FOR IDENTIFYING THE TEST ENVIRONMENT 00570715 ! 61: C**** 00580715 ! 62: CZ01 ZVERS = 'VERSION OF THE COMPILER VALIDATION SYSTEM' 00590715 ! 63: CZ02 ZVERSD = 'CREATION DATE/TIME OF THE COMPILER VALIDATION SYSTEM' 00600715 ! 64: CZ03 ZPROG = 'PROGRAM NAME' 00610715 ! 65: ZDATE = '07-Nov-85 ' *RP ! 66: ZCOMPL = 'CCI 5.2 ' *RP ! 67: ZPROJ = 'TC-85- -410' *RP ! 68: ZNAME = ' ' *RP ! 69: ZTAPE = ' ' *RP ! 70: ZTAPED = '850703 ' *RP ! 71: C 00680715 ! 72: IVPASS = 0 00690715 ! 73: IVFAIL = 0 00700715 ! 74: IVDELE = 0 00710715 ! 75: IVINSP = 0 00720715 ! 76: IVTOTL = 0 00730715 ! 77: IVTOTN = 0 00740715 ! 78: ICZERO = 0 00750715 ! 79: C 00760715 ! 80: C I01 CONTAINS THE LOGICAL UNIT NUMBER FOR THE CARD READER. 00770715 ! 81: I01 = 05 00780715 ! 82: C I02 CONTAINS THE LOGICAL UNIT NUMBER FOR THE PRINTER. 00790715 ! 83: I02 = 06 00800715 ! 84: C 00810715 ! 85: I01 = 5 00820715 ! 86: C THE CX010 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I01 = 5 00830715 ! 87: CX011 REPLACED BY FEXEC X-011 CONTROL CARD. CX011 IS FOR SYSTEMS 00840715 ! 88: C REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX010. 00850715 ! 89: C 00860715 ! 90: I02 = 6 00870715 ! 91: C THE CX020 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I02= 6 00880715 ! 92: CX021 REPLACED BY FEXEC X-021 CONTROL CARD. CX021 IS FOR SYSTEMS 00890715 ! 93: C REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX020. 00900715 ! 94: C 00910715 ! 95: CBE** ********************** BBCINITB **********************************00920715 ! 96: ZPROG='FM715' 00930715 ! 97: IVTOTL = 34 00940715 ! 98: CBB** ********************** BBCHED0A **********************************00950715 ! 99: C**** 00960715 ! 100: C**** WRITE REPORT TITLE 00970715 ! 101: C**** 00980715 ! 102: WRITE (I02, 90002) 00990715 ! 103: WRITE (I02, 90006) 01000715 ! 104: WRITE (I02, 90007) 01010715 ! 105: WRITE (I02, 90008) ZVERS, ZVERSD 01020715 ! 106: WRITE (I02, 90009) ZPROG, ZPROG 01030715 ! 107: WRITE (I02, 90010) ZDATE, ZCOMPL 01040715 ! 108: CBE** ********************** BBCHED0A **********************************01050715 ! 109: CBB** ********************** BBCHED0B **********************************01060715 ! 110: C**** WRITE DETAIL REPORT HEADERS 01070715 ! 111: C**** 01080715 ! 112: WRITE (I02,90004) 01090715 ! 113: WRITE (I02,90004) 01100715 ! 114: WRITE (I02,90013) 01110715 ! 115: WRITE (I02,90014) 01120715 ! 116: WRITE (I02,90015) IVTOTL 01130715 ! 117: CBE** ********************** BBCHED0B **********************************01140715 ! 118: C 01150715 ! 119: C TESTS 1-12 - CHARACTER EXPRESSIONS 01160715 ! 120: C 01170715 ! 121: C 01180715 ! 122: CT001* TEST 001 **** FCVS PROGRAM 715 **** 01190715 ! 123: C 01200715 ! 124: C CHARACTER CONSTANT IN AN ASSIGNMENT STATEMENT 01210715 ! 125: C 01220715 ! 126: IVTNUM = 1 01230715 ! 127: CVCOMP = ' ' 01240715 ! 128: IVCOMP = 0 01250715 ! 129: CVCORR = 'CONSTANT' 01260715 ! 130: CVCOMP = 'CONSTANT' 01270715 ! 131: IF (CVCOMP .EQ. 'CONSTANT') IVCOMP = 1 01280715 ! 132: IF (IVCOMP - 1) 20010, 10010, 20010 01290715 ! 133: 10010 IVPASS = IVPASS + 1 01300715 ! 134: WRITE (I02,80002) IVTNUM 01310715 ! 135: GO TO 0011 01320715 ! 136: 20010 IVFAIL = IVFAIL + 1 01330715 ! 137: WRITE (I02,80018) IVTNUM, CVCOMP, CVCORR 01340715 ! 138: 0011 CONTINUE 01350715 ! 139: C 01360715 ! 140: CT002* TEST 002 **** FCVS PROGRAM 715 **** 01370715 ! 141: C 01380715 ! 142: C CHARACTER CONSTANT IN AN IF STATEMENT 01390715 ! 143: C 01400715 ! 144: IVTNUM = 2 01410715 ! 145: IVCOMP = 0 01420715 ! 146: CVCOMP = ' ' 01430715 ! 147: IVCORR = 1 01440715 ! 148: CVCOMP = 'RELATIONAL' 01450715 ! 149: IF (CVCOMP.EQ.'RELATIONAL') IVCOMP = 1 01460715 ! 150: 40020 IF (IVCOMP - 1) 20020, 10020, 20020 01470715 ! 151: 10020 IVPASS = IVPASS + 1 01480715 ! 152: WRITE (I02,80002) IVTNUM 01490715 ! 153: GO TO 0021 01500715 ! 154: 20020 IVFAIL = IVFAIL + 1 01510715 ! 155: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 01520715 ! 156: 0021 CONTINUE 01530715 ! 157: C 01540715 ! 158: CT003* TEST 003 **** FCVS PROGRAM 715 **** 01550715 ! 159: C 01560715 ! 160: C SYMBOLIC NAME OF A CHARACTER CONSTANT IN AN ASSIGNMENT STATEMENT 01570715 ! 161: C 01580715 ! 162: IVTNUM = 3 01590715 ! 163: CVCOMP = ' ' 01600715 ! 164: IVCOMP = 0 01610715 ! 165: CVCORR = 'PQRST' 01620715 ! 166: CVCOMP = CPN001 01630715 ! 167: IF (CVCOMP .EQ. 'PQRST') IVCOMP = 1 01640715 ! 168: IF (IVCOMP - 1) 20030, 10030, 20030 01650715 ! 169: 10030 IVPASS = IVPASS + 1 01660715 ! 170: WRITE (I02,80002) IVTNUM 01670715 ! 171: GO TO 0031 01680715 ! 172: 20030 IVFAIL = IVFAIL + 1 01690715 ! 173: WRITE (I02,80018) IVTNUM, CVCOMP, CVCORR 01700715 ! 174: 0031 CONTINUE 01710715 ! 175: C 01720715 ! 176: CT004* TEST 004 **** FCVS PROGRAM 715 **** 01730715 ! 177: C 01740715 ! 178: C SYMBOLIC NAME OF A CHARACTER CONSTANT IN AN IF STATEMENT 01750715 ! 179: C 01760715 ! 180: IVTNUM = 4 01770715 ! 181: IVCOMP = 0 01780715 ! 182: CVCOMP = ' ' 01790715 ! 183: IVCORR = 1 01800715 ! 184: CVCOMP = 'EXPRESSION' 01810715 ! 185: IF (CVCOMP.EQ.CPN002) IVCOMP = 1 01820715 ! 186: 40040 IF (IVCOMP - 1) 20040, 10040, 20040 01830715 ! 187: 10040 IVPASS = IVPASS + 1 01840715 ! 188: WRITE (I02,80002) IVTNUM 01850715 ! 189: GO TO 0041 01860715 ! 190: 20040 IVFAIL = IVFAIL + 1 01870715 ! 191: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 01880715 ! 192: 0041 CONTINUE 01890715 ! 193: C 01900715 ! 194: CT005* TEST 005 **** FCVS PROGRAM 715 **** 01910715 ! 195: C 01920715 ! 196: C CHARACTER VARIABLE IN AN ASSIGNMENT STATEMENT 01930715 ! 197: C 01940715 ! 198: IVTNUM = 5 01950715 ! 199: CVCOMP = ' ' 01960715 ! 200: IVCOMP = 0 01970715 ! 201: CVCORR = 'ONE+TWO' 01980715 ! 202: CVCOMP = CVN001 01990715 ! 203: IF (CVCOMP .EQ. 'ONE+TWO') IVCOMP = 1 02000715 ! 204: IF (IVCOMP - 1) 20050, 10050, 20050 02010715 ! 205: 10050 IVPASS = IVPASS + 1 02020715 ! 206: WRITE (I02,80002) IVTNUM 02030715 ! 207: GO TO 0051 02040715 ! 208: 20050 IVFAIL = IVFAIL + 1 02050715 ! 209: WRITE (I02,80018) IVTNUM, CVCOMP, CVCORR 02060715 ! 210: 0051 CONTINUE 02070715 ! 211: C 02080715 ! 212: CT006* TEST 006 **** FCVS PROGRAM 715 **** 02090715 ! 213: C 02100715 ! 214: C CHARACTER VARIABLE IN AN IF STATEMENT 02110715 ! 215: C 02120715 ! 216: IVTNUM = 6 02130715 ! 217: IVCOMP = 0 02140715 ! 218: CVCOMP = ' ' 02150715 ! 219: IVCORR = 1 02160715 ! 220: CVCOMP = 'THIS-IS-A-LONG-CHARACTER-STRING' 02170715 ! 221: IF (CVCOMP.EQ.CVN002) IVCOMP = 1 02180715 ! 222: 40060 IF (IVCOMP - 1) 20060, 10060, 20060 02190715 ! 223: 10060 IVPASS = IVPASS + 1 02200715 ! 224: WRITE (I02,80002) IVTNUM 02210715 ! 225: GO TO 0061 02220715 ! 226: 20060 IVFAIL = IVFAIL + 1 02230715 ! 227: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 02240715 ! 228: 0061 CONTINUE 02250715 ! 229: C 02260715 ! 230: CT007* TEST 007 **** FCVS PROGRAM 715 **** 02270715 ! 231: C 02280715 ! 232: C CHARACTER ARRAY ELEMENT REFERENCE IN AN ASSIGNMENT STATEMENT 02290715 ! 233: C 02300715 ! 234: IVTNUM = 7 02310715 ! 235: CVCOMP = ' ' 02320715 ! 236: CVCORR = 'GHIJKL' 02330715 ! 237: IVCOMP = 0 02340715 ! 238: CVCOMP = C2N001(2,1) 02350715 ! 239: IF (CVCOMP .EQ. 'GHIJKL') IVCOMP = 1 02360715 ! 240: IF (IVCOMP - 1) 20070, 10070, 20070 02370715 ! 241: 10070 IVPASS = IVPASS + 1 02380715 ! 242: WRITE (I02,80002) IVTNUM 02390715 ! 243: GO TO 0071 02400715 ! 244: 20070 IVFAIL = IVFAIL + 1 02410715 ! 245: WRITE (I02,80018) IVTNUM, CVCOMP, CVCORR 02420715 ! 246: 0071 CONTINUE 02430715 ! 247: C 02440715 ! 248: CT008* TEST 008 **** FCVS PROGRAM 715 **** 02450715 ! 249: C 02460715 ! 250: C CHARACTER ARRAY ELEMENT REFERENCE IN AN IF STATEMENT 02470715 ! 251: C 02480715 ! 252: IVTNUM = 8 02490715 ! 253: CVCOMP = ' ' 02500715 ! 254: IVCOMP = 0 02510715 ! 255: IVCORR = 1 02520715 ! 256: CVCOMP = 'MNOPQR' 02530715 ! 257: IF (CVCOMP.EQ.C2N001(1,2)) IVCOMP = 1 02540715 ! 258: 40080 IF (IVCOMP - 1) 20080, 10080, 20080 02550715 ! 259: 10080 IVPASS = IVPASS + 1 02560715 ! 260: WRITE (I02,80002) IVTNUM 02570715 ! 261: GO TO 0081 02580715 ! 262: 20080 IVFAIL = IVFAIL + 1 02590715 ! 263: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 02600715 ! 264: 0081 CONTINUE 02610715 ! 265: C 02620715 ! 266: CT009* TEST 009 **** FCVS PROGRAM 715 **** 02630715 ! 267: C 02640715 ! 268: C SUBSTRING REFERENCE IN AN ASSIGNMENT STATEMENT 02650715 ! 269: C 02660715 ! 270: IVTNUM = 9 02670715 ! 271: CVCOMP = ' ' 02680715 ! 272: IVCOMP = 0 02690715 ! 273: CVCORR = 'CTER-STRIN' 02700715 ! 274: CVCOMP = CVN002(21:30) 02710715 ! 275: IF (CVCOMP .EQ. 'CTER-STRIN') IVCOMP = 1 02720715 ! 276: IF (IVCOMP - 1) 20090, 10090, 20090 02730715 ! 277: 10090 IVPASS = IVPASS + 1 02740715 ! 278: WRITE (I02,80002) IVTNUM 02750715 ! 279: GO TO 0091 02760715 ! 280: 20090 IVFAIL = IVFAIL + 1 02770715 ! 281: WRITE (I02,80018) IVTNUM, CVCOMP, CVCORR 02780715 ! 282: 0091 CONTINUE 02790715 ! 283: C 02800715 ! 284: CT010* TEST 010 **** FCVS PROGRAM 715 **** 02810715 ! 285: C 02820715 ! 286: C SUBSTRING REFERENCE IN AN IF STATEMENT 02830715 ! 287: C 02840715 ! 288: IVTNUM = 10 02850715 ! 289: IVCOMP = 0 02860715 ! 290: CVCOMP = ' ' 02870715 ! 291: IVCORR = 1 02880715 ! 292: CVCOMP = 'A-LONG-CHA' 02890715 ! 293: IF (CVCOMP.EQ.CVN002(9:18)) IVCOMP = 1 02900715 ! 294: 40100 IF (IVCOMP - 1) 20100, 10100, 20100 02910715 ! 295: 10100 IVPASS = IVPASS + 1 02920715 ! 296: WRITE (I02,80002) IVTNUM 02930715 ! 297: GO TO 0101 02940715 ! 298: 20100 IVFAIL = IVFAIL + 1 02950715 ! 299: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 02960715 ! 300: 0101 CONTINUE 02970715 ! 301: C 02980715 ! 302: CT011* TEST 011 **** FCVS PROGRAM 715 **** 02990715 ! 303: C 03000715 ! 304: C CHARACTER FUNCTION REFERENCE IN AN ASSIGNMENT STATEMENT 03010715 ! 305: C 03020715 ! 306: IVTNUM = 11 03030715 ! 307: CVCOMP = ' ' 03040715 ! 308: IVCOMP = 0 03050715 ! 309: CVCORR = 'FIRST AID' 03060715 ! 310: CVCOMP = CF716(1) 03070715 ! 311: IF (CVCOMP .EQ. 'FIRST AID') IVCOMP = 1 03080715 ! 312: IF (IVCOMP - 1) 20110, 10110, 20110 03090715 ! 313: 10110 IVPASS = IVPASS + 1 03100715 ! 314: WRITE (I02,80002) IVTNUM 03110715 ! 315: GO TO 0111 03120715 ! 316: 20110 IVFAIL = IVFAIL + 1 03130715 ! 317: WRITE (I02,80018) IVTNUM, CVCOMP, CVCORR 03140715 ! 318: 0111 CONTINUE 03150715 ! 319: C 03160715 ! 320: CT012* TEST 012 **** FCVS PROGRAM 715 **** 03170715 ! 321: C 03180715 ! 322: C CHARACTER FUNCTION REFERENCE IN AN IF STATEMENT 03190715 ! 323: C 03200715 ! 324: IVTNUM = 12 03210715 ! 325: IVCOMP = 0 03220715 ! 326: CVCOMP = ' ' 03230715 ! 327: IVCORR = 1 03240715 ! 328: CVCOMP = 'SECONDRATE' 03250715 ! 329: IF (CVCOMP.EQ.CF716(2)) IVCOMP = 1 03260715 ! 330: 40120 IF (IVCOMP - 1) 20120, 10120, 20120 03270715 ! 331: 10120 IVPASS = IVPASS + 1 03280715 ! 332: WRITE (I02,80002) IVTNUM 03290715 ! 333: GO TO 0121 03300715 ! 334: 20120 IVFAIL = IVFAIL + 1 03310715 ! 335: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 03320715 ! 336: 0121 CONTINUE 03330715 ! 337: C 03340715 ! 338: C TESTS 13-30 CONCATENATION OPERATIONS 03350715 ! 339: C 03360715 ! 340: C 03370715 ! 341: CT013* TEST 013 **** FCVS PROGRAM 715 **** 03380715 ! 342: C 03390715 ! 343: C CONCATENATE TWO CHARACTER CONSTANTS IN AN ASSIGNMENT STATEMENT 03400715 ! 344: C 03410715 ! 345: IVTNUM = 13 03420715 ! 346: CVCOMP = ' ' 03430715 ! 347: IVCOMP = 0 03440715 ! 348: CVCORR = 'ABCUVWXYZ' 03450715 ! 349: CVCOMP = 'ABC'//'UVWXYZ' 03460715 ! 350: IF (CVCOMP .EQ. 'ABCUVWXYZ') IVCOMP = 1 03470715 ! 351: IF (IVCOMP - 1) 20130, 10130, 20130 03480715 ! 352: 10130 IVPASS = IVPASS + 1 03490715 ! 353: WRITE (I02,80002) IVTNUM 03500715 ! 354: GO TO 0131 03510715 ! 355: 20130 IVFAIL = IVFAIL + 1 03520715 ! 356: WRITE (I02,80018) IVTNUM, CVCOMP, CVCORR 03530715 ! 357: 0131 CONTINUE 03540715 ! 358: C 03550715 ! 359: CT014* TEST 014 **** FCVS PROGRAM 715 **** 03560715 ! 360: C 03570715 ! 361: C CONCATENATE TWO CHARACTER CONSTANTS IN AN IF STATEMENT 03580715 ! 362: C 03590715 ! 363: IVTNUM = 14 03600715 ! 364: IVCOMP = 0 03610715 ! 365: CVCOMP = ' ' 03620715 ! 366: IVCORR = 1 03630715 ! 367: CVCOMP = 'THIS-IS-IT' 03640715 ! 368: IF (CVCOMP .EQ.'THIS-I'//'S-IT') IVCOMP = 1 03650715 ! 369: 40140 IF (IVCOMP - 1) 20140, 10140, 20140 03660715 ! 370: 10140 IVPASS = IVPASS + 1 03670715 ! 371: WRITE (I02,80002) IVTNUM 03680715 ! 372: GO TO 0141 03690715 ! 373: 20140 IVFAIL = IVFAIL + 1 03700715 ! 374: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 03710715 ! 375: 0141 CONTINUE 03720715 ! 376: C 03730715 ! 377: CT015* TEST 015 **** FCVS PROGRAM 715 **** 03740715 ! 378: C 03750715 ! 379: C CONCATENATE A SYMBOLIC NAME OF A CHARACTER CONSTANT WITH A LITERAL03760715 ! 380: C STRING IN AN ASSIGNMENT STATEMENT 03770715 ! 381: C 03780715 ! 382: IVTNUM = 15 03790715 ! 383: CVCOMP = ' ' 03800715 ! 384: IVCOMP = 0 03810715 ! 385: CVCORR = 'PQRSTUVWXYZ' 03820715 ! 386: CVCOMP = CPN001//'UVWXYZ' 03830715 ! 387: IF (CVCOMP .EQ. 'PQRSTUVWXYZ') IVCOMP = 1 03840715 ! 388: IF (IVCOMP - 1) 20150, 10150, 20150 03850715 ! 389: 10150 IVPASS = IVPASS + 1 03860715 ! 390: WRITE (I02,80002) IVTNUM 03870715 ! 391: GO TO 0151 03880715 ! 392: 20150 IVFAIL = IVFAIL + 1 03890715 ! 393: WRITE (I02,80018) IVTNUM, CVCOMP, CVCORR 03900715 ! 394: 0151 CONTINUE 03910715 ! 395: C 03920715 ! 396: CT016* TEST 016 **** FCVS PROGRAM 715 **** 03930715 ! 397: C 03940715 ! 398: C CONCATENATE A SYMBOLIC NAME OF A CHARACTER CONSTANT WITH A LITERAL03950715 ! 399: C STRING IN AN IF STATEMENT 03960715 ! 400: C 03970715 ! 401: IVTNUM = 16 03980715 ! 402: CVCOMP = ' ' 03990715 ! 403: IVCOMP = 0 04000715 ! 404: IVCORR = 1 04010715 ! 405: CVCOMP = 'USEFUL-EXPRESSION' 04020715 ! 406: IF (CVCOMP.EQ.'USEFUL-'//CPN002) IVCOMP = 1 04030715 ! 407: 40160 IF (IVCOMP - 1) 20160, 10160, 20160 04040715 ! 408: 10160 IVPASS = IVPASS + 1 04050715 ! 409: WRITE (I02,80002) IVTNUM 04060715 ! 410: GO TO 0161 04070715 ! 411: 20160 IVFAIL = IVFAIL + 1 04080715 ! 412: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 04090715 ! 413: 0161 CONTINUE 04100715 ! 414: C 04110715 ! 415: CT017* TEST 017 **** FCVS PROGRAM 715 **** 04120715 ! 416: C 04130715 ! 417: C CONCATENATE A CHARACTER VARIABLE WITH A LITERAL STRING IN AN 04140715 ! 418: C ASSIGNMENT STATEMENT 04150715 ! 419: C 04160715 ! 420: IVTNUM = 17 04170715 ! 421: CVCOMP = ' ' 04180715 ! 422: IVCOMP = 0 04190715 ! 423: CVCORR = 'ONE+TWO+THREE' 04200715 ! 424: CVCOMP = CVN001//'+THREE' 04210715 ! 425: IF (CVCOMP .EQ. 'ONE+TWO+THREE') IVCOMP = 1 04220715 ! 426: IF (IVCOMP - 1) 20170, 10170, 20170 04230715 ! 427: 10170 IVPASS = IVPASS + 1 04240715 ! 428: WRITE (I02,80002) IVTNUM 04250715 ! 429: GO TO 0171 04260715 ! 430: 20170 IVFAIL = IVFAIL + 1 04270715 ! 431: WRITE (I02,80018) IVTNUM, CVCOMP, CVCORR 04280715 ! 432: 0171 CONTINUE 04290715 ! 433: C 04300715 ! 434: CT018* TEST 018 **** FCVS PROGRAM 715 **** 04310715 ! 435: C 04320715 ! 436: C CONCATENATE A CHARACTER VARIABLE WITH A LITERAL STRING IN AN 04330715 ! 437: C IF STATEMENT 04340715 ! 438: C 04350715 ! 439: IVTNUM = 18 04360715 ! 440: CVCOMP = ' ' 04370715 ! 441: IVCOMP = 0 04380715 ! 442: IVCORR = 1 04390715 ! 443: CVCOMP = 'ZERO+ONE+TWO' 04400715 ! 444: IF (CVCOMP.EQ.'ZERO+'//CVN001) IVCOMP = 1 04410715 ! 445: 40180 IF (IVCOMP - 1) 20180, 10180, 20180 04420715 ! 446: 10180 IVPASS = IVPASS + 1 04430715 ! 447: WRITE (I02,80002) IVTNUM 04440715 ! 448: GO TO 0181 04450715 ! 449: 20180 IVFAIL = IVFAIL + 1 04460715 ! 450: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 04470715 ! 451: 0181 CONTINUE 04480715 ! 452: C 04490715 ! 453: CT019* TEST 019 **** FCVS PROGRAM 715 **** 04500715 ! 454: C 04510715 ! 455: C CONCATENATE A CHARACTER ARRAY ELEMENT WITH A LITERAL STRING IN AN 04520715 ! 456: C ASSIGNMENT STATEMENT 04530715 ! 457: C 04540715 ! 458: IVTNUM = 19 04550715 ! 459: CVCOMP = ' ' 04560715 ! 460: IVCOMP = 0 04570715 ! 461: CVCORR = 'STUVWXYZ-END' 04580715 ! 462: CVCOMP = C2N001(2,2)//'YZ-END' 04590715 ! 463: IF (CVCOMP .EQ. 'STUVWXYZ-END') IVCOMP = 1 04600715 ! 464: IF (IVCOMP - 1) 20190, 10190, 20190 04610715 ! 465: 10190 IVPASS = IVPASS + 1 04620715 ! 466: WRITE (I02,80002) IVTNUM 04630715 ! 467: GO TO 0191 04640715 ! 468: 20190 IVFAIL = IVFAIL + 1 04650715 ! 469: WRITE (I02,80018) IVTNUM, CVCOMP, CVCORR 04660715 ! 470: 0191 CONTINUE 04670715 ! 471: C 04680715 ! 472: CT020* TEST 020 **** FCVS PROGRAM 715 **** 04690715 ! 473: C 04700715 ! 474: C CONCATENATE A CHARACTER ARRAY ELEMENT WITH A LITERAL STRING IN AN 04710715 ! 475: C IF STATEMENT 04720715 ! 476: C 04730715 ! 477: IVTNUM = 20 04740715 ! 478: CVCOMP = ' ' 04750715 ! 479: IVCOMP = 0 04760715 ! 480: IVCORR = 1 04770715 ! 481: CVCOMP = 'BEGIN-ABCDEF' 04780715 ! 482: IF (CVCOMP.EQ.'BEGIN-'//C2N001(1,1)) IVCOMP = 1 04790715 ! 483: 40200 IF (IVCOMP - 1) 20200, 10200, 20200 04800715 ! 484: 10200 IVPASS = IVPASS + 1 04810715 ! 485: WRITE (I02,80002) IVTNUM 04820715 ! 486: GO TO 0201 04830715 ! 487: 20200 IVFAIL = IVFAIL + 1 04840715 ! 488: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 04850715 ! 489: 0201 CONTINUE 04860715 ! 490: C 04870715 ! 491: CT021* TEST 021 **** FCVS PROGRAM 715 **** 04880715 ! 492: C 04890715 ! 493: C CONCATENATE SPECIAL CHARACTERS IN AN ASSIGNMENT STATEMENT 04900715 ! 494: C 04910715 ! 495: IVTNUM = 21 04920715 ! 496: CVCOMP = ' ' 04930715 ! 497: IVCOMP = 0 04940715 ! 498: CVCORR = '=+-*/(),.$'':' 04950715 ! 499: CVCOMP = '=+-*/('//'),.$'':' 04960715 ! 500: IF (CVCOMP .EQ. '=+-*/(),.$'':') IVCOMP = 1 04970715 ! 501: IF (IVCOMP - 1) 20210, 10210, 20210 04980715 ! 502: 10210 IVPASS = IVPASS + 1 04990715 ! 503: WRITE (I02,80002) IVTNUM 05000715 ! 504: GO TO 0211 05010715 ! 505: 20210 IVFAIL = IVFAIL + 1 05020715 ! 506: WRITE (I02,80018) IVTNUM, CVCOMP, CVCORR 05030715 ! 507: 0211 CONTINUE 05040715 ! 508: C 05050715 ! 509: CT022* TEST 022 **** FCVS PROGRAM 715 **** 05060715 ! 510: C 05070715 ! 511: C CONCATENATE SPECIAL CHARACTERS IN AN IF STATEMENT 05080715 ! 512: C 05090715 ! 513: IVTNUM = 22 05100715 ! 514: IVCOMP = 0 05110715 ! 515: CVCOMP = ' ' 05120715 ! 516: IVCORR = 1 05130715 ! 517: CVCOMP = '=(A/B+C):(-''D'')' 05140715 ! 518: IF (CVCOMP.EQ.'=(A/'//'B+C):(-''D'')') IVCOMP = 1 05150715 ! 519: 40220 IF (IVCOMP - 1) 20220, 10220, 20220 05160715 ! 520: 10220 IVPASS = IVPASS + 1 05170715 ! 521: WRITE (I02,80002) IVTNUM 05180715 ! 522: GO TO 0221 05190715 ! 523: 20220 IVFAIL = IVFAIL + 1 05200715 ! 524: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 05210715 ! 525: 0221 CONTINUE 05220715 ! 526: C 05230715 ! 527: C TESTS 23-24 - TESTS THE INTRINSIC FUNCTION LEN(E) WHERE THE 05240715 ! 528: C ARGUMENT IS A CHARACTER EXPRESSION 05250715 ! 529: C 05260715 ! 530: C 05270715 ! 531: CT023* TEST 023 **** FCVS PROGRAM 715 **** 05280715 ! 532: C 05290715 ! 533: C 05300715 ! 534: IVTNUM = 23 05310715 ! 535: IVCOMP = 0 05320715 ! 536: IVCORR = 15 05330715 ! 537: IVCOMP = LEN(CVN001//'EIGHTEEN') 05340715 ! 538: 40230 IF (IVCOMP - 15) 20230, 10230, 20230 05350715 ! 539: 10230 IVPASS = IVPASS + 1 05360715 ! 540: WRITE (I02,80002) IVTNUM 05370715 ! 541: GO TO 0231 05380715 ! 542: 20230 IVFAIL = IVFAIL + 1 05390715 ! 543: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 05400715 ! 544: 0231 CONTINUE 05410715 ! 545: C 05420715 ! 546: CT024* TEST 024 **** FCVS PROGRAM 715 **** 05430715 ! 547: C 05440715 ! 548: C 05450715 ! 549: IVTNUM = 24 05460715 ! 550: IVCOMP = 0 05470715 ! 551: IVCORR = 30 05480715 ! 552: IVCOMP = LEN('THIS-IS-A-LITERAL-STRING'//C2N001(1,2)) 05490715 ! 553: 40240 IF (IVCOMP - 30) 20240, 10240, 20240 05500715 ! 554: 10240 IVPASS = IVPASS + 1 05510715 ! 555: WRITE (I02,80002) IVTNUM 05520715 ! 556: GO TO 0241 05530715 ! 557: 20240 IVFAIL = IVFAIL + 1 05540715 ! 558: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 05550715 ! 559: 0241 CONTINUE 05560715 ! 560: C 05570715 ! 561: CT025* TEST 025 **** FCVS PROGRAM 715 **** 05580715 ! 562: C 05590715 ! 563: C CONCATENATE A SUBSTRING WITH A LITERAL STRING IN AN ASSIGNMENT 05600715 ! 564: C STATEMENT 05610715 ! 565: C 05620715 ! 566: IVTNUM = 25 05630715 ! 567: CVCOMP = ' ' 05640715 ! 568: IVCOMP = 0 05650715 ! 569: CVCORR = 'IS-A-LONG-ARRAY' 05660715 ! 570: CVCOMP = CVN002(6:15)//'ARRAY' 05670715 ! 571: IF (CVCOMP .EQ. 'IS-A-LONG-ARRAY') IVCOMP = 1 05680715 ! 572: IF (IVCOMP - 1) 20250, 10250, 20250 05690715 ! 573: 10250 IVPASS = IVPASS + 1 05700715 ! 574: WRITE (I02,80002) IVTNUM 05710715 ! 575: GO TO 0251 05720715 ! 576: 20250 IVFAIL = IVFAIL + 1 05730715 ! 577: WRITE (I02,80018) IVTNUM, CVCOMP, CVCORR 05740715 ! 578: 0251 CONTINUE 05750715 ! 579: C 05760715 ! 580: CT026* TEST 026 **** FCVS PROGRAM 715 **** 05770715 ! 581: C 05780715 ! 582: C CONCATENATE A SUBSTRING WITH A LITERAL STRING IN AN IF 05790715 ! 583: C STATEMENT 05800715 ! 584: C 05810715 ! 585: IVTNUM = 26 05820715 ! 586: IVCOMP = 0 05830715 ! 587: CVCOMP = ' ' 05840715 ! 588: IVCORR = 1 05850715 ! 589: CVCOMP = 'A-LONG-CHARTER-PLANE' 05860715 ! 590: IF (CVCOMP.EQ.CVN002(9:19)//'TER-PLANE') IVCOMP = 1 05870715 ! 591: 40260 IF (IVCOMP - 1) 20260, 10260, 20260 05880715 ! 592: 10260 IVPASS = IVPASS + 1 05890715 ! 593: WRITE (I02,80002) IVTNUM 05900715 ! 594: GO TO 0261 05910715 ! 595: 20260 IVFAIL = IVFAIL + 1 05920715 ! 596: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 05930715 ! 597: 0261 CONTINUE 05940715 ! 598: C 05950715 ! 599: CT027* TEST 027 **** FCVS PROGRAM 715 **** 05960715 ! 600: C 05970715 ! 601: C CONCATENATE A CHARACTER FUNCTION REFERENCE WITH A LITERAL STRING 05980715 ! 602: C 05990715 ! 603: IVTNUM = 27 06000715 ! 604: CVCOMP = ' ' 06010715 ! 605: IVCOMP = 0 06020715 ! 606: CVCORR = 'THIRDCLASSMAIL' 06030715 ! 607: CVCOMP = CF716(3)//'MAIL' 06040715 ! 608: IF (CVCOMP .EQ. 'THIRDCLASSMAIL') IVCOMP = 1 06050715 ! 609: IF (IVCOMP - 1) 20270, 10270, 20270 06060715 ! 610: 10270 IVPASS = IVPASS + 1 06070715 ! 611: WRITE (I02,80002) IVTNUM 06080715 ! 612: GO TO 0271 06090715 ! 613: 20270 IVFAIL = IVFAIL + 1 06100715 ! 614: WRITE (I02,80018) IVTNUM, CVCOMP, CVCORR 06110715 ! 615: 0271 CONTINUE 06120715 ! 616: C 06130715 ! 617: CT028* TEST 028 **** FCVS PROGRAM 715 **** 06140715 ! 618: C 06150715 ! 619: C CONCATENATE A CHARACTER ARRAY ELEMENT WITH A CHARACTER FUNCTION RE06160715 ! 620: C 06170715 ! 621: IVTNUM = 28 06180715 ! 622: CVCOMP = ' ' 06190715 ! 623: IVCOMP = 0 06200715 ! 624: CVCORR = 'MNOPQRFIRST AID' 06210715 ! 625: CVCOMP = C2N001(1,2)//CF716(1) 06220715 ! 626: IF (CVCOMP .EQ. 'MNOPQRFIRST AID') IVCOMP = 1 06230715 ! 627: IF (IVCOMP - 1) 20280, 10280, 20280 06240715 ! 628: 10280 IVPASS = IVPASS + 1 06250715 ! 629: WRITE (I02,80002) IVTNUM 06260715 ! 630: GO TO 0281 06270715 ! 631: 20280 IVFAIL = IVFAIL + 1 06280715 ! 632: WRITE (I02,80018) IVTNUM, CVCOMP, CVCORR 06290715 ! 633: 0281 CONTINUE 06300715 ! 634: C 06310715 ! 635: CT029* TEST 029 **** FCVS PROGRAM 715 **** 06320715 ! 636: C 06330715 ! 637: C CONCATENATE A CHARACTER SUBSTRING WITH A CHARACTER FUNCTION REFERE06340715 ! 638: C 06350715 ! 639: IVTNUM = 29 06360715 ! 640: CVCOMP = ' ' 06370715 ! 641: IVCOMP = 0 06380715 ! 642: CVCORR = 'G-CHARACSECONDRATE' 06390715 ! 643: CVCOMP = CVN002(14:21)//CF716(2) 06400715 ! 644: IF (CVCOMP .EQ. 'G-CHARACSECONDRATE') IVCOMP = 1 06410715 ! 645: IF (IVCOMP - 1) 20290, 10290, 20290 06420715 ! 646: 10290 IVPASS = IVPASS + 1 06430715 ! 647: WRITE (I02,80002) IVTNUM 06440715 ! 648: GO TO 0291 06450715 ! 649: 20290 IVFAIL = IVFAIL + 1 06460715 ! 650: WRITE (I02,80018) IVTNUM, CVCOMP, CVCORR 06470715 ! 651: 0291 CONTINUE 06480715 ! 652: C 06490715 ! 653: CT030* TEST 030 **** FCVS PROGRAM 715 **** 06500715 ! 654: C 06510715 ! 655: C CONCATENATIONS ON BOTH SIDES OF ".EQ." IN AN IF STATEMENT 06520715 ! 656: C 06530715 ! 657: IVTNUM = 30 06540715 ! 658: IVCOMP = 0 06550715 ! 659: IVCORR = 1 06560715 ! 660: CVN002 = 'STTHIRDCLASS' 06570715 ! 661: IF (CPN001//CF716(3).EQ.C2N001(1,2)(4:6)//CVN002) IVCOMP = 1 06580715 ! 662: 40300 IF (IVCOMP - 1) 20300, 10300, 20300 06590715 ! 663: 10300 IVPASS = IVPASS + 1 06600715 ! 664: WRITE (I02,80002) IVTNUM 06610715 ! 665: GO TO 0301 06620715 ! 666: 20300 IVFAIL = IVFAIL + 1 06630715 ! 667: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 06640715 ! 668: 0301 CONTINUE 06650715 ! 669: C 06660715 ! 670: CT031* TEST 031 **** FCVS PROGRAM 715 **** 06670715 ! 671: C 06680715 ! 672: C CONCATENATE A LITERAL WITH A SYMBOLIC NAME OF A CHARACTER CONSTANT06690715 ! 673: C LENGTH IS SPECIFIED BY AN ASTERISK WITH A LITERAL 06700715 ! 674: C 06710715 ! 675: IVTNUM = 31 06720715 ! 676: IVCOMP = 0 06730715 ! 677: CVCOMP = ' ' 06740715 ! 678: IVCORR = 1 06750715 ! 679: CVCOMP = 'NOW IS THE TIME FOR ALL GOOD MENTO COME TO THE AID OF TH06760715 ! 680: 1EIR PARTY' 06770715 ! 681: IF (CVCOMP.EQ.CPN003//'TO COME TO THE AID OF THEIR PARTY') 06780715 ! 682: 1 IVCOMP = 1 06790715 ! 683: 40310 IF (IVCOMP - 1) 20310, 10310, 20310 06800715 ! 684: 10310 IVPASS = IVPASS + 1 06810715 ! 685: WRITE (I02,80002) IVTNUM 06820715 ! 686: GO TO 0311 06830715 ! 687: 20310 IVFAIL = IVFAIL + 1 06840715 ! 688: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 06850715 ! 689: 0311 CONTINUE 06860715 ! 690: C 06870715 ! 691: CT032* TEST 032 **** FCVS PROGRAM 715 **** 06880715 ! 692: C 06890715 ! 693: C CHARACTER EXPRESSION CONCATENATED WITH CHARACTER PRIMARY 06900715 ! 694: C 06910715 ! 695: IVTNUM = 32 06920715 ! 696: IVCOMP = 0 06930715 ! 697: CVCOMP = ' ' 06940715 ! 698: CVCORR = ' ' 06950715 ! 699: IVCORR = 1 06960715 ! 700: CVCOMP = ('ONE'//'TWO')//'THREE' 06970715 ! 701: CVCORR = 'ONE'//'TWO'//'THREE' 06980715 ! 702: IF (CVCOMP.EQ.CVCORR) IVCOMP = 1 06990715 ! 703: 40320 IF (IVCOMP - 1) 20320, 10320, 20320 07000715 ! 704: 10320 IVPASS = IVPASS + 1 07010715 ! 705: WRITE (I02,80002) IVTNUM 07020715 ! 706: GO TO 0321 07030715 ! 707: 20320 IVFAIL = IVFAIL + 1 07040715 ! 708: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 07050715 ! 709: 0321 CONTINUE 07060715 ! 710: C 07070715 ! 711: C TESTS 33-34 - EVALUATION OF CHARACTER EXPRESSIONS 07080715 ! 712: C (PROCESSOR NEEDS TO EVALUATE ONLY AS MUCH OF THE CHARACTER 07090715 ! 713: C EXPRESSION AS IS REQUIRED BY THE CONTEXT IN WHICH THE 07100715 ! 714: C EXPRESSION APPEARS) 07110715 ! 715: C 07120715 ! 716: C 07130715 ! 717: CT033* TEST 033 **** FCVS PROGRAM 715 **** 07140715 ! 718: C 07150715 ! 719: C 07160715 ! 720: IVTNUM = 33 07170715 ! 721: CVCOMP = ' ' 07180715 ! 722: IVCOMP = 0 07190715 ! 723: CVCORR = 'AB' 07200715 ! 724: CVN003 = 'ABC' 07210715 ! 725: CVCOMP = CVN003 07220715 ! 726: IF (CVCOMP .EQ. 'AB') IVCOMP = 1 07230715 ! 727: IF (IVCOMP - 1) 20330, 10330, 20330 07240715 ! 728: 10330 IVPASS = IVPASS + 1 07250715 ! 729: WRITE (I02,80002) IVTNUM 07260715 ! 730: GO TO 0331 07270715 ! 731: 20330 IVFAIL = IVFAIL + 1 07280715 ! 732: WRITE (I02,80018) IVTNUM, CVCOMP, CVCORR 07290715 ! 733: 0331 CONTINUE 07300715 ! 734: C 07310715 ! 735: CT034* TEST 034 **** FCVS PROGRAM 715 **** 07320715 ! 736: C 07330715 ! 737: C 07340715 ! 738: IVTNUM = 34 07350715 ! 739: CVCOMP = ' ' 07360715 ! 740: IVCOMP = 0 07370715 ! 741: CVCORR = 'LO' 07380715 ! 742: CVN004 = 'LONG' 07390715 ! 743: CVD005 = 'SHORT' 07400715 ! 744: CVN003 = CVN004//CF717(CVD005) 07410715 ! 745: CVCOMP = CVN003 07420715 ! 746: IF (CVCOMP .EQ. 'LO') IVCOMP = 1 07430715 ! 747: IF (IVCOMP - 1) 20340, 10340, 20340 07440715 ! 748: 10340 IVPASS = IVPASS + 1 07450715 ! 749: WRITE (I02,80002) IVTNUM 07460715 ! 750: GO TO 0341 07470715 ! 751: 20340 IVFAIL = IVFAIL + 1 07480715 ! 752: WRITE (I02,80018) IVTNUM, CVCOMP, CVCORR 07490715 ! 753: 0341 CONTINUE 07500715 ! 754: C 07510715 ! 755: CBB** ********************** BBCSUM0 **********************************07520715 ! 756: C**** WRITE OUT TEST SUMMARY 07530715 ! 757: C**** 07540715 ! 758: IVTOTN = IVPASS + IVFAIL + IVDELE + IVINSP 07550715 ! 759: WRITE (I02, 90004) 07560715 ! 760: WRITE (I02, 90014) 07570715 ! 761: WRITE (I02, 90004) 07580715 ! 762: WRITE (I02, 90020) IVPASS 07590715 ! 763: WRITE (I02, 90022) IVFAIL 07600715 ! 764: WRITE (I02, 90024) IVDELE 07610715 ! 765: WRITE (I02, 90026) IVINSP 07620715 ! 766: WRITE (I02, 90028) IVTOTN, IVTOTL 07630715 ! 767: CBE** ********************** BBCSUM0 **********************************07640715 ! 768: CBB** ********************** BBCFOOT0 **********************************07650715 ! 769: C**** WRITE OUT REPORT FOOTINGS 07660715 ! 770: C**** 07670715 ! 771: WRITE (I02,90016) ZPROG, ZPROG 07680715 ! 772: WRITE (I02,90018) ZPROJ, ZNAME, ZTAPE, ZTAPED 07690715 ! 773: WRITE (I02,90019) 07700715 ! 774: CBE** ********************** BBCFOOT0 **********************************07710715 ! 775: 90001 FORMAT (1H ,56X,5HFM715) 07720715 ! 776: 90000 FORMAT (1H ,50X,20HEND OF PROGRAM FM715) 07730715 ! 777: CBB** ********************** BBCFMT0A **********************************07740715 ! 778: C**** FORMATS FOR TEST DETAIL LINES 07750715 ! 779: C**** 07760715 ! 780: 80000 FORMAT (1H ,2X,I3,4X,7HDELETED,32X,A31) 07770715 ! 781: 80002 FORMAT (1H ,2X,I3,4X,7H PASS ,32X,A31) 07780715 ! 782: 80004 FORMAT (1H ,2X,I3,4X,7HINSPECT,32X,A31) 07790715 ! 783: 80008 FORMAT (1H ,2X,I3,4X,7H FAIL ,32X,A31) 07800715 ! 784: 80010 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,15X,10HCOMPUTED= , 07810715 ! 785: 1I6,/,1H ,15X,10HCORRECT= ,I6) 07820715 ! 786: 80012 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 07830715 ! 787: 1E12.5,/,1H ,16X,10HCORRECT= ,E12.5) 07840715 ! 788: 80018 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 07850715 ! 789: 1A21,/,1H ,16X,10HCORRECT= ,A21) 07860715 ! 790: 80020 FORMAT (1H ,16X,10HCOMPUTED= ,A21,1X,A31) 07870715 ! 791: 80022 FORMAT (1H ,16X,10HCORRECT= ,A21,1X,A31) 07880715 ! 792: 80024 FORMAT (1H ,16X,10HCOMPUTED= ,I6,16X,A31) 07890715 ! 793: 80026 FORMAT (1H ,16X,10HCORRECT= ,I6,16X,A31) 07900715 ! 794: 80028 FORMAT (1H ,16X,10HCOMPUTED= ,E12.5,10X,A31) 07910715 ! 795: 80030 FORMAT (1H ,16X,10HCORRECT= ,E12.5,10X,A31) 07920715 ! 796: 80050 FORMAT (1H ,48X,A31) 07930715 ! 797: CBE** ********************** BBCFMT0A **********************************07940715 ! 798: CBB** ********************** BBCFMAT1 **********************************07950715 ! 799: C**** FORMATS FOR TEST DETAIL LINES - FULL LANGUAGE 07960715 ! 800: C**** 07970715 ! 801: 80031 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 07980715 ! 802: 1D17.10,/,1H ,16X,10HCORRECT= ,D17.10) 07990715 ! 803: 80033 FORMAT (1H ,16X,10HCOMPUTED= ,D17.10,10X,A31) 08000715 ! 804: 80035 FORMAT (1H ,16X,10HCORRECT= ,D17.10,10X,A31) 08010715 ! 805: 80037 FORMAT (1H ,16X,10HCOMPUTED= ,1H(,E12.5,2H, ,E12.5,1H),6X,A31) 08020715 ! 806: 80039 FORMAT (1H ,16X,10HCORRECT= ,1H(,E12.5,2H, ,E12.5,1H),6X,A31) 08030715 ! 807: 80041 FORMAT (1H ,16X,10HCOMPUTED= ,1H(,F12.5,2H, ,F12.5,1H),6X,A31) 08040715 ! 808: 80043 FORMAT (1H ,16X,10HCORRECT= ,1H(,F12.5,2H, ,F12.5,1H),6X,A31) 08050715 ! 809: 80045 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 08060715 ! 810: 11H(,F12.5,2H, ,F12.5,1H)/,1H ,16X,10HCORRECT= , 08070715 ! 811: 21H(,F12.5,2H, ,F12.5,1H)) 08080715 ! 812: CBE** ********************** BBCFMAT1 **********************************08090715 ! 813: CBB** ********************** BBCFMT0B **********************************08100715 ! 814: C**** FORMAT STATEMENTS FOR PAGE HEADERS 08110715 ! 815: C**** 08120715 ! 816: 90002 FORMAT (1H1) 08130715 ! 817: 90004 FORMAT (1H ) 08140715 ! 818: 90006 FORMAT (1H ,20X,31HFEDERAL SOFTWARE TESTING CENTER) 08150715 ! 819: 90007 FORMAT (1H ,19X,34HFORTRAN COMPILER VALIDATION SYSTEM) 08160715 ! 820: 90008 FORMAT (1H ,21X,A13,A17) 08170715 ! 821: 90009 FORMAT (1H ,/,2H *,A5,6HBEGIN*,12X,15HTEST RESULTS - ,A5,/) 08180715 ! 822: 90010 FORMAT (1H ,8X,16HTEST DATE*TIME= ,A17,15H - COMPILER= ,A20) 08190715 ! 823: 90013 FORMAT (1H ,8H TEST ,10HPASS/FAIL ,6X,17HDISPLAYED RESULTS, 08200715 ! 824: 1 7X,7HREMARKS,24X) 08210715 ! 825: 90014 FORMAT (1H ,46H----------------------------------------------, 08220715 ! 826: 1 33H---------------------------------) 08230715 ! 827: 90015 FORMAT (1H ,48X,17HTHIS PROGRAM HAS ,I3,6H TESTS,/) 08240715 ! 828: C**** 08250715 ! 829: C**** FORMAT STATEMENTS FOR REPORT FOOTINGS 08260715 ! 830: C**** 08270715 ! 831: 90016 FORMAT (1H ,/,2H *,A5,4HEND*,14X,14HEND OF TEST - ,A5,/) 08280715 ! 832: 90018 FORMAT (1H ,A13,13X,A20,7H * ,A10,1H/, 08290715 ! 833: 1 A13) 08300715 ! 834: 90019 FORMAT (1H ,26HFOR OFFICIAL USE ONLY ,35X,15HCOPYRIGHT 1982) 08310715 ! 835: C**** 08320715 ! 836: C**** FORMAT STATEMENTS FOR RUN SUMMARY 08330715 ! 837: C**** 08340715 ! 838: 90020 FORMAT (1H ,21X,I5,13H TESTS PASSED) 08350715 ! 839: 90022 FORMAT (1H ,21X,I5,13H TESTS FAILED) 08360715 ! 840: 90024 FORMAT (1H ,21X,I5,14H TESTS DELETED) 08370715 ! 841: 90026 FORMAT (1H ,21X,I5,25H TESTS REQUIRE INSPECTION) 08380715 ! 842: 90028 FORMAT (1H ,21X,I5,4H OF ,I3,15H TESTS EXECUTED) 08390715 ! 843: CBE** ********************** BBCFMT0B **********************************08400715 ! 844: END 08410715 ! 845: C THIS FUNCTION SUBPROGRAM IS TO BE RUN WITH ROUTINE 715. 00010716 ! 846: C DATE***82/08/02*18.33.46 ! 847: C OWNER PRE/850703/TC-85- -410/ /FSTC/278FCVS*F78UBP20/ ! 848: C AUDIT FCVS78 V2.0 ! 849: C 00020716 ! 850: C THIS FUNCTION SUBPROGRAM IS USED TO TEST CHARACTER FUNCTION 00030716 ! 851: C REFERENCES IN CHARACTER EXPRESSIONS 00040716 ! 852: C 00050716 ! 853: CHARACTER*10 FUNCTION CF716(IVD001) 00060716 ! 854: IF (IVD001 - 2) 70010, 70020, 70030 00070716 ! 855: 70010 CF716 = 'FIRST AID' 00080716 ! 856: RETURN 00090716 ! 857: 70020 CF716 = 'SECONDRATE' 00100716 ! 858: RETURN 00110716 ! 859: 70030 CF716 = 'THIRDCLASS' 00120716 ! 860: RETURN 00130716 ! 861: END 00140716 ! 862: C THIS FUNCTION SUBPROGRAM IS TO BE RUN WITH ROUTINE 715. 00010717 ! 863: C DATE***82/08/02*18.33.46 ! 864: C OWNER PRE/850703/TC-85- -410/ /FSTC/278FCVS*F78UBP20/ ! 865: C AUDIT FCVS78 V2.0 ! 866: C 00020717 ! 867: C THIS FUNCTION SUBPROGRAM IS USED TO TEST CHARACTER FUNCTION 00030717 ! 868: C REFERENCES IN CHARACTER EXPRESSIONS 00040717 ! 869: C 00050717 ! 870: CHARACTER*(*) FUNCTION CF717(CVD001) 00060717 ! 871: CHARACTER*(*) CVD001 00070717 ! 872: CF717 = CVD001 00080717 ! 873: RETURN 00090717 ! 874: END 00100717
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.