![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to FM205.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 FM205.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 FM205 00010205
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 00020205
6: C 00030205
7: C THE ROUTINE FM205 TESTS CHARACTER CONSTANTS, CHARACTER 00040205
8: C VARIABLES, AND CHARACTER ARRAY ELEMENTS WITH A MAXIMUM LENGTH 00050205
9: C OF 57 CHARACTERS. CHARACTER ASSIGNMENT STATEMENTS AND CHARACTER 00060205
10: C RELATIONAL EXPRESSIONS OF THE FOLLOWING STATEMENT FORMS ARE 00070205
11: C TESTED IN THIS ROUTINE. 00080205
12: C 00090205
13: C (1) CHARACTER ASSIGNMENT STATEMENTS 00100205
14: C 00110205
15: C CHARACTER VARIABLE = CHARACTER CONSTANT, 00120205
16: C CHARACTER VARIABLE = CHARACTER VARIABLE, 00130205
17: C CHARACTER ARRAY ELEMENT = CHARACTER CONSTANT, 00140205
18: C CHARACTER ARRAY ELEMENT = CHARACTER VARIABLE, 00150205
19: C CHARACTER ARRAY ELEMENT = CHARACTER ARRAY ELEMENT, 00160205
20: C CHARACTER VARIABLE = CHARACTER ARRAY ELEMENT. 00170205
21: C 00180205
22: C THE CHARACTER ENTITIES IN AN ASSIGNMENT STATEMENT ARE THE 00190205
23: C SAME LENGTH. 00200205
24: C 00210205
25: C (2) CHARACTER RELATIONAL EXPRESSIONS 00220205
26: C 00230205
27: C CHARACTER VARIABLE RELOP CHARACTER CONSTANT, 00240205
28: C CHARACTER VARIABLE RELOP CHARACTER VARIABLE, 00250205
29: C CHARACTER ARRAY ELEMENT RELOP CHARACTER CONSTANT, 00260205
30: C CHARACTER ARRAY ELEMENT RELOP CHARACTER VARIABLE, 00270205
31: C CHARACTER ARRAY ELEMENT RELOP CHAR. ARRAY ELEMENT. 00280205
32: C 00290205
33: C THE CHARACTER ENTITIES IN A RELATIONAL EXPRESSION ARE THE 00300205
34: C SAME LENGTH. 00310205
35: C 00320205
36: C REFERENCES 00330205
37: C AMERICAN NATIONAL STANDARD PROGRAMMING LANGUAGE FORTRAN, 00340205
38: C X3.9-1978. 00350205
39: C 00360205
40: C SECTION 4.8, CHARACTER TYPE 00370205
41: C SECTION 4.8.1, CHARACTER CONSTANT 00380205
42: C SECTION 6.2, CHARACTER EXPRESSIONS 00390205
43: C SECTION 6.3.4, CHARACTER RELATIONAL EXPRESSION 00400205
44: C SECTION 6.3.5, INTERPRETATION OF CHARACTER RELATIONAL 00410205
45: C EXPRESSIONS 00420205
46: C SECTION 8.4,2, CHARACTER TYPE-STATEMENT 00430205
47: C SECTION 10.4, CHARACTER ASSIGNMENT STATEMENT 00440205
48: C 00450205
49: C 00460205
50: C ******************************************************************00470205
51: C A COMPILER VALIDATION SYSTEM FOR THE FORTRAN LANGUAGE 00480205
52: C BASED ON SPECIFICATIONS AS DEFINED IN AMERICAN STANDARD FORTRAN 00490205
53: C X3.9-1978, HAS BEEN DEVELOPED BY THE DEPARTMENT OF THE NAVY. THE 00500205
54: C FORTRAN COMPILER VALIDATION SYSTEM (FCVS) CONSISTS OF AUDIT 00510205
55: C ROUTINES, THEIR RELATED DATA, AND AN EXECUTIVE SYSTEM. EACH AUDIT00520205
56: C ROUTINE IS A FORTRAN PROGRAM OR SUBPROGRAM WHICH INCLUDES TESTS 00530205
57: C OF SPECIFIC LANGUAGE ELEMENTS AND SUPPORTING PROCEDURES INDICATING00540205
58: C THE RESULT OF EXECUTING THESE TESTS. 00550205
59: C 00560205
60: C THIS PARTICULAR PROGRAM OR SUBPROGRAM CONTAINS ONLY FEATURES 00570205
61: C FOUND IN THE SUBSET LEVEL OF THE STANDARD. 00580205
62: C 00590205
63: C SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00600205
64: C DEPARTMENT OF THE NAVY 00610205
65: C FEDERAL COBOL COMPILER TESTING SERVICE 00620205
66: C WASHINGTON, D.C. 20376 00630205
67: C 00640205
68: C ******************************************************************00650205
69: C 00660205
70: C 00670205
71: IMPLICIT LOGICAL (L) 00680205
72: IMPLICIT CHARACTER*14 (C) 00690205
73: C 00700205
74: CHARACTER CVTN01*3,CVTN02*7,CVTN03*12 00710205
75: CHARACTER CVTN04*25,CVTN05*41,CVTN06*57 00720205
76: CHARACTER CVTN07*3,CVTN08*7,CVTN09*12 00730205
77: CHARACTER CVTN10*25,CVTN11*41,CVTN12*57 00740205
78: CHARACTER CATN11(6)*3,CATN12(7)*7,CATN13(3)*12 00750205
79: CHARACTER CATN14(2)*25,CATN15(10)*41,CATN16(4)*57 00760205
80: C 00770205
81: C 00780205
82: C 00790205
83: C INITIALIZATION SECTION. 00800205
84: C 00810205
85: C INITIALIZE CONSTANTS 00820205
86: C ******************** 00830205
87: C I01 CONTAINS THE LOGICAL UNIT NUMBER FOR THE CARD READER 00840205
88: I01 = 5 00850205
89: C I02 CONTAINS THE LOGICAL UNIT NUMBER FOR THE PRINTER 00860205
90: I02 = 6 00870205
91: C SYSTEM ENVIRONMENT SECTION 00880205
92: C 00890205
93: I01 = 5 00900205
94: C THE CX010 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I01 = 5 00910205
95: C (UNIT NUMBER FOR CARD READER). 00920205
96: CX011 THIS CARD IS REPLACED BY CONTENTS OF FEXEC X-011 CONTROL CARD00930205
97: C THE CX011 CARD IS FOR SYSTEMS WHICH REQUIRE ADDITIONAL 00940205
98: C FORTRAN STATEMENTS FOR FILES ASSOCIATED WITH CX010 ABOVE. 00950205
99: C 00960205
100: I02 = 6 00970205
101: C THE CX020 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I02 = 6 00980205
102: C (UNIT NUMBER FOR PRINTER). 00990205
103: CX021 THIS CARD IS PEPLACED BY CONTENTS OF FEXEC X-021 CONTROL CARD.01000205
104: C THE CX021 CARD IS FOR SYSTEMS WHICH REQUIRE ADDITIONAL 01010205
105: C FORTRAN STATEMENTS FOR FILES ASSOCIATED WITH CX020 ABOVE. 01020205
106: C 01030205
107: IVPASS = 0 01040205
108: IVFAIL = 0 01050205
109: IVDELE = 0 01060205
110: ICZERO = 0 01070205
111: C 01080205
112: C WRITE OUT PAGE HEADERS 01090205
113: C 01100205
114: WRITE (I02,90002) 01110205
115: WRITE (I02,90006) 01120205
116: WRITE (I02,90008) 01130205
117: WRITE (I02,90004) 01140205
118: WRITE (I02,90010) 01150205
119: WRITE (I02,90004) 01160205
120: WRITE (I02,90016) 01170205
121: WRITE (I02,90001) 01180205
122: WRITE (I02,90004) 01190205
123: WRITE (I02,90012) 01200205
124: WRITE (I02,90014) 01210205
125: WRITE (I02,90004) 01220205
126: C 01230205
127: C 01240205
128: C TEST 87 THROUGH TEST 92 VERIFY THE CHARACTER ASSIGNMENT 01250205
129: C STATEMENT 01260205
130: C 01270205
131: C CHARACTER VARIABLE = CHARACTER CONSTANT 01280205
132: C 01290205
133: C IS CORRECT. THE VARIABLE AND CONSTANT ARE THE SAME LENGTH, AND 01300205
134: C THE LENGTHS 3, 7, 12, 25, 41, AND 57 ARE USED IN THESE TESTS. 01310205
135: C 01320205
136: C 01330205
137: C **** FCVS PROGRAM 205 - TEST 087 **** 01340205
138: C 01350205
139: C 01360205
140: IVTNUM = 87 01370205
141: IF (ICZERO) 30870, 0870, 30870 01380205
142: 0870 CONTINUE 01390205
143: IVCOMP = 0 01400205
144: CVTN01 = 'ABC' 01410205
145: IF (CVTN01 .EQ. 'ABC') IVCOMP = 1 01420205
146: IVCORR = 1 01430205
147: 40870 IF (IVCOMP - 1) 20870, 10870, 20870 01440205
148: 30870 IVDELE = IVDELE + 1 01450205
149: WRITE (I02,80000) IVTNUM 01460205
150: IF (ICZERO) 10870, 0881, 20870 01470205
151: 10870 IVPASS = IVPASS + 1 01480205
152: WRITE (I02,80002) IVTNUM 01490205
153: GO TO 0881 01500205
154: 20870 IVFAIL = IVFAIL + 1 01510205
155: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 01520205
156: 0881 CONTINUE 01530205
157: C 01540205
158: C **** FCVS PROGRAM 205 - TEST 088 **** 01550205
159: C 01560205
160: C 01570205
161: IVTNUM = 88 01580205
162: IF (ICZERO) 30880, 0880, 30880 01590205
163: 0880 CONTINUE 01600205
164: IVCOMP = 0 01610205
165: IVCORR = 1 01620205
166: CVTN02 = 'ABCDEFG' 01630205
167: IF (CVTN02 .EQ. 'ABCDEFG') IVCOMP = 1 01640205
168: 40880 IF (IVCOMP - 1) 20880, 10880, 20880 01650205
169: 30880 IVDELE = IVDELE + 1 01660205
170: WRITE (I02,80000) IVTNUM 01670205
171: IF (ICZERO) 10880, 0891, 20880 01680205
172: 10880 IVPASS = IVPASS + 1 01690205
173: WRITE (I02,80002) IVTNUM 01700205
174: GO TO 0891 01710205
175: 20880 IVFAIL = IVFAIL + 1 01720205
176: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 01730205
177: 0891 CONTINUE 01740205
178: C 01750205
179: C **** FCVS PROGRAM 205 - TEST 089 **** 01760205
180: C 01770205
181: C 01780205
182: IVTNUM = 89 01790205
183: IF (ICZERO) 30890, 0890, 30890 01800205
184: 0890 CONTINUE 01810205
185: IVCOMP = 0 01820205
186: IVCORR = 1 01830205
187: CVTN03 = 'ABCDEFGHIJKL' 01840205
188: IF (CVTN03 .EQ. 'ABCDEFGHIJKL') IVCOMP = 1 01850205
189: 40890 IF (IVCOMP - 1) 20890, 10890, 20890 01860205
190: 30890 IVDELE = IVDELE + 1 01870205
191: WRITE (I02,80000) IVTNUM 01880205
192: IF (ICZERO) 10890, 0901, 20890 01890205
193: 10890 IVPASS = IVPASS + 1 01900205
194: WRITE (I02,80002) IVTNUM 01910205
195: GO TO 0901 01920205
196: 20890 IVFAIL = IVFAIL + 1 01930205
197: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 01940205
198: 0901 CONTINUE 01950205
199: C 01960205
200: C **** FCVS PROGRAM 205 - TEST 090 **** 01970205
201: C 01980205
202: C 01990205
203: IVTNUM = 90 02000205
204: IF (ICZERO) 30900, 0900, 30900 02010205
205: 0900 CONTINUE 02020205
206: IVCOMP = 0 02030205
207: IVCORR = 1 02040205
208: CVTN04 = 'ABCDEFGHIJKLMNOPQRSTUVWXY' 02050205
209: IF (CVTN04 .EQ. 'ABCDEFGHIJKLMNOPQRSTUVWXY') IVCOMP = 1 02060205
210: 40900 IF (IVCOMP - 1) 20900, 10900, 20900 02070205
211: 30900 IVDELE = IVDELE + 1 02080205
212: WRITE (I02,80000) IVTNUM 02090205
213: IF (ICZERO) 10900, 0911, 20900 02100205
214: 10900 IVPASS = IVPASS + 1 02110205
215: WRITE (I02,80002) IVTNUM 02120205
216: GO TO 0911 02130205
217: 20900 IVFAIL = IVFAIL + 1 02140205
218: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 02150205
219: 0911 CONTINUE 02160205
220: C 02170205
221: C **** FCVS PROGRAM 205 - TEST 091 **** 02180205
222: C 02190205
223: C 02200205
224: IVTNUM = 91 02210205
225: IF (ICZERO) 30910, 0910, 30910 02220205
226: 0910 CONTINUE 02230205
227: IVCOMP = 0 02240205
228: IVCORR = 1 02250205
229: CVTN05 = 'ABCDEFGHIJKLMNOPQRSTUVWXYZABCDEFGHIJKLMNO' 02260205
230: IF (CVTN05 .EQ. 'ABCDEFGHIJKLMNOPQRSTUVWXYZABCDEFGHIJKLMNO') 02270205
231: 1 IVCOMP = 1 02280205
232: 40910 IF (IVCOMP - 1) 20910, 10910, 20910 02290205
233: 30910 IVDELE = IVDELE + 1 02300205
234: WRITE (I02,80000) IVTNUM 02310205
235: IF (ICZERO) 10910, 0921, 20910 02320205
236: 10910 IVPASS = IVPASS + 1 02330205
237: WRITE (I02,80002) IVTNUM 02340205
238: GO TO 0921 02350205
239: 20910 IVFAIL = IVFAIL + 1 02360205
240: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 02370205
241: 0921 CONTINUE 02380205
242: C 02390205
243: C **** FCVS PROGRAM 205 - TEST 092 **** 02400205
244: C 02410205
245: C 02420205
246: IVTNUM = 92 02430205
247: IF (ICZERO) 30920, 0920, 30920 02440205
248: 0920 CONTINUE 02450205
249: IVCOMP = 0 02460205
250: IVCORR = 1 02470205
251: CVTN06 = 02480205
252: 1 'ABCDEFGHIJKLMNOPQRSTUVWXYZABCDEFGHIJKLMNOPQRSTUVWXYZABCDE' 02490205
253: IF (CVTN06 .EQ. 02500205
254: 1 'ABCDEFGHIJKLMNOPQRSTUVWXYZABCDEFGHIJKLMNOPQRSTUVWXYZABCDE') 02510205
255: 2 IVCOMP = 1 02520205
256: 40920 IF (IVCOMP - 1) 20920, 10920, 20920 02530205
257: 30920 IVDELE = IVDELE + 1 02540205
258: WRITE (I02,80000) IVTNUM 02550205
259: IF (ICZERO) 10920, 0931, 20920 02560205
260: 10920 IVPASS = IVPASS + 1 02570205
261: WRITE (I02,80002) IVTNUM 02580205
262: GO TO 0931 02590205
263: 20920 IVFAIL = IVFAIL + 1 02600205
264: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 02610205
265: 0931 CONTINUE 02620205
266: C 02630205
267: C TEST 93 THROUGH TEST 96 VERIFY THE CHARACTER ASSIGNMENT 02640205
268: C STATEMENTS 02650205
269: C 02660205
270: C CHARACTER VARIABLE = CHARACTER CONSTANT 02670205
271: C CHARACTER VARIABLE = CHARACTER VARIABLE 02680205
272: C 02690205
273: C ARE CORRECT. THE VARIABLES AND CONSTANT ARE THE SAME LENGTH, 02700205
274: C AND THE LENGTHS 3, 12, 25, AND 57 ARE USED IN THESE TESTS. 02710205
275: C 02720205
276: C 02730205
277: C **** FCVS PROGRAM 205 - TEST 093 **** 02740205
278: C 02750205
279: C 02760205
280: IVTNUM = 93 02770205
281: IF (ICZERO) 30930, 0930, 30930 02780205
282: 0930 CONTINUE 02790205
283: IVCOMP = 0 02800205
284: IVCORR = 1 02810205
285: CVTN07 = ' ' 02820205
286: CVTN01 = 'ABC' 02830205
287: CVTN07 = CVTN01 02840205
288: IF (CVTN07 .EQ. 'ABC') IVCOMP = 1 02850205
289: 40930 IF (IVCOMP - 1) 20930, 10930, 20930 02860205
290: 30930 IVDELE = IVDELE + 1 02870205
291: WRITE (I02,80000) IVTNUM 02880205
292: IF (ICZERO) 10930, 0941, 20930 02890205
293: 10930 IVPASS = IVPASS + 1 02900205
294: WRITE (I02,80002) IVTNUM 02910205
295: GO TO 0941 02920205
296: 20930 IVFAIL = IVFAIL + 1 02930205
297: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 02940205
298: 0941 CONTINUE 02950205
299: C 02960205
300: C **** FCVS PROGRAM 205 - TEST 094 **** 02970205
301: C 02980205
302: C 02990205
303: IVTNUM = 94 03000205
304: IF (ICZERO) 30940, 0940, 30940 03010205
305: 0940 CONTINUE 03020205
306: IVCOMP = 0 03030205
307: IVCORR = 1 03040205
308: CVTN03 = 'ABCDEFGHIJKL' 03050205
309: CVTN09 = ' ' 03060205
310: CVTN09 = CVTN03 03070205
311: IF (CVTN09 .EQ. 'ABCDEFGHIJKL') IVCOMP = 1 03080205
312: 40940 IF (IVCOMP - 1) 20940, 10940, 20940 03090205
313: 30940 IVDELE = IVDELE + 1 03100205
314: WRITE (I02,80000) IVTNUM 03110205
315: IF (ICZERO) 10940, 0951, 20940 03120205
316: 10940 IVPASS = IVPASS + 1 03130205
317: WRITE (I02,80002) IVTNUM 03140205
318: GO TO 0951 03150205
319: 20940 IVFAIL = IVFAIL + 1 03160205
320: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 03170205
321: 0951 CONTINUE 03180205
322: C 03190205
323: C **** FCVS PROGRAM 205 - TEST 095 **** 03200205
324: C 03210205
325: C 03220205
326: IVTNUM = 95 03230205
327: IF (ICZERO) 30950, 0950, 30950 03240205
328: 0950 CONTINUE 03250205
329: IVCOMP = 0 03260205
330: IVCORR = 1 03270205
331: CVTN04 = 'ABCDEFGHIJKLMNOPQRSTUVWXY' 03280205
332: CVTN10 = ' ' 03290205
333: CVTN10 = CVTN04 03300205
334: IF (CVTN10 .EQ. 'ABCDEFGHIJKLMNOPQRSTUVWXY') IVCOMP = 1 03310205
335: 40950 IF (IVCOMP - 1) 20950, 10950, 20950 03320205
336: 30950 IVDELE = IVDELE + 1 03330205
337: WRITE (I02,80000) IVTNUM 03340205
338: IF (ICZERO) 10950, 0961, 20950 03350205
339: 10950 IVPASS = IVPASS + 1 03360205
340: WRITE (I02,80002) IVTNUM 03370205
341: GO TO 0961 03380205
342: 20950 IVFAIL = IVFAIL + 1 03390205
343: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 03400205
344: 0961 CONTINUE 03410205
345: C 03420205
346: C **** FCVS PROGRAM 205 - TEST 096 **** 03430205
347: C 03440205
348: C 03450205
349: IVTNUM = 96 03460205
350: IF (ICZERO) 30960, 0960, 30960 03470205
351: 0960 CONTINUE 03480205
352: IVCOMP = 0 03490205
353: IVCORR = 1 03500205
354: CVTN12 = ' ' 03510205
355: CVTN06 = 03520205
356: 1 'ABCDEFGHIJKLMNOPQRSTUVWXYZABCDEFGHIJKLMNOPQRSTUVWXYZABCDE' 03530205
357: CVTN12 = CVTN06 03540205
358: IF (CVTN12 .EQ. 03550205
359: 1 'ABCDEFGHIJKLMNOPQRSTUVWXYZABCDEFGHIJKLMNOPQRSTUVWXYZABCDE') 03560205
360: 2 IVCOMP = 1 03570205
361: 40960 IF (IVCOMP - 1) 20960, 10960, 20960 03580205
362: 30960 IVDELE = IVDELE + 1 03590205
363: WRITE (I02,80000) IVTNUM 03600205
364: IF (ICZERO) 10960, 0971, 20960 03610205
365: 10960 IVPASS = IVPASS + 1 03620205
366: WRITE (I02,80002) IVTNUM 03630205
367: GO TO 0971 03640205
368: 20960 IVFAIL = IVFAIL + 1 03650205
369: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 03660205
370: 0971 CONTINUE 03670205
371: C 03680205
372: C TEST 97 AND TEST 98 VERIFY THE CHARACTER ASSIGNMENT 03690205
373: C STATEMENT 03700205
374: C 03710205
375: C CHARACTER ARRAY ELEMENT = CHARACTER CONSTANT 03720205
376: C 03730205
377: C IS CORRECT. THE ARRAY ELEMENT AND CONSTANT ARE THE SAME LENGTH, 03740205
378: C AND THE LENGTHS 25 AND 41 ARE USED IN THESE TESTS. 03750205
379: C 03760205
380: C 03770205
381: C **** FCVS PROGRAM 205 - TEST 097 **** 03780205
382: C 03790205
383: C 03800205
384: IVTNUM = 97 03810205
385: IF (ICZERO) 30970, 0970, 30970 03820205
386: 0970 CONTINUE 03830205
387: IVCOMP = 0 03840205
388: IVCORR = 1 03850205
389: CATN14(1) = 'ABCDEFGHIJKLMNOPQRSTUVWXY' 03860205
390: IF (CATN14(1) .EQ. 'ABCDEFGHIJKLMNOPQRSTUVWXY') IVCOMP = 1 03870205
391: 40970 IF (IVCOMP - 1) 20970, 10970, 20970 03880205
392: 30970 IVDELE = IVDELE + 1 03890205
393: WRITE (I02,80000) IVTNUM 03900205
394: IF (ICZERO) 10970, 0981, 20970 03910205
395: 10970 IVPASS = IVPASS + 1 03920205
396: WRITE (I02,80002) IVTNUM 03930205
397: GO TO 0981 03940205
398: 20970 IVFAIL = IVFAIL + 1 03950205
399: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 03960205
400: 0981 CONTINUE 03970205
401: C 03980205
402: C **** FCVS PROGRAM 205 - TEST 098 **** 03990205
403: C 04000205
404: C 04010205
405: IVTNUM = 98 04020205
406: IF (ICZERO) 30980, 0980, 30980 04030205
407: 0980 CONTINUE 04040205
408: IVCOMP = 0 04050205
409: IVCORR = 1 04060205
410: CATN15(8) = 'ABCDEFGHIJKLMNOPQRSTUVWXYZABCDEFGHIJKLMNO' 04070205
411: IF (CATN15(8) .EQ. 04080205
412: 1 'ABCDEFGHIJKLMNOPQRSTUVWXYZABCDEFGHIJKLMNO') IVCOMP = 1 04090205
413: 40980 IF (IVCOMP - 1) 20980, 10980, 20980 04100205
414: 30980 IVDELE = IVDELE + 1 04110205
415: WRITE (I02,80000) IVTNUM 04120205
416: IF (ICZERO) 10980, 0991, 20980 04130205
417: 10980 IVPASS = IVPASS + 1 04140205
418: WRITE (I02,80002) IVTNUM 04150205
419: GO TO 0991 04160205
420: 20980 IVFAIL = IVFAIL + 1 04170205
421: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 04180205
422: 0991 CONTINUE 04190205
423: C 04200205
424: C TEST 99 AND TEST 100 VERIFY THE CHARACTER ASSIGNMENT 04210205
425: C STATEMENTS 04220205
426: C 04230205
427: C CHARACTER VARIABLE = CHARACTER CONSTANT 04240205
428: C CHARACTER ARRAY ELEMENT = CHARACTER VARIABLE 04250205
429: C 04260205
430: C ARE CORRECT. THE CHARACTER ENTITIES ARE THE SAME LENGTH, 04270205
431: C AND THE LENGTHS 3 AND 57 ARE USED IN THESE TESTS. 04280205
432: C 04290205
433: C 04300205
434: C **** FCVS PROGRAM 205 - TEST 099 **** 04310205
435: C 04320205
436: C 04330205
437: IVTNUM = 99 04340205
438: IF (ICZERO) 30990, 0990, 30990 04350205
439: 0990 CONTINUE 04360205
440: IVCOMP = 0 04370205
441: IVCORR = 1 04380205
442: CVTN01 = 'ABC' 04390205
443: CATN11(5) = CVTN01 04400205
444: IF (CATN11(5) .EQ. 'ABC') IVCOMP = 1 04410205
445: 40990 IF (IVCOMP - 1) 20990, 10990, 20990 04420205
446: 30990 IVDELE = IVDELE + 1 04430205
447: WRITE (I02,80000) IVTNUM 04440205
448: IF (ICZERO) 10990, 1001, 20990 04450205
449: 10990 IVPASS = IVPASS + 1 04460205
450: WRITE (I02,80002) IVTNUM 04470205
451: GO TO 1001 04480205
452: 20990 IVFAIL = IVFAIL + 1 04490205
453: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 04500205
454: 1001 CONTINUE 04510205
455: C 04520205
456: C **** FCVS PROGRAM 205 - TEST 100 **** 04530205
457: C 04540205
458: C 04550205
459: IVTNUM = 100 04560205
460: IF (ICZERO) 31000, 1000, 31000 04570205
461: 1000 CONTINUE 04580205
462: IVCOMP = 0 04590205
463: IVCORR = 1 04600205
464: CVTN06 = 04610205
465: 1 'ABCDEFGHIJKLMNOPQRSTUVWXYZABCDEFGHIJKLMNOPQRSTUVWXYZABCDE' 04620205
466: CATN16(3) = CVTN06 04630205
467: IF (CATN16(3) .EQ. 04640205
468: 1 'ABCDEFGHIJKLMNOPQRSTUVWXYZABCDEFGHIJKLMNOPQRSTUVWXYZABCDE') 04650205
469: 2 IVCOMP = 1 04660205
470: 41000 IF (IVCOMP - 1) 21000, 11000, 21000 04670205
471: 31000 IVDELE = IVDELE + 1 04680205
472: WRITE (I02,80000) IVTNUM 04690205
473: IF (ICZERO) 11000, 1011, 21000 04700205
474: 11000 IVPASS = IVPASS + 1 04710205
475: WRITE (I02,80002) IVTNUM 04720205
476: GO TO 1011 04730205
477: 21000 IVFAIL = IVFAIL + 1 04740205
478: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 04750205
479: 1011 CONTINUE 04760205
480: C 04770205
481: C TEST 101 AND TEST 102 VERIFY THE CHARACTER ASSIGNMENT 04780205
482: C STATEMENTS 04790205
483: C 04800205
484: C CHARACTER ARRAY ELEMENT = CHARACTER CONSTANT 04810205
485: C CHARACTER ARRAY ELEMENT = CHARACTER ARRAY ELEMENT 04820205
486: C 04830205
487: C ARE CORRECT. THE CHARACTER ENTITIES ARE THE SAME LENGTH, AND 04840205
488: C THE LENGTHS 7 AND 41 ARE USED IN THESE TESTS. 04850205
489: C 04860205
490: C 04870205
491: C **** FCVS PROGRAM 205 - TEST 101 **** 04880205
492: C 04890205
493: C 04900205
494: IVTNUM = 101 04910205
495: IF (ICZERO) 31010, 1010, 31010 04920205
496: 1010 CONTINUE 04930205
497: IVCOMP = 0 04940205
498: IVCORR = 1 04950205
499: CATN12(3) = 'ABCDEFG' 04960205
500: CATN12(4) = CATN12(3) 04970205
501: IF (CATN12(4) .EQ. 'ABCDEFG') IVCOMP = 1 04980205
502: 41010 IF (IVCOMP - 1) 21010, 11010, 21010 04990205
503: 31010 IVDELE = IVDELE + 1 05000205
504: WRITE (I02,80000) IVTNUM 05010205
505: IF (ICZERO) 11010, 1021, 21010 05020205
506: 11010 IVPASS = IVPASS + 1 05030205
507: WRITE (I02,80002) IVTNUM 05040205
508: GO TO 1021 05050205
509: 21010 IVFAIL = IVFAIL + 1 05060205
510: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 05070205
511: 1021 CONTINUE 05080205
512: C 05090205
513: C **** FCVS PROGRAM 205 - TEST 102 **** 05100205
514: C 05110205
515: C 05120205
516: IVTNUM = 102 05130205
517: IF (ICZERO) 31020, 1020, 31020 05140205
518: 1020 CONTINUE 05150205
519: IVCOMP = 0 05160205
520: IVCORR = 1 05170205
521: CATN15(3) = 'ABCDEFGHIJKLMNOPQRSTUVWXYZABCDEFGHIJKLMNO' 05180205
522: CATN15(4) = CATN15(3) 05190205
523: IF (CATN15(4) .EQ. 05200205
524: 1 'ABCDEFGHIJKLMNOPQRSTUVWXYZABCDEFGHIJKLMNO') IVCOMP = 1 05210205
525: 41020 IF (IVCOMP - 1) 21020, 11020, 21020 05220205
526: 31020 IVDELE = IVDELE + 1 05230205
527: WRITE (I02,80000) IVTNUM 05240205
528: IF (ICZERO) 11020, 1031, 21020 05250205
529: 11020 IVPASS = IVPASS + 1 05260205
530: WRITE (I02,80002) IVTNUM 05270205
531: GO TO 1031 05280205
532: 21020 IVFAIL = IVFAIL + 1 05290205
533: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 05300205
534: 1031 CONTINUE 05310205
535: C 05320205
536: C TEST 103 AND TEST 104 VERIFY THE CHARACTER ASSIGNMENT 05330205
537: C STATEMENTS 05340205
538: C 05350205
539: C CHARACTER ARRAY ELEMENT = CHARACTER CONSTANT 05360205
540: C CHARACTER VARIABLE = CHARACTER ARRAY ELEMENT 05370205
541: C 05380205
542: C ARE CORRECT. THE CHARACTER ENTITIES ARE THE SAME LENGTH, AND 05390205
543: C THE LENGTHS 12 AND 25 ARE USED. 05400205
544: C 05410205
545: C 05420205
546: C **** FCVS PROGRAM 205 - TEST 103 **** 05430205
547: C 05440205
548: C 05450205
549: IVTNUM = 103 05460205
550: IF (ICZERO) 31030, 1030, 31030 05470205
551: 1030 CONTINUE 05480205
552: IVCOMP = 0 05490205
553: IVCORR = 1 05500205
554: CATN13(1) = 'ABCDEFGHIJKL' 05510205
555: CVTN09 = ' ' 05520205
556: CVTN09 = CATN13(1) 05530205
557: IF (CVTN09 .EQ. 'ABCDEFGHIJKL') IVCOMP = 1 05540205
558: 41030 IF (IVCOMP - 1) 21030, 11030, 21030 05550205
559: 31030 IVDELE = IVDELE + 1 05560205
560: WRITE (I02,80000) IVTNUM 05570205
561: IF (ICZERO) 11030, 1041, 21030 05580205
562: 11030 IVPASS = IVPASS + 1 05590205
563: WRITE (I02,80002) IVTNUM 05600205
564: GO TO 1041 05610205
565: 21030 IVFAIL = IVFAIL + 1 05620205
566: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 05630205
567: 1041 CONTINUE 05640205
568: C 05650205
569: C **** FCVS PROGRAM 205 - TEST 104 **** 05660205
570: C 05670205
571: C 05680205
572: IVTNUM = 104 05690205
573: IF (ICZERO) 31040, 1040, 31040 05700205
574: 1040 CONTINUE 05710205
575: IVCOMP = 0 05720205
576: IVCORR = 1 05730205
577: CATN14(1) = 'ABCDEFGHIJKLMNOPQRSTUVWXY' 05740205
578: CVTN10 = ' ' 05750205
579: CVTN10 = CATN14(1) 05760205
580: IF (CVTN10 .EQ. 'ABCDEFGHIJKLMNOPQRSTUVWXY') IVCOMP = 1 05770205
581: 41040 IF (IVCOMP - 1) 21040, 11040, 21040 05780205
582: 31040 IVDELE = IVDELE + 1 05790205
583: WRITE (I02,80000) IVTNUM 05800205
584: IF (ICZERO) 11040, 1051, 21040 05810205
585: 11040 IVPASS = IVPASS + 1 05820205
586: WRITE (I02,80002) IVTNUM 05830205
587: GO TO 1051 05840205
588: 21040 IVFAIL = IVFAIL + 1 05850205
589: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 05860205
590: 1051 CONTINUE 05870205
591: C 05880205
592: C TEST 105 THROUGH TEST 110 VERIFY THE CHARACTER RELATIONAL 05890205
593: C EXPRESSION USING EACH OF THE SIX RELATIONAL OPERATORS IN THE 05900205
594: C STATEMENT FORM 05910205
595: C 05920205
596: C CHARACTER VARIABLE RELOP CHARACTER CONSTANT 05930205
597: C 05940205
598: C THE CHARACTER ENTITIES ARE THE SAME LENGTH, AND THE LENGTHS 05950205
599: C 3, 7, 12, 25, 41, AND 57 ARE USED IN THESE TESTS. 05960205
600: C 05970205
601: C 05980205
602: C **** FCVS PROGRAM 205 - TEST 105 **** 05990205
603: C 06000205
604: C 06010205
605: IVTNUM = 105 06020205
606: IF (ICZERO) 31050, 1050, 31050 06030205
607: 1050 CONTINUE 06040205
608: IVCOMP = 0 06050205
609: IVCORR = 1 06060205
610: CVTN07 = 'ZAB' 06070205
611: IF (CVTN07 .EQ. 'ZAB') IVCOMP = 1 06080205
612: 41050 IF (IVCOMP - 1) 21050, 11050, 21050 06090205
613: 31050 IVDELE = IVDELE + 1 06100205
614: WRITE (I02,80000) IVTNUM 06110205
615: IF (ICZERO) 11050, 1061, 21050 06120205
616: 11050 IVPASS = IVPASS + 1 06130205
617: WRITE (I02,80002) IVTNUM 06140205
618: GO TO 1061 06150205
619: 21050 IVFAIL = IVFAIL + 1 06160205
620: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 06170205
621: 1061 CONTINUE 06180205
622: C 06190205
623: C **** FCVS PROGRAM 205 - TEST 106 **** 06200205
624: C 06210205
625: C 06220205
626: IVTNUM = 106 06230205
627: IF (ICZERO) 31060, 1060, 31060 06240205
628: 1060 CONTINUE 06250205
629: IVCOMP = 0 06260205
630: IVCORR = 1 06270205
631: CVTN08 = 'ABDDEEF' 06280205
632: IF (CVTN08 .GT. 'ABCDEEF') IVCOMP = 1 06290205
633: 41060 IF (IVCOMP - 1) 21060, 11060, 21060 06300205
634: 31060 IVDELE = IVDELE + 1 06310205
635: WRITE (I02,80000) IVTNUM 06320205
636: IF (ICZERO) 11060, 1071, 21060 06330205
637: 11060 IVPASS = IVPASS + 1 06340205
638: WRITE (I02,80002) IVTNUM 06350205
639: GO TO 1071 06360205
640: 21060 IVFAIL = IVFAIL + 1 06370205
641: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 06380205
642: 1071 CONTINUE 06390205
643: C 06400205
644: C **** FCVS PROGRAM 205 - TEST 107 **** 06410205
645: C 06420205
646: C 06430205
647: IVTNUM = 107 06440205
648: IF (ICZERO) 31070, 1070, 31070 06450205
649: 1070 CONTINUE 06460205
650: IVCOMP = 0 06470205
651: IVCORR = 1 06480205
652: CVTN09 = 'ZXYZZZABCDEF' 06490205
653: IF (CVTN09 .LT. 'ZXYZZZACCDEF') IVCOMP = 1 06500205
654: 41070 IF (IVCOMP - 1) 21070, 11070, 21070 06510205
655: 31070 IVDELE = IVDELE + 1 06520205
656: WRITE (I02,80000) IVTNUM 06530205
657: IF (ICZERO) 11070, 1081, 21070 06540205
658: 11070 IVPASS = IVPASS + 1 06550205
659: WRITE (I02,80002) IVTNUM 06560205
660: GO TO 1081 06570205
661: 21070 IVFAIL = IVFAIL + 1 06580205
662: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 06590205
663: 1081 CONTINUE 06600205
664: C 06610205
665: C **** FCVS PROGRAM 205 - TEST 108 **** 06620205
666: C 06630205
667: C 06640205
668: IVTNUM = 108 06650205
669: IF (ICZERO) 31080, 1080, 31080 06660205
670: 1080 CONTINUE 06670205
671: IVCOMP = 0 06680205
672: IVCORR = 1 06690205
673: CVTN10 = 'ABCDEFGHIJKKMNOPQRSTUVWXY' 06700205
674: IF ('ABCDEFGHIJKLMNOPQRSTUVWXY' .NE. CVTN10) IVCOMP = 1 06710205
675: 41080 IF (IVCOMP - 1) 21080, 11080, 21080 06720205
676: 31080 IVDELE = IVDELE + 1 06730205
677: WRITE (I02,80000) IVTNUM 06740205
678: IF (ICZERO) 11080, 1091, 21080 06750205
679: 11080 IVPASS = IVPASS + 1 06760205
680: WRITE (I02,80002) IVTNUM 06770205
681: GO TO 1091 06780205
682: 21080 IVFAIL = IVFAIL + 1 06790205
683: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 06800205
684: 1091 CONTINUE 06810205
685: C 06820205
686: C **** FCVS PROGRAM 205 - TEST 109 **** 06830205
687: C 06840205
688: C 06850205
689: IVTNUM = 109 06860205
690: IF (ICZERO) 31090, 1090, 31090 06870205
691: 1090 CONTINUE 06880205
692: IVCOMP = 0 06890205
693: IVCORR = 1 06900205
694: CVTN11 = 'ABCDEFGHIJKLMNOPQRSTUVWXYZAABCDEFGHIJKLMN' 06910205
695: IF ('ABCDEFGHIJKLMNOPQRSTUVWXYZABBCDEFGHIJKLMN' .GE. CVTN11) 06920205
696: 1 IVCOMP = 1 06930205
697: 41090 IF (IVCOMP - 1) 21090, 11090, 21090 06940205
698: 31090 IVDELE = IVDELE + 1 06950205
699: WRITE (I02,80000) IVTNUM 06960205
700: IF (ICZERO) 11090, 1101, 21090 06970205
701: 11090 IVPASS = IVPASS + 1 06980205
702: WRITE (I02,80002) IVTNUM 06990205
703: GO TO 1101 07000205
704: 21090 IVFAIL = IVFAIL + 1 07010205
705: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 07020205
706: 1101 CONTINUE 07030205
707: C 07040205
708: C **** FCVS PROGRAM 205 - TEST 110 **** 07050205
709: C 07060205
710: C 07070205
711: IVTNUM = 110 07080205
712: IF (ICZERO) 31100, 1100, 31100 07090205
713: 1100 CONTINUE 07100205
714: IVCOMP = 0 07110205
715: IVCORR = 1 07120205
716: CVTN12 = 07130205
717: 1 'ABCDEFGHIJKLMNOPQRSTUVWXYZABCDEFGHIJKLMNOPQRSTUVWXYZAAAAA' 07140205
718: IF ('ABCDEFGHIJKLMNOPQRSTUVWXYZABCDEFGHIJKLMNOPQRSTUVWXYAAAAAA' 07150205
719: 1 .LE. CVTN12) IVCOMP = 1 07160205
720: 41100 IF (IVCOMP - 1) 21100, 11100, 21100 07170205
721: 31100 IVDELE = IVDELE + 1 07180205
722: WRITE (I02,80000) IVTNUM 07190205
723: IF (ICZERO) 11100, 1111, 21100 07200205
724: 11100 IVPASS = IVPASS + 1 07210205
725: WRITE (I02,80002) IVTNUM 07220205
726: GO TO 1111 07230205
727: 21100 IVFAIL = IVFAIL + 1 07240205
728: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 07250205
729: 1111 CONTINUE 07260205
730: C 07270205
731: C TEST 111 AND TEST 112 VERIFY THE CHARACTER RELATIONAL 07280205
732: C EXPRESSION OF THE FORM 07290205
733: C 07300205
734: C CHARACTER VARIABLE RELOP CHARACTER VARIABLE 07310205
735: C 07320205
736: C THE CHARACTER ENTITIES ARE THE SAME LENGTH, AND THE LENGTHS 3 07330205
737: C AND 41 ARE USED IN THESE TESTS. 07340205
738: C 07350205
739: C 07360205
740: C **** FCVS PROGRAM 205 - TEST 111 **** 07370205
741: C 07380205
742: C 07390205
743: IVTNUM = 111 07400205
744: IF (ICZERO) 31110, 1110, 31110 07410205
745: 1110 CONTINUE 07420205
746: IVCOMP = 1 07430205
747: IVCORR = 3 07440205
748: CVTN01 = 'ABC' 07450205
749: CVTN07 = 'BBC' 07460205
750: IF (CVTN01 .EQ. CVTN07) IVCOMP = IVCOMP * 2 07470205
751: IF (CVTN01 .NE. CVTN07) IVCOMP = IVCOMP * 3 07480205
752: 41110 IF (IVCOMP - 3) 21110, 11110, 21110 07490205
753: 31110 IVDELE = IVDELE + 1 07500205
754: WRITE (I02,80000) IVTNUM 07510205
755: IF (ICZERO) 11110, 1121, 21110 07520205
756: 11110 IVPASS = IVPASS + 1 07530205
757: WRITE (I02,80002) IVTNUM 07540205
758: GO TO 1121 07550205
759: 21110 IVFAIL = IVFAIL + 1 07560205
760: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 07570205
761: 1121 CONTINUE 07580205
762: C 07590205
763: C **** FCVS PROGRAM 205 - TEST 112 **** 07600205
764: C 07610205
765: C 07620205
766: IVTNUM = 112 07630205
767: IF (ICZERO) 31120, 1120, 31120 07640205
768: 1120 CONTINUE 07650205
769: IVCOMP = 1 07660205
770: IVCORR = 6 07670205
771: CVTN05 = 'ABCDEFGHIJKLMNOPQRSTUVWXYZABCDEFGHIJKLMNO' 07680205
772: CVTN11 = 'ABCDEFGHIJKLMNOPQRSTUVWXYZABCDEFGHIJKLMNO' 07690205
773: IF (CVTN05 .GE. CVTN11) IVCOMP = IVCOMP * 2 07700205
774: IF (CVTN05 .LE. CVTN11) IVCOMP = IVCOMP * 3 07710205
775: 41120 IF (IVCOMP - 6) 21120, 11120, 21120 07720205
776: 31120 IVDELE = IVDELE + 1 07730205
777: WRITE (I02,80000) IVTNUM 07740205
778: IF (ICZERO) 11120, 1131, 21120 07750205
779: 11120 IVPASS = IVPASS + 1 07760205
780: WRITE (I02,80002) IVTNUM 07770205
781: GO TO 1131 07780205
782: 21120 IVFAIL = IVFAIL + 1 07790205
783: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 07800205
784: 1131 CONTINUE 07810205
785: C 07820205
786: C TEST 113 AND TEST 114 VERIFY THE CHARACTER RELATIONAL 07830205
787: C EXPRESSION OF THE FORM 07840205
788: C 07850205
789: C CHARACTER ARRAY ELEMENT RELOP CHARACTER CONSTANT 07860205
790: C 07870205
791: C THE CHARACTER ENTITIES ARE THE SAME LENGTH, AND THE LENGTHS 7 AND 07880205
792: C 25 ARE USED IN THESE TESTS. 07890205
793: C 07900205
794: C 07910205
795: C **** FCVS PROGRAM 205 - TEST 113 **** 07920205
796: C 07930205
797: C 07940205
798: IVTNUM = 113 07950205
799: IF (ICZERO) 31130, 1130, 31130 07960205
800: 1130 CONTINUE 07970205
801: IVCOMP = 1 07980205
802: IVCORR = 6 07990205
803: CATN12(3) = 'AB012CD' 08000205
804: IF (CATN12(3) .LT. 'AB013CD') IVCOMP = IVCOMP * 2 08010205
805: IF ('AB013CD' .GT. CATN12(3)) IVCOMP = IVCOMP * 3 08020205
806: 41130 IF (IVCOMP - 6) 21130, 11130, 21130 08030205
807: 31130 IVDELE = IVDELE + 1 08040205
808: WRITE (I02,80000) IVTNUM 08050205
809: IF (ICZERO) 11130, 1141, 21130 08060205
810: 11130 IVPASS = IVPASS + 1 08070205
811: WRITE (I02,80002) IVTNUM 08080205
812: GO TO 1141 08090205
813: 21130 IVFAIL = IVFAIL + 1 08100205
814: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 08110205
815: 1141 CONTINUE 08120205
816: C 08130205
817: C **** FCVS PROGRAM 205 - TEST 114 **** 08140205
818: C 08150205
819: C 08160205
820: IVTNUM = 114 08170205
821: IF (ICZERO) 31140, 1140, 31140 08180205
822: 1140 CONTINUE 08190205
823: IVCOMP = 1 08200205
824: IVCORR = 2 08210205
825: CATN14(1) = 'ABCDEFGHIJKLMNOPQRSTUVWXX' 08220205
826: IF (CATN14(1) .NE. 'ABCDEFGHIJKLMNOPQRSTUVWXY') 08230205
827: 1 IVCOMP = IVCOMP * 2 08240205
828: IF (CATN14(1) .EQ. 'ABCDEFGHIJKLMNOPQRSTUVWXY') 08250205
829: 1 IVCOMP = IVCOMP * 3 08260205
830: 41140 IF (IVCOMP - 2) 21140, 11140, 21140 08270205
831: 31140 IVDELE = IVDELE + 1 08280205
832: WRITE (I02,80000) IVTNUM 08290205
833: IF (ICZERO) 11140, 1151, 21140 08300205
834: 11140 IVPASS = IVPASS + 1 08310205
835: WRITE (I02,80002) IVTNUM 08320205
836: GO TO 1151 08330205
837: 21140 IVFAIL = IVFAIL + 1 08340205
838: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 08350205
839: 1151 CONTINUE 08360205
840: C 08370205
841: C **** FCVS PROGRAM 205 - TEST 115 **** 08380205
842: C 08390205
843: C TEST 115 VERIFIES THE CHARACTER RELATIONAL EXPRESSION 08400205
844: C OF THE FORM 08410205
845: C 08420205
846: C CHARACTER ARRAY ELEMENT RELOP CHARACTER VARIABLE 08430205
847: C 08440205
848: C THE CHARACTER ENTITIES ARE 12 CHARACTERS IN LENGTH. 08450205
849: C 08460205
850: IVTNUM = 115 08470205
851: IF (ICZERO) 31150, 1150, 31150 08480205
852: 1150 CONTINUE 08490205
853: IVCOMP = 1 08500205
854: IVCORR = 2 08510205
855: CATN13(3) = 'ABC+AAB/CDDF' 08520205
856: IF (CATN13(3) .LT. 'BBC+AAB/CCCC') IVCOMP = IVCOMP * 2 08530205
857: IF (CATN13(3) .GT. 'BBC+AAB/CCCC') IVCOMP = IVCOMP * 3 08540205
858: 41150 IF (IVCOMP - 2) 21150, 11150, 21150 08550205
859: 31150 IVDELE = IVDELE + 1 08560205
860: WRITE (I02,80000) IVTNUM 08570205
861: IF (ICZERO) 11150, 1161, 21150 08580205
862: 11150 IVPASS = IVPASS + 1 08590205
863: WRITE (I02,80002) IVTNUM 08600205
864: GO TO 1161 08610205
865: 21150 IVFAIL = IVFAIL + 1 08620205
866: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 08630205
867: 1161 CONTINUE 08640205
868: C 08650205
869: C **** FCVS PROGRAM 205 - TEST 116 **** 08660205
870: C 08670205
871: C TEST 116 VERIFIES THE CHARACTER RELATIONAL EXPRESSION 08680205
872: C OF THE FORM 08690205
873: C 08700205
874: C CHARACTER ARRAY ELEMENT RELOP CHARACTER ARRAY ELEMENT 08710205
875: C 08720205
876: C THE CHARACTER ENTITIES ARE 57 CHARACTERS IN LENGTH. 08730205
877: C 08740205
878: IVTNUM = 116 08750205
879: IF (ICZERO) 31160, 1160, 31160 08760205
880: 1160 CONTINUE 08770205
881: IVCOMP = 1 08780205
882: IVCORR = 30 08790205
883: CATN16(1) = 08800205
884: 1 'ABCDEFGHIJKLMNOPQRSTUVWXYZABCDEFGHIJKLMNOPQRSTUVWXYZ//012' 08810205
885: CATN16(2) = 08820205
886: 1 'ABCDEFGHIJKLMNOPQRSTUVWXYZABCDEFGHIJKLMNOPQRSTUVWXYZ//112' 08830205
887: IF (CATN16 (1) .LT. CATN16 (2)) IVCOMP = IVCOMP * 2 08840205
888: IF (CATN16 (1) .NE. CATN16 (2)) IVCOMP = IVCOMP * 3 08850205
889: IF (CATN16 (1) .LE. CATN16 (2)) IVCOMP = IVCOMP * 5 08860205
890: 41160 IF (IVCOMP - 30) 21160, 11160, 21160 08870205
891: 31160 IVDELE = IVDELE + 1 08880205
892: WRITE (I02,80000) IVTNUM 08890205
893: IF (ICZERO) 11160, 1171, 21160 08900205
894: 11160 IVPASS = IVPASS + 1 08910205
895: WRITE (I02,80002) IVTNUM 08920205
896: GO TO 1171 08930205
897: 21160 IVFAIL = IVFAIL + 1 08940205
898: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 08950205
899: 1171 CONTINUE 08960205
900: C 08970205
901: C 08980205
902: C WRITE OUT TEST SUMMARY 08990205
903: C 09000205
904: WRITE (I02,90004) 09010205
905: WRITE (I02,90014) 09020205
906: WRITE (I02,90004) 09030205
907: WRITE (I02,90000) 09040205
908: WRITE (I02,90004) 09050205
909: WRITE (I02,90020) IVFAIL 09060205
910: WRITE (I02,90022) IVPASS 09070205
911: WRITE (I02,90024) IVDELE 09080205
912: STOP 09090205
913: 90001 FORMAT (1H ,24X,5HFM205) 09100205
914: 90000 FORMAT (1H ,20X,20HEND OF PROGRAM FM205) 09110205
915: C 09120205
916: C FORMATS FOR TEST DETAIL LINES 09130205
917: C 09140205
918: 80000 FORMAT (1H ,4X,I5,6X,7HDELETED) 09150205
919: 80002 FORMAT (1H ,4X,I5,7X,4HPASS) 09160205
920: 80010 FORMAT (1H ,4X,I5,7X,4HFAIL,10X,I6,9X,I6) 09170205
921: 80012 FORMAT (1H ,4X,I5,7X,4HFAIL,4X,E12.5,3X,E12.5) 09180205
922: 80018 FORMAT (1H ,4X,I5,7X,4HFAIL,2X,A14,1X,A14) 09190205
923: C 09200205
924: C FORMAT STATEMENTS FOR PAGE HEADERS 09210205
925: C 09220205
926: 90002 FORMAT (1H1) 09230205
927: 90004 FORMAT (1H ) 09240205
928: 90006 FORMAT (1H ,10X,34HFORTRAN COMPILER VALIDATION SYSTEM) 09250205
929: 90008 FORMAT (1H ,21X,11HVERSION 1.0) 09260205
930: 90010 FORMAT (1H ,8X,38HFOR OFFICIAL USE ONLY - COPYRIGHT 1978) 09270205
931: 90012 FORMAT (1H ,5X,4HTEST,5X,9HPASS/FAIL,5X,8HCOMPUTED,8X,7HCORRECT) 09280205
932: 90014 FORMAT (1H ,5X,46H----------------------------------------------) 09290205
933: 90016 FORMAT (1H ,18X,17HSUBSET LEVEL TEST) 09300205
934: C 09310205
935: C FORMAT STATEMENTS FOR RUN SUMMARY 09320205
936: C 09330205
937: 90020 FORMAT (1H ,19X,I5,13H TESTS FAILED) 09340205
938: 90022 FORMAT (1H ,19X,I5,13H TESTS PASSED) 09350205
939: 90024 FORMAT (1H ,19X,I5,14H TESTS DELETED) 09360205
940: END 09370205
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.