![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to FM062.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 FM062.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 00010062
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 00020062
6: C FM062 00030062
7: C 00040062
8: C THIS ROUTINE TESTS ARITHMETIC ASSIGNMENT STATEMENTS WHERE 00050062
9: C AN ARITHMETIC EXPRESSION FORMED FROM REAL VARIABLES AND 00060062
10: C CONSTANTS CONNECTED BY ARITHMETIC OPERATORS IS ASSIGNED TO 00070062
11: C A REAL VARIABLE. IN CASES INVOLVING THE EXPONENTIATION 00080062
12: C OPERATOR, REAL VALUES ARE RAISED TO INTEGER POWERS ONLY. 00090062
13: C 00100062
14: C A REAL DATUM IS A PROCESSOR APPROXIMATION TO THE VALUE OF A 00110062
15: C REAL NUMBER. IT MAY ASSUME POSITIVE, NEGATIVE AND ZERO VALUES. 00120062
16: C 00130062
17: C A BASIC REAL CONSTANT IS WRITTEN AS AN INTEGER PART, A 00140062
18: C DECIMAL POINT, AND A DECIMAL FRACTION PART IN THAT ORDER. BOTH 00150062
19: C THE INTEGER PART AND THE DECIMAL PART ARE STRINGS OF DIGITS; 00160062
20: C EITHER ONE OF THESE STRINGS MAY BE EMPTY BUT NOT BOTH. THE 00170062
21: C CONSTANT IS AN APPROXIMATION TO THE DIGIT STRING INTERPRETED AS A 00180062
22: C DECIMAL NUMERAL. 00190062
23: C 00200062
24: C A DECIMAL EXPONENT IS WRITTEN AS THE LETTER E, FOLLOWED BY AN 00210062
25: C OPTIONALLY SIGNED INTEGER CONSTANT. 00220062
26: C 00230062
27: C A REAL CONSTANT IS INDICATED BY WRITING A BASIC REAL CONSTANT,00240062
28: C A BASIC REAL CONSTANT FOLLOWED BY A DECIMAL EXPONENT, OR AN 00250062
29: C INTEGER CONSTANT FOLLOWED BY A DECIMAL EXPONENT. 00260062
30: C 00270062
31: C REFERENCES 00280062
32: C AMERICAN NATIONAL STANDARD PROGRAMMING LANGUAGE FORTRAN, 00290062
33: C X3.9-1978 00300062
34: C 00310062
35: C SECTION 4.4, REAL TYPE 00320062
36: C SECTION 4.4.1, REAL CONSTANT 00330062
37: C SECTION 6.1, ARITHMETIC EXPRESSIONS 00340062
38: C SECTION 6.6, EVALUATION OF EXPRESSIONS 00350062
39: C SECTION 10.1, ARITHMETIC ASSIGNMENT STATEMENT 00360062
40: C 00370062
41: C ********************************************************** 00380062
42: C 00390062
43: C A COMPILER VALIDATION SYSTEM FOR THE FORTRAN LANGUAGE 00400062
44: C BASED ON SPECIFICATIONS AS DEFINED IN AMERICAN NATIONAL STANDARD 00410062
45: C PROGRAMMING LANGUAGE FORTRAN X3.9-1978, HAS BEEN DEVELOPED BY THE 00420062
46: C FEDERAL COBOL COMPILER TESTING SERVICE. THE FORTRAN COMPILER 00430062
47: C VALIDATION SYSTEM (FCVS) CONSISTS OF AUDIT ROUTINES, THEIR RELATED00440062
48: C DATA, AND AN EXECUTIVE SYSTEM. EACH AUDIT ROUTINE IS A FORTRAN 00450062
49: C PROGRAM, SUBPROGRAM OR FUNCTION WHICH INCLUDES TESTS OF SPECIFIC 00460062
50: C LANGUAGE ELEMENTS AND SUPPORTING PROCEDURES INDICATING THE RESULT 00470062
51: C OF EXECUTING THESE TESTS. 00480062
52: C 00490062
53: C THIS PARTICULAR PROGRAM/SUBPROGRAM/FUNCTION CONTAINS FEATURES 00500062
54: C FOUND ONLY IN THE SUBSET AS DEFINED IN X3.9-1978. 00510062
55: C 00520062
56: C SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO - 00530062
57: C 00540062
58: C DEPARTMENT OF THE NAVY 00550062
59: C FEDERAL COBOL COMPILER TESTING SERVICE 00560062
60: C WASHINGTON, D.C. 20376 00570062
61: C 00580062
62: C ********************************************************** 00590062
63: C 00600062
64: C 00610062
65: C 00620062
66: C INITIALIZATION SECTION 00630062
67: C 00640062
68: C INITIALIZE CONSTANTS 00650062
69: C ************** 00660062
70: C I01 CONTAINS THE LOGICAL UNIT NUMBER FOR THE CARD READER. 00670062
71: I01 = 5 00680062
72: C I02 CONTAINS THE LOGICAL UNIT NUMBER FOR THE PRINTER. 00690062
73: I02 = 6 00700062
74: C SYSTEM ENVIRONMENT SECTION 00710062
75: C 00720062
76: I01 = 5 00730062
77: C THE CX010 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I01 = 5 00740062
78: C (UNIT NUMBER FOR CARD READER). 00750062
79: CX011 THIS CARD IS REPLACED BY CONTENTS OF FEXEC X-011 CONTROL CARD. 00760062
80: C THE CX011 CARD IS FOR SYSTEMS WHICH REQUIRE ADDITIONAL 00770062
81: C FORTRAN STATEMENTS FOR FILES ASSOCIATED WITH CX010 ABOVE. 00780062
82: C 00790062
83: I02 = 6 00800062
84: C THE CX020 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I02 = 6 00810062
85: C (UNIT NUMBER FOR PRINTER). 00820062
86: CX021 THIS CARD IS REPLACED BY CONTENTS OF FEXEC X-021 CONTROL CARD. 00830062
87: C THE CX021 CARD IS FOR SYSTEMS WHICH REQUIRE ADDITIONAL 00840062
88: C FORTRAN STATEMENTS FOR FILES ASSOCIATED WITH CX020 ABOVE. 00850062
89: C 00860062
90: IVPASS=0 00870062
91: IVFAIL=0 00880062
92: IVDELE=0 00890062
93: ICZERO=0 00900062
94: C 00910062
95: C WRITE PAGE HEADERS 00920062
96: WRITE (I02,90000) 00930062
97: WRITE (I02,90001) 00940062
98: WRITE (I02,90002) 00950062
99: WRITE (I02, 90002) 00960062
100: WRITE (I02,90003) 00970062
101: WRITE (I02,90002) 00980062
102: WRITE (I02,90004) 00990062
103: WRITE (I02,90002) 01000062
104: WRITE (I02,90011) 01010062
105: WRITE (I02,90002) 01020062
106: WRITE (I02,90002) 01030062
107: WRITE (I02,90005) 01040062
108: WRITE (I02,90006) 01050062
109: WRITE (I02,90002) 01060062
110: C 01070062
111: C TEST SECTION 01080062
112: C 01090062
113: C ARITHMETIC ASSIGNMENT STATEMENT 01100062
114: C 01110062
115: C 01120062
116: C TESTS 62 THROUGH 70 USE A MIXTURE OF REAL VARIABLES AND REAL 01130062
117: C CONSTANTS CONNECTED BY TWO IDENTICAL ARITHMETIC OPERATORS. 01140062
118: C TESTS OCCUR IN PAIRS, ONE WITHOUT PARENTHESES AND ONE WITH 01150062
119: C PARENTHESES TO ALTER THE NORMAL ORDER OF EVALUATION. 01160062
120: C 01170062
121: C TESTS 71 THROUGH 90 USE THREE REAL VARIABLES CONNECTED BY A 01180062
122: C PAIR OF DISSIMILAR OPERATORS. ALL COMBINATIONS AND ORDERINGS 01190062
123: C OF OPERATORS ARE EXERCIZED. WHERE EXPONENTIATION IS TESTED, 01200062
124: C INTEGER VARIABLES ARE USED FOR THE POWER PRIMARIES. 01210062
125: C 01220062
126: C TESTS 91 AND 92 USE A SERIES OF REAL VARIABLES CONNECTED BY ONE 01230062
127: C EACH OF THE ARITHMETIC OPERTORS. PARENTHETICAL NOTATIONS ARE 01240062
128: C ALSO TESTED. 01250062
129: C 01260062
130: C 01270062
131: C 01280062
132: C 01290062
133: C 01300062
134: IVTNUM = 62 01310062
135: C 01320062
136: C **** TEST 62 **** 01330062
137: C 01340062
138: IF (ICZERO) 30620, 620, 30620 01350062
139: 620 CONTINUE 01360062
140: RVON01 = 7.5 01370062
141: RVON02 = 5E2 01380062
142: RVCOMP = RVON01 + RVON02 + 33E-1 01390062
143: GO TO 40620 01400062
144: 30620 IVDELE = IVDELE + 1 01410062
145: WRITE (I02,80003) IVTNUM 01420062
146: IF (ICZERO) 40620, 631, 40620 01430062
147: 40620 IF (RVCOMP - 510.75) 20620,10620,40621 01440062
148: 40621 IF (RVCOMP - 510.85) 10620,10620,20620 01450062
149: 10620 IVPASS = IVPASS + 1 01460062
150: WRITE (I02,80001) IVTNUM 01470062
151: GO TO 631 01480062
152: 20620 IVFAIL = IVFAIL + 1 01490062
153: RVCORR = 510.8 01500062
154: WRITE (I02,80005) IVTNUM, RVCOMP, RVCORR 01510062
155: 631 CONTINUE 01520062
156: IVTNUM = 63 01530062
157: C 01540062
158: C **** TEST 63 **** 01550062
159: C 01560062
160: IF (ICZERO) 30630, 630, 30630 01570062
161: 630 CONTINUE 01580062
162: RVON01 = 75E-1 01590062
163: RVON02 = 500.0 01600062
164: RVCOMP = RVON01 + (RVON02 + 3.3) 01610062
165: GO TO 40630 01620062
166: 30630 IVDELE = IVDELE + 1 01630062
167: WRITE (I02,80003) IVTNUM 01640062
168: IF (ICZERO) 40630, 641, 40630 01650062
169: 40630 IF (RVCOMP - 510.75) 20630,10630,40631 01660062
170: 40631 IF (RVCOMP - 510.85) 10630,10630,20630 01670062
171: 10630 IVPASS = IVPASS + 1 01680062
172: WRITE (I02,80001) IVTNUM 01690062
173: GO TO 641 01700062
174: 20630 IVFAIL = IVFAIL + 1 01710062
175: RVCORR = 510.8 01720062
176: WRITE (I02,80005) IVTNUM, RVCOMP, RVCORR 01730062
177: 641 CONTINUE 01740062
178: IVTNUM = 64 01750062
179: C 01760062
180: C **** TEST 64 **** 01770062
181: C 01780062
182: IF (ICZERO) 30640, 640, 30640 01790062
183: 640 CONTINUE 01800062
184: RVCOMP = 7.5 - 500. - 3.3 01810062
185: GO TO 40640 01820062
186: 30640 IVDELE = IVDELE + 1 01830062
187: WRITE (I02,80003) IVTNUM 01840062
188: IF (ICZERO) 40640, 651, 40640 01850062
189: 40640 IF (RVCOMP + 495.85) 20640,10640,40641 01860062
190: 40641 IF (RVCOMP + 495.75) 10640,10640,20640 01870062
191: 10640 IVPASS = IVPASS + 1 01880062
192: WRITE (I02,80001) IVTNUM 01890062
193: GO TO 651 01900062
194: 20640 IVFAIL = IVFAIL + 1 01910062
195: RVCORR = -495.8 01920062
196: WRITE (I02,80005) IVTNUM, RVCOMP, RVCORR 01930062
197: 651 CONTINUE 01940062
198: IVTNUM = 65 01950062
199: C 01960062
200: C **** TEST 65 **** 01970062
201: C 01980062
202: IF (ICZERO) 30650, 650, 30650 01990062
203: 650 CONTINUE 02000062
204: RVON01 = 7.5 02010062
205: RVON02 = 5E2 02020062
206: RVCOMP = RVON01 - (33E-1 - RVON02) 02030062
207: GO TO 40650 02040062
208: 30650 IVDELE = IVDELE + 1 02050062
209: WRITE (I02,80003) IVTNUM 02060062
210: IF (ICZERO) 40650, 661, 40650 02070062
211: 40650 IF (RVCOMP - 504.15) 20650,10650,40651 02080062
212: 40651 IF (RVCOMP - 504.25) 10650,10650,20650 02090062
213: 10650 IVPASS = IVPASS + 1 02100062
214: WRITE (I02,80001) IVTNUM 02110062
215: GO TO 661 02120062
216: 20650 IVFAIL = IVFAIL + 1 02130062
217: RVCORR = 504.2 02140062
218: WRITE (I02,80005) IVTNUM, RVCOMP, RVCORR 02150062
219: 661 CONTINUE 02160062
220: IVTNUM = 66 02170062
221: C 02180062
222: C **** TEST 66 **** 02190062
223: C 02200062
224: IF (ICZERO) 30660, 660, 30660 02210062
225: 660 CONTINUE 02220062
226: RVON01 = 7.5 02230062
227: RVCOMP = 5E2 * 33E-1 * RVON01 02240062
228: GO TO 40660 02250062
229: 30660 IVDELE = IVDELE + 1 02260062
230: WRITE (I02,80003) IVTNUM 02270062
231: IF (ICZERO) 40660, 671, 40660 02280062
232: 40660 IF (RVCOMP - 12370) 20660,10660,40661 02290062
233: 40661 IF (RVCOMP - 12380) 10660,10660,20660 02300062
234: 10660 IVPASS = IVPASS + 1 02310062
235: WRITE (I02,80001) IVTNUM 02320062
236: GO TO 671 02330062
237: 20660 IVFAIL = IVFAIL + 1 02340062
238: RVCORR = 12375. 02350062
239: WRITE (I02,80005) IVTNUM, RVCOMP, RVCORR 02360062
240: 671 CONTINUE 02370062
241: IVTNUM = 67 02380062
242: C 02390062
243: C **** TEST 67 **** 02400062
244: C 02410062
245: IF (ICZERO) 30670, 670, 30670 02420062
246: 670 CONTINUE 02430062
247: RVON01 = 7.5 02440062
248: RVCOMP = 5E2 * (RVON01 * 33E-1) 02450062
249: GO TO 40670 02460062
250: 30670 IVDELE = IVDELE + 1 02470062
251: WRITE (I02,80003) IVTNUM 02480062
252: IF (ICZERO) 40670, 681, 40670 02490062
253: 40670 IF (RVCOMP - 12370) 20670,10670,40671 02500062
254: 40671 IF (RVCOMP - 12380) 10670,10670,20670 02510062
255: 10670 IVPASS = IVPASS + 1 02520062
256: WRITE (I02,80001) IVTNUM 02530062
257: GO TO 681 02540062
258: 20670 IVFAIL = IVFAIL + 1 02550062
259: RVCORR = 12375. 02560062
260: WRITE (I02,80005) IVTNUM, RVCOMP, RVCORR 02570062
261: 681 CONTINUE 02580062
262: IVTNUM = 68 02590062
263: C 02600062
264: C **** TEST 68 **** 02610062
265: C 02620062
266: IF (ICZERO) 30680, 680, 30680 02630062
267: 680 CONTINUE 02640062
268: RVON01 = 7.5 02650062
269: RVON02 = 33E-1 02660062
270: RVON03 = -5E+2 02670062
271: RVCOMP = RVON01 / RVON02 / RVON03 02680062
272: GO TO 40680 02690062
273: 30680 IVDELE = IVDELE + 1 02700062
274: WRITE (I02,80003) IVTNUM 02710062
275: IF (ICZERO) 40680, 691, 40680 02720062
276: 40680 IF (RVCOMP + .00459) 20680,10680,40681 02730062
277: 40681 IF (RVCOMP + .00449) 10680,10680,20680 02740062
278: 10680 IVPASS = IVPASS + 1 02750062
279: WRITE (I02,80001) IVTNUM 02760062
280: GO TO 691 02770062
281: 20680 IVFAIL = IVFAIL + 1 02780062
282: RVCORR = -.0045454 02790062
283: WRITE (I02,80005) IVTNUM, RVCOMP, RVCORR 02800062
284: 691 CONTINUE 02810062
285: IVTNUM = 69 02820062
286: C 02830062
287: C **** TEST 69 **** 02840062
288: C 02850062
289: IF (ICZERO) 30690, 690, 30690 02860062
290: 690 CONTINUE 02870062
291: RVON01 = 7.5 02880062
292: RVON02 = 33E-1 02890062
293: RVON03 = -5E+2 02900062
294: RVCOMP = RVON01 / (RVON02 / RVON03) 02910062
295: GO TO 40690 02920062
296: 30690 IVDELE = IVDELE + 1 02930062
297: WRITE (I02,80003) IVTNUM 02940062
298: IF (ICZERO) 40690, 701, 40690 02950062
299: 40690 IF (RVCOMP + 1180.) 20690,10690,40691 02960062
300: 40691 IF (RVCOMP + 1080.) 10690,10690,20690 02970062
301: 10690 IVPASS = IVPASS + 1 02980062
302: WRITE (I02,80001) IVTNUM 02990062
303: GO TO 701 03000062
304: 20690 IVFAIL = IVFAIL + 1 03010062
305: RVCORR = -1136.4 03020062
306: WRITE (I02,80005) IVTNUM, RVCOMP, RVCORR 03030062
307: 701 CONTINUE 03040062
308: IVTNUM = 70 03050062
309: C 03060062
310: C **** TEST 70 **** 03070062
311: C 03080062
312: IF (ICZERO) 30700, 700, 30700 03090062
313: 700 CONTINUE 03100062
314: RVON01 = 3.835E3 03110062
315: IVON01 = 5 03120062
316: RVCOMP = RVON01 ** IVON01 03130062
317: GO TO 40700 03140062
318: 30700 IVDELE = IVDELE + 1 03150062
319: WRITE (I02,80003) IVTNUM 03160062
320: IF (ICZERO) 40700, 711, 40700 03170062
321: 40700 IF (RVCOMP - 8.29E17) 20700,10700,40701 03180062
322: 40701 IF (RVCOMP - 8.30E17) 10700,10700,20700 03190062
323: 10700 IVPASS = IVPASS + 1 03200062
324: WRITE (I02,80001) IVTNUM 03210062
325: GO TO 711 03220062
326: 20700 IVFAIL = IVFAIL + 1 03230062
327: RVCORR = 8.295E17 03240062
328: WRITE (I02,80005) IVTNUM, RVCOMP, RVCORR 03250062
329: 711 CONTINUE 03260062
330: C 03270062
331: C TESTS 71 THROUGH 74 TEST RV1 + RV2 <OP2> RV3 03280062
332: C 03290062
333: IVTNUM = 71 03300062
334: C 03310062
335: C **** TEST 71 **** 03320062
336: C 03330062
337: IF (ICZERO) 30710, 710, 30710 03340062
338: 710 CONTINUE 03350062
339: RVON01 = 524.87 03360062
340: RVON02 = 3.35 03370062
341: RVON03 = .005679 03380062
342: RVCOMP = RVON01 + RVON02 - RVON03 03390062
343: GO TO 40710 03400062
344: 30710 IVDELE = IVDELE + 1 03410062
345: WRITE (I02,80003) IVTNUM 03420062
346: IF (ICZERO) 40710, 721, 40710 03430062
347: 40710 IF (RVCOMP - 528.16) 20710,10710,40711 03440062
348: 40711 IF (RVCOMP - 528.26) 10710,10710,20710 03450062
349: 10710 IVPASS = IVPASS + 1 03460062
350: WRITE (I02,80001) IVTNUM 03470062
351: GO TO 721 03480062
352: 20710 IVFAIL = IVFAIL + 1 03490062
353: RVCORR = 528.21 03500062
354: WRITE (I02,80005) IVTNUM, RVCOMP, RVCORR 03510062
355: 721 CONTINUE 03520062
356: IVTNUM = 72 03530062
357: C 03540062
358: C **** TEST 72 **** 03550062
359: C 03560062
360: IF (ICZERO) 30720, 720, 30720 03570062
361: 720 CONTINUE 03580062
362: RVON01 = 524.87 03590062
363: RVON02 = 3.35 03600062
364: RVON03 = .005679 03610062
365: RVCOMP = RVON01 + RVON02 * RVON03 03620062
366: GO TO 40720 03630062
367: 30720 IVDELE = IVDELE + 1 03640062
368: WRITE (I02,80003) IVTNUM 03650062
369: IF (ICZERO) 40720, 731, 40720 03660062
370: 40720 IF (RVCOMP - 524.84) 20720,10720,40721 03670062
371: 40721 IF (RVCOMP - 524.94) 10720,10720,20720 03680062
372: 10720 IVPASS = IVPASS + 1 03690062
373: WRITE (I02,80001) IVTNUM 03700062
374: GO TO 731 03710062
375: 20720 IVFAIL = IVFAIL + 1 03720062
376: RVCORR = 524.89 03730062
377: WRITE (I02,80005) IVTNUM, RVCOMP, RVCORR 03740062
378: 731 CONTINUE 03750062
379: IVTNUM = 73 03760062
380: C 03770062
381: C **** TEST 73 **** 03780062
382: C 03790062
383: IF (ICZERO) 30730, 730, 30730 03800062
384: 730 CONTINUE 03810062
385: RVON01 = 524.87 03820062
386: RVON02 = 3.35 03830062
387: RVON03 = .005679 03840062
388: RVCOMP = RVON01 + RVON02 / RVON03 03850062
389: GO TO 40730 03860062
390: 30730 IVDELE = IVDELE + 1 03870062
391: WRITE (I02,80003) IVTNUM 03880062
392: IF (ICZERO) 40730, 741, 40730 03890062
393: 40730 IF (RVCOMP - 1114.2) 20730,10730,40731 03900062
394: 40731 IF (RVCOMP - 1115.2) 10730,10730,20730 03910062
395: 10730 IVPASS = IVPASS + 1 03920062
396: WRITE (I02,80001) IVTNUM 03930062
397: GO TO 741 03940062
398: 20730 IVFAIL = IVFAIL + 1 03950062
399: RVCORR = 1114.8 03960062
400: WRITE (I02,80005) IVTNUM, RVCOMP, RVCORR 03970062
401: 741 CONTINUE 03980062
402: IVTNUM = 74 03990062
403: C 04000062
404: C **** TEST 74 **** 04010062
405: C 04020062
406: IF (ICZERO) 30740, 740, 30740 04030062
407: 740 CONTINUE 04040062
408: RVON01 = 524.87 04050062
409: RVON02 = 3.35 04060062
410: IVON01 = 7 04070062
411: RVCOMP = RVON01 + RVON02 ** IVON01 04080062
412: GO TO 40740 04090062
413: 30740 IVDELE = IVDELE + 1 04100062
414: WRITE (I02,80003) IVTNUM 04110062
415: IF (ICZERO) 40740, 751, 40740 04120062
416: 40740 IF (RVCOMP - 5259.3) 20740,10740,40741 04130062
417: 40741 IF (RVCOMP - 5260.3) 10740,10740,20740 04140062
418: 10740 IVPASS = IVPASS + 1 04150062
419: WRITE (I02,80001) IVTNUM 04160062
420: GO TO 751 04170062
421: 20740 IVFAIL = IVFAIL + 1 04180062
422: RVCORR = 5259.8 04190062
423: WRITE (I02,80005) IVTNUM, RVCOMP, RVCORR 04200062
424: 751 CONTINUE 04210062
425: C 04220062
426: C TESTS 75 THROUGH 78 CHECK RV1 - RV2 <OP2> RV3 04230062
427: C 04240062
428: IVTNUM = 75 04250062
429: C 04260062
430: C **** TEST 75 **** 04270062
431: C 04280062
432: IF (ICZERO) 30750, 750, 30750 04290062
433: 750 CONTINUE 04300062
434: RVON01 = 524.87 04310062
435: RVON02 = 3.35 04320062
436: RVON03 = .5679 04330062
437: RVCOMP = RVON01 - RVON02 + RVON03 04340062
438: GO TO 40750 04350062
439: 30750 IVDELE = IVDELE + 1 04360062
440: WRITE (I02,80003) IVTNUM 04370062
441: IF (ICZERO) 40750, 761, 40750 04380062
442: 40750 IF (RVCOMP - 522.03) 20750,10750,40751 04390062
443: 40751 IF (RVCOMP - 522.13) 10750,10750,20750 04400062
444: 10750 IVPASS = IVPASS + 1 04410062
445: WRITE (I02,80001) IVTNUM 04420062
446: GO TO 761 04430062
447: 20750 IVFAIL = IVFAIL + 1 04440062
448: RVCORR = 522.09 04450062
449: WRITE (I02,80005) IVTNUM, RVCOMP, RVCORR 04460062
450: 761 CONTINUE 04470062
451: IVTNUM = 76 04480062
452: C 04490062
453: C **** TEST 76 **** 04500062
454: C 04510062
455: IF (ICZERO) 30760, 760, 30760 04520062
456: 760 CONTINUE 04530062
457: RVON01 = 524.87 04540062
458: RVON02 = 3.35 04550062
459: RVON03 = .5679 04560062
460: RVCOMP = RVON01 - RVON02 * RVON03 04570062
461: GO TO 40760 04580062
462: 30760 IVDELE = IVDELE + 1 04590062
463: WRITE (I02,80003) IVTNUM 04600062
464: IF (ICZERO) 40760, 771, 40760 04610062
465: 40760 IF (RVCOMP - 522.92) 20760,10760,40761 04620062
466: 40761 IF (RVCOMP - 523.02) 10760,10760,20760 04630062
467: 10760 IVPASS = IVPASS + 1 04640062
468: WRITE (I02,80001) IVTNUM 04650062
469: GO TO 771 04660062
470: 20760 IVFAIL = IVFAIL + 1 04670062
471: RVCORR = 522.97 04680062
472: WRITE (I02,80005) IVTNUM, RVCOMP, RVCORR 04690062
473: 771 CONTINUE 04700062
474: IVTNUM = 77 04710062
475: C 04720062
476: C **** TEST 77 **** 04730062
477: C 04740062
478: IF (ICZERO) 30770, 770, 30770 04750062
479: 770 CONTINUE 04760062
480: RVON01 = 524.87 04770062
481: RVON02 = 3.35 04780062
482: RVON03 = .5679 04790062
483: RVCOMP = RVON01 - RVON02 / RVON03 04800062
484: GO TO 40770 04810062
485: 30770 IVDELE = IVDELE + 1 04820062
486: WRITE (I02,80003) IVTNUM 04830062
487: IF (ICZERO) 40770, 781, 40770 04840062
488: 40770 IF (RVCOMP - 518.92) 20770,10770,40771 04850062
489: 40771 IF (RVCOMP - 519.02) 10770,10770,20770 04860062
490: 10770 IVPASS = IVPASS + 1 04870062
491: WRITE (I02,80001) IVTNUM 04880062
492: GO TO 781 04890062
493: 20770 IVFAIL = IVFAIL + 1 04900062
494: RVCORR = 518.97 04910062
495: WRITE (I02,80005) IVTNUM, RVCOMP, RVCORR 04920062
496: 781 CONTINUE 04930062
497: IVTNUM = 78 04940062
498: C 04950062
499: C **** TEST 78 **** 04960062
500: C 04970062
501: IF (ICZERO) 30780, 780, 30780 04980062
502: 780 CONTINUE 04990062
503: RVON01 = 524.87 05000062
504: RVON02 = 3.35 05010062
505: IVON01 = 7 05020062
506: RVCOMP = RVON01 - RVON02 ** IVON01 05030062
507: GO TO 40780 05040062
508: 30780 IVDELE = IVDELE + 1 05050062
509: WRITE (I02,80003) IVTNUM 05060062
510: IF (ICZERO) 40780, 791, 40780 05070062
511: 40780 IF (RVCOMP + 4210.6) 20780,10780,40781 05080062
512: 40781 IF (RVCOMP + 4209.6) 10780,10780,20780 05090062
513: 10780 IVPASS = IVPASS + 1 05100062
514: WRITE (I02,80001) IVTNUM 05110062
515: GO TO 791 05120062
516: 20780 IVFAIL = IVFAIL + 1 05130062
517: RVCORR = -4210.1 05140062
518: WRITE (I02,80005) IVTNUM, RVCOMP, RVCORR 05150062
519: 791 CONTINUE 05160062
520: C 05170062
521: C TESTS 79 THROUGH 82 CHECK RV1 * RV2 <OP2> RV3 05180062
522: C 05190062
523: IVTNUM = 79 05200062
524: C 05210062
525: C **** TEST 79 **** 05220062
526: C 05230062
527: IF (ICZERO) 30790, 790, 30790 05240062
528: 790 CONTINUE 05250062
529: RVON01 = 524.87 05260062
530: RVON02 = .5679 05270062
531: RVON03 = 3.35 05280062
532: RVCOMP = RVON01 * RVON02 + RVON03 05290062
533: GO TO 40790 05300062
534: 30790 IVDELE = IVDELE + 1 05310062
535: WRITE (I02,80003) IVTNUM 05320062
536: IF (ICZERO) 40790, 801, 40790 05330062
537: 40790 IF (RVCOMP - 301.37) 20790,10790,40791 05340062
538: 40791 IF (RVCOMP - 301.47) 10790,10790,20790 05350062
539: 10790 IVPASS = IVPASS + 1 05360062
540: WRITE (I02,80001) IVTNUM 05370062
541: GO TO 801 05380062
542: 20790 IVFAIL = IVFAIL + 1 05390062
543: RVCORR = 301.42 05400062
544: WRITE (I02,80005) IVTNUM, RVCOMP, RVCORR 05410062
545: 801 CONTINUE 05420062
546: IVTNUM = 80 05430062
547: C 05440062
548: C **** TEST 80 **** 05450062
549: C 05460062
550: IF (ICZERO) 30800, 800, 30800 05470062
551: 800 CONTINUE 05480062
552: RVON01 = 524.87 05490062
553: RVON02 = .5679 05500062
554: RVON03 = 3.35 05510062
555: RVCOMP = RVON01 * RVON02 - RVON03 05520062
556: GO TO 40800 05530062
557: 30800 IVDELE = IVDELE + 1 05540062
558: WRITE (I02,80003) IVTNUM 05550062
559: IF (ICZERO) 40800, 811, 40800 05560062
560: 40800 IF (RVCOMP - 294.67) 20800,10800,40801 05570062
561: 40801 IF (RVCOMP - 294.77) 10800,10800,20800 05580062
562: 10800 IVPASS = IVPASS + 1 05590062
563: WRITE (I02,80001) IVTNUM 05600062
564: GO TO 811 05610062
565: 20800 IVFAIL = IVFAIL + 1 05620062
566: RVCORR = 294.72 05630062
567: WRITE (I02,80005) IVTNUM, RVCOMP, RVCORR 05640062
568: 811 CONTINUE 05650062
569: IVTNUM = 81 05660062
570: C 05670062
571: C **** TEST 81 **** 05680062
572: C 05690062
573: IF (ICZERO) 30810, 810, 30810 05700062
574: 810 CONTINUE 05710062
575: RVON01 = 524.87 05720062
576: RVON02 = .5679 05730062
577: RVON03 = 3.35 05740062
578: RVCOMP = RVON01 * RVON02 / RVON03 05750062
579: GO TO 40810 05760062
580: 30810 IVDELE = IVDELE + 1 05770062
581: WRITE (I02,80003) IVTNUM 05780062
582: IF (ICZERO) 40810, 821, 40810 05790062
583: 40810 IF (RVCOMP - 88.92) 20810,10810,40811 05800062
584: 40811 IF (RVCOMP - 89.02) 10810,10810,20810 05810062
585: 10810 IVPASS = IVPASS + 1 05820062
586: WRITE (I02,80001) IVTNUM 05830062
587: GO TO 821 05840062
588: 20810 IVFAIL = IVFAIL + 1 05850062
589: RVCORR = 88.977 05860062
590: WRITE (I02,80005) IVTNUM, RVCOMP, RVCORR 05870062
591: 821 CONTINUE 05880062
592: IVTNUM = 82 05890062
593: C 05900062
594: C **** TEST 82 **** 05910062
595: C 05920062
596: IF (ICZERO) 30820, 820, 30820 05930062
597: 820 CONTINUE 05940062
598: RVON01 = 524.87 05950062
599: RVON02 = .5679 05960062
600: IVON01 = 7 05970062
601: RVCOMP = RVON01 * RVON02 ** IVON01 05980062
602: GO TO 40820 05990062
603: 30820 IVDELE = IVDELE + 1 06000062
604: WRITE (I02,80003) IVTNUM 06010062
605: IF (ICZERO) 40820, 831, 40820 06020062
606: 40820 IF (RVCOMP - 9.94) 20820,10820,40821 06030062
607: 40821 IF (RVCOMP - 10.04) 10820,10820,20820 06040062
608: 10820 IVPASS = IVPASS + 1 06050062
609: WRITE (I02,80001) IVTNUM 06060062
610: GO TO 831 06070062
611: 20820 IVFAIL = IVFAIL + 1 06080062
612: RVCORR = 9.999 06090062
613: WRITE (I02,80005) IVTNUM, RVCOMP, RVCORR 06100062
614: 831 CONTINUE 06110062
615: C 06120062
616: C TESTS 83 THROUGH 86 CHECK RV1 / RV2 <OP2> RV3 06130062
617: C 06140062
618: IVTNUM = 83 06150062
619: C 06160062
620: C **** TEST 83 **** 06170062
621: C 06180062
622: IF (ICZERO) 30830, 830, 30830 06190062
623: 830 CONTINUE 06200062
624: RVON01 = 524.87 06210062
625: RVON02 = 3.35 06220062
626: RVON03 = .5679 06230062
627: RVCOMP = RVON01 / RVON02 + RVON03 06240062
628: GO TO 40830 06250062
629: 30830 IVDELE = IVDELE + 1 06260062
630: WRITE (I02,80003) IVTNUM 06270062
631: IF (ICZERO) 40830, 841, 40830 06280062
632: 40830 IF (RVCOMP - 157.19) 20830,10830,40831 06290062
633: 40831 IF (RVCOMP - 157.29) 10830,10830,20830 06300062
634: 10830 IVPASS = IVPASS + 1 06310062
635: WRITE (I02,80001) IVTNUM 06320062
636: GO TO 841 06330062
637: 20830 IVFAIL = IVFAIL + 1 06340062
638: RVCORR = 157.25 06350062
639: WRITE (I02,80005) IVTNUM, RVCOMP, RVCORR 06360062
640: 841 CONTINUE 06370062
641: IVTNUM = 84 06380062
642: C 06390062
643: C **** TEST 84 **** 06400062
644: C 06410062
645: IF (ICZERO) 30840, 840, 30840 06420062
646: 840 CONTINUE 06430062
647: RVON01 = 524.87 06440062
648: RVON02 = 3.35 06450062
649: RVON03 = .8507 06460062
650: RVCOMP = RVON01 / RVON02 - RVON03 06470062
651: GO TO 40840 06480062
652: 30840 IVDELE = IVDELE + 1 06490062
653: WRITE (I02,80003) IVTNUM 06500062
654: IF (ICZERO) 40840, 851, 40840 06510062
655: 40840 IF (RVCOMP - 155.77) 20840,10840,40841 06520062
656: 40841 IF (RVCOMP - 155.87) 10840,10840,20840 06530062
657: 10840 IVPASS = IVPASS + 1 06540062
658: WRITE (I02,80001) IVTNUM 06550062
659: GO TO 851 06560062
660: 20840 IVFAIL = IVFAIL + 1 06570062
661: RVCORR = 155.83 06580062
662: WRITE (I02,80005) IVTNUM, RVCOMP, RVCORR 06590062
663: 851 CONTINUE 06600062
664: IVTNUM = 85 06610062
665: C 06620062
666: C **** TEST 85 **** 06630062
667: C 06640062
668: IF (ICZERO) 30850, 850, 30850 06650062
669: 850 CONTINUE 06660062
670: RVON01 = 524.87 06670062
671: RVON02 = 3.35 06680062
672: RVON03 = .8507 06690062
673: RVCOMP = RVON01 / RVON02 * RVON03 06700062
674: GO TO 40850 06710062
675: 30850 IVDELE = IVDELE + 1 06720062
676: WRITE (I02,80003) IVTNUM 06730062
677: IF (ICZERO) 40850, 861, 40850 06740062
678: 40850 IF (RVCOMP - 132.7) 20850,10850,40851 06750062
679: 40851 IF (RVCOMP - 133.7) 10850,10850,20850 06760062
680: 10850 IVPASS = IVPASS + 1 06770062
681: WRITE (I02,80001) IVTNUM 06780062
682: GO TO 861 06790062
683: 20850 IVFAIL = IVFAIL + 1 06800062
684: RVCORR = 133.29 06810062
685: WRITE (I02,80005) IVTNUM, RVCOMP, RVCORR 06820062
686: 861 CONTINUE 06830062
687: IVTNUM = 86 06840062
688: C 06850062
689: C **** TEST 86 **** 06860062
690: C 06870062
691: IF (ICZERO) 30860, 860, 30860 06880062
692: 860 CONTINUE 06890062
693: RVON01 = 524.87 06900062
694: RVON02 = 3.35 06910062
695: IVON01 = 7 06920062
696: RVCOMP = RVON01 / RVON02 ** IVON01 06930062
697: GO TO 40860 06940062
698: 30860 IVDELE = IVDELE + 1 06950062
699: WRITE (I02,80003) IVTNUM 06960062
700: IF (ICZERO) 40860, 871, 40860 06970062
701: 40860 IF (RVCOMP - .106) 20860,10860,40861 06980062
702: 40861 IF (RVCOMP - .116) 10860,10860,20860 06990062
703: 10860 IVPASS = IVPASS + 1 07000062
704: WRITE (I02,80001) IVTNUM 07010062
705: GO TO 871 07020062
706: 20860 IVFAIL = IVFAIL + 1 07030062
707: RVCORR = .11085 07040062
708: WRITE (I02,80005) IVTNUM, RVCOMP, RVCORR 07050062
709: 871 CONTINUE 07060062
710: C 07070062
711: C TESTS 87 THROUGH 90 CHECK RV1 ** IV1 <OP2> RV2 07080062
712: C 07090062
713: IVTNUM = 87 07100062
714: C 07110062
715: C **** TEST 87 **** 07120062
716: C 07130062
717: IF (ICZERO) 30870, 870, 30870 07140062
718: 870 CONTINUE 07150062
719: RVON01 = 3.35 07160062
720: IVON01 = 7 07170062
721: RVON02 = 524.87 07180062
722: RVCOMP = RVON01 ** IVON01 + RVON02 07190062
723: GO TO 40870 07200062
724: 30870 IVDELE = IVDELE + 1 07210062
725: WRITE (I02,80003) IVTNUM 07220062
726: IF (ICZERO) 40870, 881, 40870 07230062
727: 40870 IF (RVCOMP - 5210.) 20870,10870,40871 07240062
728: 40871 IF (RVCOMP - 5310.) 10870,10870,20870 07250062
729: 10870 IVPASS = IVPASS + 1 07260062
730: WRITE (I02,80001) IVTNUM 07270062
731: GO TO 881 07280062
732: 20870 IVFAIL = IVFAIL + 1 07290062
733: RVCORR = 5259.8 07300062
734: WRITE (I02,80005) IVTNUM, RVCOMP, RVCORR 07310062
735: 881 CONTINUE 07320062
736: IVTNUM = 88 07330062
737: C 07340062
738: C **** TEST 88 **** 07350062
739: C 07360062
740: IF (ICZERO) 30880, 880, 30880 07370062
741: 880 CONTINUE 07380062
742: RVON01 = 3.35 07390062
743: IVON01 = 7 07400062
744: RVON02 = 524.87 07410062
745: RVCOMP = RVON01 ** IVON01 - RVON02 07420062
746: GO TO 40880 07430062
747: 30880 IVDELE = IVDELE + 1 07440062
748: WRITE (I02,80003) IVTNUM 07450062
749: IF (ICZERO) 40880, 891, 40880 07460062
750: 40880 IF (RVCOMP - 4160.) 20880,10880,40881 07470062
751: 40881 IF (RVCOMP - 4260.) 10880,10880,20880 07480062
752: 10880 IVPASS = IVPASS + 1 07490062
753: WRITE (I02,80001) IVTNUM 07500062
754: GO TO 891 07510062
755: 20880 IVFAIL = IVFAIL + 1 07520062
756: RVCORR = 4210.1 07530062
757: WRITE (I02,80005) IVTNUM, RVCOMP, RVCORR 07540062
758: 891 CONTINUE 07550062
759: IVTNUM = 89 07560062
760: C 07570062
761: C **** TEST 89 **** 07580062
762: C 07590062
763: IF (ICZERO) 30890, 890, 30890 07600062
764: 890 CONTINUE 07610062
765: RVON01 = 3.35 07620062
766: IVON01 = 7 07630062
767: RVON02 = 524.87 07640062
768: RVCOMP = RVON01 ** IVON01 * RVON02 07650062
769: GO TO 40890 07660062
770: 30890 IVDELE = IVDELE + 1 07670062
771: WRITE (I02,80003) IVTNUM 07680062
772: IF (ICZERO) 40890, 901, 40890 07690062
773: 40890 IF (RVCOMP - 2.43E6) 20890,10890,40891 07700062
774: 40891 IF (RVCOMP - 2.53E6) 10890,10890,20890 07710062
775: 10890 IVPASS = IVPASS + 1 07720062
776: WRITE (I02,80001) IVTNUM 07730062
777: GO TO 901 07740062
778: 20890 IVFAIL = IVFAIL + 1 07750062
779: RVCORR = 2.4852E6 07760062
780: WRITE (I02,80005) IVTNUM, RVCOMP, RVCORR 07770062
781: 901 CONTINUE 07780062
782: IVTNUM = 90 07790062
783: C 07800062
784: C **** TEST 90 **** 07810062
785: C 07820062
786: IF (ICZERO) 30900, 900, 30900 07830062
787: 900 CONTINUE 07840062
788: RVON01 = 3.35 07850062
789: IVON01 = 7 07860062
790: RVON02 = 524.87 07870062
791: RVCOMP = RVON01 ** IVON01 / RVON02 07880062
792: GO TO 40900 07890062
793: 30900 IVDELE = IVDELE + 1 07900062
794: WRITE (I02,80003) IVTNUM 07910062
795: IF (ICZERO) 40900, 911, 40900 07920062
796: 40900 IF (RVCOMP - 8.97) 20900,10900,40901 07930062
797: 40901 IF (RVCOMP - 9.07) 10900,10900,20900 07940062
798: 10900 IVPASS = IVPASS + 1 07950062
799: WRITE (I02,80001) IVTNUM 07960062
800: GO TO 911 07970062
801: 20900 IVFAIL = IVFAIL + 1 07980062
802: RVCORR = 9.0211 07990062
803: WRITE (I02,80005) IVTNUM, RVCOMP, RVCORR 08000062
804: 911 CONTINUE 08010062
805: C 08020062
806: C TESTS 91 AND 92 CHECK ALL ARITHMETIC OPERATORS USED TOGETHER 08030062
807: C 08040062
808: IVTNUM = 91 08050062
809: C 08060062
810: C **** TEST 91 **** 08070062
811: C 08080062
812: IF (ICZERO) 30910, 910, 30910 08090062
813: 910 CONTINUE 08100062
814: RVON01 = 780.56 08110062
815: RVON02 = .803 08120062
816: RVON03 = 3.35 08130062
817: IVON01 = 7 08140062
818: RVON04 = 20.07 08150062
819: RVON05 = 511.9 08160062
820: RVCOMP = - RVON01 + RVON02 * RVON03 ** IVON01 / RVON04 - RVON05 08170062
821: GO TO 40910 08180062
822: 30910 IVDELE = IVDELE + 1 08190062
823: WRITE (I02,80003) IVTNUM 08200062
824: IF (ICZERO) 40910, 921, 40910 08210062
825: 40910 IF (RVCOMP + 1113.0) 20910,10910,40911 08220062
826: 40911 IF (RVCOMP + 1093.0) 10910,10910,20910 08230062
827: 10910 IVPASS = IVPASS + 1 08240062
828: WRITE (I02,80001) IVTNUM 08250062
829: GO TO 921 08260062
830: 20910 IVFAIL = IVFAIL + 1 08270062
831: RVCORR = -1103.0 08280062
832: WRITE (I02,80005) IVTNUM, RVCOMP, RVCORR 08290062
833: 921 CONTINUE 08300062
834: IVTNUM = 92 08310062
835: C 08320062
836: C **** TEST 92 **** 08330062
837: C 08340062
838: IF (ICZERO) 30920, 920, 30920 08350062
839: 920 CONTINUE 08360062
840: RVON01 = 780.56 08370062
841: RVON02 = .803 08380062
842: RVON03 = 3.35 08390062
843: IVON01 = 7 08400062
844: RVON04 = 20.07 08410062
845: RVON05 = 511.9 08420062
846: RVCOMP = (-RVON01) + (RVON02 * RVON03) ** IVON01 / (RVON04-RVON05)08430062
847: GO TO 40920 08440062
848: 30920 IVDELE = IVDELE + 1 08450062
849: WRITE (I02,80003) IVTNUM 08460062
850: IF (ICZERO) 40920, 931, 40920 08470062
851: 40920 IF (RVCOMP + 788.) 20920,10920,40921 08480062
852: 40921 IF (RVCOMP + 777.) 10920,10920,20920 08490062
853: 10920 IVPASS = IVPASS + 1 08500062
854: WRITE (I02,80001) IVTNUM 08510062
855: GO TO 931 08520062
856: 20920 IVFAIL = IVFAIL + 1 08530062
857: RVCORR = -782.63 08540062
858: WRITE (I02,80005) IVTNUM, RVCOMP, RVCORR 08550062
859: 931 CONTINUE 08560062
860: C 08570062
861: C WRITE PAGE FOOTINGS AND RUN SUMMARIES 08580062
862: 99999 CONTINUE 08590062
863: WRITE (I02,90002) 08600062
864: WRITE (I02,90006) 08610062
865: WRITE (I02,90002) 08620062
866: WRITE (I02,90002) 08630062
867: WRITE (I02,90007) 08640062
868: WRITE (I02,90002) 08650062
869: WRITE (I02,90008) IVFAIL 08660062
870: WRITE (I02,90009) IVPASS 08670062
871: WRITE (I02,90010) IVDELE 08680062
872: C 08690062
873: C 08700062
874: C TERMINATE ROUTINE EXECUTION 08710062
875: STOP 08720062
876: C 08730062
877: C FORMAT STATEMENTS FOR PAGE HEADERS 08740062
878: 90000 FORMAT (1H1) 08750062
879: 90002 FORMAT (1H ) 08760062
880: 90001 FORMAT (1H ,10X,34HFORTRAN COMPILER VALIDATION SYSTEM) 08770062
881: 90003 FORMAT (1H ,21X,11HVERSION 1.0) 08780062
882: 90004 FORMAT (1H ,10X,38HFOR OFFICIAL USE ONLY - COPYRIGHT 1978) 08790062
883: 90005 FORMAT (1H ,5X,4HTEST,5X,9HPASS/FAIL, 5X,8HCOMPUTED,8X,7HCORRECT) 08800062
884: 90006 FORMAT (1H ,5X,46H----------------------------------------------) 08810062
885: 90011 FORMAT (1H ,18X,17HSUBSET LEVEL TEST) 08820062
886: C 08830062
887: C FORMAT STATEMENTS FOR RUN SUMMARIES 08840062
888: 90008 FORMAT (1H ,15X,I5,19H ERRORS ENCOUNTERED) 08850062
889: 90009 FORMAT (1H ,15X,I5,13H TESTS PASSED) 08860062
890: 90010 FORMAT (1H ,15X,I5,14H TESTS DELETED) 08870062
891: C 08880062
892: C FORMAT STATEMENTS FOR TEST RESULTS 08890062
893: 80001 FORMAT (1H ,4X,I5,7X,4HPASS) 08900062
894: 80002 FORMAT (1H ,4X,I5,7X,4HFAIL) 08910062
895: 80003 FORMAT (1H ,4X,I5,7X,7HDELETED) 08920062
896: 80004 FORMAT (1H ,4X,I5,7X,4HFAIL,10X,I6,9X,I6) 08930062
897: 80005 FORMAT (1H ,4X,I5,7X,4HFAIL,4X,E12.5,3X,E12.5) 08940062
898: C 08950062
899: 90007 FORMAT (1H ,20X,20HEND OF PROGRAM FM062) 08960062
900: END 08970062
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.