![[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.