![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to FM255.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 FM255.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 FM255 00010255
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 00020255
6: C 00030255
7: C 00040255
8: C THIS ROUTINE IS A TEST OF THE ELSE STATEMENT. TESTS WITHIN 00050255
9: C THIS ROUTINE ARE FOR THE SYNTAX OF THE BASIC ELSE STATEMENT AND 00060255
10: C ELSE BLOCK STRUCTURES. THE END IF STATEMENT IS USED IN ALL BLOCK 00070255
11: C IF STRUCTURES FOR THE ROUTINES FM253, FM254, AND FM255. FOR EACH 00080255
12: C BLOCK IF STATEMENT, THERE MUST BE A CORRESPONDING END IF STATEMENT00090255
13: C IN THE SAME PROGRAM UNIT. 00100255
14: C 00110255
15: C REFERENCES 00120255
16: C AMERICAN NATIONAL STANDARD PROGRAMMING LANGUAGE FORTRAN, 00130255
17: C X3.9-1977 00140255
18: C SECTION 11.8, ELSE STATEMENT 00150255
19: C SECTION 11.8.1, ELSE BLOCK 00160255
20: C SECTION 11.8.2, EXECUTION OF AN ELSE STATEMENT 00170255
21: C SECTION 11.9, END IF STATEMENT 00180255
22: C 00190255
23: C 00200255
24: C 00210255
25: C 00220255
26: C ******************************************************************00230255
27: C A COMPILER VALIDATION SYSTEM FOR THE FORTRAN LANGUAGE 00240255
28: C BASED ON SPECIFICATIONS AS DEFINED IN AMERICAN STANDARD FORTRAN 00250255
29: C X3.9-1978, HAS BEEN DEVELOPED BY THE DEPARTMENT OF THE NAVY. THE 00260255
30: C FORTRAN COMPILER VALIDATION SYSTEM (FCVS) CONSISTS OF AUDIT 00270255
31: C ROUTINES, THEIR RELATED DATA, AND AN EXECUTIVE SYSTEM. EACH AUDIT00280255
32: C ROUTINE IS A FORTRAN PROGRAM OR SUBPROGRAM WHICH INCLUDES TESTS 00290255
33: C OF SPECIFIC LANGUAGE ELEMENTS AND SUPPORTING PROCEDURES INDICATING00300255
34: C THE RESULT OF EXECUTING THESE TESTS. 00310255
35: C 00320255
36: C THIS PARTICULAR PROGRAM OR SUBPROGRAM CONTAINS ONLY FEATURES 00330255
37: C FOUND IN THE SUBSET LEVEL OF THE STANDARD. 00340255
38: C 00350255
39: C SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00360255
40: C DEPARTMENT OF THE NAVY 00370255
41: C FEDERAL COBOL COMPILER TESTING SERVICE 00380255
42: C WASHINGTON, D.C. 20376 00390255
43: C 00400255
44: C ******************************************************************00410255
45: C 00420255
46: C 00430255
47: IMPLICIT LOGICAL (L) 00440255
48: IMPLICIT CHARACTER*14 (C) 00450255
49: C 00460255
50: C 00470255
51: C 00480255
52: C INITIALIZATION SECTION. 00490255
53: C 00500255
54: C INITIALIZE CONSTANTS 00510255
55: C ******************** 00520255
56: C I01 CONTAINS THE LOGICAL UNIT NUMBER FOR THE CARD READER 00530255
57: I01 = 5 00540255
58: C I02 CONTAINS THE LOGICAL UNIT NUMBER FOR THE PRINTER 00550255
59: I02 = 6 00560255
60: C SYSTEM ENVIRONMENT SECTION 00570255
61: C 00580255
62: I01 = 5 00590255
63: C THE CX010 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I01 = 5 00600255
64: C (UNIT NUMBER FOR CARD READER). 00610255
65: CX011 THIS CARD IS REPLACED BY CONTENTS OF FEXEC X-011 CONTROL CARD00620255
66: C THE CX011 CARD IS FOR SYSTEMS WHICH REQUIRE ADDITIONAL 00630255
67: C FORTRAN STATEMENTS FOR FILES ASSOCIATED WITH CX010 ABOVE. 00640255
68: C 00650255
69: I02 = 6 00660255
70: C THE CX020 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I02 = 6 00670255
71: C (UNIT NUMBER FOR PRINTER). 00680255
72: CX021 THIS CARD IS PEPLACED BY CONTENTS OF FEXEC X-021 CONTROL CARD.00690255
73: C THE CX021 CARD IS FOR SYSTEMS WHICH REQUIRE ADDITIONAL 00700255
74: C FORTRAN STATEMENTS FOR FILES ASSOCIATED WITH CX020 ABOVE. 00710255
75: C 00720255
76: IVPASS = 0 00730255
77: IVFAIL = 0 00740255
78: IVDELE = 0 00750255
79: ICZERO = 0 00760255
80: C 00770255
81: C WRITE OUT PAGE HEADERS 00780255
82: C 00790255
83: WRITE (I02,90002) 00800255
84: WRITE (I02,90006) 00810255
85: WRITE (I02,90008) 00820255
86: WRITE (I02,90004) 00830255
87: WRITE (I02,90010) 00840255
88: WRITE (I02,90004) 00850255
89: WRITE (I02,90016) 00860255
90: WRITE (I02,90001) 00870255
91: WRITE (I02,90004) 00880255
92: WRITE (I02,90012) 00890255
93: WRITE (I02,90014) 00900255
94: WRITE (I02,90004) 00910255
95: C 00920255
96: C 00930255
97: C 00940255
98: C THE SYNTAX OF THE ELSE STATEMENTS IN THE TESTS TO FOLLOW IS 00950255
99: C 00960255
100: C IF ( E1 ) THEN 00970255
101: C IF-BLOCK 00980255
102: C ELSE 00990255
103: C ELSE-BLOCK 01000255
104: C END IF 01010255
105: C 01020255
106: C THE NEXT TWO TESTS WILL USE THE FOLLOWING COMBINATIONS OF TRUE 01030255
107: C AND FALSE FOR E1 AS SHOWN BELOW - 01040255
108: C TEST NUMBER 1 2 01050255
109: C E1 T F 01060255
110: C 01070255
111: C 01080255
112: C 01090255
113: C **** FCVS PROGRAM 255 - TEST 001 **** 01100255
114: C 01110255
115: C TEST 001 USES A VALUE OF .TRUE. FOR E1. THE IF-BLOCK SHOULD BE01120255
116: C EXECUTED. THE ELSE-BLOCK SHOULD NOT BE EXECUTED. 01130255
117: C 01140255
118: C 01150255
119: IVTNUM = 1 01160255
120: IF (ICZERO) 30010, 0010, 30010 01170255
121: 0010 CONTINUE 01180255
122: IVCOMP = 1 01190255
123: IF ( .TRUE. ) THEN 01200255
124: IVCOMP = IVCOMP * 2 01210255
125: ELSE 01220255
126: IVCOMP = IVCOMP * 3 01230255
127: END IF 01240255
128: C 01250255
129: C **** IVCOMP IS DETERMINED BY IVCOMP = 2 = 1 * 2 ****01260255
130: C 01270255
131: IVCORR = 2 01280255
132: 40010 IF ( IVCOMP - 2 ) 20010, 10010, 20010 01290255
133: 30010 IVDELE = IVDELE + 1 01300255
134: WRITE (I02,80000) IVTNUM 01310255
135: IF (ICZERO) 10010, 0021, 20010 01320255
136: 10010 IVPASS = IVPASS + 1 01330255
137: WRITE (I02,80002) IVTNUM 01340255
138: GO TO 0021 01350255
139: 20010 IVFAIL = IVFAIL + 1 01360255
140: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 01370255
141: 0021 CONTINUE 01380255
142: C 01390255
143: C **** FCVS PROGRAM 255 - TEST 002 **** 01400255
144: C 01410255
145: C TEST 002 HAS E1 AS FALSE. THE IF-BLOCK SHOULD NOT BE EXECUTED.01420255
146: C THE ELSE-BLOCK SHOULD EXECUTE. 01430255
147: C 01440255
148: C 01450255
149: IVTNUM = 2 01460255
150: IF (ICZERO) 30020, 0020, 30020 01470255
151: 0020 CONTINUE 01480255
152: IVCOMP = 1 01490255
153: LVON01 = .FALSE. 01500255
154: IF ( LVON01 ) THEN 01510255
155: IVCOMP = IVCOMP * 2 01520255
156: ELSE 01530255
157: IVCOMP = IVCOMP * 3 01540255
158: END IF 01550255
159: C 01560255
160: C **** IVCOMP IS DETERMINED BY IVCOMP = 3 = 1 * 3 ****01570255
161: C 01580255
162: IVCORR = 3 01590255
163: 40020 IF ( IVCOMP - 3 ) 20020, 10020, 20020 01600255
164: 30020 IVDELE = IVDELE + 1 01610255
165: WRITE (I02,80000) IVTNUM 01620255
166: IF (ICZERO) 10020, 0031, 20020 01630255
167: 10020 IVPASS = IVPASS + 1 01640255
168: WRITE (I02,80002) IVTNUM 01650255
169: GO TO 0031 01660255
170: 20020 IVFAIL = IVFAIL + 1 01670255
171: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 01680255
172: 0031 CONTINUE 01690255
173: C 01700255
174: C **** FCVS PROGRAM 255 - TEST 003 **** 01710255
175: C 01720255
176: C TEST 003 HAS AN EMPTY ELSE-BLOCK. SECTION 11.8.1 STATES THAT 01730255
177: C AN ELSE-BLOCK MAY BE EMPTY. IN THIS TEST THE VALUE OF E1 IS TRUE.01740255
178: C THE IF-BLOCK SHOULD BE EXECUTED. 01750255
179: C 01760255
180: C 01770255
181: IVTNUM = 3 01780255
182: IF (ICZERO) 30030, 0030, 30030 01790255
183: 0030 CONTINUE 01800255
184: IVCOMP = 1 01810255
185: LVON01 = .TRUE. 01820255
186: IF ( LVON01 ) THEN 01830255
187: IVCOMP = IVCOMP * 2 01840255
188: ELSE 01850255
189: END IF 01860255
190: C 01870255
191: C **** IVCOMP IS DETERMINED BY IVCOMP = 2 = 1 * 2 ****01880255
192: C 01890255
193: IVCORR = 2 01900255
194: 40030 IF ( IVCOMP - 2 ) 20030, 10030, 20030 01910255
195: 30030 IVDELE = IVDELE + 1 01920255
196: WRITE (I02,80000) IVTNUM 01930255
197: IF (ICZERO) 10030, 0041, 20030 01940255
198: 10030 IVPASS = IVPASS + 1 01950255
199: WRITE (I02,80002) IVTNUM 01960255
200: GO TO 0041 01970255
201: 20030 IVFAIL = IVFAIL + 1 01980255
202: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 01990255
203: 0041 CONTINUE 02000255
204: C 02010255
205: C **** FCVS PROGRAM 255 - TEST 004 **** 02020255
206: C 02030255
207: C TEST 004 IS SIMILAR TO THE PREVIOUS TEST EXCEPT THAT THE VALUE 02040255
208: C OF E1 IS FALSE. THE IF-BLOCK SHOULD NOT BE EXECUTED. 02050255
209: C 02060255
210: C 02070255
211: IVTNUM = 4 02080255
212: IF (ICZERO) 30040, 0040, 30040 02090255
213: 0040 CONTINUE 02100255
214: IVCOMP = 1 02110255
215: LVON01 = .FALSE. 02120255
216: IF ( LVON01 ) THEN 02130255
217: IVCOMP = IVCOMP * 2 02140255
218: ELSE 02150255
219: END IF 02160255
220: IVCORR = 1 02170255
221: 40040 IF ( IVCOMP - 1 ) 20040, 10040, 20040 02180255
222: 30040 IVDELE = IVDELE + 1 02190255
223: WRITE (I02,80000) IVTNUM 02200255
224: IF (ICZERO) 10040, 0051, 20040 02210255
225: 10040 IVPASS = IVPASS + 1 02220255
226: WRITE (I02,80002) IVTNUM 02230255
227: GO TO 0051 02240255
228: 20040 IVFAIL = IVFAIL + 1 02250255
229: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 02260255
230: 0051 CONTINUE 02270255
231: C 02280255
232: C **** FCVS PROGRAM 255 - TEST 005 **** 02290255
233: C 02300255
234: C TEST 005 USES AN ELSE STATEMENT IN AN IF-LEVEL OF 2. THE 02310255
235: C SYNTAX FOR THIS STRUCTURE IS SHOWN BELOW - 02320255
236: C 02330255
237: C IF ( E1 ) THEN 02340255
238: C IF-BLOCK 1 02350255
239: C IF ( E2 ) THEN 02360255
240: C IF-BLOCK 2 02370255
241: C ELSE 02380255
242: C ELSE-BLOCK 1 02390255
243: C END IF 02400255
244: C ELSE 02410255
245: C ELSE-BLOCK 2 02420255
246: C END IF 02430255
247: C 02440255
248: C IN THIS TEST THE VALUES FOR E1 AND E2 ARE BOTH TRUE. IF-BLOCK 02450255
249: C 1 AND IF-BLOCK 2 SHOULD BE EXECUTED. ELSE-BLOCKS 1 AND 2 SHOULD 02460255
250: C NOT BE EXECUTED. 02470255
251: C 02480255
252: C 02490255
253: IVTNUM = 5 02500255
254: IF (ICZERO) 30050, 0050, 30050 02510255
255: 0050 CONTINUE 02520255
256: IVCOMP = 1 02530255
257: LVON01 = .TRUE. 02540255
258: LVON02 = .TRUE. 02550255
259: IF ( LVON01 ) THEN 02560255
260: IVCOMP = IVCOMP * 2 02570255
261: IF ( LVON02 ) THEN 02580255
262: IVCOMP = IVCOMP * 3 02590255
263: ELSE 02600255
264: IVCOMP = IVCOMP * 5 02610255
265: END IF 02620255
266: ELSE 02630255
267: IVCOMP = IVCOMP * 7 02640255
268: END IF 02650255
269: C 02660255
270: C **** IVCOMP IS DETERMINED BY IVCOMP = 6 = 1 * 2 * 3 02670255
271: C 02680255
272: IVCORR = 6 02690255
273: 40050 IF ( IVCOMP - 6 ) 20050, 10050, 20050 02700255
274: 30050 IVDELE = IVDELE + 1 02710255
275: WRITE (I02,80000) IVTNUM 02720255
276: IF (ICZERO) 10050, 0061, 20050 02730255
277: 10050 IVPASS = IVPASS + 1 02740255
278: WRITE (I02,80002) IVTNUM 02750255
279: GO TO 0061 02760255
280: 20050 IVFAIL = IVFAIL + 1 02770255
281: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 02780255
282: 0061 CONTINUE 02790255
283: C 02800255
284: C **** FCVS PROGRAM 255 - TEST 006 **** 02810255
285: C 02820255
286: C TEST 006 IS SIMILAR TO THE PREVIOUS TEST EXCEPT THAT E1 IS TRUE02830255
287: C AND E2 IS FALSE. IF-BLOCK 1 AND ELSE-BLOCK 1 SHOULD BE EXECUTED. 02840255
288: C 02850255
289: C 02860255
290: IVTNUM = 6 02870255
291: IF (ICZERO) 30060, 0060, 30060 02880255
292: 0060 CONTINUE 02890255
293: IVCOMP = 1 02900255
294: LVON01 = .TRUE. 02910255
295: LVON02 = .FALSE. 02920255
296: IF ( LVON01 ) THEN 02930255
297: IVCOMP = IVCOMP * 2 02940255
298: IF ( LVON02 ) THEN 02950255
299: IVCOMP = IVCOMP * 3 02960255
300: ELSE 02970255
301: IVCOMP = IVCOMP * 5 02980255
302: END IF 02990255
303: ELSE 03000255
304: IVCOMP = IVCOMP * 7 03010255
305: END IF 03020255
306: C 03030255
307: C **** IVCOMP IS DETERMINED BY IVCOMP = 10 = 1 * 2 * 5 ****03040255
308: C 03050255
309: IVCORR = 10 03060255
310: 40060 IF ( IVCOMP - 10 ) 20060, 10060, 20060 03070255
311: 30060 IVDELE = IVDELE + 1 03080255
312: WRITE (I02,80000) IVTNUM 03090255
313: IF (ICZERO) 10060, 0071, 20060 03100255
314: 10060 IVPASS = IVPASS + 1 03110255
315: WRITE (I02,80002) IVTNUM 03120255
316: GO TO 0071 03130255
317: 20060 IVFAIL = IVFAIL + 1 03140255
318: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 03150255
319: 0071 CONTINUE 03160255
320: C 03170255
321: C **** FCVS PROGRAM 255 - TEST 007 **** 03180255
322: C 03190255
323: C TEST 007 AGAIN USES THE SAME STRUCTURE AS THE PREVIOUS TWO 03200255
324: C TESTS. IN THIS TEST E1 IS FALSE AND E2 IS TRUE. ONLY ELSE-BLOCK 03210255
325: C 2 SHOULD BE EXECUTED. 03220255
326: C 03230255
327: C 03240255
328: IVTNUM = 7 03250255
329: IF (ICZERO) 30070, 0070, 30070 03260255
330: 0070 CONTINUE 03270255
331: IVCOMP = 1 03280255
332: LVON01 = .FALSE. 03290255
333: LVON02 = .TRUE. 03300255
334: IF ( LVON01 ) THEN 03310255
335: IVCOMP = IVCOMP * 2 03320255
336: IF ( LVON02 ) THEN 03330255
337: IVCOMP = IVCOMP * 3 03340255
338: ELSE 03350255
339: IVCOMP = IVCOMP * 5 03360255
340: END IF 03370255
341: ELSE 03380255
342: IVCOMP = IVCOMP * 7 03390255
343: END IF 03400255
344: C 03410255
345: C **** IVCOMP IS DETERMINED BY IVCOMP = 7 = 1 * 7 ****03420255
346: C 03430255
347: IVCORR = 7 03440255
348: 40070 IF ( IVCOMP - 7 ) 20070, 10070, 20070 03450255
349: 30070 IVDELE = IVDELE + 1 03460255
350: WRITE (I02,80000) IVTNUM 03470255
351: IF (ICZERO) 10070, 0081, 20070 03480255
352: 10070 IVPASS = IVPASS + 1 03490255
353: WRITE (I02,80002) IVTNUM 03500255
354: GO TO 0081 03510255
355: 20070 IVFAIL = IVFAIL + 1 03520255
356: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 03530255
357: 0081 CONTINUE 03540255
358: C 03550255
359: C 03560255
360: C THE FOLLOWING TESTS USE A BLOCK IF STRUCTURE OF IF-LEVEL 3. 03570255
361: C THE STRUCTURE AS SHOWN BELOW CONTAINS THE IF-THEN, ELSE IF-THEN, 03580255
362: C AND ELSE STRUCTURES. 03590255
363: C 03600255
364: C IF ( E1 ) THEN 03610255
365: C IF-BLOCK 1 03620255
366: C IF ( E2 ) THEN 03630255
367: C IF-BLOCK 2 03640255
368: C IF ( E3 ) THEN 03650255
369: C IF-BLOCK 3 03660255
370: C ELSE IF ( E4 ) THEN 03670255
371: C ELSE IF-BLOCK 1 03680255
372: C ELSE IF ( E5 ) THEN 03690255
373: C ELSE IF-BLOCK 2 03700255
374: C ELSE 03710255
375: C ELSE-BLOCK 1 03720255
376: C END IF 03730255
377: C MORE IF-BLOCK 2 03740255
378: C ELSE IF ( E6 ) THEN 03750255
379: C ELSE IF-BLOCK 3 03760255
380: C ELSE 03770255
381: C ELSE-BLOCK 2 03780255
382: C END IF 03790255
383: C MORE IF-BLOCK 1 03800255
384: C ELSE IF ( E7 ) THEN 03810255
385: C ELSE IF-BLOCK 4 03820255
386: C ELSE 03830255
387: C ELSE-BLOCK 3 03840255
388: C END IF 03850255
389: C 03860255
390: C THE TRUE AND FALSE VALUES FOR THE VARIOUS LOGICAL EXPRESSIONS 03870255
391: C USED IN THE TESTS TO FOLLOW ARE SHOWN BELOW - 03880255
392: C 03890255
393: C TEST NUMBER 8 9 10 11 12 13 14 15 03900255
394: C E1 T T T T T T F F 03910255
395: C E2 T T T T F F F F 03920255
396: C E3 T F F F F F F F 03930255
397: C E4 T F F T F F F F 03940255
398: C E5 T F T F F F F F 03950255
399: C E6 T F F F T F F F 03960255
400: C E7 T F F F F F T F 03970255
401: C 03980255
402: C 03990255
403: C 04000255
404: C **** FCVS PROGRAM 255 - TEST 008 **** 04010255
405: C 04020255
406: C TEST 008 SHOULD EXECUTE IF-BLOCKS 1, 2, AND 3. IT SHOULD ALSO 04030255
407: C EXECUTE MORE IF-BLOCKS 2 AND 1. 04040255
408: C 04050255
409: C 04060255
410: IVTNUM = 8 04070255
411: IF (ICZERO) 30080, 0080, 30080 04080255
412: 0080 CONTINUE 04090255
413: IVCOMP = 1 04100255
414: LVON01 = .TRUE. 04110255
415: LVON02 = .TRUE. 04120255
416: LVON03 = .TRUE. 04130255
417: LVON04 = .TRUE. 04140255
418: LVON05 = .TRUE. 04150255
419: LVON06 = .TRUE. 04160255
420: LVON07 = .TRUE. 04170255
421: IF ( LVON01 ) THEN 04180255
422: IVCOMP = IVCOMP * 2 04190255
423: IF ( LVON02 ) THEN 04200255
424: IVCOMP = IVCOMP * 3 04210255
425: IF ( LVON03 ) THEN 04220255
426: IVCOMP = IVCOMP * 5 04230255
427: ELSE IF ( LVON04 ) THEN 04240255
428: IVCOMP = IVCOMP * 7 04250255
429: ELSE IF ( LVON05 ) THEN 04260255
430: IVCOMP = IVCOMP * 11 04270255
431: ELSE 04280255
432: IVCOMP = IVCOMP * 13 04290255
433: END IF 04300255
434: IVCOMP = IVCOMP * 17 04310255
435: ELSE IF ( LVON06 ) THEN 04320255
436: IVCOMP = IVCOMP * 19 04330255
437: ELSE 04340255
438: IVCOMP = IVCOMP * 23 04350255
439: END IF 04360255
440: IVCOMP = IVCOMP * 29 04370255
441: ELSE IF ( LVON07 ) THEN 04380255
442: IVCOMP = IVCOMP * 31 04390255
443: ELSE 04400255
444: GO TO 0082 04410255
445: END IF 04420255
446: GO TO 0083 04430255
447: 0082 IVCOMP = IVCOMP * 37 04440255
448: 0083 CONTINUE 04450255
449: C 04460255
450: C **** IVCOMP IS DETERMINED BY IVCOMP = 14790 = 1 * 2 * 3 * 5 * 04470255
451: C 17 * 29 ****04480255
452: C 04490255
453: IVCORR = 14790 04500255
454: 40080 IF ( IVCOMP - 14790 ) 20080, 10080, 20080 04510255
455: 30080 IVDELE = IVDELE + 1 04520255
456: WRITE (I02,80000) IVTNUM 04530255
457: IF (ICZERO) 10080, 0091, 20080 04540255
458: 10080 IVPASS = IVPASS + 1 04550255
459: WRITE (I02,80002) IVTNUM 04560255
460: GO TO 0091 04570255
461: 20080 IVFAIL = IVFAIL + 1 04580255
462: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 04590255
463: 0091 CONTINUE 04600255
464: C 04610255
465: C **** FCVS PROGRAM 255 - TEST 009 **** 04620255
466: C 04630255
467: C TEST 009 SHOULD EXECUTE IF-BLOCKS 1 AND 2. IT SHOULD ALSO 04640255
468: C EXECUTE ELSE-BLOCK 1, PLUS MORE IF-BLOCKS 2 AND 1. 04650255
469: C 04660255
470: C 04670255
471: IVTNUM = 9 04680255
472: IF (ICZERO) 30090, 0090, 30090 04690255
473: 0090 CONTINUE 04700255
474: IVCOMP = 1 04710255
475: LVON01 = .TRUE. 04720255
476: LVON02 = .TRUE. 04730255
477: LVON03 = .FALSE. 04740255
478: LVON04 = .FALSE. 04750255
479: LVON05 = .FALSE. 04760255
480: LVON06 = .FALSE. 04770255
481: LVON07 = .FALSE. 04780255
482: IF ( LVON01 ) THEN 04790255
483: IVCOMP = IVCOMP * 2 04800255
484: IF ( LVON02 ) THEN 04810255
485: IVCOMP = IVCOMP * 3 04820255
486: IF ( LVON03 ) THEN 04830255
487: IVCOMP = IVCOMP * 13 04840255
488: ELSE IF ( LVON04 ) THEN 04850255
489: IVCOMP = IVCOMP * 17 04860255
490: ELSE IF ( LVON05 ) THEN 04870255
491: IVCOMP = IVCOMP * 11 04880255
492: ELSE 04890255
493: IVCOMP = IVCOMP * 5 04900255
494: END IF 04910255
495: IVCOMP = IVCOMP * 7 04920255
496: ELSE IF ( LVON06 ) THEN 04930255
497: IVCOMP = IVCOMP * 19 04940255
498: ELSE 04950255
499: IVCOMP = IVCOMP * 23 04960255
500: END IF 04970255
501: IVCOMP = IVCOMP * 29 04980255
502: ELSE IF ( LVON07 ) THEN 04990255
503: IVCOMP = IVCOMP * 31 05000255
504: ELSE 05010255
505: IF ( .TRUE. ) GO TO 0092 05020255
506: END IF 05030255
507: GO TO 0093 05040255
508: 0092 IVCOMP = IVCOMP * 37 05050255
509: 0093 CONTINUE 05060255
510: C 05070255
511: C **** THE ORDER OF THE PRIME INTEGER MULTIPLIERS HAS BEEN 05080255
512: C CHANGED TO KEEP THE IVCOMP RESULT SMALLER THAN 32767 ****05090255
513: C 05100255
514: C 05110255
515: C **** IVCOMP IS DETERMINED BY IVCOMP = 6090 = 1 * 2 * 3 * 5 * 7 05120255
516: C * 29 ****05130255
517: C 05140255
518: IVCORR = 6090 05150255
519: 40090 IF ( IVCOMP - 6090 ) 20090, 10090, 20090 05160255
520: 30090 IVDELE = IVDELE + 1 05170255
521: WRITE (I02,80000) IVTNUM 05180255
522: IF (ICZERO) 10090, 0101, 20090 05190255
523: 10090 IVPASS = IVPASS + 1 05200255
524: WRITE (I02,80002) IVTNUM 05210255
525: GO TO 0101 05220255
526: 20090 IVFAIL = IVFAIL + 1 05230255
527: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 05240255
528: 0101 CONTINUE 05250255
529: C 05260255
530: C **** FCVS PROGRAM 255 - TEST 010 **** 05270255
531: C 05280255
532: C TEST 010 SHOULD EXECUTE IF-BLOCKS 1 AND 2. IT SHOULD ALSO 05290255
533: C EXECUTE ELSE IF-BLOCK 2, PLUS MORE IF-BLOCKS 2 AND 1. 05300255
534: C 05310255
535: C 05320255
536: IVTNUM = 10 05330255
537: IF (ICZERO) 30100, 0100, 30100 05340255
538: 0100 CONTINUE 05350255
539: IVCOMP = 1 05360255
540: LVON01 = .TRUE. 05370255
541: LVON02 = .TRUE. 05380255
542: LVON03 = .FALSE. 05390255
543: LVON04 = .FALSE. 05400255
544: LVON05 = .TRUE. 05410255
545: LVON06 = .FALSE. 05420255
546: LVON07 = .FALSE. 05430255
547: IF ( LVON01 ) THEN 05440255
548: IVCOMP = IVCOMP * 2 05450255
549: IF ( LVON02 ) THEN 05460255
550: IVCOMP = IVCOMP * 3 05470255
551: IF ( LVON03 ) THEN 05480255
552: IVCOMP = IVCOMP * 5 05490255
553: ELSE IF ( LVON04 ) THEN 05500255
554: IVCOMP = IVCOMP * 7 05510255
555: ELSE IF ( LVON05 ) THEN 05520255
556: IVCOMP = IVCOMP * 11 05530255
557: ELSE 05540255
558: IVCOMP = IVCOMP * 13 05550255
559: END IF 05560255
560: IVCOMP = IVCOMP * 17 05570255
561: ELSE IF ( LVON06 ) THEN 05580255
562: IVCOMP = IVCOMP * 19 05590255
563: ELSE 05600255
564: IVCOMP = IVCOMP * 23 05610255
565: END IF 05620255
566: IVCOMP = IVCOMP * 29 05630255
567: ELSE IF ( LVON07 ) THEN 05640255
568: IVCOMP = IVCOMP * 31 05650255
569: ELSE 05660255
570: ICON01 = 1 05670255
571: IF ( ICON01 ) 0103, 0102, 0103 05680255
572: END IF 05690255
573: GO TO 0103 05700255
574: 0102 IVCOMP = IVCOMP * 37 05710255
575: 0103 CONTINUE 05720255
576: C 05730255
577: C **** IVCOMP IS DETERMINED BY IVCOMP = 32538 = 1 * 2 * 3 * 11 * 05740255
578: C 17 * 29 ****05750255
579: C 05760255
580: IVCORR = 32538 05770255
581: 40100 IF ( IVCOMP - 32538 ) 20100, 10100, 20100 05780255
582: 30100 IVDELE = IVDELE + 1 05790255
583: WRITE (I02,80000) IVTNUM 05800255
584: IF (ICZERO) 10100, 0111, 20100 05810255
585: 10100 IVPASS = IVPASS + 1 05820255
586: WRITE (I02,80002) IVTNUM 05830255
587: GO TO 0111 05840255
588: 20100 IVFAIL = IVFAIL + 1 05850255
589: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 05860255
590: 0111 CONTINUE 05870255
591: C 05880255
592: C **** FCVS PROGRAM 255 - TEST 011 **** 05890255
593: C 05900255
594: C TEST 011 SHOULD EXECUTE IF-BLOCKS 1 AND 2. IT SHOULD ALSO 05910255
595: C EXECUTE ELSE IF-BLOCK 1, PLUS MORE IF-BLOCKS 2 AND 1. 05920255
596: C 05930255
597: C 05940255
598: IVTNUM = 11 05950255
599: IF (ICZERO) 30110, 0110, 30110 05960255
600: 0110 CONTINUE 05970255
601: IVCOMP = 1 05980255
602: LVON01 = .TRUE. 05990255
603: LVON02 = .TRUE. 06000255
604: LVON03 = .FALSE. 06010255
605: LVON04 = .TRUE. 06020255
606: LVON05 = .FALSE. 06030255
607: LVON06 = .FALSE. 06040255
608: LVON07 = .FALSE. 06050255
609: IF ( LVON01 ) THEN 06060255
610: IVCOMP = IVCOMP * 2 06070255
611: IF ( LVON02 ) THEN 06080255
612: IVCOMP = IVCOMP * 3 06090255
613: IF ( LVON03 ) THEN 06100255
614: IVCOMP = IVCOMP * 5 06110255
615: ELSE IF ( LVON04 ) THEN 06120255
616: IVCOMP = IVCOMP * 7 06130255
617: ELSE IF ( LVON05 ) THEN 06140255
618: IVCOMP = IVCOMP * 11 06150255
619: ELSE 06160255
620: IVCOMP = IVCOMP * 13 06170255
621: END IF 06180255
622: IVCOMP = IVCOMP * 17 06190255
623: ELSE IF ( LVON06 ) THEN 06200255
624: IVCOMP = IVCOMP * 19 06210255
625: ELSE 06220255
626: IVCOMP = IVCOMP * 23 06230255
627: END IF 06240255
628: IVCOMP = IVCOMP * 29 06250255
629: ELSE IF ( LVON07 ) THEN 06260255
630: IVCOMP = IVCOMP * 31 06270255
631: ELSE 06280255
632: ASSIGN 0112 TO I 06290255
633: GO TO I, ( 0113, 0112) 06300255
634: END IF 06310255
635: GO TO 0113 06320255
636: 0112 IVCOMP = IVCOMP * 37 06330255
637: 0113 CONTINUE 06340255
638: C 06350255
639: C **** IVCOMP IS DETERMINED BY IVCOMP = 20706 = 1 * 2 * 3 * 7 * 06360255
640: C 17 * 29 ****06370255
641: C 06380255
642: IVCORR = 20706 06390255
643: 40110 IF ( IVCOMP - 20706 ) 20110, 10110, 20110 06400255
644: 30110 IVDELE = IVDELE + 1 06410255
645: WRITE (I02,80000) IVTNUM 06420255
646: IF (ICZERO) 10110, 0121, 20110 06430255
647: 10110 IVPASS = IVPASS + 1 06440255
648: WRITE (I02,80002) IVTNUM 06450255
649: GO TO 0121 06460255
650: 20110 IVFAIL = IVFAIL + 1 06470255
651: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 06480255
652: 0121 CONTINUE 06490255
653: C 06500255
654: C **** FCVS PROGRAM 255 - TEST 012 **** 06510255
655: C 06520255
656: C TEST 012 SHOULD EXECUTE IF-BLOCK 1, ELSE IF-BLOCK 3, AND MORE 06530255
657: C IF-BLOCK 1. 06540255
658: C 06550255
659: C 06560255
660: IVTNUM = 12 06570255
661: IF (ICZERO) 30120, 0120, 30120 06580255
662: 0120 CONTINUE 06590255
663: IVCOMP = 1 06600255
664: LVON01 = .TRUE. 06610255
665: LVON02 = .FALSE. 06620255
666: LVON03 = .FALSE. 06630255
667: LVON04 = .FALSE. 06640255
668: LVON05 = .FALSE. 06650255
669: LVON06 = .TRUE. 06660255
670: LVON07 = .FALSE. 06670255
671: IF ( LVON01 ) THEN 06680255
672: IVCOMP = IVCOMP * 2 06690255
673: IF ( LVON02 ) THEN 06700255
674: IVCOMP = IVCOMP * 3 06710255
675: IF ( LVON03 ) THEN 06720255
676: IVCOMP = IVCOMP * 5 06730255
677: ELSE IF ( LVON04 ) THEN 06740255
678: IVCOMP = IVCOMP * 7 06750255
679: ELSE IF ( LVON05 ) THEN 06760255
680: IVCOMP = IVCOMP * 11 06770255
681: ELSE 06780255
682: IVCOMP = IVCOMP * 13 06790255
683: END IF 06800255
684: IVCOMP = IVCOMP * 17 06810255
685: ELSE IF ( LVON06 ) THEN 06820255
686: IVCOMP = IVCOMP * 19 06830255
687: ELSE 06840255
688: IVCOMP = IVCOMP * 23 06850255
689: END IF 06860255
690: IVCOMP = IVCOMP * 29 06870255
691: ELSE IF ( LVON07 ) THEN 06880255
692: IVCOMP = IVCOMP * 31 06890255
693: ELSE 06900255
694: I = 2 06910255
695: GO TO ( 0123, 0122 ), I 06920255
696: END IF 06930255
697: GO TO 0123 06940255
698: 0122 IVCOMP = IVCOMP * 37 06950255
699: 0123 CONTINUE 06960255
700: C 06970255
701: C **** IVCOMP IS DETERMINED BY IVCOMP = 1102 = 1 * 2 * 19 * 29 06980255
702: C 06990255
703: IVCORR = 1102 07000255
704: 40120 IF ( IVCOMP - 1102 ) 20120, 10120, 20120 07010255
705: 30120 IVDELE = IVDELE + 1 07020255
706: WRITE (I02,80000) IVTNUM 07030255
707: IF (ICZERO) 10120, 0131, 20120 07040255
708: 10120 IVPASS = IVPASS + 1 07050255
709: WRITE (I02,80002) IVTNUM 07060255
710: GO TO 0131 07070255
711: 20120 IVFAIL = IVFAIL + 1 07080255
712: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 07090255
713: 0131 CONTINUE 07100255
714: C 07110255
715: C **** FCVS PROGRAM 255 - TEST 013 **** 07120255
716: C 07130255
717: C TEST 013 SHOULD EXECUTE IF-BLOCK 1, ELSE-BLOCK 2, AND MORE 07140255
718: C IF-BLOCK 1. 07150255
719: C 07160255
720: C 07170255
721: IVTNUM = 13 07180255
722: IF (ICZERO) 30130, 0130, 30130 07190255
723: 0130 CONTINUE 07200255
724: IVCOMP = 1 07210255
725: LVON01 = .TRUE. 07220255
726: LVON02 = .FALSE. 07230255
727: LVON03 = .FALSE. 07240255
728: LVON04 = .FALSE. 07250255
729: LVON05 = .FALSE. 07260255
730: LVON06 = .FALSE. 07270255
731: LVON07 = .FALSE. 07280255
732: IF ( LVON01 ) THEN 07290255
733: IVCOMP = IVCOMP * 2 07300255
734: IF ( LVON02 ) THEN 07310255
735: IVCOMP = IVCOMP * 3 07320255
736: IF ( LVON03 ) THEN 07330255
737: IVCOMP = IVCOMP * 5 07340255
738: ELSE IF ( LVON04 ) THEN 07350255
739: IVCOMP = IVCOMP * 7 07360255
740: ELSE IF ( LVON05 ) THEN 07370255
741: IVCOMP = IVCOMP * 11 07380255
742: ELSE 07390255
743: IVCOMP = IVCOMP * 13 07400255
744: END IF 07410255
745: IVCOMP = IVCOMP * 17 07420255
746: ELSE IF ( LVON06 ) THEN 07430255
747: IVCOMP = IVCOMP * 19 07440255
748: ELSE 07450255
749: IVCOMP = IVCOMP * 23 07460255
750: END IF 07470255
751: IVCOMP = IVCOMP * 29 07480255
752: ELSE IF ( LVON07 ) THEN 07490255
753: IVCOMP = IVCOMP * 31 07500255
754: ELSE 07510255
755: GO TO 0132 07520255
756: END IF 07530255
757: GO TO 0133 07540255
758: 0132 IVCOMP = IVCOMP * 37 07550255
759: 0133 CONTINUE 07560255
760: C 07570255
761: C **** IVCOMP IS DETERMINED BY IVCOMP = 1334 = 1 * 2 * 23 * 29 07580255
762: C 07590255
763: IVCORR = 1334 07600255
764: 40130 IF ( IVCOMP - 1334 ) 20130, 10130, 20130 07610255
765: 30130 IVDELE = IVDELE + 1 07620255
766: WRITE (I02,80000) IVTNUM 07630255
767: IF (ICZERO) 10130, 0141, 20130 07640255
768: 10130 IVPASS = IVPASS + 1 07650255
769: WRITE (I02,80002) IVTNUM 07660255
770: GO TO 0141 07670255
771: 20130 IVFAIL = IVFAIL + 1 07680255
772: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 07690255
773: 0141 CONTINUE 07700255
774: C 07710255
775: C **** FCVS PROGRAM 255 - TEST 014 **** 07720255
776: C 07730255
777: C TEST 014 SHOULD ONLY EXECUTE ELSE IF-BLOCK 4. 07740255
778: C 07750255
779: C 07760255
780: IVTNUM = 14 07770255
781: IF (ICZERO) 30140, 0140, 30140 07780255
782: 0140 CONTINUE 07790255
783: IVCOMP = 1 07800255
784: LVON01 = .FALSE. 07810255
785: LVON02 = .FALSE. 07820255
786: LVON03 = .FALSE. 07830255
787: LVON04 = .FALSE. 07840255
788: LVON05 = .FALSE. 07850255
789: LVON06 = .FALSE. 07860255
790: LVON07 = .TRUE. 07870255
791: IF ( LVON01 ) THEN 07880255
792: IVCOMP = IVCOMP * 2 07890255
793: IF ( LVON02 ) THEN 07900255
794: IVCOMP = IVCOMP * 3 07910255
795: IF ( LVON03 ) THEN 07920255
796: IVCOMP = IVCOMP * 5 07930255
797: ELSE IF ( LVON04 ) THEN 07940255
798: IVCOMP = IVCOMP * 7 07950255
799: ELSE IF ( LVON05 ) THEN 07960255
800: IVCOMP = IVCOMP * 11 07970255
801: ELSE 07980255
802: IVCOMP = IVCOMP * 13 07990255
803: END IF 08000255
804: IVCOMP = IVCOMP * 17 08010255
805: ELSE IF ( LVON06 ) THEN 08020255
806: IVCOMP = IVCOMP * 19 08030255
807: ELSE 08040255
808: IVCOMP = IVCOMP * 23 08050255
809: END IF 08060255
810: IVCOMP = IVCOMP * 29 08070255
811: ELSE IF ( LVON07 ) THEN 08080255
812: IVCOMP = IVCOMP * 31 08090255
813: ELSE 08100255
814: IF ( .NOT. .FALSE. ) GO TO 0142 08110255
815: END IF 08120255
816: GO TO 0143 08130255
817: 0142 IVCOMP = IVCOMP * 37 08140255
818: 0143 CONTINUE 08150255
819: C 08160255
820: C **** IVCOMP IS DETERMINED BY IVCOMP = 31 = 1 * 31 ****08170255
821: C 08180255
822: IVCORR = 31 08190255
823: 40140 IF ( IVCOMP - 31 ) 20140, 10140, 20140 08200255
824: 30140 IVDELE = IVDELE + 1 08210255
825: WRITE (I02,80000) IVTNUM 08220255
826: IF (ICZERO) 10140, 0151, 20140 08230255
827: 10140 IVPASS = IVPASS + 1 08240255
828: WRITE (I02,80002) IVTNUM 08250255
829: GO TO 0151 08260255
830: 20140 IVFAIL = IVFAIL + 1 08270255
831: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 08280255
832: 0151 CONTINUE 08290255
833: C 08300255
834: C **** FCVS PROGRAM 255 - TEST 015 **** 08310255
835: C 08320255
836: C TEST 015 SHOULD ONLY EXECUTE THE LOGIC IN ELSE-BLOCK 3. THIS 08330255
837: C LOGIC CONSISTS OF AN ARITHMETIC IF STATEMENT WHICH SHOULD TAKE 08340255
838: C THE EXPRESSION EQUAL TO ZERO BRANCH TO STATEMENT 0152. 08350255
839: C 08360255
840: C 08370255
841: IVTNUM = 15 08380255
842: IF (ICZERO) 30150, 0150, 30150 08390255
843: 0150 CONTINUE 08400255
844: IVCOMP = 1 08410255
845: LVON01 = .FALSE. 08420255
846: LVON02 = .FALSE. 08430255
847: LVON03 = .FALSE. 08440255
848: LVON04 = .FALSE. 08450255
849: LVON05 = .FALSE. 08460255
850: LVON06 = .FALSE. 08470255
851: LVON07 = .FALSE. 08480255
852: IF ( LVON01 ) THEN 08490255
853: IVCOMP = IVCOMP * 2 08500255
854: IF ( LVON02 ) THEN 08510255
855: IVCOMP = IVCOMP * 3 08520255
856: IF ( LVON03 ) THEN 08530255
857: IVCOMP = IVCOMP * 5 08540255
858: ELSE IF ( LVON04 ) THEN 08550255
859: IVCOMP = IVCOMP * 7 08560255
860: ELSE IF ( LVON05 ) THEN 08570255
861: IVCOMP = IVCOMP * 11 08580255
862: ELSE 08590255
863: IVCOMP = IVCOMP * 13 08600255
864: END IF 08610255
865: IVCOMP = IVCOMP * 17 08620255
866: ELSE IF ( LVON06 ) THEN 08630255
867: IVCOMP = IVCOMP * 19 08640255
868: ELSE 08650255
869: IVCOMP = IVCOMP * 23 08660255
870: END IF 08670255
871: IVCOMP = IVCOMP * 29 08680255
872: ELSE IF ( LVON07 ) THEN 08690255
873: IVCOMP = IVCOMP * 31 08700255
874: ELSE 08710255
875: ICON01 = 1 08720255
876: IF ( ICON01 - 1 ) 0153, 0152, 0153 08730255
877: END IF 08740255
878: GO TO 0153 08750255
879: 0152 IVCOMP = IVCOMP * 37 08760255
880: 0153 CONTINUE 08770255
881: C 08780255
882: C **** IVCOMP IS DETERMINED BY IVCOMP = 37 = 1 * 37 ****08790255
883: C 08800255
884: IVCORR = 37 08810255
885: 40150 IF ( IVCOMP - 37 ) 20150, 10150, 20150 08820255
886: 30150 IVDELE = IVDELE + 1 08830255
887: WRITE (I02,80000) IVTNUM 08840255
888: IF (ICZERO) 10150, 0161, 20150 08850255
889: 10150 IVPASS = IVPASS + 1 08860255
890: WRITE (I02,80002) IVTNUM 08870255
891: GO TO 0161 08880255
892: 20150 IVFAIL = IVFAIL + 1 08890255
893: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 08900255
894: 0161 CONTINUE 08910255
895: C 08920255
896: C **** FCVS PROGRAM 255 - TEST 016 **** 08930255
897: C 08940255
898: C TEST 016 IS A TEST OF THE END IF STATEMENT. SECTION 11.9 08950255
899: C PERMITS TRANSFER OF CONTROL FROM ANYWHERE TO AN END IF STATEMENT. 08960255
900: C ALSO ACCORDING TO SECTION 11.9 - EXECUTION OF AN END IF STATEMENT 08970255
901: C HAS NO EFFECT. 08980255
902: C 08990255
903: C 09000255
904: IVTNUM = 16 09010255
905: IF (ICZERO) 30160, 0160, 30160 09020255
906: 0160 CONTINUE 09030255
907: IVCOMP = 1 09040255
908: LVON01 = .TRUE. 09050255
909: IF ( ICZERO ) 0163, 0162, 0163 09060255
910: 0162 GO TO 0164 09070255
911: 0163 IF ( LVON01 ) THEN 09080255
912: IVCOMP = IVCOMP * 2 09090255
913: ELSE 09100255
914: IVCOMP = IVCOMP * 3 09110255
915: 0164 END IF 09120255
916: C 09130255
917: C **** IVCOMP SHOULD REMAIN SET TO ONE (1). ****09140255
918: C 09150255
919: IVCORR = 1 09160255
920: 40160 IF ( IVCOMP - 1 ) 20160, 10160, 20160 09170255
921: 30160 IVDELE = IVDELE + 1 09180255
922: WRITE (I02,80000) IVTNUM 09190255
923: IF (ICZERO) 10160, 0171, 20160 09200255
924: 10160 IVPASS = IVPASS + 1 09210255
925: WRITE (I02,80002) IVTNUM 09220255
926: GO TO 0171 09230255
927: 20160 IVFAIL = IVFAIL + 1 09240255
928: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 09250255
929: 0171 CONTINUE 09260255
930: C 09270255
931: C 09280255
932: C WRITE OUT TEST SUMMARY 09290255
933: C 09300255
934: WRITE (I02,90004) 09310255
935: WRITE (I02,90014) 09320255
936: WRITE (I02,90004) 09330255
937: WRITE (I02,90000) 09340255
938: WRITE (I02,90004) 09350255
939: WRITE (I02,90020) IVFAIL 09360255
940: WRITE (I02,90022) IVPASS 09370255
941: WRITE (I02,90024) IVDELE 09380255
942: STOP 09390255
943: 90001 FORMAT (1H ,24X,5HFM255) 09400255
944: 90000 FORMAT (1H ,20X,20HEND OF PROGRAM FM255) 09410255
945: C 09420255
946: C FORMATS FOR TEST DETAIL LINES 09430255
947: C 09440255
948: 80000 FORMAT (1H ,4X,I5,6X,7HDELETED) 09450255
949: 80002 FORMAT (1H ,4X,I5,7X,4HPASS) 09460255
950: 80010 FORMAT (1H ,4X,I5,7X,4HFAIL,10X,I6,9X,I6) 09470255
951: 80012 FORMAT (1H ,4X,I5,7X,4HFAIL,4X,E12.5,3X,E12.5) 09480255
952: 80018 FORMAT (1H ,4X,I5,7X,4HFAIL,2X,A14,1X,A14) 09490255
953: C 09500255
954: C FORMAT STATEMENTS FOR PAGE HEADERS 09510255
955: C 09520255
956: 90002 FORMAT (1H1) 09530255
957: 90004 FORMAT (1H ) 09540255
958: 90006 FORMAT (1H ,10X,34HFORTRAN COMPILER VALIDATION SYSTEM) 09550255
959: 90008 FORMAT (1H ,21X,11HVERSION 1.0) 09560255
960: 90010 FORMAT (1H ,8X,38HFOR OFFICIAL USE ONLY - COPYRIGHT 1978) 09570255
961: 90012 FORMAT (1H ,5X,4HTEST,5X,9HPASS/FAIL,5X,8HCOMPUTED,8X,7HCORRECT) 09580255
962: 90014 FORMAT (1H ,5X,46H----------------------------------------------) 09590255
963: 90016 FORMAT (1H ,18X,17HSUBSET LEVEL TEST) 09600255
964: C 09610255
965: C FORMAT STATEMENTS FOR RUN SUMMARY 09620255
966: C 09630255
967: 90020 FORMAT (1H ,19X,I5,13H TESTS FAILED) 09640255
968: 90022 FORMAT (1H ,19X,I5,13H TESTS PASSED) 09650255
969: 90024 FORMAT (1H ,19X,I5,14H TESTS DELETED) 09660255
970: END 09670255
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.