![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to FM203.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 FM203.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 FM203 00010203
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 00020203
6: C 00030203
7: C THIS ROUTINE CONTINUES THE TESTING OF CHARACTER DATA TYPES 00040203
8: C WHICH WAS STARTED IN FM202. THE CHARACTER TYPE-STATEMENTS SPECIFY00050203
9: C CHARACTER VARIABLES AND ONE-DIMENSIONAL CHARACTER ARRAYS OF 00060203
10: C LENGTH ONE AND LENGTH TWO. THE TESTS IN THIS ROUTINE DETERMINE 00070203
11: C THAT THE FOLLOWING LANGUAGE FEATURES FUNCTION CORRECTLY. 00080203
12: C 00090203
13: C (1) CHARACTER ASSIGNMENT STATEMENTS OF THE FORM 00100203
14: C 00110203
15: C CHARACTER ARRAY ELEMENT = CHARACTER CONSTANT 00120203
16: C CHARACTER ARRAY ELEMENT = CHARACTER VARIABLE 00130203
17: C CHARACTER ARRAY ELEMENT = CHARACTER ARRAY ELEMENT 00140203
18: C CHARACTER VARIABLE = CHARACTER ARRAY ELEMENT 00150203
19: C 00160203
20: C WHERE THE ARRAY ELEMENTS, VARIABLES AND CONSTANTS ARE OF LENGTH 00170203
21: C ONE OR TWO. 00180203
22: C 00190203
23: C (2) CHARACTER RELATIONAL EXPRESSIONS OF THE FORM 00200203
24: C 00210203
25: C CHARACTER ARRAY ELEMENT RELOP CHARACTER CONSTANT 00220203
26: C CHARACTER ARRAY ELEMENT RELOP CHARACTER VARIABLE 00230203
27: C CHARACTER ARRAY ELEMENT RELOP CHARACTER ARRAY ELEMENT 00240203
28: C 00250203
29: C WHERE THE ARRAY ELEMENTS, VARIABLES AND CONSTANTS ARE OF LENGTH 00260203
30: C ONE OR TWO. 00270203
31: C 00280203
32: C (3) CHARACTER EXPRESSIONS ENCLOSED IN PARENTHESES. THE FORMS00290203
33: C TESTED ARE 00300203
34: C 00310203
35: C (CHARACTER CONSTANT) 00320203
36: C (CHARACTER VARIABLE) 00330203
37: C (CHARACTER ARRAY ELEMENT) 00340203
38: C ((CHARACTER ARRAY ELEMENT)) 00350203
39: C 00360203
40: C (4) CHARACTER RELATIONAL EXPRESSIONS OF THE FORM 00370203
41: C 00380203
42: C CHARACTER ARRAY ELEMENT .EQ. CHARACTER CONSTANT 00390203
43: C 00400203
44: C ARE USED IN THIS ROUTINE TO VERIFY THE CHARACTER ASSIGNMENT 00410203
45: C STATEMENTS. 00420203
46: C 00430203
47: C REFERENCES 00440203
48: C AMERICAN NATIONAL STANDARD PROGRAMMING LANGUAGE FORTRAN, 00450203
49: C X3.9-1978 00460203
50: C 00470203
51: C SECTION 4.8, CHARACTER TYPE 00480203
52: C SECTION 4.8.1, CHARACTER CONSTANT 00490203
53: C SECTION 6.2, CHARACTER EXPRESSIONS 00500203
54: C SECTION 6.3.4, CHARACTER RELATIONAL EXPRESSION 00510203
55: C SECTION 6.3.5, INTERPRETATION OF CHARACTER RELATIONAL 00520203
56: C EXPRESSIONS 00530203
57: C SECTION 8.4.2, CHARACTER TYPE-STATEMENT 00540203
58: C SECTION 10.4, CHARACTER ASSIGNMENT STATEMENT 00550203
59: C 00560203
60: C 00570203
61: C 00580203
62: C ******************************************************************00590203
63: C A COMPILER VALIDATION SYSTEM FOR THE FORTRAN LANGUAGE 00600203
64: C BASED ON SPECIFICATIONS AS DEFINED IN AMERICAN STANDARD FORTRAN 00610203
65: C X3.9-1978, HAS BEEN DEVELOPED BY THE DEPARTMENT OF THE NAVY. THE 00620203
66: C FORTRAN COMPILER VALIDATION SYSTEM (FCVS) CONSISTS OF AUDIT 00630203
67: C ROUTINES, THEIR RELATED DATA, AND AN EXECUTIVE SYSTEM. EACH AUDIT00640203
68: C ROUTINE IS A FORTRAN PROGRAM OR SUBPROGRAM WHICH INCLUDES TESTS 00650203
69: C OF SPECIFIC LANGUAGE ELEMENTS AND SUPPORTING PROCEDURES INDICATING00660203
70: C THE RESULT OF EXECUTING THESE TESTS. 00670203
71: C 00680203
72: C THIS PARTICULAR PROGRAM OR SUBPROGRAM CONTAINS ONLY FEATURES 00690203
73: C FOUND IN THE SUBSET LEVEL OF THE STANDARD. 00700203
74: C 00710203
75: C SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00720203
76: C DEPARTMENT OF THE NAVY 00730203
77: C FEDERAL COBOL COMPILER TESTING SERVICE 00740203
78: C WASHINGTON, D.C. 20376 00750203
79: C 00760203
80: C ******************************************************************00770203
81: C 00780203
82: C 00790203
83: IMPLICIT LOGICAL (L) 00800203
84: IMPLICIT CHARACTER*14 (C) 00810203
85: C 00820203
86: CHARACTER CATN11(5), CVTN01, CATN12(5), CVTN02 00830203
87: CHARACTER*2 CATN13, CVTN03, CATN14(5), CVTN04 00840203
88: DIMENSION CATN13(5) 00850203
89: C 00860203
90: C 00870203
91: C 00880203
92: C INITIALIZATION SECTION. 00890203
93: C 00900203
94: C INITIALIZE CONSTANTS 00910203
95: C ******************** 00920203
96: C I01 CONTAINS THE LOGICAL UNIT NUMBER FOR THE CARD READER 00930203
97: I01 = 5 00940203
98: C I02 CONTAINS THE LOGICAL UNIT NUMBER FOR THE PRINTER 00950203
99: I02 = 6 00960203
100: C SYSTEM ENVIRONMENT SECTION 00970203
101: C 00980203
102: I01 = 5 00990203
103: C THE CX010 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I01 = 5 01000203
104: C (UNIT NUMBER FOR CARD READER). 01010203
105: CX011 THIS CARD IS REPLACED BY CONTENTS OF FEXEC X-011 CONTROL CARD01020203
106: C THE CX011 CARD IS FOR SYSTEMS WHICH REQUIRE ADDITIONAL 01030203
107: C FORTRAN STATEMENTS FOR FILES ASSOCIATED WITH CX010 ABOVE. 01040203
108: C 01050203
109: I02 = 6 01060203
110: C THE CX020 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I02 = 6 01070203
111: C (UNIT NUMBER FOR PRINTER). 01080203
112: CX021 THIS CARD IS PEPLACED BY CONTENTS OF FEXEC X-021 CONTROL CARD.01090203
113: C THE CX021 CARD IS FOR SYSTEMS WHICH REQUIRE ADDITIONAL 01100203
114: C FORTRAN STATEMENTS FOR FILES ASSOCIATED WITH CX020 ABOVE. 01110203
115: C 01120203
116: IVPASS = 0 01130203
117: IVFAIL = 0 01140203
118: IVDELE = 0 01150203
119: ICZERO = 0 01160203
120: C 01170203
121: C WRITE OUT PAGE HEADERS 01180203
122: C 01190203
123: WRITE (I02,90002) 01200203
124: WRITE (I02,90006) 01210203
125: WRITE (I02,90008) 01220203
126: WRITE (I02,90004) 01230203
127: WRITE (I02,90010) 01240203
128: WRITE (I02,90004) 01250203
129: WRITE (I02,90016) 01260203
130: WRITE (I02,90001) 01270203
131: WRITE (I02,90004) 01280203
132: WRITE (I02,90012) 01290203
133: WRITE (I02,90014) 01300203
134: WRITE (I02,90004) 01310203
135: C 01320203
136: C 01330203
137: C TEST 31 THROUGH TEST 33 VERIFY THAT THE CHARACTER ASSIGNMENT 01340203
138: C STATEMENT 01350203
139: C 01360203
140: C CHARACTER ARRAY ELEMENT (LEN 1) = CHARACTER CONSTANT (LEN 1) 01370203
141: C 01380203
142: C IS CORRECT. THE CHARACTER RELATIONAL EXPRESSION 01390203
143: C 01400203
144: C CHARACTER ARRAY ELEMENT (LEN 1) .EQ. CHARACTER CONSTANT (LEN 1) 01410203
145: C 01420203
146: C IS USED TO VERIFY THE ASSIGNMENT STATEMENT. BOTH OF THE ABOVE 01430203
147: C STATEMENT FORMS MUST MEET THE LANGUAGE SPECIFICATIONS FOR THESE 01440203
148: C TESTS TO PASS. 01450203
149: C 01460203
150: C THE TWO ARRAYS USED IN THESE TESTS ARE CATN11(5) AND CATN12(5)01470203
151: C THE ARRAYS ARE INITIALIZED TO A BLANK CHARACTER BY THE DO-LOOP 01480203
152: C 01490203
153: DO 312 I= 1,5 01500203
154: CATN11(I) = ' ' 01510203
155: CATN12(I) = ' ' 01520203
156: 312 CONTINUE 01530203
157: C 01540203
158: C **** FCVS PROGRAM 203 - TEST 031 **** 01550203
159: C 01560203
160: C 01570203
161: IVTNUM = 31 01580203
162: IF (ICZERO) 30310, 0310, 30310 01590203
163: 0310 CONTINUE 01600203
164: IVCOMP = 0 01610203
165: IVCORR = 1 01620203
166: CATN11(2) = 'V' 01630203
167: IF (CATN11(2) .EQ. 'V') IVCOMP = 1 01640203
168: 40310 IF (IVCOMP - 1) 20310,10310,20310 01650203
169: 30310 IVDELE = IVDELE + 1 01660203
170: WRITE (I02,80000) IVTNUM 01670203
171: IF (ICZERO) 10310, 0321, 20310 01680203
172: 10310 IVPASS = IVPASS + 1 01690203
173: WRITE (I02,80002) IVTNUM 01700203
174: GO TO 0321 01710203
175: 20310 IVFAIL = IVFAIL + 1 01720203
176: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 01730203
177: 0321 CONTINUE 01740203
178: C 01750203
179: C **** FCVS PROGRAM 203 - TEST 032 **** 01760203
180: C 01770203
181: C 01780203
182: IVTNUM = 32 01790203
183: IF (ICZERO) 30320, 0320, 30320 01800203
184: 0320 CONTINUE 01810203
185: IVCOMP=0 01820203
186: IVCORR=1 01830203
187: CATN11(3) = '+' 01840203
188: IF (CATN11(3) .EQ. '+') IVCOMP = 1 01850203
189: 40320 IF (IVCOMP - 1) 20320,10320,20320 01860203
190: 30320 IVDELE = IVDELE + 1 01870203
191: WRITE (I02,80000) IVTNUM 01880203
192: IF (ICZERO) 10320, 0331, 20320 01890203
193: 10320 IVPASS = IVPASS + 1 01900203
194: WRITE (I02,80002) IVTNUM 01910203
195: GO TO 0331 01920203
196: 20320 IVFAIL = IVFAIL + 1 01930203
197: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 01940203
198: 0331 CONTINUE 01950203
199: C 01960203
200: C **** FCVS PROGRAM 203 - TEST 033 **** 01970203
201: C 01980203
202: C 01990203
203: IVTNUM = 33 02000203
204: IF (ICZERO) 30330, 0330, 30330 02010203
205: 0330 CONTINUE 02020203
206: IVCOMP = 0 02030203
207: IVCORR = 1 02040203
208: CATN11 (4) = '7' 02050203
209: IF (CATN11 (4) .EQ. '7') IVCOMP = 1 02060203
210: 40330 IF (IVCOMP -1) 20330,10330,20330 02070203
211: 30330 IVDELE = IVDELE + 1 02080203
212: WRITE (I02,80000) IVTNUM 02090203
213: IF (ICZERO) 10330, 0341, 20330 02100203
214: 10330 IVPASS = IVPASS + 1 02110203
215: WRITE (I02,80002) IVTNUM 02120203
216: GO TO 0341 02130203
217: 20330 IVFAIL = IVFAIL + 1 02140203
218: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 02150203
219: 0341 CONTINUE 02160203
220: C 02170203
221: C TEST 34 THROUGH TEST 36 VERIFY THAT THE CHARACTER ASSIGNMENT 02180203
222: C STATEMENTS 02190203
223: C 02200203
224: C CHARACTER VARIABLE (LEN 1) = CHARACTER CONSTANT (LEN 1) 02210203
225: C CHARACTER ARRAY ELEMENT (LEN1) = CHARACTER VARIABLE (LEN1) 02220203
226: C 02230203
227: C ARE CORRECT. THE CHARACTER RELATIONAL EXPRESSION 02240203
228: C 02250203
229: C CHARACTER ARRAY ELEMENT (LEN1) .EQ. CHAR. CONSTANT (LEN1) 02260203
230: C 02270203
231: C IS USED TO VERIFY THE RESULT OF THE ASSIGNMENT STATEMENTS. 02280203
232: C 02290203
233: C 02300203
234: C **** FCVS PROGRAM 203 - TEST 034 **** 02310203
235: C 02320203
236: C 02330203
237: IVTNUM = 34 02340203
238: IF (ICZERO) 30340, 0340, 30340 02350203
239: 0340 CONTINUE 02360203
240: IVCOMP = 0 02370203
241: IVCORR = 1 02380203
242: CVTN01 = 'V' 02390203
243: CATN12(2) = CVTN01 02400203
244: IF (CATN12(2) .EQ. 'V') IVCOMP = 1 02410203
245: 40340 IF (IVCOMP - 1) 20340,10340,20340 02420203
246: 30340 IVDELE = IVDELE + 1 02430203
247: WRITE (I02,80000) IVTNUM 02440203
248: IF (ICZERO) 10340, 0351, 20340 02450203
249: 10340 IVPASS = IVPASS + 1 02460203
250: WRITE (I02,80002) IVTNUM 02470203
251: GO TO 0351 02480203
252: 20340 IVFAIL = IVFAIL + 1 02490203
253: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 02500203
254: 0351 CONTINUE 02510203
255: C 02520203
256: C **** FCVS PROGRAM 203 - TEST 035 **** 02530203
257: C 02540203
258: C 02550203
259: IVTNUM = 35 02560203
260: IF (ICZERO) 30350, 0350, 30350 02570203
261: 0350 CONTINUE 02580203
262: IVCOMP = 0 02590203
263: IVCORR = 1 02600203
264: CVTN01 = '+' 02610203
265: CATN12(3) = CVTN01 02620203
266: IF (CATN12(3) .EQ. '+') IVCOMP = 1 02630203
267: 40350 IF (IVCOMP - 1) 20350,10350,20350 02640203
268: 30350 IVDELE = IVDELE + 1 02650203
269: WRITE (I02,80000) IVTNUM 02660203
270: IF (ICZERO) 10350, 0361, 20350 02670203
271: 10350 IVPASS = IVPASS + 1 02680203
272: WRITE (I02,80002) IVTNUM 02690203
273: GO TO 0361 02700203
274: 20350 IVFAIL = IVFAIL + 1 02710203
275: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 02720203
276: 0361 CONTINUE 02730203
277: C 02740203
278: C **** FCVS PROGRAM 203 - TEST 036 **** 02750203
279: C 02760203
280: C 02770203
281: IVTNUM = 36 02780203
282: IF (ICZERO) 30360, 0360, 30360 02790203
283: 0360 CONTINUE 02800203
284: IVCOMP = 0 02810203
285: IVCORR = 1 02820203
286: CVTN01 = '7' 02830203
287: CATN12(4) = CVTN01 02840203
288: IF (CATN12(4) .EQ. '7') IVCOMP = 1 02850203
289: 40360 IF (IVCOMP - 1) 20360,10360,20360 02860203
290: 30360 IVDELE = IVDELE + 1 02870203
291: WRITE (I02,80000) IVTNUM 02880203
292: IF (ICZERO) 10360, 0371, 20360 02890203
293: 10360 IVPASS = IVPASS + 1 02900203
294: WRITE (I02,80002) IVTNUM 02910203
295: GO TO 0371 02920203
296: 20360 IVFAIL = IVFAIL + 1 02930203
297: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 02940203
298: 0371 CONTINUE 02950203
299: C 02960203
300: C TEST 37 THROUGH TEST 39 VERIFY THAT THE CHARACTER ASSIGNMENT 02970203
301: C STATEMENTS 02980203
302: C 02990203
303: C CHAR. ARRAY ELEMENT (LEN 1) = CHAR. CONSTANT (LEN 1) 03000203
304: C CHAR. ARRAY ELEMENT (LEN 1) = CHAR. ARRAY ELEMENT (LEN 1) 03010203
305: C 03020203
306: C ARE CORRECT. THE CHARACTER RELATIONAL EXPRESSION 03030203
307: C 03040203
308: C CHAR. ARRAY ELEMENT (LEN 1) .EQ. CHAR. CONSTANT (LEN 1) 03050203
309: C 03060203
310: C IS USED TO VERIFY THE RESULT OF THE ASSIGNMENT STATEMENTS. 03070203
311: C 03080203
312: C 03090203
313: C **** FCVS PROGRAM 203 - TEST 037 **** 03100203
314: C 03110203
315: C 03120203
316: IVTNUM = 37 03130203
317: IF (ICZERO) 30370, 0370, 30370 03140203
318: 0370 CONTINUE 03150203
319: IVCOMP = 1 03160203
320: IVCORR = 6 03170203
321: CATN11 (1) = 'V' 03180203
322: CATN12 (1) = CATN11 (1) 03190203
323: IF (CATN12(1) .EQ. 'V') IVCOMP=IVCOMP*2 03200203
324: IF (CATN11(1) .EQ. 'V') IVCOMP=IVCOMP*3 03210203
325: 40370 IF (IVCOMP-6) 20370,10370,20370 03220203
326: 30370 IVDELE = IVDELE + 1 03230203
327: WRITE (I02,80000) IVTNUM 03240203
328: IF (ICZERO) 10370, 0381, 20370 03250203
329: 10370 IVPASS = IVPASS + 1 03260203
330: WRITE (I02,80002) IVTNUM 03270203
331: GO TO 0381 03280203
332: 20370 IVFAIL = IVFAIL + 1 03290203
333: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 03300203
334: 0381 CONTINUE 03310203
335: C 03320203
336: C **** FCVS PROGRAM 203 - TEST 038 **** 03330203
337: C 03340203
338: C 03350203
339: IVTNUM = 38 03360203
340: IF (ICZERO) 30380, 0380, 30380 03370203
341: 0380 CONTINUE 03380203
342: IVCOMP=1 03390203
343: IVCORR=6 03400203
344: CATN11(2) = '+' 03410203
345: CATN12(2) = CATN11(2) 03420203
346: IF (CATN12(2) .EQ. '+') IVCOMP=IVCOMP*2 03430203
347: IF (CATN11(2) .EQ. '+') IVCOMP=IVCOMP*3 03440203
348: 40380 IF (IVCOMP - 6) 20380,10380,20380 03450203
349: 30380 IVDELE = IVDELE + 1 03460203
350: WRITE (I02,80000) IVTNUM 03470203
351: IF (ICZERO) 10380, 0391, 20380 03480203
352: 10380 IVPASS = IVPASS + 1 03490203
353: WRITE (I02,80002) IVTNUM 03500203
354: GO TO 0391 03510203
355: 20380 IVFAIL = IVFAIL + 1 03520203
356: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 03530203
357: 0391 CONTINUE 03540203
358: C 03550203
359: C **** FCVS PROGRAM 203 - TEST 039 **** 03560203
360: C 03570203
361: C 03580203
362: IVTNUM = 39 03590203
363: IF (ICZERO) 30390, 0390, 30390 03600203
364: 0390 CONTINUE 03610203
365: IVCOMP = 1 03620203
366: IVCORR = 6 03630203
367: CATN11 (3) = '7' 03640203
368: CATN12 (3) = CATN11 (3) 03650203
369: IF (CATN12(3) .EQ. '7') IVCOMP = IVCOMP * 2 03660203
370: IF (CATN11(3) .EQ. '7') IVCOMP = IVCOMP * 3 03670203
371: 40390 IF (IVCOMP - 6) 20390,10390,20390 03680203
372: 30390 IVDELE = IVDELE + 1 03690203
373: WRITE (I02,80000) IVTNUM 03700203
374: IF (ICZERO) 10390, 0401, 20390 03710203
375: 10390 IVPASS = IVPASS + 1 03720203
376: WRITE (I02,80002) IVTNUM 03730203
377: GO TO 0401 03740203
378: 20390 IVFAIL = IVFAIL + 1 03750203
379: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 03760203
380: 0401 CONTINUE 03770203
381: C 03780203
382: C TEST 40 AND TEST 41 VERIFY THAT THE CHARACTER ASSIGNMENT 03790203
383: C STATEMENTS 03800203
384: C 03810203
385: C CHAR. ARRAY ELEMENT (LEN 1) = CHAR. CONSTANT (LEN 1) 03820203
386: C CHAR. VARIABLE (LEN 1) = CHAR. ARRAY ELEMENT (LEN 1) 03830203
387: C 03840203
388: C ARE CORRECT. 03850203
389: C 03860203
390: C 03870203
391: C **** FCVS PROGRAM 203 - TEST 040 **** 03880203
392: C 03890203
393: C 03900203
394: IVTNUM = 40 03910203
395: IF (ICZERO) 30400, 0400, 30400 03920203
396: 0400 CONTINUE 03930203
397: IVCOMP = 0 03940203
398: IVCORR = 1 03950203
399: CATN11(4) = 'X' 03960203
400: CVTN02 = CATN11 (4) 03970203
401: IF (CVTN02 .EQ. 'X') IVCOMP = 1 03980203
402: 40400 IF (IVCOMP - 1) 20400,10400,20400 03990203
403: 30400 IVDELE = IVDELE + 1 04000203
404: WRITE (I02,80000) IVTNUM 04010203
405: IF (ICZERO) 10400, 0411, 20400 04020203
406: 10400 IVPASS = IVPASS + 1 04030203
407: WRITE (I02,80002) IVTNUM 04040203
408: GO TO 0411 04050203
409: 20400 IVFAIL = IVFAIL + 1 04060203
410: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 04070203
411: 0411 CONTINUE 04080203
412: C 04090203
413: C **** FCVS PROGRAM 203 - TEST 041 **** 04100203
414: C 04110203
415: C 04120203
416: IVTNUM = 41 04130203
417: IF (ICZERO) 30410, 0410, 30410 04140203
418: 0410 CONTINUE 04150203
419: IVCOMP = 0 04160203
420: IVCORR = 1 04170203
421: CATN11(3) = '-' 04180203
422: CVTN02 = CATN11(3) 04190203
423: IF (CVTN02 .EQ. '-') IVCOMP=1 04200203
424: 40410 IF (IVCOMP - 1) 20410,10410,20410 04210203
425: 30410 IVDELE = IVDELE + 1 04220203
426: WRITE (I02,80000) IVTNUM 04230203
427: IF (ICZERO) 10410, 0421, 20410 04240203
428: 10410 IVPASS = IVPASS + 1 04250203
429: WRITE (I02,80002) IVTNUM 04260203
430: GO TO 0421 04270203
431: 20410 IVFAIL = IVFAIL + 1 04280203
432: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 04290203
433: 0421 CONTINUE 04300203
434: C 04310203
435: C TEST 42 THROUGH TEST 44 VERIFY THE RESULTS OF CHARACTER 04320203
436: C RELATIONAL EXPRESSIONS USING EACH OF THE SIX RELATIONAL OPERATORS.04330203
437: C THE CHARACTER DATA 'A' AND '1' ARE COMPARED IN THE EXPRESSION 04340203
438: C AND ARE INITIALIZED BY THE CHARACTER ASSIGNMENT STATEMENTS 04350203
439: C 04360203
440: CATN11 (4) = 'A' 04370203
441: CATN12 (3) = '1' 04380203
442: CVTN01 = 'A' 04390203
443: CVTN02 = '1' 04400203
444: C 04410203
445: C **** FCVS PROGRAM 203 - TEST 042 **** 04420203
446: C 04430203
447: C RELATIONAL OPERATORS .NE. AND .EQ. 04440203
448: C CHAR. ARRAY ELEMENT (LEN 1) RELOP CHAR. CONSTANT (LEN 1) 04450203
449: C 04460203
450: IVTNUM = 42 04470203
451: IF (ICZERO) 30420, 0420, 30420 04480203
452: 0420 CONTINUE 04490203
453: IVCOMP = 1 04500203
454: IVCORR = 3 04510203
455: IF (CATN11(4) .EQ. '1') IVCOMP=IVCOMP*2 04520203
456: IF ('A' .NE. CATN12(3)) IVCOMP=IVCOMP*3 04530203
457: 40420 IF (IVCOMP - 3) 20420,10420,20420 04540203
458: 30420 IVDELE = IVDELE + 1 04550203
459: WRITE (I02,80000) IVTNUM 04560203
460: IF (ICZERO) 10420, 0431, 20420 04570203
461: 10420 IVPASS = IVPASS + 1 04580203
462: WRITE (I02,80002) IVTNUM 04590203
463: GO TO 0431 04600203
464: 20420 IVFAIL = IVFAIL + 1 04610203
465: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 04620203
466: 0431 CONTINUE 04630203
467: C 04640203
468: C **** FCVS PROGRAM 203 - TEST 043 **** 04650203
469: C 04660203
470: C RELATIONAL OPERATORS .LE. AND .GE. 04670203
471: C CHAR. ARRAY ELEMENT (LEN 1) RELOP CHAR. VARIABLE (LEN 1) 04680203
472: C 04690203
473: IVTNUM = 43 04700203
474: IF (ICZERO) 30430, 0430, 30430 04710203
475: 0430 CONTINUE 04720203
476: IVCOMP = 0 04730203
477: IVCORR = 1 04740203
478: IF (CATN11(4) .LE. CVTN02) IVCOMP=IVCOMP+1 04750203
479: IF (CVTN01 .GE. CATN12(3)) IVCOMP=IVCOMP+1 04760203
480: 40430 IF (IVCOMP - 1) 20430,10430,20430 04770203
481: 30430 IVDELE = IVDELE + 1 04780203
482: WRITE (I02,80000) IVTNUM 04790203
483: IF (ICZERO) 10430, 0441, 20430 04800203
484: 10430 IVPASS = IVPASS + 1 04810203
485: WRITE (I02,80002) IVTNUM 04820203
486: GO TO 0441 04830203
487: 20430 IVFAIL = IVFAIL + 1 04840203
488: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 04850203
489: 0441 CONTINUE 04860203
490: C 04870203
491: C **** FCVS PROGRAM 203 - TEST 044 **** 04880203
492: C 04890203
493: C RELATIONAL OPERATORS .LT. AND .GT. 04900203
494: C CHAR. ARRAY ELEMENT (LEN 1) RELOP CHAR. ARRAY ELEMENT (LEN 1) 04910203
495: C 04920203
496: IVTNUM = 44 04930203
497: IF (ICZERO) 30440, 0440, 30440 04940203
498: 0440 CONTINUE 04950203
499: IVCOMP = 0 04960203
500: IVCORR = 1 04970203
501: IF (CATN11(4) .LT. CATN12(3)) IVCOMP=IVCOMP+1 04980203
502: IF (CATN11(4) .GT. CATN12(3)) IVCOMP=IVCOMP+1 04990203
503: 40440 IF (IVCOMP - 1) 20440,10440,20440 05000203
504: 30440 IVDELE = IVDELE + 1 05010203
505: WRITE (I02,80000) IVTNUM 05020203
506: IF (ICZERO) 10440, 0451, 20440 05030203
507: 10440 IVPASS = IVPASS + 1 05040203
508: WRITE (I02,80002) IVTNUM 05050203
509: GO TO 0451 05060203
510: 20440 IVFAIL = IVFAIL + 1 05070203
511: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 05080203
512: 0451 CONTINUE 05090203
513: C 05100203
514: C **** FCVS PROGRAM 203 - TEST 045 **** 05110203
515: C 05120203
516: C TEST 45 VERIFIES THAT THE LAST ELEMENTS OF THE ARRAYS USED 05130203
517: C IN TEST 31 THROUGH TEST 44 WERE NOT AFFECTED BY THE SETTING 05140203
518: C OF OTHER CHARACTER ARRAY ELEMENTS. 05150203
519: C 05160203
520: IVTNUM = 45 05170203
521: IF (ICZERO) 30450, 0450, 30450 05180203
522: 0450 CONTINUE 05190203
523: IVCOMP = 1 05200203
524: IVCORR = 30 05210203
525: IF (CATN11(5) .EQ. ' ') IVCOMP=IVCOMP*2 05220203
526: IF (CATN12(5) .EQ. ' ') IVCOMP=IVCOMP*3 05230203
527: IF (CATN11(5) .EQ. CATN12(5)) IVCOMP=IVCOMP*5 05240203
528: 40450 IF (IVCOMP - 30) 20450,10450,20450 05250203
529: 30450 IVDELE = IVDELE + 1 05260203
530: WRITE (I02,80000) IVTNUM 05270203
531: IF (ICZERO) 10450, 0461, 20450 05280203
532: 10450 IVPASS = IVPASS + 1 05290203
533: WRITE (I02,80002) IVTNUM 05300203
534: GO TO 0461 05310203
535: 20450 IVFAIL = IVFAIL + 1 05320203
536: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 05330203
537: 0461 CONTINUE 05340203
538: C 05350203
539: C TEST 46 THROUGH TEST 49 CONTAIN CHARACTER ARRAY ELEMENTS OF 05360203
540: C LENGTH TWO IN CHARACTER ASSIGNMENT STATEMENTS. THE CHARACTER 05370203
541: C RELATIONAL EXPRESSION 05380203
542: C 05390203
543: C CHAR. ARRAY ELEMENT (LEN 2) .EQ. CHAR. CONSTANT (LEN 2) 05400203
544: C 05410203
545: C IS USED TO VERIFY THE TEST RESULTS. 05420203
546: C 05430203
547: C THE TWO ARRAYS USED IN THESE TESTS ARE CATN13(5) AND CATN14(5)05440203
548: C THE ARRAYS ARE INITIALIZED TO TWO BLANK CHARACTERS BY THE DO-LOOP 05450203
549: C 05460203
550: DO 462 I=1,5 05470203
551: CATN13(I) = ' ' 05480203
552: CATN14(I) = ' ' 05490203
553: 462 CONTINUE 05500203
554: C 05510203
555: C **** FCVS PROGRAM 203 - TEST 046 **** 05520203
556: C 05530203
557: C CHAR. ARRAY ELEMENT (LEN 2) = CHAR. CONSTANT (LEN 2) 05540203
558: C 05550203
559: IVTNUM = 46 05560203
560: IF (ICZERO) 30460, 0460, 30460 05570203
561: 0460 CONTINUE 05580203
562: IVCOMP = 0 05590203
563: IVCORR = 1 05600203
564: CATN13(1) = 'AB' 05610203
565: IF (CATN13(1) .EQ. 'AB') IVCOMP = 1 05620203
566: 40460 IF (IVCOMP - 1) 20460,10460,20460 05630203
567: 30460 IVDELE = IVDELE + 1 05640203
568: WRITE (I02,80000) IVTNUM 05650203
569: IF (ICZERO) 10460, 0471, 20460 05660203
570: 10460 IVPASS = IVPASS + 1 05670203
571: WRITE (I02,80002) IVTNUM 05680203
572: GO TO 0471 05690203
573: 20460 IVFAIL = IVFAIL + 1 05700203
574: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 05710203
575: 0471 CONTINUE 05720203
576: C 05730203
577: C **** FCVS PROGRAM 203 - TEST 047 **** 05740203
578: C 05750203
579: C CHAR. VARIABLE (LEN 2) = CHAR. CONSTANT (LEN 2) 05760203
580: C CHAR. ARRAY ELEMENT (LEN 2) = CHAR. VARIABLE (LEN 2) 05770203
581: C 05780203
582: IVTNUM = 47 05790203
583: IF (ICZERO) 30470, 0470, 30470 05800203
584: 0470 CONTINUE 05810203
585: IVCOMP = 0 05820203
586: IVCORR = 1 05830203
587: CVTN03 = '+-' 05840203
588: CATN13(2) = CVTN03 05850203
589: IF (CATN13(2) .EQ. '+-') IVCOMP=1 05860203
590: 40470 IF (IVCOMP - 1) 20470,10470,20470 05870203
591: 30470 IVDELE = IVDELE + 1 05880203
592: WRITE (I02,80000) IVTNUM 05890203
593: IF (ICZERO) 10470, 0481, 20470 05900203
594: 10470 IVPASS = IVPASS + 1 05910203
595: WRITE (I02,80002) IVTNUM 05920203
596: GO TO 0481 05930203
597: 20470 IVFAIL = IVFAIL + 1 05940203
598: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 05950203
599: 0481 CONTINUE 05960203
600: C 05970203
601: C **** FCVS PROGRAM 203 - TEST 048 **** 05980203
602: C 05990203
603: C CHAR. ARRAY ELEMENT (LEN 2) = CHAR. CONSTANT (LEN 2) 06000203
604: C CHAR. ARRAY ELEMENT (LEN 2) = CHAR. ARRAY ELEMENT (LEN 2) 06010203
605: C 06020203
606: IVTNUM = 48 06030203
607: IF (ICZERO) 30480, 0480, 30480 06040203
608: 0480 CONTINUE 06050203
609: IVCOMP = 0 06060203
610: IVCORR = 1 06070203
611: CATN13(4) = '24' 06080203
612: CATN13(3) = CATN13(4) 06090203
613: IF (CATN13(3) .EQ. '24') IVCOMP = 1 06100203
614: 40480 IF (IVCOMP - 1) 20480,10480,20480 06110203
615: 30480 IVDELE = IVDELE + 1 06120203
616: WRITE (I02,80000) IVTNUM 06130203
617: IF (ICZERO) 10480, 0491, 20480 06140203
618: 10480 IVPASS = IVPASS + 1 06150203
619: WRITE (I02,80002) IVTNUM 06160203
620: GO TO 0491 06170203
621: 20480 IVFAIL = IVFAIL + 1 06180203
622: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 06190203
623: 0491 CONTINUE 06200203
624: C 06210203
625: C **** FCVS PROGRAM 203 - TEST 049 **** 06220203
626: C 06230203
627: C CHAR. ARRAY ELEMENT (LEN 2) = CHAR. CONSTANT (LEN 2) 06240203
628: C CHAR. VARIABLE (LEN 2) = CHAR. ARRAY ELEMENT (LEN 2) 06250203
629: C 06260203
630: IVTNUM = 49 06270203
631: IF (ICZERO) 30490, 0490, 30490 06280203
632: 0490 CONTINUE 06290203
633: IVCOMP = 0 06300203
634: IVCORR = 1 06310203
635: CATN14(1) = 'AB' 06320203
636: CVTN04 = CATN14(1) 06330203
637: IF (CVTN04 .EQ. 'AB') IVCOMP = 1 06340203
638: 40490 IF (IVCOMP - 1) 20490,10490,20490 06350203
639: 30490 IVDELE = IVDELE + 1 06360203
640: WRITE (I02,80000) IVTNUM 06370203
641: IF (ICZERO) 10490, 0501, 20490 06380203
642: 10490 IVPASS = IVPASS + 1 06390203
643: WRITE (I02,80002) IVTNUM 06400203
644: GO TO 0501 06410203
645: 20490 IVFAIL = IVFAIL + 1 06420203
646: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 06430203
647: 0501 CONTINUE 06440203
648: C 06450203
649: C TEST 50 THROUGH TEST 52 VERIFY THE RESULTS OF CHARACTER 06460203
650: C RELATIONAL EXPRESSIONS USING EACH OF THE SIX RELATIONAL OPERATORS.06470203
651: C THE CHARACTER DATA 'ZA' AND 'Z1' ARE COMPARED IN THE EXPRESSION 06480203
652: C AND ARE INITIALIZED BY THE CHARACTER ASSIGNMENT STATEMENTS 06490203
653: C 06500203
654: CATN14(2) = 'ZA' 06510203
655: CATN14(3) = 'Z1' 06520203
656: CVTN03 = 'ZA' 06530203
657: CVTN04 = 'Z1' 06540203
658: C 06550203
659: C **** FCVS PROGRAM 203 - TEST 050 **** 06560203
660: C 06570203
661: C RELATIONAL OPERATORS .NE. AND .EQ. 06580203
662: C CHAR. ARRAY ELEMENT (LEN 2) RELOP CHAR. VARIABLE (LEN 2) 06590203
663: C 06600203
664: IVTNUM = 50 06610203
665: IF (ICZERO) 30500, 0500, 30500 06620203
666: 0500 CONTINUE 06630203
667: IVCOMP = 1 06640203
668: IVCORR = 3 06650203
669: IF (CATN14(2) .EQ. 'Z1') IVCOMP=IVCOMP*2 06660203
670: IF ('ZA' .NE. CATN14(3)) IVCOMP=IVCOMP*3 06670203
671: 40500 IF (IVCOMP - 3) 20500,10500,20500 06680203
672: 30500 IVDELE = IVDELE + 1 06690203
673: WRITE (I02,80000) IVTNUM 06700203
674: IF (ICZERO) 10500, 0511, 20500 06710203
675: 10500 IVPASS = IVPASS + 1 06720203
676: WRITE (I02,80002) IVTNUM 06730203
677: GO TO 0511 06740203
678: 20500 IVFAIL = IVFAIL + 1 06750203
679: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 06760203
680: 0511 CONTINUE 06770203
681: C 06780203
682: C **** FCVS PROGRAM 203 - TEST 051 **** 06790203
683: C 06800203
684: C RELATIONAL OPERATORS .LE. AND .GE. 06810203
685: C CHAR. ARRAY ELEMENT (LEN 2) RELOP CHAR. VARIABLE (LEN 2) 06820203
686: C 06830203
687: IVTNUM = 51 06840203
688: IF (ICZERO) 30510, 0510, 30510 06850203
689: 0510 CONTINUE 06860203
690: IVCOMP = 0 06870203
691: IVCORR = 1 06880203
692: IF (CATN14(2) .LE. CVTN04) IVCOMP=IVCOMP+1 06890203
693: IF (CVTN03 .GE. CATN14(3)) IVCOMP=IVCOMP+1 06900203
694: 40510 IF (IVCOMP - 1) 20510,10510,20510 06910203
695: 30510 IVDELE = IVDELE + 1 06920203
696: WRITE (I02,80000) IVTNUM 06930203
697: IF (ICZERO) 10510, 0521, 20510 06940203
698: 10510 IVPASS = IVPASS + 1 06950203
699: WRITE (I02,80002) IVTNUM 06960203
700: GO TO 0521 06970203
701: 20510 IVFAIL = IVFAIL + 1 06980203
702: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 06990203
703: 0521 CONTINUE 07000203
704: C 07010203
705: C **** FCVS PROGRAM 203 - TEST 052 **** 07020203
706: C 07030203
707: C RELATIONAL OPERATORS .LT. AND .GT. 07040203
708: C CHAR. ARRAY ELEMENT (LEN 2) RELOP CHAR. ARRAY ELEMENT (LEN 2) 07050203
709: C 07060203
710: IVTNUM = 52 07070203
711: IF (ICZERO) 30520, 0520, 30520 07080203
712: 0520 CONTINUE 07090203
713: IVCOMP =0 07100203
714: IVCORR =1 07110203
715: IF (CATN14(2) .LT. CATN14(3)) IVCOMP=IVCOMP+1 07120203
716: IF (CATN14(2) .GT. CATN14(3)) IVCOMP=IVCOMP+1 07130203
717: 40520 IF (IVCOMP - 1) 20520,10520,20520 07140203
718: 30520 IVDELE = IVDELE + 1 07150203
719: WRITE (I02,80000) IVTNUM 07160203
720: IF (ICZERO) 10520, 0531, 20520 07170203
721: 10520 IVPASS = IVPASS + 1 07180203
722: WRITE (I02,80002) IVTNUM 07190203
723: GO TO 0531 07200203
724: 20520 IVFAIL = IVFAIL + 1 07210203
725: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 07220203
726: 0531 CONTINUE 07230203
727: C 07240203
728: C **** FCVS PROGRAM 203 - TEST 053 **** 07250203
729: C 07260203
730: C TEST 53 VERIFIES THAT THE LAST ELEMENTS OF THE ARRAYS USED IN 07270203
731: C TEST 46 THROUGH TEST 52 WERE NOT AFFECTED BY THE SETTING OF OTHER 07280203
732: C CHARACTER ARRAY ELEMENTS. 07290203
733: C 07300203
734: IVTNUM = 53 07310203
735: IF (ICZERO) 30530, 0530, 30530 07320203
736: 0530 CONTINUE 07330203
737: IVCOMP = 1 07340203
738: IVCORR = 30 07350203
739: IF (CATN13(5) .EQ. ' ')IVCOMP=IVCOMP*2 07360203
740: IF (CATN14(5) .EQ. ' ') IVCOMP= IVCOMP * 3 07370203
741: IF (CATN14(5) .EQ. CATN13(5)) IVCOMP=IVCOMP*5 07380203
742: 40530 IF (IVCOMP - 30) 20530,10530,20530 07390203
743: 30530 IVDELE = IVDELE + 1 07400203
744: WRITE (I02,80000) IVTNUM 07410203
745: IF (ICZERO) 10530, 0541, 20530 07420203
746: 10530 IVPASS = IVPASS + 1 07430203
747: WRITE (I02,80002) IVTNUM 07440203
748: GO TO 0541 07450203
749: 20530 IVFAIL = IVFAIL + 1 07460203
750: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 07470203
751: 0541 CONTINUE 07480203
752: C 07490203
753: C TEST 54 THROUGH TEST 60 VERIFY THAT A CHARACTER PRIMARY CAN 07500203
754: C BE ENCLOSED IN PARENTHESES. THE CHARACTER PRIMARIES FOR THE 07510203
755: C SUBSET ARE CHARACTER CONSTANT, CHARACTER VARIABLE, CHARACTER ARRAY07520203
756: C ELEMENT, AND CHARACTER EXPRESSION ENCLOSED IN PARENTHESES. THE 07530203
757: C FORM OF A CHARACTER EXPRESSION IS CHARACTER PRIMARY. 07540203
758: C 07550203
759: C 07560203
760: C **** FCVS PROGRAM 203 - TEST 054 **** 07570203
761: C 07580203
762: C CHARACTER ASSIGNMENT STATEMENT 07590203
763: C CHAR. VARIABLE = (CHARACTER CONSTANT) LENGTH 1 07600203
764: C 07610203
765: IVTNUM = 54 07620203
766: IF (ICZERO) 30540, 0540, 30540 07630203
767: 0540 CONTINUE 07640203
768: CVTN01 = ' ' 07650203
769: IVCOMP = 0 07660203
770: IVCORR = 1 07670203
771: CVTN01 = ('N') 07680203
772: IF (CVTN01 .EQ. 'N') IVCOMP = 1 07690203
773: 40540 IF (IVCOMP - 1) 20540,10540,20540 07700203
774: 30540 IVDELE = IVDELE + 1 07710203
775: WRITE (I02,80000) IVTNUM 07720203
776: IF (ICZERO) 10540, 0551, 20540 07730203
777: 10540 IVPASS = IVPASS + 1 07740203
778: WRITE (I02,80002) IVTNUM 07750203
779: GO TO 0551 07760203
780: 20540 IVFAIL = IVFAIL + 1 07770203
781: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 07780203
782: 0551 CONTINUE 07790203
783: C 07800203
784: C **** FCVS PROGRAM 203 - TEST 055 **** 07810203
785: C 07820203
786: C CHARACTER ASSIGNMENT STATEMENT 07830203
787: C CHAR. VARIABLE = (CHAR. VARIABLE) LENGTH 2 07840203
788: C 07850203
789: IVTNUM = 55 07860203
790: IF (ICZERO) 30550, 0550, 30550 07870203
791: 0550 CONTINUE 07880203
792: CVTN04 = ' ' 07890203
793: IVCOMP = 0 07900203
794: IVCORR = 1 07910203
795: CVTN03 = '/+' 07920203
796: CVTN04 = (CVTN03) 07930203
797: IF (CVTN04 .EQ. '/+') IVCOMP=1 07940203
798: 40550 IF (IVCOMP - 1) 20550,10550,20550 07950203
799: 30550 IVDELE = IVDELE + 1 07960203
800: WRITE (I02,80000) IVTNUM 07970203
801: IF (ICZERO) 10550, 0561, 20550 07980203
802: 10550 IVPASS = IVPASS + 1 07990203
803: WRITE (I02,80002) IVTNUM 08000203
804: GO TO 0561 08010203
805: 20550 IVFAIL = IVFAIL + 1 08020203
806: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 08030203
807: 0561 CONTINUE 08040203
808: C 08050203
809: C **** FCVS PROGRAM 203 - TEST 056 **** 08060203
810: C 08070203
811: C CHARACTER ASSIGNMENT STATEMENT 08080203
812: C CHAR. VARIABLE = (CHAR. ARRAY ELEMENT) LENGTH 2 08090203
813: C 08100203
814: IVTNUM = 56 08110203
815: IF (ICZERO) 30560, 0560, 30560 08120203
816: 0560 CONTINUE 08130203
817: IVCOMP = 0 08140203
818: IVCORR = 1 08150203
819: CVTN04 = ' ' 08160203
820: CATN13(1) = 'BC' 08170203
821: CVTN04 = (CATN13(1)) 08180203
822: IF (CVTN04 .EQ. 'BC') IVCOMP = 1 08190203
823: 40560 IF (IVCOMP - 1) 20560,10560,20560 08200203
824: 30560 IVDELE = IVDELE + 1 08210203
825: WRITE (I02,80000) IVTNUM 08220203
826: IF (ICZERO) 10560, 0571, 20560 08230203
827: 10560 IVPASS = IVPASS + 1 08240203
828: WRITE (I02,80002) IVTNUM 08250203
829: GO TO 0571 08260203
830: 20560 IVFAIL = IVFAIL + 1 08270203
831: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 08280203
832: 0571 CONTINUE 08290203
833: C 08300203
834: C **** FCVS PROGRAM 203 - TEST 057 **** 08310203
835: C 08320203
836: C CHARACTER ASSIGNMENT STATEMENT 08330203
837: C CHAR. VARIABLE = ((CHAR. ARRAY ELEMENT)) LENGTH 2 08340203
838: C 08350203
839: IVTNUM = 57 08360203
840: IF (ICZERO) 30570, 0570, 30570 08370203
841: 0570 CONTINUE 08380203
842: IVCOMP = 0 08390203
843: IVCORR = 1 08400203
844: CVTN04 = ' ' 08410203
845: CATN13(3) = 'BC' 08420203
846: CVTN04 = ((CATN13(3))) 08430203
847: IF (CVTN04 .EQ. 'BC') IVCOMP=1 08440203
848: 40570 IF (IVCOMP - 1) 20570,10570,20570 08450203
849: 30570 IVDELE = IVDELE + 1 08460203
850: WRITE (I02,80000) IVTNUM 08470203
851: IF (ICZERO) 10570, 0581, 20570 08480203
852: 10570 IVPASS = IVPASS + 1 08490203
853: WRITE (I02,80002) IVTNUM 08500203
854: GO TO 0581 08510203
855: 20570 IVFAIL = IVFAIL + 1 08520203
856: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 08530203
857: 0581 CONTINUE 08540203
858: C 08550203
859: C **** FCVS PROGRAM 203 - TEST 058 **** 08560203
860: C 08570203
861: C RELATIONAL EXPRESSION, .NE. 08580203
862: C (CHAR. CONSTANT) .NE. (CHAR. VARIABLE) LENGTH 1 08590203
863: C 08600203
864: IVTNUM = 58 08610203
865: IF (ICZERO) 30580, 0580, 30580 08620203
866: 0580 CONTINUE 08630203
867: IVCOMP = 0 08640203
868: IVCORR = 1 08650203
869: CVTN01 = '6' 08660203
870: IF (('9') .NE. (CVTN01)) IVCOMP=1 08670203
871: 40580 IF (IVCOMP - 1) 20580,10580,20580 08680203
872: 30580 IVDELE = IVDELE + 1 08690203
873: WRITE (I02,80000) IVTNUM 08700203
874: IF (ICZERO) 10580, 0591, 20580 08710203
875: 10580 IVPASS = IVPASS + 1 08720203
876: WRITE (I02,80002) IVTNUM 08730203
877: GO TO 0591 08740203
878: 20580 IVFAIL = IVFAIL + 1 08750203
879: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 08760203
880: 0591 CONTINUE 08770203
881: C 08780203
882: C **** FCVS PROGRAM 203 - TEST 059 **** 08790203
883: C 08800203
884: C RELATIONAL EXPRESSION, .GE. 08810203
885: C (CHAR. VARIABLE) .GE. (CHAR. ARRAY ELEMENT) LENGTH 2 08820203
886: C 08830203
887: IVTNUM = 59 08840203
888: IF (ICZERO) 30590, 0590, 30590 08850203
889: 0590 CONTINUE 08860203
890: IVCOMP = 0 08870203
891: IVCORR = 1 08880203
892: CVTN03 = 'DE' 08890203
893: CATN13(5) = 'DE' 08900203
894: IF ((CVTN03) .GE. (CATN13(5))) IVCOMP=1 08910203
895: 40590 IF (IVCOMP - 1) 20590,10590,20590 08920203
896: 30590 IVDELE = IVDELE + 1 08930203
897: WRITE (I02,80000) IVTNUM 08940203
898: IF (ICZERO) 10590, 0601, 20590 08950203
899: 10590 IVPASS = IVPASS + 1 08960203
900: WRITE (I02,80002) IVTNUM 08970203
901: GO TO 0601 08980203
902: 20590 IVFAIL = IVFAIL + 1 08990203
903: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 09000203
904: 0601 CONTINUE 09010203
905: C 09020203
906: C **** FCVS PROGRAM 203 - TEST 060 **** 09030203
907: C 09040203
908: C RELATIONAL EXPRESSION, .LE. 09050203
909: C ((CHAR. ARRAY ELEMENT)) .LE. ((CHAR. ARRAY ELEMENT)) LEN 2 09060203
910: C 09070203
911: IVTNUM = 60 09080203
912: IF (ICZERO) 30600, 0600, 30600 09090203
913: 0600 CONTINUE 09100203
914: IVCOMP = 0 09110203
915: IVCORR = 1 09120203
916: CATN13(4) = 'MC' 09130203
917: CATN13(5) = 'MC' 09140203
918: IF (((CATN13(4))) .LE. ((CATN13(5)))) IVCOMP = 1 09150203
919: 40600 IF (IVCOMP - 1) 20600,10600,20600 09160203
920: 30600 IVDELE = IVDELE + 1 09170203
921: WRITE (I02,80000) IVTNUM 09180203
922: IF (ICZERO) 10600, 0611, 20600 09190203
923: 10600 IVPASS = IVPASS + 1 09200203
924: WRITE (I02,80002) IVTNUM 09210203
925: GO TO 0611 09220203
926: 20600 IVFAIL = IVFAIL + 1 09230203
927: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 09240203
928: 0611 CONTINUE 09250203
929: C 09260203
930: C 09270203
931: C WRITE OUT TEST SUMMARY 09280203
932: C 09290203
933: WRITE (I02,90004) 09300203
934: WRITE (I02,90014) 09310203
935: WRITE (I02,90004) 09320203
936: WRITE (I02,90000) 09330203
937: WRITE (I02,90004) 09340203
938: WRITE (I02,90020) IVFAIL 09350203
939: WRITE (I02,90022) IVPASS 09360203
940: WRITE (I02,90024) IVDELE 09370203
941: STOP 09380203
942: 90001 FORMAT (1H ,24X,5HFM203) 09390203
943: 90000 FORMAT (1H ,20X,20HEND OF PROGRAM FM203) 09400203
944: C 09410203
945: C FORMATS FOR TEST DETAIL LINES 09420203
946: C 09430203
947: 80000 FORMAT (1H ,4X,I5,6X,7HDELETED) 09440203
948: 80002 FORMAT (1H ,4X,I5,7X,4HPASS) 09450203
949: 80010 FORMAT (1H ,4X,I5,7X,4HFAIL,10X,I6,9X,I6) 09460203
950: 80012 FORMAT (1H ,4X,I5,7X,4HFAIL,4X,E12.5,3X,E12.5) 09470203
951: 80018 FORMAT (1H ,4X,I5,7X,4HFAIL,2X,A14,1X,A14) 09480203
952: C 09490203
953: C FORMAT STATEMENTS FOR PAGE HEADERS 09500203
954: C 09510203
955: 90002 FORMAT (1H1) 09520203
956: 90004 FORMAT (1H ) 09530203
957: 90006 FORMAT (1H ,10X,34HFORTRAN COMPILER VALIDATION SYSTEM) 09540203
958: 90008 FORMAT (1H ,21X,11HVERSION 1.0) 09550203
959: 90010 FORMAT (1H ,8X,38HFOR OFFICIAL USE ONLY - COPYRIGHT 1978) 09560203
960: 90012 FORMAT (1H ,5X,4HTEST,5X,9HPASS/FAIL,5X,8HCOMPUTED,8X,7HCORRECT) 09570203
961: 90014 FORMAT (1H ,5X,46H----------------------------------------------) 09580203
962: 90016 FORMAT (1H ,18X,17HSUBSET LEVEL TEST) 09590203
963: C 09600203
964: C FORMAT STATEMENTS FOR RUN SUMMARY 09610203
965: C 09620203
966: 90020 FORMAT (1H ,19X,I5,13H TESTS FAILED) 09630203
967: 90022 FORMAT (1H ,19X,I5,13H TESTS PASSED) 09640203
968: 90024 FORMAT (1H ,19X,I5,14H TESTS DELETED) 09650203
969: END 09660203
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.