![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to FM004.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 FM004.f CVS log | Up to [Power 6/32 Unix Tahoe 4.2BSD] / cci / usr / src / usr.bin / f77 / testf77 / tests |
1.1 root 1: C COMMENT SECTION 00010004
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 00020004
6: C FM004 00030004
7: C 00040004
8: C THIS ROUTINE CONTAINS BASIC ARITHMETIC IF STATEMENT TESTS. 00050004
9: C THE STATEMENT FORMAT IS 00060004
10: C IF (E) K1, K2, K3 00070004
11: C WHERE E IS A SIMPLE INTEGER EXPRESSION OF FORM 00080004
12: C VARIABLE - CONSTANT 00090004
13: C VARIABLE + CONSTANT 00100004
14: C AND K1, K2 AND K3 ARE STATEMENT LABELS. ONLY THE STATEMENTS IN 00110004
15: C THE BASIC ASSUMPTIONS ARE INCLUDED IN THESE TESTS. 00120004
16: C EXECUTION OF AN IF STATEMENT CAUSES EVALUATION OF THE 00130004
17: C EXPRESSION E FOLLOWING WHICH THE STATEMENT LABEL K1, K2 OR K3 00140004
18: C IS EXECUTED NEXT AS THE VALUE OF E IS LESS THAN ZERO, ZERO, OR 00150004
19: C GREATER THAN ZERO, RESPECTIVELY. 00160004
20: C 00170004
21: C THE BASIC UNCONDITIONAL GO TO STATEMENT IS TESTED IN THIS 00180004
22: C ROUTINE. THE STATEMENT IS OF THE FORM 00190004
23: C GO TO K 00200004
24: C WHERE K IS A STATEMENT LABEL. 00210004
25: C EXECUTION OF AN UNCONDITIONAL GO TO STATEMENT CAUSES THE 00220004
26: C STATEMENT IDENTIFIED BY STATEMENT LABEL K TO BE EXECUTED NEXT. 00230004
27: C 00240004
28: C REFERENCES 00250004
29: C AMERICAN NATIONAL STANDARD PROGRAMMING LANGUAGE FORTRAN, 00260004
30: C X3.9-1978 00270004
31: C 00280004
32: C SECTION 3.6, NORMAL EXECUTION SEQUENCE AND TRANSFER OF CONTROL 00290004
33: C SECTION 11.1, GO TO STATEMENT 00300004
34: C SECTION 11.4, ARITHMETIC IF STATEMENT 00310004
35: C 00320004
36: C ********************************************************** 00330004
37: C 00340004
38: C A COMPILER VALIDATION SYSTEM FOR THE FORTRAN LANGUAGE 00350004
39: C BASED ON SPECIFICATIONS AS DEFINED IN AMERICAN NATIONAL STANDARD 00360004
40: C PROGRAMMING LANGUAGE FORTRAN X3.9-1978, HAS BEEN DEVELOPED BY THE 00370004
41: C FEDERAL COBOL COMPILER TESTING SERVICE. THE FORTRAN COMPILER 00380004
42: C VALIDATION SYSTEM (FCVS) CONSISTS OF AUDIT ROUTINES, THEIR RELATED00390004
43: C DATA, AND AN EXECUTIVE SYSTEM. EACH AUDIT ROUTINE IS A FORTRAN 00400004
44: C PROGRAM, SUBPROGRAM OR FUNCTION WHICH INCLUDES TESTS OF SPECIFIC 00410004
45: C LANGUAGE ELEMENTS AND SUPPORTING PROCEDURES INDICATING THE RESULT 00420004
46: C OF EXECUTING THESE TESTS. 00430004
47: C 00440004
48: C THIS PARTICULAR PROGRAM/SUBPROGRAM/FUNCTION CONTAINS FEATURES 00450004
49: C FOUND ONLY IN THE SUBSET AS DEFINED IN X3.9-1978. 00460004
50: C 00470004
51: C SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO - 00480004
52: C 00490004
53: C DEPARTMENT OF THE NAVY 00500004
54: C FEDERAL COBOL COMPILER TESTING SERVICE 00510004
55: C WASHINGTON, D.C. 20376 00520004
56: C 00530004
57: C ********************************************************** 00540004
58: C 00550004
59: C 00560004
60: C 00570004
61: C INITIALIZATION SECTION 00580004
62: C 00590004
63: C INITIALIZE CONSTANTS 00600004
64: C ************** 00610004
65: C I01 CONTAINS THE LOGICAL UNIT NUMBER FOR THE CARD READER. 00620004
66: I01 = 5 00630004
67: C I02 CONTAINS THE LOGICAL UNIT NUMBER FOR THE PRINTER. 00640004
68: I02 = 6 00650004
69: C SYSTEM ENVIRONMENT SECTION 00660004
70: C 00670004
71: I01 = 5 00680004
72: C THE CX010 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I01 = 5 00690004
73: C (UNIT NUMBER FOR CARD READER). 00700004
74: CX011 THIS CARD IS REPLACED BY CONTENTS OF FEXEC X-011 CONTROL CARD. 00710004
75: C THE CX011 CARD IS FOR SYSTEMS WHICH REQUIRE ADDITIONAL 00720004
76: C FORTRAN STATEMENTS FOR FILES ASSOCIATED WITH CX010 ABOVE. 00730004
77: C 00740004
78: I02 = 6 00750004
79: C THE CX020 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I02 = 6 00760004
80: C (UNIT NUMBER FOR PRINTER). 00770004
81: CX021 THIS CARD IS REPLACED BY CONTENTS OF FEXEC X-021 CONTROL CARD. 00780004
82: C THE CX021 CARD IS FOR SYSTEMS WHICH REQUIRE ADDITIONAL 00790004
83: C FORTRAN STATEMENTS FOR FILES ASSOCIATED WITH CX020 ABOVE. 00800004
84: C 00810004
85: IVPASS=0 00820004
86: IVFAIL=0 00830004
87: IVDELE=0 00840004
88: ICZERO=0 00850004
89: C 00860004
90: C WRITE PAGE HEADERS 00870004
91: WRITE (I02,90000) 00880004
92: WRITE (I02,90001) 00890004
93: WRITE (I02,90002) 00900004
94: WRITE (I02, 90002) 00910004
95: WRITE (I02,90003) 00920004
96: WRITE (I02,90002) 00930004
97: WRITE (I02,90004) 00940004
98: WRITE (I02,90002) 00950004
99: WRITE (I02,90011) 00960004
100: WRITE (I02,90002) 00970004
101: WRITE (I02,90002) 00980004
102: WRITE (I02,90005) 00990004
103: WRITE (I02,90006) 01000004
104: WRITE (I02,90002) 01010004
105: C TEST SECTION 01020004
106: C 01030004
107: C TESTS 21, 22, AND 23 CONTAIN THE SAME IF STATEMENT BUT THE 01040004
108: C EXPECTED BRANCH IS TO THE FIRST, SECOND OR THIRD STATEMENT LABEL 01050004
109: C AS THE INTEGER EXPRESSION IS LESS THAN ZERO, EQUAL TO ZERO, OR 01060004
110: C GREATER THAN ZERO RESPECTIVELY. 01070004
111: C 01080004
112: 211 CONTINUE 01090004
113: IVTNUM = 21 01100004
114: C 01110004
115: C **** TEST 021 **** 01120004
116: C TEST 21 - ARITHMETIC IF STATEMENT TEST 01130004
117: C LESS THAN ZERO BRANCH EXPECTED. 01140004
118: C 01150004
119: IF (ICZERO) 30210, 210, 30210 01160004
120: 210 CONTINUE 01170004
121: IVON01=2 01180004
122: IF (IVON01 - 3) 212,213,214 01190004
123: 212 IVON02 = -1 01200004
124: GO TO 40210 01210004
125: 213 IVON02 = 0 01220004
126: GO TO 40210 01230004
127: 214 IVON02 = 1 01240004
128: GO TO 40210 01250004
129: 30210 IVDELE = IVDELE + 1 01260004
130: WRITE (I02,80003) IVTNUM 01270004
131: IF (ICZERO) 40210, 221, 40210 01280004
132: 40210 IF (IVON02) 10210, 20210, 20210 01290004
133: 10210 IVPASS = IVPASS + 1 01300004
134: WRITE (I02,80001) IVTNUM 01310004
135: GO TO 221 01320004
136: 20210 IVFAIL = IVFAIL + 1 01330004
137: IVCOMP=IVON02 01340004
138: IVCORR=-1 01350004
139: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 01360004
140: 221 CONTINUE 01370004
141: IVTNUM = 22 01380004
142: C 01390004
143: C **** TEST 022 **** 01400004
144: C TEST 22 - ARITHMETIC IF STATEMENT TEST 01410004
145: C EQUAL TO ZERO BRANCH EXPECTED 01420004
146: C 01430004
147: IF (ICZERO) 30220, 220, 30220 01440004
148: 220 CONTINUE 01450004
149: IVON01 = 3 01460004
150: IF (IVON01 - 3) 222,223,224 01470004
151: 222 IVON02 = -1 01480004
152: GO TO 40220 01490004
153: 223 IVON02 = 0 01500004
154: GO TO 40220 01510004
155: 224 IVON02 = 1 01520004
156: GO TO 40220 01530004
157: 30220 IVDELE = IVDELE + 1 01540004
158: WRITE (I02,80003) IVTNUM 01550004
159: IF (ICZERO) 40220, 231, 40220 01560004
160: 40220 IF (IVON02) 20220, 10220, 20220 01570004
161: 10220 IVPASS = IVPASS + 1 01580004
162: WRITE (I02,80001) IVTNUM 01590004
163: GO TO 231 01600004
164: 20220 IVFAIL = IVFAIL + 1 01610004
165: IVCOMP=IVON02 01620004
166: IVCORR= 0 01630004
167: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 01640004
168: 231 CONTINUE 01650004
169: IVTNUM = 23 01660004
170: C 01670004
171: C **** TEST 023 **** 01680004
172: C TEST 23 - ARITHMETIC IF STATEMENT TEST 01690004
173: C GREATER THAN ZERO BRANCH EXPECTED 01700004
174: C 01710004
175: IF (ICZERO) 30230, 230, 30230 01720004
176: 230 CONTINUE 01730004
177: IVON01 = 4 01740004
178: IF (IVON01 - 3) 232,233,234 01750004
179: 232 IVON02 = -1 01760004
180: GO TO 40230 01770004
181: 233 IVON02 = 0 01780004
182: GO TO 40230 01790004
183: 234 IVON02 = 1 01800004
184: GO TO 40230 01810004
185: 30230 IVDELE = IVDELE + 1 01820004
186: WRITE (I02,80003) IVTNUM 01830004
187: IF (ICZERO) 40230, 241, 40230 01840004
188: 40230 IF (IVON02) 20230, 20230, 10230 01850004
189: 10230 IVPASS = IVPASS + 1 01860004
190: WRITE (I02,80001) IVTNUM 01870004
191: GO TO 241 01880004
192: 20230 IVFAIL = IVFAIL + 1 01890004
193: IVCOMP=IVON02 01900004
194: IVCORR = 1 01910004
195: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 01920004
196: C 01930004
197: C TESTS 24 THROUGH 29 CONTAIN AN IF STATEMENT WITH TWO OF THE 01940004
198: C THREE BRANCH STATEMENT LABELS EQUAL. 01950004
199: C 01960004
200: 241 CONTINUE 01970004
201: IVTNUM = 24 01980004
202: C 01990004
203: C **** TEST 024 **** 02000004
204: C TEST 24 - ARITHMETIC IF STATEMENT TEST 02010004
205: C LESS THAN ZERO BRANCH EXPECTED 02020004
206: C 02030004
207: IF (ICZERO) 30240, 240, 30240 02040004
208: 240 CONTINUE 02050004
209: IVON01=2 02060004
210: IF (IVON01 - 3) 242,243,242 02070004
211: 242 IVON02=-1 02080004
212: GO TO 40240 02090004
213: 243 IVON02=0 02100004
214: GO TO 40240 02110004
215: 30240 IVDELE = IVDELE + 1 02120004
216: WRITE (I02,80003) IVTNUM 02130004
217: IF (ICZERO) 40240, 251, 40240 02140004
218: 40240 IF (IVON02) 10240, 20240, 20240 02150004
219: 10240 IVPASS = IVPASS + 1 02160004
220: WRITE (I02,80001) IVTNUM 02170004
221: GO TO 251 02180004
222: 20240 IVFAIL = IVFAIL + 1 02190004
223: IVCOMP=IVON02 02200004
224: IVCORR=-1 02210004
225: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 02220004
226: 251 CONTINUE 02230004
227: IVTNUM = 25 02240004
228: C 02250004
229: C **** TEST 025 **** 02260004
230: C TEST 25 - ARITHMETIC IF STATEMENT TEST 02270004
231: C EQUAL TO ZERO BRANCH EXPECTED 02280004
232: C 02290004
233: IF (ICZERO) 30250, 250, 30250 02300004
234: 250 CONTINUE 02310004
235: IVON01=3 02320004
236: IF (IVON01 - 3) 252,253,252 02330004
237: 252 IVON02= -1 02340004
238: GO TO 40250 02350004
239: 253 IVON02 = 0 02360004
240: GO TO 40250 02370004
241: 30250 IVDELE = IVDELE + 1 02380004
242: WRITE (I02,80003) IVTNUM 02390004
243: IF (ICZERO) 40250, 261, 40250 02400004
244: 40250 IF (IVON02) 20250,10250,20250 02410004
245: 10250 IVPASS = IVPASS + 1 02420004
246: WRITE (I02,80001) IVTNUM 02430004
247: GO TO 261 02440004
248: 20250 IVFAIL = IVFAIL + 1 02450004
249: IVCOMP=IVON02 02460004
250: IVCORR=0 02470004
251: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 02480004
252: 261 CONTINUE 02490004
253: IVTNUM = 26 02500004
254: C 02510004
255: C **** TEST 026 **** 02520004
256: C TEST 26 - ARITHMETIC IF STATEMENT TEST 02530004
257: C GREATER THAN ZERO BRANCH EXPECTED 02540004
258: C 02550004
259: IF (ICZERO) 30260, 260, 30260 02560004
260: 260 CONTINUE 02570004
261: IVON01=4 02580004
262: IF (IVON01-3) 262, 263, 262 02590004
263: 262 IVON02= 1 02600004
264: GO TO 40260 02610004
265: 263 IVON02 = 0 02620004
266: GO TO 40260 02630004
267: 30260 IVDELE = IVDELE + 1 02640004
268: WRITE (I02,80003) IVTNUM 02650004
269: IF (ICZERO) 40260, 271, 40260 02660004
270: 40260 IF (IVON02) 20260, 20260, 10260 02670004
271: 10260 IVPASS = IVPASS + 1 02680004
272: WRITE (I02,80001) IVTNUM 02690004
273: GO TO 271 02700004
274: 20260 IVFAIL = IVFAIL + 1 02710004
275: IVCOMP=IVON02 02720004
276: IVCORR = 1 02730004
277: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 02740004
278: 271 CONTINUE 02750004
279: IVTNUM = 27 02760004
280: C 02770004
281: C **** TEST 027 **** 02780004
282: C TEST 27 - ARITHMETIC IF STATEMENT TEST 02790004
283: C LESS THAN ZERO BRANCH EXPECTED 02800004
284: C 02810004
285: IF (ICZERO) 30270, 270, 30270 02820004
286: 270 CONTINUE 02830004
287: IVON01 = -4 02840004
288: IF (IVON01 + 3) 272, 272, 273 02850004
289: 272 IVON02= -1 02860004
290: GO TO 40270 02870004
291: 273 IVON02 = 1 02880004
292: GO TO 40270 02890004
293: 30270 IVDELE = IVDELE + 1 02900004
294: WRITE (I02,80003) IVTNUM 02910004
295: IF (ICZERO) 40270, 281, 40270 02920004
296: 40270 IF (IVON02) 10270, 20270, 20270 02930004
297: 10270 IVPASS = IVPASS + 1 02940004
298: WRITE (I02,80001) IVTNUM 02950004
299: GO TO 281 02960004
300: 20270 IVFAIL = IVFAIL + 1 02970004
301: IVCOMP=IVON02 02980004
302: IVCORR= -1 02990004
303: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 03000004
304: 281 CONTINUE 03010004
305: IVTNUM = 28 03020004
306: C 03030004
307: C **** TEST 028 **** 03040004
308: C TEST 28 - ARITHMETIC IF STATEMENT TEST 03050004
309: C EQUAL TO ZERO BRANCH EXPECTED 03060004
310: C 03070004
311: IF (ICZERO) 30280, 280, 30280 03080004
312: 280 CONTINUE 03090004
313: IVON01 = -3 03100004
314: IF (IVON01 + 3) 282, 282, 283 03110004
315: 282 IVON02 = 0 03120004
316: GO TO 40280 03130004
317: 283 IVON02 = 1 03140004
318: GO TO 40280 03150004
319: 30280 IVDELE = IVDELE + 1 03160004
320: WRITE (I02,80003) IVTNUM 03170004
321: IF (ICZERO) 40280, 291, 40280 03180004
322: 40280 IF (IVON02) 20280, 10280, 20280 03190004
323: 10280 IVPASS = IVPASS + 1 03200004
324: WRITE (I02,80001) IVTNUM 03210004
325: GO TO 291 03220004
326: 20280 IVFAIL = IVFAIL + 1 03230004
327: IVCOMP=IVON02 03240004
328: IVCORR= 0 03250004
329: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 03260004
330: 291 CONTINUE 03270004
331: IVTNUM = 29 03280004
332: C 03290004
333: C **** TEST 029 **** 03300004
334: C TEST 29 - ARITHMETIC IF STATEMENT TEST 03310004
335: C GREATER THAN ZERO BRANCH EXPECTED 03320004
336: C 03330004
337: IF (ICZERO) 30290, 290, 30290 03340004
338: 290 CONTINUE 03350004
339: IVON01 = -2 03360004
340: IF (IVON01 + 3) 292,292,293 03370004
341: 292 IVON02 = -1 03380004
342: GO TO 40290 03390004
343: 293 IVON02 = 1 03400004
344: GO TO 40290 03410004
345: 30290 IVDELE = IVDELE + 1 03420004
346: WRITE (I02,80003) IVTNUM 03430004
347: IF (ICZERO) 40290, 301, 40290 03440004
348: 40290 IF (IVON02) 20290, 20290, 10290 03450004
349: 10290 IVPASS = IVPASS + 1 03460004
350: WRITE (I02,80001) IVTNUM 03470004
351: GO TO 301 03480004
352: 20290 IVFAIL = IVFAIL + 1 03490004
353: IVCOMP= IVON02 03500004
354: IVCORR = 1 03510004
355: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 03520004
356: C 03530004
357: C TESTS 30 AND 31 CONTAIN THE BASIC GO TO STATEMENT TESTS. 03540004
358: C 03550004
359: 301 CONTINUE 03560004
360: IVTNUM = 30 03570004
361: C 03580004
362: C **** TEST 030 **** 03590004
363: C TEST 30 - UNCONDITIONAL GO TO STATEMENT TEST 03600004
364: C 03610004
365: IF (ICZERO) 30300, 300, 30300 03620004
366: 300 CONTINUE 03630004
367: IVON01 = 1 03640004
368: GO TO 302 03650004
369: 303 IVON01 = 2 03660004
370: GO TO 304 03670004
371: 302 IVON01 = 3 03680004
372: GO TO 303 03690004
373: 304 GO TO 40300 03700004
374: 30300 IVDELE = IVDELE + 1 03710004
375: WRITE (I02,80003) IVTNUM 03720004
376: IF (ICZERO) 40300, 311, 40300 03730004
377: 40300 IF (IVON01 - 2) 20300,10300,20300 03740004
378: 10300 IVPASS = IVPASS + 1 03750004
379: WRITE (I02,80001) IVTNUM 03760004
380: GO TO 311 03770004
381: 20300 IVFAIL = IVFAIL + 1 03780004
382: IVCOMP = IVON01 03790004
383: IVCORR = 2 03800004
384: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 03810004
385: 311 CONTINUE 03820004
386: IVTNUM = 31 03830004
387: C 03840004
388: C **** TEST 031 **** 03850004
389: C TEST 31 - UNCONDITIONAL GO TO STATEMENT TEST 03860004
390: C 03870004
391: IF (ICZERO) 30310, 310, 30310 03880004
392: 310 CONTINUE 03890004
393: IVON01 = 1 03900004
394: GO TO 316 03910004
395: 313 GO TO 317 03920004
396: 314 IVON01 = 3 03930004
397: GO TO 40310 03940004
398: 315 GO TO 313 03950004
399: 316 GO TO 315 03960004
400: 317 GO TO 314 03970004
401: 30310 IVDELE = IVDELE + 1 03980004
402: WRITE (I02,80003) IVTNUM 03990004
403: IF (ICZERO) 40310, 321, 40310 04000004
404: 40310 IF (IVON01 - 3) 20310, 10310, 20310 04010004
405: 10310 IVPASS = IVPASS + 1 04020004
406: WRITE (I02,80001) IVTNUM 04030004
407: GO TO 321 04040004
408: 20310 IVFAIL = IVFAIL + 1 04050004
409: IVCOMP=IVON01 04060004
410: IVCORR = 3 04070004
411: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 04080004
412: 321 CONTINUE 04090004
413: IVTNUM = 32 04100004
414: C 04110004
415: C **** TEST 032 **** 04120004
416: C TEST 32 - ARITHMETIC IF STATEMENT AND UNCONDITIONAL GO TO 04130004
417: C STATEMENT 04140004
418: C THIS TEST COMBINES THE BASIC ARITHMETIC IF STATEMENTS AND 04150004
419: C UNCONDITIONAL GO TO STATEMENTS IN ONE TEST. 04160004
420: C 04170004
421: IF (ICZERO) 30320, 320, 30320 04180004
422: 320 CONTINUE 04190004
423: IVON01 = 1 04200004
424: GO TO 322 04210004
425: 324 IVON01 = 2 04220004
426: IF (IVON01 -1) 323, 323, 325 04230004
427: 327 IVON01 = 5 04240004
428: GO TO 328 04250004
429: 326 IVON01 = -4 04260004
430: IF (IVON01 + 4) 323, 327, 323 04270004
431: 322 IF (IVON01 - 1) 323, 324, 323 04280004
432: 323 GO TO 20320 04290004
433: 325 IVON01 = 3 04300004
434: IF (IVON01 -4) 326,323,323 04310004
435: 328 GO TO 40320 04320004
436: 30320 IVDELE = IVDELE + 1 04330004
437: WRITE (I02,80003) IVTNUM 04340004
438: IF (ICZERO) 40320, 331, 40320 04350004
439: 40320 IF (IVON01 - 5) 20320, 10320, 20320 04360004
440: 10320 IVPASS = IVPASS + 1 04370004
441: WRITE (I02,80001) IVTNUM 04380004
442: GO TO 331 04390004
443: 20320 IVFAIL = IVFAIL + 1 04400004
444: IVCOMP=IVON01 04410004
445: IVCORR=5 04420004
446: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 04430004
447: 331 CONTINUE 04440004
448: C 04450004
449: C WRITE PAGE FOOTINGS AND RUN SUMMARIES 04460004
450: 99999 CONTINUE 04470004
451: WRITE (I02,90002) 04480004
452: WRITE (I02,90006) 04490004
453: WRITE (I02,90002) 04500004
454: WRITE (I02,90002) 04510004
455: WRITE (I02,90007) 04520004
456: WRITE (I02,90002) 04530004
457: WRITE (I02,90008) IVFAIL 04540004
458: WRITE (I02,90009) IVPASS 04550004
459: WRITE (I02,90010) IVDELE 04560004
460: C 04570004
461: C 04580004
462: C TERMINATE ROUTINE EXECUTION 04590004
463: STOP 04600004
464: C 04610004
465: C FORMAT STATEMENTS FOR PAGE HEADERS 04620004
466: 90000 FORMAT (1H1) 04630004
467: 90002 FORMAT (1H ) 04640004
468: 90001 FORMAT (1H ,10X,34HFORTRAN COMPILER VALIDATION SYSTEM) 04650004
469: 90003 FORMAT (1H ,21X,11HVERSION 1.0) 04660004
470: 90004 FORMAT (1H ,10X,38HFOR OFFICIAL USE ONLY - COPYRIGHT 1978) 04670004
471: 90005 FORMAT (1H ,5X,4HTEST,5X,9HPASS/FAIL, 5X,8HCOMPUTED,8X,7HCORRECT) 04680004
472: 90006 FORMAT (1H ,5X,46H----------------------------------------------) 04690004
473: 90011 FORMAT (1H ,18X,17HSUBSET LEVEL TEST) 04700004
474: C 04710004
475: C FORMAT STATEMENTS FOR RUN SUMMARIES 04720004
476: 90008 FORMAT (1H ,15X,I5,19H ERRORS ENCOUNTERED) 04730004
477: 90009 FORMAT (1H ,15X,I5,13H TESTS PASSED) 04740004
478: 90010 FORMAT (1H ,15X,I5,14H TESTS DELETED) 04750004
479: C 04760004
480: C FORMAT STATEMENTS FOR TEST RESULTS 04770004
481: 80001 FORMAT (1H ,4X,I5,7X,4HPASS) 04780004
482: 80002 FORMAT (1H ,4X,I5,7X,4HFAIL) 04790004
483: 80003 FORMAT (1H ,4X,I5,7X,7HDELETED) 04800004
484: 80004 FORMAT (1H ,4X,I5,7X,4HFAIL,10X,I6,9X,I6) 04810004
485: 80005 FORMAT (1H ,4X,I5,7X,4HFAIL,4X,E12.5,3X,E12.5) 04820004
486: C 04830004
487: 90007 FORMAT (1H ,20X,20HEND OF PROGRAM FM004) 04840004
488: END 04850004
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.