![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to FM202.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 FM202.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 FM202 00010202
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 00020202
6: C 00030202
7: C THIS ROUTINE IS THE FIRST ROUTINE TO TEST CHARACTER DATA 00040202
8: C TYPES. CHARACTER TYPE-STATEMENTS SPECIFY CHARACTER VARIABLES OF 00050202
9: C LENGTH ONE AND LENGTH TWO. THE TESTS IN THIS ROUTINE DETERMINE 00060202
10: C THAT THE FOLLOWING LANGUAGE FEATURES FUNCTION CORRECTLY. 00070202
11: C 00080202
12: C (1) CHARACTER ASSIGNMENT STATEMENTS OF THE FORM 00090202
13: C 00100202
14: C CHARACTER VARIABLE = CHARACTER CONSTANT 00110202
15: C CHARACTER VARIABLE = CHARACTER VARIABLE 00120202
16: C 00130202
17: C WHERE THE VARIABLES AND CONSTANTS ARE THE SAME LENGTH. 00140202
18: C 00150202
19: C (2) THE REPRESENTATION OF AN APOSTROPHE IN A CHARACTER 00160202
20: C CONSTANT IS TWO CONSECUTIVE APOSTROPHES WITH NO INTERVENING 00170202
21: C BLANKS. 00180202
22: C 00190202
23: C (3) CHARACTER RELATIONAL EXPRESSION OF THE FORM 00200202
24: C 00210202
25: C CHARACTER VARIABLE RELOP CHARACTER CONSTANT 00220202
26: C CHARACTER CONSTANT RELOP CHARACTER VARIABLE 00230202
27: C CHARACTER VARIABLE RELOP CHARACTER VARIABLE 00240202
28: C 00250202
29: C WHERE THE CHARACTER ENTITIES ARE THE SAME LENGTH. 00260202
30: C 00270202
31: C (4) CHARACTER RELATIONAL EXPRESSIONS OF THE FORM 00280202
32: C 00290202
33: C CHARACTER VARIABLE .EQ. CHARACTER CONSTANT 00300202
34: C 00310202
35: C ARE USED IN THIS ROUTINE TO VERIFY THE CHARACTER ASSIGNMENT 00320202
36: C STATEMENTS. 00330202
37: C 00340202
38: C REFERENCES 00350202
39: C AMERICAN NATIONAL STANDARD PROGRAMMING LANGUAGE FORTRAN, 00360202
40: C X3.9-1978 00370202
41: C 00380202
42: C SECTION 4.8, CHARACTER TYPE 00390202
43: C SECTION 4.8.1, CHARACTER CONSTANT 00400202
44: C SECTION 6.2, CHARACTER EXPRESSIONS 00410202
45: C SECTION 6.3.4, CHARACTER RELATIONAL EXPRESSION 00420202
46: C SECTION 6.3.5, INTERPRETATION OF CHARACTER RELATIONAL 00430202
47: C EXPRESSIONS 00440202
48: C SECTION 8.4.2, CHARACTER TYPE-STATEMENT 00450202
49: C SECTION 10.4, CHARACTER ASSIGNMENT STATEMENT 00460202
50: C 00470202
51: C 00480202
52: C 00490202
53: C ******************************************************************00500202
54: C A COMPILER VALIDATION SYSTEM FOR THE FORTRAN LANGUAGE 00510202
55: C BASED ON SPECIFICATIONS AS DEFINED IN AMERICAN STANDARD FORTRAN 00520202
56: C X3.9-1978, HAS BEEN DEVELOPED BY THE DEPARTMENT OF THE NAVY. THE 00530202
57: C FORTRAN COMPILER VALIDATION SYSTEM (FCVS) CONSISTS OF AUDIT 00540202
58: C ROUTINES, THEIR RELATED DATA, AND AN EXECUTIVE SYSTEM. EACH AUDIT00550202
59: C ROUTINE IS A FORTRAN PROGRAM OR SUBPROGRAM WHICH INCLUDES TESTS 00560202
60: C OF SPECIFIC LANGUAGE ELEMENTS AND SUPPORTING PROCEDURES INDICATING00570202
61: C THE RESULT OF EXECUTING THESE TESTS. 00580202
62: C 00590202
63: C THIS PARTICULAR PROGRAM OR SUBPROGRAM CONTAINS ONLY FEATURES 00600202
64: C FOUND IN THE SUBSET LEVEL OF THE STANDARD. 00610202
65: C 00620202
66: C SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00630202
67: C DEPARTMENT OF THE NAVY 00640202
68: C FEDERAL COBOL COMPILER TESTING SERVICE 00650202
69: C WASHINGTON, D.C. 20376 00660202
70: C 00670202
71: C ******************************************************************00680202
72: C 00690202
73: C 00700202
74: IMPLICIT LOGICAL (L) 00710202
75: IMPLICIT CHARACTER*14 (C) 00720202
76: C 00730202
77: CHARACTER *1 CVTN01, CVTN02 00740202
78: CHARACTER *2 CVTN03, CVTN04 00750202
79: C 00760202
80: C 00770202
81: C 00780202
82: C INITIALIZATION SECTION. 00790202
83: C 00800202
84: C INITIALIZE CONSTANTS 00810202
85: C ******************** 00820202
86: C I01 CONTAINS THE LOGICAL UNIT NUMBER FOR THE CARD READER 00830202
87: I01 = 5 00840202
88: C I02 CONTAINS THE LOGICAL UNIT NUMBER FOR THE PRINTER 00850202
89: I02 = 6 00860202
90: C SYSTEM ENVIRONMENT SECTION 00870202
91: C 00880202
92: I01 = 5 00890202
93: C THE CX010 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I01 = 5 00900202
94: C (UNIT NUMBER FOR CARD READER). 00910202
95: CX011 THIS CARD IS REPLACED BY CONTENTS OF FEXEC X-011 CONTROL CARD00920202
96: C THE CX011 CARD IS FOR SYSTEMS WHICH REQUIRE ADDITIONAL 00930202
97: C FORTRAN STATEMENTS FOR FILES ASSOCIATED WITH CX010 ABOVE. 00940202
98: C 00950202
99: I02 = 6 00960202
100: C THE CX020 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I02 = 6 00970202
101: C (UNIT NUMBER FOR PRINTER). 00980202
102: CX021 THIS CARD IS PEPLACED BY CONTENTS OF FEXEC X-021 CONTROL CARD.00990202
103: C THE CX021 CARD IS FOR SYSTEMS WHICH REQUIRE ADDITIONAL 01000202
104: C FORTRAN STATEMENTS FOR FILES ASSOCIATED WITH CX020 ABOVE. 01010202
105: C 01020202
106: IVPASS = 0 01030202
107: IVFAIL = 0 01040202
108: IVDELE = 0 01050202
109: ICZERO = 0 01060202
110: C 01070202
111: C WRITE OUT PAGE HEADERS 01080202
112: C 01090202
113: WRITE (I02,90002) 01100202
114: WRITE (I02,90006) 01110202
115: WRITE (I02,90008) 01120202
116: WRITE (I02,90004) 01130202
117: WRITE (I02,90010) 01140202
118: WRITE (I02,90004) 01150202
119: WRITE (I02,90016) 01160202
120: WRITE (I02,90001) 01170202
121: WRITE (I02,90004) 01180202
122: WRITE (I02,90012) 01190202
123: WRITE (I02,90014) 01200202
124: WRITE (I02,90004) 01210202
125: C 01220202
126: C 01230202
127: C TEST 1 THROUGH TEST 6 VERIFY THAT THE CHARACTER ASSIGNMENT 01240202
128: C STATEMENT 01250202
129: C 01260202
130: C CHARACTER VARIABLE (LEN 1) = CHARACTER CONSTANT (LEN 1) 01270202
131: C 01280202
132: C IS CORRECT. THE CHARACTER RELATIONAL EXPRESSION 01290202
133: C 01300202
134: C CHARACTER VARIABLE (LEN 1) RELOP CHARACTER CONSTANT (LEN 1) 01310202
135: C 01320202
136: C IS USED TO VERIFY THE ASSIGNMENT STATEMENT. BOTH OF THE ABOVE 01330202
137: C STATEMENTS MUST MEET THE LANGUAGE SPECIFICATIONS FOR THESE TESTS 01340202
138: C TO PASS. 01350202
139: C 01360202
140: C 01370202
141: C **** FCVS PROGRAM 202 - TEST 001 **** 01380202
142: C 01390202
143: C 01400202
144: IVTNUM = 1 01410202
145: IF (ICZERO) 30010, 0010, 30010 01420202
146: 0010 CONTINUE 01430202
147: IVCOMP = 0 01440202
148: CVTN01 = ' ' 01450202
149: IVCORR = 1 01460202
150: IF (CVTN01 .EQ. ' ') IVCOMP = 1 01470202
151: 40010 IF (IVCOMP - 1) 20010,10010,20010 01480202
152: 30010 IVDELE = IVDELE + 1 01490202
153: WRITE (I02,80000) IVTNUM 01500202
154: IF (ICZERO) 10010, 0021, 20010 01510202
155: 10010 IVPASS = IVPASS + 1 01520202
156: WRITE (I02,80002) IVTNUM 01530202
157: GO TO 0021 01540202
158: 20010 IVFAIL = IVFAIL + 1 01550202
159: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 01560202
160: 0021 CONTINUE 01570202
161: C 01580202
162: C **** FCVS PROGRAM 202 - TEST 002 **** 01590202
163: C 01600202
164: C 01610202
165: IVTNUM = 2 01620202
166: IF (ICZERO) 30020, 0020, 30020 01630202
167: 0020 CONTINUE 01640202
168: IVCOMP = 0 01650202
169: CVTN01 = 'M' 01660202
170: IVCORR = 1 01670202
171: IF (CVTN01 .EQ. 'M') IVCOMP = 1 01680202
172: 40020 IF (IVCOMP - 1) 20020,10020,20020 01690202
173: 30020 IVDELE = IVDELE + 1 01700202
174: WRITE (I02,80000) IVTNUM 01710202
175: IF (ICZERO) 10020, 0031, 20020 01720202
176: 10020 IVPASS = IVPASS + 1 01730202
177: WRITE (I02,80002) IVTNUM 01740202
178: GO TO 0031 01750202
179: 20020 IVFAIL = IVFAIL + 1 01760202
180: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 01770202
181: 0031 CONTINUE 01780202
182: C 01790202
183: C **** FCVS PROGRAM 202 - TEST 003 **** 01800202
184: C 01810202
185: C 01820202
186: IVTNUM = 3 01830202
187: IF (ICZERO) 30030, 0030, 30030 01840202
188: 0030 CONTINUE 01850202
189: IVCOMP = 0 01860202
190: IVCORR = 1 01870202
191: CVTN01 = '4' 01880202
192: IF (CVTN01 .EQ. '4') IVCOMP = 1 01890202
193: 40030 IF (IVCOMP - 1) 20030,10030,20030 01900202
194: 30030 IVDELE = IVDELE + 1 01910202
195: WRITE (I02,80000) IVTNUM 01920202
196: IF (ICZERO) 10030, 0041, 20030 01930202
197: 10030 IVPASS = IVPASS + 1 01940202
198: WRITE (I02,80002) IVTNUM 01950202
199: GO TO 0041 01960202
200: 20030 IVFAIL = IVFAIL + 1 01970202
201: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 01980202
202: 0041 CONTINUE 01990202
203: C 02000202
204: C **** FCVS PROGRAM 202 - TEST 004 **** 02010202
205: C 02020202
206: C 02030202
207: IVTNUM = 4 02040202
208: IF (ICZERO) 30040, 0040, 30040 02050202
209: 0040 CONTINUE 02060202
210: IVCOMP = 0 02070202
211: IVCORR = 1 02080202
212: CVTN01 = '=' 02090202
213: IF (CVTN01 .EQ. '=') IVCOMP = 1 02100202
214: 40040 IF (IVCOMP - 1) 20040,10040,20040 02110202
215: 30040 IVDELE = IVDELE + 1 02120202
216: WRITE (I02,80000) IVTNUM 02130202
217: IF (ICZERO) 10040, 0051, 20040 02140202
218: 10040 IVPASS = IVPASS + 1 02150202
219: WRITE (I02,80002) IVTNUM 02160202
220: GO TO 0051 02170202
221: 20040 IVFAIL = IVFAIL + 1 02180202
222: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 02190202
223: 0051 CONTINUE 02200202
224: C 02210202
225: C **** FCVS PROGRAM 202 - TEST 005 **** 02220202
226: C 02230202
227: C 02240202
228: IVTNUM = 5 02250202
229: IF (ICZERO) 30050, 0050, 30050 02260202
230: 0050 CONTINUE 02270202
231: IVCOMP = 0 02280202
232: IVCORR = 1 02290202
233: CVTN01 = '/' 02300202
234: IF (CVTN01 .EQ. '/') IVCOMP = 1 02310202
235: 40050 IF (IVCOMP - 1) 20050,10050,20050 02320202
236: 30050 IVDELE = IVDELE + 1 02330202
237: WRITE (I02,80000) IVTNUM 02340202
238: IF (ICZERO) 10050, 0061, 20050 02350202
239: 10050 IVPASS = IVPASS + 1 02360202
240: WRITE (I02,80002) IVTNUM 02370202
241: GO TO 0061 02380202
242: 20050 IVFAIL = IVFAIL + 1 02390202
243: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 02400202
244: 0061 CONTINUE 02410202
245: C 02420202
246: C **** FCVS PROGRAM 202 - TEST 006 **** 02430202
247: C 02440202
248: C AN APOSTROPHE IN A CHARACTER CONSTANT IS REPRESENTED BY TWO 02450202
249: C CONSECUTIVE APOSTROPHES WITH NO INTERVENING BLANKS. 02460202
250: C 02470202
251: IVTNUM = 6 02480202
252: IF (ICZERO) 30060, 0060, 30060 02490202
253: 0060 CONTINUE 02500202
254: IVCOMP = 0 02510202
255: IVCORR = 1 02520202
256: CVTN01 = '''' 02530202
257: IF (CVTN01 .EQ. '''') IVCOMP = 1 02540202
258: 40060 IF (IVCOMP - 1) 20060,10060,20060 02550202
259: 30060 IVDELE = IVDELE + 1 02560202
260: WRITE (I02,80000) IVTNUM 02570202
261: IF (ICZERO) 10060, 0071, 20060 02580202
262: 10060 IVPASS = IVPASS + 1 02590202
263: WRITE (I02,80002) IVTNUM 02600202
264: GO TO 0071 02610202
265: 20060 IVFAIL = IVFAIL + 1 02620202
266: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 02630202
267: 0071 CONTINUE 02640202
268: C 02650202
269: C TEST 7 THROUGH TEST 12 VERIFY THAT THE CHARACTER ASSIGNMENT 02660202
270: C STATEMENTS 02670202
271: C 02680202
272: C CHARACTER VARIABLE (LEN 1) = CHARACTER CONSTANT (LEN 1) 02690202
273: C CHARACTER VARIABLE (LEN 1) = CHARACTER VARIABLE (LEN 1) 02700202
274: C 02710202
275: C ARE CORRECT. THE CHARACTER RELATIONAL EXPRESSION 02720202
276: C 02730202
277: C CHARACTER VARIABLE (LEN 1) .EQ. CHARACTER CONSTANT (LEN 1) 02740202
278: C 02750202
279: C IS USED TO VERIFY THE RESULT OF THE ASSIGNMENT STATEMENTS. 02760202
280: C 02770202
281: C 02780202
282: C **** FCVS PROGRAM 202 - TEST 007 **** 02790202
283: C 02800202
284: C 02810202
285: IVTNUM = 7 02820202
286: IF (ICZERO) 30070, 0070, 30070 02830202
287: 0070 CONTINUE 02840202
288: IVCOMP = 0 02850202
289: IVCORR = 1 02860202
290: CVTN01 = ' ' 02870202
291: CVTN02 = CVTN01 02880202
292: IF (CVTN02 .EQ. ' ') IVCOMP = 1 02890202
293: 40070 IF (IVCOMP - 1) 20070, 10070, 20070 02900202
294: 30070 IVDELE = IVDELE + 1 02910202
295: WRITE (I02,80000) IVTNUM 02920202
296: IF (ICZERO) 10070, 0081, 20070 02930202
297: 10070 IVPASS = IVPASS + 1 02940202
298: WRITE (I02,80002) IVTNUM 02950202
299: GO TO 0081 02960202
300: 20070 IVFAIL = IVFAIL + 1 02970202
301: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 02980202
302: 0081 CONTINUE 02990202
303: C 03000202
304: C **** FCVS PROGRAM 202 - TEST 008 **** 03010202
305: C 03020202
306: C 03030202
307: IVTNUM = 8 03040202
308: IF (ICZERO) 30080, 0080, 30080 03050202
309: 0080 CONTINUE 03060202
310: IVCOMP = 0 03070202
311: IVCORR = 1 03080202
312: CVTN01 = 'M' 03090202
313: CVTN02 = CVTN01 03100202
314: IF (CVTN02 .EQ. 'M') IVCOMP = 1 03110202
315: 40080 IF (IVCOMP - 1) 20080,10080,20080 03120202
316: 30080 IVDELE = IVDELE + 1 03130202
317: WRITE (I02,80000) IVTNUM 03140202
318: IF (ICZERO) 10080, 0091, 20080 03150202
319: 10080 IVPASS = IVPASS + 1 03160202
320: WRITE (I02,80002) IVTNUM 03170202
321: GO TO 0091 03180202
322: 20080 IVFAIL = IVFAIL + 1 03190202
323: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 03200202
324: 0091 CONTINUE 03210202
325: C 03220202
326: C **** FCVS PROGRAM 202 - TEST 009 **** 03230202
327: C 03240202
328: C 03250202
329: IVTNUM = 9 03260202
330: IF (ICZERO) 30090, 0090, 30090 03270202
331: 0090 CONTINUE 03280202
332: IVCOMP = 0 03290202
333: IVCORR = 1 03300202
334: CVTN01 = '4' 03310202
335: CVTN02 = CVTN01 03320202
336: IF (CVTN02 .EQ. '4') IVCOMP = 1 03330202
337: 40090 IF (IVCOMP - 1) 20090,10090,20090 03340202
338: 30090 IVDELE = IVDELE + 1 03350202
339: WRITE (I02,80000) IVTNUM 03360202
340: IF (ICZERO) 10090, 0101, 20090 03370202
341: 10090 IVPASS = IVPASS + 1 03380202
342: WRITE (I02,80002) IVTNUM 03390202
343: GO TO 0101 03400202
344: 20090 IVFAIL = IVFAIL + 1 03410202
345: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 03420202
346: 0101 CONTINUE 03430202
347: C 03440202
348: C **** FCVS PROGRAM 202 - TEST 010 **** 03450202
349: C 03460202
350: C 03470202
351: IVTNUM = 10 03480202
352: IF (ICZERO) 30100, 0100, 30100 03490202
353: 0100 CONTINUE 03500202
354: IVCOMP = 0 03510202
355: IVCORR = 1 03520202
356: CVTN01 = '=' 03530202
357: CVTN02 = CVTN01 03540202
358: IF (CVTN02 .EQ. '=') IVCOMP = 1 03550202
359: 40100 IF (IVCOMP - 1) 20100,10100,20100 03560202
360: 30100 IVDELE = IVDELE + 1 03570202
361: WRITE (I02,80000) IVTNUM 03580202
362: IF (ICZERO) 10100, 0111, 20100 03590202
363: 10100 IVPASS = IVPASS + 1 03600202
364: WRITE (I02,80002) IVTNUM 03610202
365: GO TO 0111 03620202
366: 20100 IVFAIL = IVFAIL + 1 03630202
367: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 03640202
368: 0111 CONTINUE 03650202
369: C 03660202
370: C **** FCVS PROGRAM 202 - TEST 011 **** 03670202
371: C 03680202
372: C 03690202
373: IVTNUM = 11 03700202
374: IF (ICZERO) 30110, 0110, 30110 03710202
375: 0110 CONTINUE 03720202
376: IVCOMP =0 03730202
377: IVCORR = 1 03740202
378: CVTN01 = '/' 03750202
379: CVTN02 = CVTN01 03760202
380: IF (CVTN02 .EQ. '/') IVCOMP = 1 03770202
381: 40110 IF (IVCOMP - 1) 20110,10110,20110 03780202
382: 30110 IVDELE = IVDELE + 1 03790202
383: WRITE (I02,80000) IVTNUM 03800202
384: IF (ICZERO) 10110, 0121, 20110 03810202
385: 10110 IVPASS = IVPASS + 1 03820202
386: WRITE (I02,80002) IVTNUM 03830202
387: GO TO 0121 03840202
388: 20110 IVFAIL = IVFAIL + 1 03850202
389: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 03860202
390: 0121 CONTINUE 03870202
391: C 03880202
392: C **** FCVS PROGRAM 202 - TEST 012 **** 03890202
393: C 03900202
394: C AN APOSTROPHE IN A CHARACTER CONSTANT IS REPRESENTED BY TWO 03910202
395: C CONSECUTIVE APOSTROPHES WITH NO INTERVENING BLANKS. 03920202
396: C 03930202
397: IVTNUM = 12 03940202
398: IF (ICZERO) 30120, 0120, 30120 03950202
399: 0120 CONTINUE 03960202
400: IVCOMP = 0 03970202
401: IVCORR = 1 03980202
402: CVTN01 = '''' 03990202
403: CVTN02 = CVTN01 04000202
404: IF (CVTN02 .EQ. '''') IVCOMP = 1 04010202
405: 40120 IF (IVCOMP - 1) 20120,10120,20120 04020202
406: 30120 IVDELE = IVDELE + 1 04030202
407: WRITE (I02,80000) IVTNUM 04040202
408: IF (ICZERO) 10120, 0131, 20120 04050202
409: 10120 IVPASS = IVPASS + 1 04060202
410: WRITE (I02,80002) IVTNUM 04070202
411: GO TO 0131 04080202
412: 20120 IVFAIL = IVFAIL + 1 04090202
413: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 04100202
414: 0131 CONTINUE 04110202
415: C 04120202
416: C TEST 13 THROUGH TEST 18 VERIFY THE RESULTS OF THE CHARACTER 04130202
417: C RELATIONAL EXPRESSION USING EACH OF THE SIX RELATIONAL OPERATORS 04140202
418: C IN THE STATEMENT FORM 04150202
419: C 04160202
420: C CHARACTER VARIABLE (LEN 1) RELOP CHARACTER CONSTANT (LEN 1). 04170202
421: C 04180202
422: C THE VARIABLE AND CONSTANT CONTAIN THE CHARACTER DATUM C. 04190202
423: C 04200202
424: CVTN01 = 'C' 04210202
425: C 04220202
426: C **** FCVS PROGRAM 202 - TEST 013 **** 04230202
427: C 04240202
428: C RELATIONAL OPERATOR .EQ. 04250202
429: C 04260202
430: IVTNUM = 13 04270202
431: IF (ICZERO) 30130, 0130, 30130 04280202
432: 0130 CONTINUE 04290202
433: IVCOMP = 0 04300202
434: IVCORR = 1 04310202
435: IF (CVTN01 .EQ. 'C') IVCOMP = 1 04320202
436: 40130 IF (IVCOMP - 1) 20130,10130,20130 04330202
437: 30130 IVDELE = IVDELE + 1 04340202
438: WRITE (I02,80000) IVTNUM 04350202
439: IF (ICZERO) 10130, 0141, 20130 04360202
440: 10130 IVPASS = IVPASS + 1 04370202
441: WRITE (I02,80002) IVTNUM 04380202
442: GO TO 0141 04390202
443: 20130 IVFAIL = IVFAIL + 1 04400202
444: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 04410202
445: 0141 CONTINUE 04420202
446: C 04430202
447: C **** FCVS PROGRAM 202 - TEST 014 **** 04440202
448: C 04450202
449: C RELATIONAL OPERATOR .NE. 04460202
450: C 04470202
451: IVTNUM = 14 04480202
452: IF (ICZERO) 30140, 0140, 30140 04490202
453: 0140 CONTINUE 04500202
454: IVCOMP = 0 04510202
455: IVCORR = 0 04520202
456: IF (CVTN01 .NE. 'C') IVCOMP = 1 04530202
457: 40140 IF (IVCOMP) 20140,10140,20140 04540202
458: 30140 IVDELE = IVDELE + 1 04550202
459: WRITE (I02,80000) IVTNUM 04560202
460: IF (ICZERO) 10140, 0151, 20140 04570202
461: 10140 IVPASS = IVPASS + 1 04580202
462: WRITE (I02,80002) IVTNUM 04590202
463: GO TO 0151 04600202
464: 20140 IVFAIL = IVFAIL + 1 04610202
465: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 04620202
466: 0151 CONTINUE 04630202
467: C 04640202
468: C **** FCVS PROGRAM 202 - TEST 015 **** 04650202
469: C 04660202
470: C RELATIONAL OPERATOR .LE. 04670202
471: C 04680202
472: IVTNUM = 15 04690202
473: IF (ICZERO) 30150, 0150, 30150 04700202
474: 0150 CONTINUE 04710202
475: IVCOMP = 0 04720202
476: IVCORR = 1 04730202
477: IF (CVTN01 .LE. 'C') IVCOMP = 1 04740202
478: IF (IVCOMP - 1) 20150,10150,20150 04750202
479: 30150 IVDELE = IVDELE + 1 04760202
480: WRITE (I02,80000) IVTNUM 04770202
481: IF (ICZERO) 10150, 0161, 20150 04780202
482: 10150 IVPASS = IVPASS + 1 04790202
483: WRITE (I02,80002) IVTNUM 04800202
484: GO TO 0161 04810202
485: 20150 IVFAIL = IVFAIL + 1 04820202
486: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 04830202
487: 0161 CONTINUE 04840202
488: C 04850202
489: C **** FCVS PROGRAM 202 - TEST 016 **** 04860202
490: C 04870202
491: C RELATIONAL OPERATOR .LT. 04880202
492: C 04890202
493: IVTNUM = 16 04900202
494: IF (ICZERO) 30160, 0160, 30160 04910202
495: 0160 CONTINUE 04920202
496: IVCOMP=0 04930202
497: IVCORR=0 04940202
498: IF (CVTN01 .LT. 'C') IVCOMP = 1 04950202
499: IF (IVCOMP) 20160,10160,20160 04960202
500: 30160 IVDELE = IVDELE + 1 04970202
501: WRITE (I02,80000) IVTNUM 04980202
502: IF (ICZERO) 10160, 0171, 20160 04990202
503: 10160 IVPASS = IVPASS + 1 05000202
504: WRITE (I02,80002) IVTNUM 05010202
505: GO TO 0171 05020202
506: 20160 IVFAIL = IVFAIL + 1 05030202
507: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 05040202
508: 0171 CONTINUE 05050202
509: C 05060202
510: C **** FCVS PROGRAM 202 - TEST 017 **** 05070202
511: C 05080202
512: C RELATIONAL OPERATOR .GE. 05090202
513: C 05100202
514: IVTNUM = 17 05110202
515: IF (ICZERO) 30170, 0170, 30170 05120202
516: 0170 CONTINUE 05130202
517: IVCOMP = 0 05140202
518: IVCORR = 1 05150202
519: IF (CVTN01 .GE. 'C') IVCOMP = 1 05160202
520: 40170 IF (IVCOMP - 1) 20170,10170,20170 05170202
521: 30170 IVDELE = IVDELE + 1 05180202
522: WRITE (I02,80000) IVTNUM 05190202
523: IF (ICZERO) 10170, 0181, 20170 05200202
524: 10170 IVPASS = IVPASS + 1 05210202
525: WRITE (I02,80002) IVTNUM 05220202
526: GO TO 0181 05230202
527: 20170 IVFAIL = IVFAIL + 1 05240202
528: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 05250202
529: 0181 CONTINUE 05260202
530: C 05270202
531: C **** FCVS PROGRAM 202 - TEST 018 **** 05280202
532: C 05290202
533: C RELATIONAL OPERATOR .GT. 05300202
534: C 05310202
535: IVTNUM = 18 05320202
536: IF (ICZERO) 30180, 0180, 30180 05330202
537: 0180 CONTINUE 05340202
538: IVCOMP = 0 05350202
539: IVCORR = 0 05360202
540: IF (CVTN01 .GT. 'C') IVCOMP = 1 05370202
541: 40180 IF (IVCOMP) 20180,10180,20180 05380202
542: 30180 IVDELE = IVDELE + 1 05390202
543: WRITE (I02,80000) IVTNUM 05400202
544: IF (ICZERO) 10180, 0191, 20180 05410202
545: 10180 IVPASS = IVPASS + 1 05420202
546: WRITE (I02,80002) IVTNUM 05430202
547: GO TO 0191 05440202
548: 20180 IVFAIL = IVFAIL + 1 05450202
549: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 05460202
550: 0191 CONTINUE 05470202
551: C 05480202
552: C TEST 19 THROUGH TEST 21 VERIFY THAT THE CHARACTER ASSIGNMENT 05490202
553: C STATEMENT 05500202
554: C 05510202
555: C CHARACTER VARIABLE (LEN 2) = CHARACTER CONSTANT (LEN 2) 05520202
556: C 05530202
557: C OPERATES CORRECTLY. THE CHARACTER RELATIONAL EXPRESSION 05540202
558: C 05550202
559: C CHARACTER VARIABLE (LEN 2) .EQ. CHARACTER CONSTANT (LEN 2) 05560202
560: C 05570202
561: C IS USED TO VERIFY THE RESULT OF THE ASSIGNMENT STATEMENT. 05580202
562: C 05590202
563: C 05600202
564: C **** FCVS PROGRAM 202 - TEST 019 **** 05610202
565: C 05620202
566: C 05630202
567: IVTNUM = 19 05640202
568: IF (ICZERO) 30190, 0190, 30190 05650202
569: 0190 CONTINUE 05660202
570: IVCOMP =0 05670202
571: IVCORR =1 05680202
572: CVTN03 = 'AZ' 05690202
573: IF (CVTN03 .EQ. 'AZ') IVCOMP = 1 05700202
574: 40190 IF (IVCOMP - 1) 20190,10190,20190 05710202
575: 30190 IVDELE = IVDELE + 1 05720202
576: WRITE (I02,80000) IVTNUM 05730202
577: IF (ICZERO) 10190, 0201, 20190 05740202
578: 10190 IVPASS = IVPASS + 1 05750202
579: WRITE (I02,80002) IVTNUM 05760202
580: GO TO 0201 05770202
581: 20190 IVFAIL = IVFAIL + 1 05780202
582: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 05790202
583: 0201 CONTINUE 05800202
584: C 05810202
585: C **** FCVS PROGRAM 202 - TEST 020 **** 05820202
586: C 05830202
587: C 05840202
588: IVTNUM = 20 05850202
589: IF (ICZERO) 30200, 0200, 30200 05860202
590: 0200 CONTINUE 05870202
591: IVCOMP = 0 05880202
592: IVCORR = 1 05890202
593: CVTN03 = 'B''' 05900202
594: IF (CVTN03 .EQ. 'B''') IVCOMP = 1 05910202
595: 40200 IF (IVCOMP - 1) 20200,10200,20200 05920202
596: 30200 IVDELE = IVDELE + 1 05930202
597: WRITE (I02,80000) IVTNUM 05940202
598: IF (ICZERO) 10200, 0211, 20200 05950202
599: 10200 IVPASS = IVPASS + 1 05960202
600: WRITE (I02,80002) IVTNUM 05970202
601: GO TO 0211 05980202
602: 20200 IVFAIL = IVFAIL + 1 05990202
603: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 06000202
604: 0211 CONTINUE 06010202
605: C 06020202
606: C **** FCVS PROGRAM 202 - TEST 021 **** 06030202
607: C 06040202
608: C 06050202
609: IVTNUM = 21 06060202
610: IF (ICZERO) 30210, 0210, 30210 06070202
611: 0210 CONTINUE 06080202
612: IVCOMP = 0 06090202
613: IVCORR = 1 06100202
614: CVTN03 = '//' 06110202
615: IF (CVTN03 .EQ. '//') IVCOMP = 1 06120202
616: 40210 IF (IVCOMP - 1) 20210,10210,20210 06130202
617: 30210 IVDELE = IVDELE + 1 06140202
618: WRITE (I02,80000) IVTNUM 06150202
619: IF (ICZERO) 10210, 0221, 20210 06160202
620: 10210 IVPASS = IVPASS + 1 06170202
621: WRITE (I02,80002) IVTNUM 06180202
622: GO TO 0221 06190202
623: 20210 IVFAIL = IVFAIL + 1 06200202
624: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 06210202
625: 0221 CONTINUE 06220202
626: C 06230202
627: C TEST 22 THROUGH TEST 24 VERIFY THAT THE CHARACTER ASSIGNMENT 06240202
628: C STATEMENTS 06250202
629: C 06260202
630: C CHARACTER VARIABLE (LEN 2) = CHARACTER CONSTANT (LEN 2) 06270202
631: C CHARACTER VARIABLE (LEN 2) = CHARACTER VARIABLE (LEN 2) 06280202
632: C 06290202
633: C OPERATE CORRECTLY. 06300202
634: C 06310202
635: C 06320202
636: C **** FCVS PROGRAM 202 - TEST 022 **** 06330202
637: C 06340202
638: C 06350202
639: IVTNUM = 22 06360202
640: IF (ICZERO) 30220, 0220, 30220 06370202
641: 0220 CONTINUE 06380202
642: IVCOMP = 0 06390202
643: IVCORR = 1 06400202
644: CVTN03 = 'AZ' 06410202
645: CVTN04 = CVTN03 06420202
646: IF (CVTN04 .EQ. 'AZ') IVCOMP=1 06430202
647: 40220 IF (IVCOMP - 1) 20220,10220,20220 06440202
648: 30220 IVDELE = IVDELE + 1 06450202
649: WRITE (I02,80000) IVTNUM 06460202
650: IF (ICZERO) 10220, 0231, 20220 06470202
651: 10220 IVPASS = IVPASS + 1 06480202
652: WRITE (I02,80002) IVTNUM 06490202
653: GO TO 0231 06500202
654: 20220 IVFAIL = IVFAIL + 1 06510202
655: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 06520202
656: 0231 CONTINUE 06530202
657: C 06540202
658: C **** FCVS PROGRAM 202 - TEST 023 **** 06550202
659: C 06560202
660: C 06570202
661: IVTNUM = 23 06580202
662: IF (ICZERO) 30230, 0230, 30230 06590202
663: 0230 CONTINUE 06600202
664: IVCOMP = 0 06610202
665: IVCORR = 1 06620202
666: CVTN03 = 'B''' 06630202
667: CVTN04 = CVTN03 06640202
668: IF (CVTN04 .EQ. 'B''') IVCOMP = 1 06650202
669: 40230 IF (IVCOMP - 1) 20230,10230,20230 06660202
670: 30230 IVDELE = IVDELE + 1 06670202
671: WRITE (I02,80000) IVTNUM 06680202
672: IF (ICZERO) 10230, 0241, 20230 06690202
673: 10230 IVPASS = IVPASS + 1 06700202
674: WRITE (I02,80002) IVTNUM 06710202
675: GO TO 0241 06720202
676: 20230 IVFAIL = IVFAIL + 1 06730202
677: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 06740202
678: 0241 CONTINUE 06750202
679: C 06760202
680: C **** FCVS PROGRAM 202 - TEST 024 **** 06770202
681: C 06780202
682: C 06790202
683: IVTNUM = 24 06800202
684: IF (ICZERO) 30240, 0240, 30240 06810202
685: 0240 CONTINUE 06820202
686: IVCOMP = 0 06830202
687: IVCORR = 1 06840202
688: CVTN03 = '//' 06850202
689: CVTN04 = CVTN03 06860202
690: IF (CVTN04 .EQ. '//') IVCOMP = 1 06870202
691: 40240 IF (IVCOMP - 1) 20240,10240,20240 06880202
692: 30240 IVDELE = IVDELE + 1 06890202
693: WRITE (I02,80000) IVTNUM 06900202
694: IF (ICZERO) 10240, 0251, 20240 06910202
695: 10240 IVPASS = IVPASS + 1 06920202
696: WRITE (I02,80002) IVTNUM 06930202
697: GO TO 0251 06940202
698: 20240 IVFAIL = IVFAIL + 1 06950202
699: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 06960202
700: 0251 CONTINUE 06970202
701: C 06980202
702: C TEST 25 THROUGH TEST 30 VERIFY THE RESULTS OF THE CHARACTER 06990202
703: C RELATIONAL EXPRESSION USING EACH OF THE SIX RELATIONAL OPERATORS 07000202
704: C IN THE EXPRESSION FORM 07010202
705: C 07020202
706: C CHARACTER VARIABLE (LEN 2) RELOP CHARACTER VARIABLE (LEN 2) 07030202
707: C 07040202
708: C THE VARIABLES CONTAIN THE CHARACTER DATUM CC. 07050202
709: C 07060202
710: CVTN03 = 'CC' 07070202
711: CVTN04 = 'CC' 07080202
712: C 07090202
713: C **** FCVS PROGRAM 202 - TEST 025 **** 07100202
714: C 07110202
715: C RELATIONAL OPERATOR .EQ. 07120202
716: C 07130202
717: IVTNUM = 25 07140202
718: IF (ICZERO) 30250, 0250, 30250 07150202
719: 0250 CONTINUE 07160202
720: IVCOMP = 0 07170202
721: IVCORR = 1 07180202
722: IF (CVTN03 .EQ. CVTN04) IVCOMP = 1 07190202
723: 40250 IF (IVCOMP - 1) 20250,10250,20250 07200202
724: 30250 IVDELE = IVDELE + 1 07210202
725: WRITE (I02,80000) IVTNUM 07220202
726: IF (ICZERO) 10250, 0261, 20250 07230202
727: 10250 IVPASS = IVPASS + 1 07240202
728: WRITE (I02,80002) IVTNUM 07250202
729: GO TO 0261 07260202
730: 20250 IVFAIL = IVFAIL + 1 07270202
731: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 07280202
732: 0261 CONTINUE 07290202
733: C 07300202
734: C **** FCVS PROGRAM 202 - TEST 026 **** 07310202
735: C 07320202
736: C RELATIONAL OPERATOR .NE. 07330202
737: C 07340202
738: IVTNUM = 26 07350202
739: IF (ICZERO) 30260, 0260, 30260 07360202
740: 0260 CONTINUE 07370202
741: IVCOMP = 0 07380202
742: IVCORR = 0 07390202
743: IF (CVTN03 .NE. CVTN04) IVCOMP = 1 07400202
744: 40260 IF (IVCOMP) 20260,10260,20260 07410202
745: 30260 IVDELE = IVDELE + 1 07420202
746: WRITE (I02,80000) IVTNUM 07430202
747: IF (ICZERO) 10260, 0271, 20260 07440202
748: 10260 IVPASS = IVPASS + 1 07450202
749: WRITE (I02,80002) IVTNUM 07460202
750: GO TO 0271 07470202
751: 20260 IVFAIL = IVFAIL + 1 07480202
752: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 07490202
753: 0271 CONTINUE 07500202
754: C 07510202
755: C **** FCVS PROGRAM 202 - TEST 027 **** 07520202
756: C 07530202
757: C RELATIONAL OPERATOR .LE. 07540202
758: C 07550202
759: IVTNUM = 27 07560202
760: IF (ICZERO) 30270, 0270, 30270 07570202
761: 0270 CONTINUE 07580202
762: IVCOMP = 0 07590202
763: IVCORR = 1 07600202
764: IF (CVTN03 .LE. CVTN04) IVCOMP = 1 07610202
765: 40270 IF (IVCOMP - 1) 20270,10270,20270 07620202
766: 30270 IVDELE = IVDELE + 1 07630202
767: WRITE (I02,80000) IVTNUM 07640202
768: IF (ICZERO) 10270, 0281, 20270 07650202
769: 10270 IVPASS = IVPASS + 1 07660202
770: WRITE (I02,80002) IVTNUM 07670202
771: GO TO 0281 07680202
772: 20270 IVFAIL = IVFAIL + 1 07690202
773: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 07700202
774: 0281 CONTINUE 07710202
775: C 07720202
776: C **** FCVS PROGRAM 202 - TEST 028 **** 07730202
777: C 07740202
778: C RELATIONAL OPERATOR .LT. 07750202
779: C 07760202
780: IVTNUM = 28 07770202
781: IF (ICZERO) 30280, 0280, 30280 07780202
782: 0280 CONTINUE 07790202
783: IVCOMP = 0 07800202
784: IVCORR = 0 07810202
785: IF (CVTN03 .LT. CVTN04) IVCOMP=1 07820202
786: 40280 IF (IVCOMP) 20280,10280,20280 07830202
787: 30280 IVDELE = IVDELE + 1 07840202
788: WRITE (I02,80000) IVTNUM 07850202
789: IF (ICZERO) 10280, 0291, 20280 07860202
790: 10280 IVPASS = IVPASS + 1 07870202
791: WRITE (I02,80002) IVTNUM 07880202
792: GO TO 0291 07890202
793: 20280 IVFAIL = IVFAIL + 1 07900202
794: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 07910202
795: 0291 CONTINUE 07920202
796: C 07930202
797: C **** FCVS PROGRAM 202 - TEST 029 **** 07940202
798: C 07950202
799: C RELATIONAL OPERATOR .GE. 07960202
800: C 07970202
801: IVTNUM = 29 07980202
802: IF (ICZERO) 30290, 0290, 30290 07990202
803: 0290 CONTINUE 08000202
804: IVCOMP = 0 08010202
805: IVCORR = 1 08020202
806: IF (CVTN03 .GE. CVTN04) IVCOMP = 1 08030202
807: 40290 IF (IVCOMP - 1) 20290,10290,20290 08040202
808: 30290 IVDELE = IVDELE + 1 08050202
809: WRITE (I02,80000) IVTNUM 08060202
810: IF (ICZERO) 10290, 0301, 20290 08070202
811: 10290 IVPASS = IVPASS + 1 08080202
812: WRITE (I02,80002) IVTNUM 08090202
813: GO TO 0301 08100202
814: 20290 IVFAIL = IVFAIL + 1 08110202
815: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 08120202
816: 0301 CONTINUE 08130202
817: C 08140202
818: C **** FCVS PROGRAM 202 - TEST 030 **** 08150202
819: C 08160202
820: C RELATIONAL OPERATOR .GT. 08170202
821: C 08180202
822: IVTNUM = 30 08190202
823: IF (ICZERO) 30300, 0300, 30300 08200202
824: 0300 CONTINUE 08210202
825: IVCOMP = 0 08220202
826: IVCORR = 0 08230202
827: IF (CVTN03 .GT. CVTN04) IVCOMP = 1 08240202
828: 40300 IF (IVCOMP) 20300,10300,20300 08250202
829: 30300 IVDELE = IVDELE + 1 08260202
830: WRITE (I02,80000) IVTNUM 08270202
831: IF (ICZERO) 10300, 0311, 20300 08280202
832: 10300 IVPASS = IVPASS + 1 08290202
833: WRITE (I02,80002) IVTNUM 08300202
834: GO TO 0311 08310202
835: 20300 IVFAIL = IVFAIL + 1 08320202
836: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 08330202
837: 0311 CONTINUE 08340202
838: C 08350202
839: C 08360202
840: C WRITE OUT TEST SUMMARY 08370202
841: C 08380202
842: WRITE (I02,90004) 08390202
843: WRITE (I02,90014) 08400202
844: WRITE (I02,90004) 08410202
845: WRITE (I02,90000) 08420202
846: WRITE (I02,90004) 08430202
847: WRITE (I02,90020) IVFAIL 08440202
848: WRITE (I02,90022) IVPASS 08450202
849: WRITE (I02,90024) IVDELE 08460202
850: STOP 08470202
851: 90001 FORMAT (1H ,24X,5HFM202) 08480202
852: 90000 FORMAT (1H ,20X,20HEND OF PROGRAM FM202) 08490202
853: C 08500202
854: C FORMATS FOR TEST DETAIL LINES 08510202
855: C 08520202
856: 80000 FORMAT (1H ,4X,I5,6X,7HDELETED) 08530202
857: 80002 FORMAT (1H ,4X,I5,7X,4HPASS) 08540202
858: 80010 FORMAT (1H ,4X,I5,7X,4HFAIL,10X,I6,9X,I6) 08550202
859: 80012 FORMAT (1H ,4X,I5,7X,4HFAIL,4X,E12.5,3X,E12.5) 08560202
860: 80018 FORMAT (1H ,4X,I5,7X,4HFAIL,2X,A14,1X,A14) 08570202
861: C 08580202
862: C FORMAT STATEMENTS FOR PAGE HEADERS 08590202
863: C 08600202
864: 90002 FORMAT (1H1) 08610202
865: 90004 FORMAT (1H ) 08620202
866: 90006 FORMAT (1H ,10X,34HFORTRAN COMPILER VALIDATION SYSTEM) 08630202
867: 90008 FORMAT (1H ,21X,11HVERSION 1.0) 08640202
868: 90010 FORMAT (1H ,8X,38HFOR OFFICIAL USE ONLY - COPYRIGHT 1978) 08650202
869: 90012 FORMAT (1H ,5X,4HTEST,5X,9HPASS/FAIL,5X,8HCOMPUTED,8X,7HCORRECT) 08660202
870: 90014 FORMAT (1H ,5X,46H----------------------------------------------) 08670202
871: 90016 FORMAT (1H ,18X,17HSUBSET LEVEL TEST) 08680202
872: C 08690202
873: C FORMAT STATEMENTS FOR RUN SUMMARY 08700202
874: C 08710202
875: 90020 FORMAT (1H ,19X,I5,13H TESTS FAILED) 08720202
876: 90022 FORMAT (1H ,19X,I5,13H TESTS PASSED) 08730202
877: 90024 FORMAT (1H ,19X,I5,14H TESTS DELETED) 08740202
878: END 08750202
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.