![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to FM252.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 FM252.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 FM252 00010252
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 00020252
6: C 00030252
7: C 00040252
8: C 00050252
9: C THIS PROGRAM TESTS REDEFINITION OF STATEMENT LABELS WITH THE 00060252
10: C ASSIGN STATEMENT IN CONJUNCTION WITH THE ASSIGNED GO TO STATEMENT.00070252
11: C THE OPTIONAL COMMA IN THE SYNTAX OF THE ASSIGNED GO TO IS TESTED. 00080252
12: C THE RANGE OF STATEMENT LABELS ( FROM 00001 TO 99999 ) IS TESTED 00090252
13: C USING THE ASSIGN STATEMENT AND THE ASSIGNED GO TO STATEMENT. 00100252
14: C IT ALSO TESTS THE OPTIONAL COMMA IN THE SYNTAX OF THE COMPUTED 00110252
15: C GO TO STATEMENT AND HAS TESTS ON THE RANGE OF THE INDEX IN THE 00120252
16: C COMPUTED GO TO. 00130252
17: C 00140252
18: C 00150252
19: C REFERENCES 00160252
20: C AMERICAN NATIONAL STANDARD PROGRAMMING LANGUAGE FORTRAN, 00170252
21: C X3.9-1978 00180252
22: C SECTION 10.3, STATEMENT LABEL ASSIGNMENT (ASSIGN) 00190252
23: C SECTION 11.2, COMPUTED GO TO STATEMENT 00200252
24: C SECTION 11.3, ASSIGNED GO TO STATEMENT 00210252
25: C 00220252
26: C 00230252
27: C FM013 - SUBSET LEVEL TESTS OF THE ASSIGN STATEMENT AND THE 00240252
28: C ASSIGNED GO TO STATEMENT. 00250252
29: C 00260252
30: C FM014, FM052, AND FM053 - SUBSET LEVEL TESTS OF THE COMPUTED 00270252
31: C GO TO STATEMENT. 00280252
32: C 00290252
33: C 00300252
34: C 00310252
35: C 00320252
36: C ******************************************************************00330252
37: C A COMPILER VALIDATION SYSTEM FOR THE FORTRAN LANGUAGE 00340252
38: C BASED ON SPECIFICATIONS AS DEFINED IN AMERICAN STANDARD FORTRAN 00350252
39: C X3.9-1978, HAS BEEN DEVELOPED BY THE DEPARTMENT OF THE NAVY. THE 00360252
40: C FORTRAN COMPILER VALIDATION SYSTEM (FCVS) CONSISTS OF AUDIT 00370252
41: C ROUTINES, THEIR RELATED DATA, AND AN EXECUTIVE SYSTEM. EACH AUDIT00380252
42: C ROUTINE IS A FORTRAN PROGRAM OR SUBPROGRAM WHICH INCLUDES TESTS 00390252
43: C OF SPECIFIC LANGUAGE ELEMENTS AND SUPPORTING PROCEDURES INDICATING00400252
44: C THE RESULT OF EXECUTING THESE TESTS. 00410252
45: C 00420252
46: C THIS PARTICULAR PROGRAM OR SUBPROGRAM CONTAINS ONLY FEATURES 00430252
47: C FOUND IN THE SUBSET LEVEL OF THE STANDARD. 00440252
48: C 00450252
49: C SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00460252
50: C DEPARTMENT OF THE NAVY 00470252
51: C FEDERAL COBOL COMPILER TESTING SERVICE 00480252
52: C WASHINGTON, D.C. 20376 00490252
53: C 00500252
54: C ******************************************************************00510252
55: C 00520252
56: C 00530252
57: IMPLICIT LOGICAL (L) 00540252
58: IMPLICIT CHARACTER*14 (C) 00550252
59: C 00560252
60: C 00570252
61: C 00580252
62: C INITIALIZATION SECTION. 00590252
63: C 00600252
64: C INITIALIZE CONSTANTS 00610252
65: C ******************** 00620252
66: C I01 CONTAINS THE LOGICAL UNIT NUMBER FOR THE CARD READER 00630252
67: I01 = 5 00640252
68: C I02 CONTAINS THE LOGICAL UNIT NUMBER FOR THE PRINTER 00650252
69: I02 = 6 00660252
70: C SYSTEM ENVIRONMENT SECTION 00670252
71: C 00680252
72: I01 = 5 00690252
73: C THE CX010 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I01 = 5 00700252
74: C (UNIT NUMBER FOR CARD READER). 00710252
75: CX011 THIS CARD IS REPLACED BY CONTENTS OF FEXEC X-011 CONTROL CARD00720252
76: C THE CX011 CARD IS FOR SYSTEMS WHICH REQUIRE ADDITIONAL 00730252
77: C FORTRAN STATEMENTS FOR FILES ASSOCIATED WITH CX010 ABOVE. 00740252
78: C 00750252
79: I02 = 6 00760252
80: C THE CX020 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I02 = 6 00770252
81: C (UNIT NUMBER FOR PRINTER). 00780252
82: CX021 THIS CARD IS PEPLACED BY CONTENTS OF FEXEC X-021 CONTROL CARD.00790252
83: C THE CX021 CARD IS FOR SYSTEMS WHICH REQUIRE ADDITIONAL 00800252
84: C FORTRAN STATEMENTS FOR FILES ASSOCIATED WITH CX020 ABOVE. 00810252
85: C 00820252
86: IVPASS = 0 00830252
87: IVFAIL = 0 00840252
88: IVDELE = 0 00850252
89: ICZERO = 0 00860252
90: C 00870252
91: C WRITE OUT PAGE HEADERS 00880252
92: C 00890252
93: WRITE (I02,90002) 00900252
94: WRITE (I02,90006) 00910252
95: WRITE (I02,90008) 00920252
96: WRITE (I02,90004) 00930252
97: WRITE (I02,90010) 00940252
98: WRITE (I02,90004) 00950252
99: WRITE (I02,90016) 00960252
100: WRITE (I02,90001) 00970252
101: WRITE (I02,90004) 00980252
102: WRITE (I02,90012) 00990252
103: WRITE (I02,90014) 01000252
104: WRITE (I02,90004) 01010252
105: C 01020252
106: C 01030252
107: C **** FCVS PROGRAM 252 - TEST 001 **** 01040252
108: C 01050252
109: C TEST 001 IS AN ASSIGN STATEMENT IN WHICH THE STATEMENT 01060252
110: C LABEL IS ACTUALLY FOR A FORMAT STATEMENT. IN 10.3 - THE STATEMENT01070252
111: C LABEL MUST BE THE LABEL OF AN EXECUTABLE STATEMENT OR A FORMAT 01080252
112: C STATEMENT. THE ASSIGN STATEMENT IS FOLLOWED BY A SIMPLE WRITE 01090252
113: C TO THE PRINTER. 01100252
114: C 01110252
115: C 01120252
116: IVTNUM = 1 01130252
117: IF (ICZERO) 30010, 0010, 30010 01140252
118: 0010 CONTINUE 01150252
119: ASSIGN 0012 TO I 01160252
120: 0012 FORMAT (51H **** ASSIGN FORMAT NUMBER TO INTEGER VARIABLE ****) 01170252
121: WRITE (I02, I) 01180252
122: C ***** VISUALLY CHECK THE OUTPUT PRINTER LISTING ***** 01190252
123: IVCOMP = 0 01200252
124: IVCORR = 0 01210252
125: 40010 IF ( IVCOMP ) 20010, 10010, 20010 01220252
126: 30010 IVDELE = IVDELE + 1 01230252
127: WRITE (I02,80000) IVTNUM 01240252
128: IF (ICZERO) 10010, 0021, 20010 01250252
129: 10010 IVPASS = IVPASS + 1 01260252
130: WRITE (I02,80002) IVTNUM 01270252
131: GO TO 0021 01280252
132: 20010 IVFAIL = IVFAIL + 1 01290252
133: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 01300252
134: 0021 CONTINUE 01310252
135: C 01320252
136: C **** FCVS PROGRAM 252 - TEST 002 **** 01330252
137: C 01340252
138: C TEST 002 IS A TEST OF THE ASSIGNED GO TO STATEMENT WITH THE 01350252
139: C OPTIONAL COMMA INTENTIONALLY DELETED FROM THE SYNTAX. 01360252
140: C GO TO I (S1, S2, S3) 01370252
141: C 01380252
142: C 01390252
143: IVTNUM = 2 01400252
144: IF (ICZERO) 30020, 0020, 30020 01410252
145: 0020 CONTINUE 01420252
146: IVCOMP = 0 01430252
147: IVCORR = 1 01440252
148: ASSIGN 0023 TO J 01450252
149: GO TO 0025 01460252
150: 0022 IVCOMP = 0 01470252
151: GO TO 40020 01480252
152: 0023 IVCOMP = 1 01490252
153: GO TO 40020 01500252
154: 0024 IVCOMP = 0 01510252
155: GO TO 40020 01520252
156: 0025 GO TO J (0022, 0023, 0024) 01530252
157: C NOTE THAT THE OPTIONAL COMMA IS NOT PRESENT AFTER THE J IN 01540252
158: C PREVIOUS ASSIGNED GO TO STATEMENT. 01550252
159: 40020 IF ( IVCOMP - 1 ) 20020, 10020, 20020 01560252
160: 30020 IVDELE = IVDELE + 1 01570252
161: WRITE (I02,80000) IVTNUM 01580252
162: IF (ICZERO) 10020, 0031, 20020 01590252
163: 10020 IVPASS = IVPASS + 1 01600252
164: WRITE (I02,80002) IVTNUM 01610252
165: GO TO 0031 01620252
166: 20020 IVFAIL = IVFAIL + 1 01630252
167: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 01640252
168: 0031 CONTINUE 01650252
169: C 01660252
170: C **** FCVS PROGRAM 252 - TEST 003 **** 01670252
171: C 01680252
172: C TEST 003 USES A SERIES OF ASSIGN STATEMENTS TO TEST THAT THE 01690252
173: C SAME STATEMENT LABEL AND INTEGER VARIABLE CAN BE USED IN A 01700252
174: C MULTIPLE REDEFINITION TO THE SAME VALUES. A SIMPLE ASSIGNED 01710252
175: C GO TO IS USED TO TEST THE VALUE OF THE INTEGER VARIABLE M. 01720252
176: C 01730252
177: C 01740252
178: IVTNUM = 3 01750252
179: IF (ICZERO) 30030, 0030, 30030 01760252
180: 0030 CONTINUE 01770252
181: IVCOMP = 0 01780252
182: IVCORR = 1 01790252
183: ASSIGN 0033 TO M 01800252
184: ASSIGN 0033 TO M 01810252
185: ASSIGN 0033 TO M 01820252
186: GO TO 0035 01830252
187: 0032 IVCOMP = 0 01840252
188: GO TO 40030 01850252
189: 0033 IVCOMP = 1 01860252
190: GO TO 40030 01870252
191: 0034 IVCOMP = 0 01880252
192: GO TO 40030 01890252
193: 0035 GO TO M, (0032, 0033, 0034) 01900252
194: 40030 IF ( IVCOMP - 1 ) 20030, 10030, 20030 01910252
195: 30030 IVDELE = IVDELE + 1 01920252
196: WRITE (I02,80000) IVTNUM 01930252
197: IF (ICZERO) 10030, 0041, 20030 01940252
198: 10030 IVPASS = IVPASS + 1 01950252
199: WRITE (I02,80002) IVTNUM 01960252
200: GO TO 0041 01970252
201: 20030 IVFAIL = IVFAIL + 1 01980252
202: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 01990252
203: 0041 CONTINUE 02000252
204: C 02010252
205: C **** FCVS PROGRAM 252 - TEST 004 **** 02020252
206: C 02030252
207: C TEST 004 USES A SERIES OF ASSIGN STATEMENTS TO SET THE INTEGER 02040252
208: C VARIABLE K TO A STATEMENT LABEL IN THE PARENTHESIZED LIST OF 02050252
209: C STATEMENT LABELS FOR THE ASSIGNED GO TO STATEMENT, THEN TO A 02060252
210: C STATEMENT LABEL NOT IN THE LIST AND FINALLY BACK TO A PROPER 02070252
211: C STATEMENT LABEL WITHIN THE PARENTHESIZED LIST. SECTION 11.3 02080252
212: C REQUIRES - IF THE PARENTHESIZED LIST IS PRESENT, THE STATEMENT 02090252
213: C LABEL ASSIGNED TO I MUST BE ONE OF THE STATEMENT LABELS IN 02100252
214: C THE LIST. AN ASSIGNED GO TO STATEMENT IS USED TO TEST THE FINAL 02110252
215: C ASSIGNMENT OF STATEMENT LABELS TO THE INTEGER VARIABLE K. 02120252
216: C 02130252
217: C 02140252
218: IVTNUM = 4 02150252
219: IF (ICZERO) 30040, 0040, 30040 02160252
220: 0040 CONTINUE 02170252
221: IVCOMP = 0 02180252
222: IVCORR = 1 02190252
223: ASSIGN 0043 TO K 02200252
224: ASSIGN 0042 TO K 02210252
225: 0042 ASSIGN 0043 TO K 02220252
226: GO TO 0045 02230252
227: 0043 IVCOMP = 1 02240252
228: GO TO 40040 02250252
229: 0044 IVCOMP = 0 02260252
230: GO TO 40040 02270252
231: 0045 GO TO K, (0044, 0043) 02280252
232: 40040 IF ( IVCOMP - 1 ) 20040, 10040, 20040 02290252
233: 30040 IVDELE = IVDELE + 1 02300252
234: WRITE (I02,80000) IVTNUM 02310252
235: IF (ICZERO) 10040, 0051, 20040 02320252
236: 10040 IVPASS = IVPASS + 1 02330252
237: WRITE (I02,80002) IVTNUM 02340252
238: GO TO 0051 02350252
239: 20040 IVFAIL = IVFAIL + 1 02360252
240: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 02370252
241: 0051 CONTINUE 02380252
242: C 02390252
243: C 02400252
244: C THE FOLLOWING TWO TESTS CHECK THE POSSIBLE RANGE OF STATEMENT 02410252
245: C LABELS ( FROM 00001 TO 99999 ) BY USING THEM IN ASSIGN STATEMENTS 02420252
246: C AND ASSIGNED GO TO STATEMENTS. 02430252
247: C 02440252
248: C 02450252
249: C 02460252
250: C **** FCVS PROGRAM 252 - TEST 005 **** 02470252
251: C 02480252
252: C TEST 005 USES A STATEMENT LABEL OF 00001 WHICH IS THE SMALLEST 02490252
253: C ALLOWABLE STATEMENT LABEL. 02500252
254: C 02510252
255: C 02520252
256: IVTNUM = 5 02530252
257: IF (ICZERO) 30050, 0050, 30050 02540252
258: 0050 CONTINUE 02550252
259: IVCOMP = 0 02560252
260: IVCORR = 1 02570252
261: ASSIGN 00001 TO I 02580252
262: GO TO 0054 02590252
263: 0052 IVCOMP = 0 02600252
264: GO TO 40050 02610252
265: 00001 IVCOMP = 1 02620252
266: GO TO 40050 02630252
267: 0053 IVCOMP = 0 02640252
268: GO TO 40050 02650252
269: 0054 GO TO I, ( 0052, 00001, 0053 ) 02660252
270: 40050 IF ( IVCOMP - 1 ) 20050, 10050, 20050 02670252
271: 30050 IVDELE = IVDELE + 1 02680252
272: WRITE (I02,80000) IVTNUM 02690252
273: IF (ICZERO) 10050, 0061, 20050 02700252
274: 10050 IVPASS = IVPASS + 1 02710252
275: WRITE (I02,80002) IVTNUM 02720252
276: GO TO 0061 02730252
277: 20050 IVFAIL = IVFAIL + 1 02740252
278: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 02750252
279: 0061 CONTINUE 02760252
280: C 02770252
281: C **** FCVS PROGRAM 252 - TEST 006 **** 02780252
282: C 02790252
283: C TEST 006 USES A STATEMENT LABEL OF 99999 WHICH IS THE LARGEST 02800252
284: C ALLOWABLE STATEMENT LABEL. 02810252
285: C 02820252
286: C 02830252
287: IVTNUM = 6 02840252
288: IF (ICZERO) 30060, 0060, 30060 02850252
289: 0060 CONTINUE 02860252
290: IVCOMP = 0 02870252
291: IVCORR = 1 02880252
292: ASSIGN 99999 TO J 02890252
293: GO TO 0064 02900252
294: 0062 IVCOMP = 0 02910252
295: GO TO 40060 02920252
296: 99999 IVCOMP = 1 02930252
297: GO TO 40060 02940252
298: 0063 IVCOMP = 0 02950252
299: GO TO 40060 02960252
300: 0064 GO TO J, ( 0062, 99999, 0063 ) 02970252
301: 40060 IF ( IVCOMP - 1 ) 20060, 10060, 20060 02980252
302: 30060 IVDELE = IVDELE + 1 02990252
303: WRITE (I02,80000) IVTNUM 03000252
304: IF (ICZERO) 10060, 0071, 20060 03010252
305: 10060 IVPASS = IVPASS + 1 03020252
306: WRITE (I02,80002) IVTNUM 03030252
307: GO TO 0071 03040252
308: 20060 IVFAIL = IVFAIL + 1 03050252
309: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 03060252
310: 0071 CONTINUE 03070252
311: C 03080252
312: C **** FCVS PROGRAM 252 - TEST 007 **** 03090252
313: C 03100252
314: C TEST 007 IS A SYNTAX CHECK ON THE OPTIONAL COMMA IN THE 03110252
315: C COMPUTED GO TO STATEMENT. THE COMMA FOLLOWING THE PARENTHESIZED 03120252
316: C LIST OF STATEMENT LABELS IS INTENTIONALLY OMITTED. 03130252
317: C GO TO ( S1, S2, S3 ) I 03140252
318: C 03150252
319: C 03160252
320: IVTNUM = 7 03170252
321: IF (ICZERO) 30070, 0070, 30070 03180252
322: 0070 CONTINUE 03190252
323: IVCOMP = 0 03200252
324: IVCORR = 1 03210252
325: I = 3 03220252
326: GO TO 0075 03230252
327: 0072 IVCOMP = 0 03240252
328: I = 1 03250252
329: GO TO 0075 03260252
330: 0073 IVCOMP = 1 03270252
331: GO TO 40070 03280252
332: 0074 IVCOMP = 0 03290252
333: I = 2 03300252
334: GO TO 0075 03310252
335: 0075 GO TO ( 0074, 0073, 0072 ) I 03320252
336: 40070 IF ( I - 2 ) 20070, 40071, 20070 03330252
337: 40071 IF ( IVCOMP - 1 ) 20070, 10070, 20070 03340252
338: 30070 IVDELE = IVDELE + 1 03350252
339: WRITE (I02,80000) IVTNUM 03360252
340: IF (ICZERO) 10070, 0081, 20070 03370252
341: 10070 IVPASS = IVPASS + 1 03380252
342: WRITE (I02,80002) IVTNUM 03390252
343: GO TO 0081 03400252
344: 20070 IVFAIL = IVFAIL + 1 03410252
345: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 03420252
346: 0081 CONTINUE 03430252
347: C 03440252
348: C **** FCVS PROGRAM 252 - TEST 008 **** 03450252
349: C 03460252
350: C TEST 008 USES THE COMPUTED GO TO WITHOUT THE OPTIONAL COMMA 03470252
351: C AND HAS A SINGLE STATEMENT LABEL IN THE PARENTHESIZED LIST OF 03480252
352: C STATEMENT LABELS. 03490252
353: C GO TO ( S1 ) I 03500252
354: C 03510252
355: C 03520252
356: IVTNUM = 8 03530252
357: IF (ICZERO) 30080, 0080, 30080 03540252
358: 0080 CONTINUE 03550252
359: IVCOMP = 0 03560252
360: IVCORR = 1 03570252
361: J = 1 03580252
362: GO TO 0083 03590252
363: 0082 IVCOMP = 1 03600252
364: GO TO 40080 03610252
365: 0083 GO TO ( 0082 ) J 03620252
366: 40080 IF ( IVCOMP - 1 ) 20080, 10080, 20080 03630252
367: 30080 IVDELE = IVDELE + 1 03640252
368: WRITE (I02,80000) IVTNUM 03650252
369: IF (ICZERO) 10080, 0091, 20080 03660252
370: 10080 IVPASS = IVPASS + 1 03670252
371: WRITE (I02,80002) IVTNUM 03680252
372: GO TO 0091 03690252
373: 20080 IVFAIL = IVFAIL + 1 03700252
374: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 03710252
375: 0091 CONTINUE 03720252
376: C 03730252
377: C 03740252
378: C THE NEXT THREE TESTS OF THE COMPUTED GO TO TEST THE RANGE OF 03750252
379: C THE INDEX. 03760252
380: C 03770252
381: C FORTRAN 77 HAS THE REQUIREMENT IN SECTION 11.2 - IF THE INDEX 03780252
382: C IS LESS THAN ONE OR GREATER THAN THE NUMBER OF STATEMENT LABELS IN03790252
383: C THE PARENTHESIZED LIST, THE EXECUTION SEQUENCE CONTINUES AS THOUGH03800252
384: C A CONTINUE STATEMENT WERE EXECUTED. 03810252
385: C 03820252
386: C 03830252
387: C 03840252
388: C **** FCVS PROGRAM 252 - TEST 009 **** 03850252
389: C 03860252
390: C 03870252
391: C TEST 009 USES A VALUE OF THE INDEX OF THE COMPUTED GO TO 03880252
392: C STATEMENT GREATER THAN THE NUMBER OF STATEMENT LABELS IN THE 03890252
393: C PARENTHESIZED LIST. 03900252
394: C 03910252
395: C 03920252
396: IVTNUM = 9 03930252
397: IF (ICZERO) 30090, 0090, 30090 03940252
398: 0090 CONTINUE 03950252
399: IVCOMP = 0 03960252
400: IVCORR = 1 03970252
401: K = 3 03980252
402: GO TO 0094 03990252
403: 0092 IVCOMP = 0 04000252
404: GO TO 40090 04010252
405: 0093 IVCOMP = 0 04020252
406: GO TO 40090 04030252
407: 0094 GO TO ( 0092, 0093 ) K 04040252
408: C 04050252
409: C TO REACH THIS STATEMENT THE COMPUTED GO TO WILL HAVE TO BE 04060252
410: C EXECUTED AS IF IT WERE A CONTINUE STATEMENT. 04070252
411: C 04080252
412: IVCOMP = 1 04090252
413: 40090 IF ( IVCOMP - 1 ) 20090, 10090, 20090 04100252
414: 30090 IVDELE = IVDELE + 1 04110252
415: WRITE (I02,80000) IVTNUM 04120252
416: IF (ICZERO) 10090, 0101, 20090 04130252
417: 10090 IVPASS = IVPASS + 1 04140252
418: WRITE (I02,80002) IVTNUM 04150252
419: GO TO 0101 04160252
420: 20090 IVFAIL = IVFAIL + 1 04170252
421: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 04180252
422: 0101 CONTINUE 04190252
423: C 04200252
424: C **** FCVS PROGRAM 252 - TEST 010 **** 04210252
425: C 04220252
426: C TEST 010 USES A VALUE OF THE INDEX OF THE COMPUTED GO TO 04230252
427: C STATEMENT EQUAL TO ZERO. 04240252
428: C 04250252
429: C 04260252
430: IVTNUM = 10 04270252
431: IF (ICZERO) 30100, 0100, 30100 04280252
432: 0100 CONTINUE 04290252
433: IVCOMP = 0 04300252
434: IVCORR = 1 04310252
435: I = 0 04320252
436: GO TO 0104 04330252
437: 0102 IVCOMP = 0 04340252
438: GO TO 40100 04350252
439: 0103 IVCOMP = 0 04360252
440: GO TO 40100 04370252
441: 0104 GO TO ( 0103, 0102 ), I 04380252
442: C 04390252
443: C THIS STATEMENT CAN ONLY BE REACHED IF THE COMPUTED GO TO 04400252
444: C IS EXECUTED AS IF IT WERE A CONTINUE STATEMENT. 04410252
445: C 04420252
446: IVCOMP = 1 04430252
447: 40100 IF ( IVCOMP - 1 ) 20100, 10100, 20100 04440252
448: 30100 IVDELE = IVDELE + 1 04450252
449: WRITE (I02,80000) IVTNUM 04460252
450: IF (ICZERO) 10100, 0111, 20100 04470252
451: 10100 IVPASS = IVPASS + 1 04480252
452: WRITE (I02,80002) IVTNUM 04490252
453: GO TO 0111 04500252
454: 20100 IVFAIL = IVFAIL + 1 04510252
455: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 04520252
456: 0111 CONTINUE 04530252
457: C 04540252
458: C **** FCVS PROGRAM 252 - TEST 011 **** 04550252
459: C 04560252
460: C TEST 011 USES A VALUE OF THE INDEX OF THE COMPUTED GO TO 04570252
461: C EQUAL TO -1. 04580252
462: C 04590252
463: IVTNUM = 11 04600252
464: IF (ICZERO) 30110, 0110, 30110 04610252
465: 0110 CONTINUE 04620252
466: IVCOMP = 0 04630252
467: IVCORR = 1 04640252
468: J = -1 04650252
469: GO TO 0114 04660252
470: 0112 IVCOMP = 0 04670252
471: GO TO 40110 04680252
472: 0113 IVCOMP = 0 04690252
473: GO TO 40110 04700252
474: 0114 GO TO (0112,0113),J 04710252
475: C 04720252
476: C THIS STATEMENT CAN ONLY BE REACHED IF THE COMPUTED GO TO 04730252
477: C IS EXECUTED AS IF IT WERE A CONTINUE STATEMENT. 04740252
478: C 04750252
479: IVCOMP = 1 04760252
480: 40110 IF ( IVCOMP - 1 ) 20110, 10110, 20110 04770252
481: 30110 IVDELE = IVDELE + 1 04780252
482: WRITE (I02,80000) IVTNUM 04790252
483: IF (ICZERO) 10110, 0121, 20110 04800252
484: 10110 IVPASS = IVPASS + 1 04810252
485: WRITE (I02,80002) IVTNUM 04820252
486: GO TO 0121 04830252
487: 20110 IVFAIL = IVFAIL + 1 04840252
488: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 04850252
489: 0121 CONTINUE 04860252
490: C 04870252
491: C 04880252
492: C WRITE OUT TEST SUMMARY 04890252
493: C 04900252
494: WRITE (I02,90004) 04910252
495: WRITE (I02,90014) 04920252
496: WRITE (I02,90004) 04930252
497: WRITE (I02,90000) 04940252
498: WRITE (I02,90004) 04950252
499: WRITE (I02,90020) IVFAIL 04960252
500: WRITE (I02,90022) IVPASS 04970252
501: WRITE (I02,90024) IVDELE 04980252
502: STOP 04990252
503: 90001 FORMAT (1H ,24X,5HFM252) 05000252
504: 90000 FORMAT (1H ,20X,20HEND OF PROGRAM FM252) 05010252
505: C 05020252
506: C FORMATS FOR TEST DETAIL LINES 05030252
507: C 05040252
508: 80000 FORMAT (1H ,4X,I5,6X,7HDELETED) 05050252
509: 80002 FORMAT (1H ,4X,I5,7X,4HPASS) 05060252
510: 80010 FORMAT (1H ,4X,I5,7X,4HFAIL,10X,I6,9X,I6) 05070252
511: 80012 FORMAT (1H ,4X,I5,7X,4HFAIL,4X,E12.5,3X,E12.5) 05080252
512: 80018 FORMAT (1H ,4X,I5,7X,4HFAIL,2X,A14,1X,A14) 05090252
513: C 05100252
514: C FORMAT STATEMENTS FOR PAGE HEADERS 05110252
515: C 05120252
516: 90002 FORMAT (1H1) 05130252
517: 90004 FORMAT (1H ) 05140252
518: 90006 FORMAT (1H ,10X,34HFORTRAN COMPILER VALIDATION SYSTEM) 05150252
519: 90008 FORMAT (1H ,21X,11HVERSION 1.0) 05160252
520: 90010 FORMAT (1H ,8X,38HFOR OFFICIAL USE ONLY - COPYRIGHT 1978) 05170252
521: 90012 FORMAT (1H ,5X,4HTEST,5X,9HPASS/FAIL,5X,8HCOMPUTED,8X,7HCORRECT) 05180252
522: 90014 FORMAT (1H ,5X,46H----------------------------------------------) 05190252
523: 90016 FORMAT (1H ,18X,17HSUBSET LEVEL TEST) 05200252
524: C 05210252
525: C FORMAT STATEMENTS FOR RUN SUMMARY 05220252
526: C 05230252
527: 90020 FORMAT (1H ,19X,I5,13H TESTS FAILED) 05240252
528: 90022 FORMAT (1H ,19X,I5,13H TESTS PASSED) 05250252
529: 90024 FORMAT (1H ,19X,I5,14H TESTS DELETED) 05260252
530: END 05270252
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.