![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to FM370.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 FM370.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***********************************************************************00010370
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***** FORTRAN 77 00020370
6: C***** FM370 00030370
7: C***** XALOG - (181) 00040370
8: C***** 00050370
9: C***********************************************************************00060370
10: C***** GENERAL PURPOSE SUBSET REF 00070370
11: C***** TEST INTRINSIC FUNCTION ALOG 15.3 00080370
12: C***** TABLE 5 00090370
13: C***** 00100370
14: C***** 00110370
15: CBB** ********************** BBCCOMNT **********************************00120370
16: C**** 00130370
17: C**** 1978 FORTRAN COMPILER VALIDATION SYSTEM 00140370
18: C**** VERSION 2.0 00150370
19: C**** 00160370
20: C**** 00170370
21: C**** SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00180370
22: C**** GENERAL SERVICES ADMINISTRATION 00190370
23: C**** FEDERAL SOFTWARE TESTING CENTER 00200370
24: C**** 5203 LEESBURG PIKE, SUITE 1100 00210370
25: C**** FALLS CHURCH, VA. 22041 00220370
26: C**** 00230370
27: C**** (703) 756-6153 00240370
28: C**** 00250370
29: CBE** ********************** BBCCOMNT **********************************00260370
30: CBB** ********************** BBCINITA **********************************00270370
31: C**** SPECIFICATION STATEMENTS 00280370
32: C**** 00290370
33: CHARACTER ZVERS*13, ZVERSD*17, ZDATE*17, ZPROG*5, ZCOMPL*20, 00300370
34: 1 ZNAME*20, ZTAPE*10, ZPROJ*13, REMRKS*31, ZTAPED*13 00310370
35: CBE** ********************** BBCINITA **********************************00320370
36: CBB** ********************** BBCINITB **********************************00330370
37: C**** INITIALIZE SECTION 00340370
38: DATA ZVERS, ZVERSD, ZDATE 00350370
39: 1 /'VERSION 2.0 ', '82/08/02*18.33.46', '*NO DATE*TIME'/ 00360370
40: DATA ZCOMPL, ZNAME, ZTAPE 00370370
41: 1 /'*NONE SPECIFIED*', '*NO COMPANY NAME*', '*NO TAPE*'/ 00380370
42: DATA ZPROJ, ZTAPED, ZPROG 00390370
43: 1 /'*NO PROJECT*', '*NO TAPE DATE', 'XXXXX'/ 00400370
44: DATA REMRKS /' '/ 00410370
45: C**** THE FOLLOWING 9 COMMENT LINES (CZ01, CZ02, ...) CAN BE REPLACED 00420370
46: C**** FOR IDENTIFYING THE TEST ENVIRONMENT 00430370
47: C**** 00440370
48: CZ01 ZVERS = 'VERSION OF THE COMPILER VALIDATION SYSTEM' 00450370
49: CZ02 ZVERSD = 'CREATION DATE/TIME OF THE COMPILER VALIDATION SYSTEM' 00460370
50: CZ03 ZPROG = 'PROGRAM NAME' 00470370
51: ZDATE = '07-Nov-85 ' *RP
52: ZCOMPL = 'CCI 5.2 ' *RP
53: ZPROJ = 'TC-85- -410' *RP
54: ZNAME = ' ' *RP
55: ZTAPE = ' ' *RP
56: ZTAPED = '850703 ' *RP
57: C 00540370
58: IVPASS = 0 00550370
59: IVFAIL = 0 00560370
60: IVDELE = 0 00570370
61: IVINSP = 0 00580370
62: IVTOTL = 0 00590370
63: IVTOTN = 0 00600370
64: ICZERO = 0 00610370
65: C 00620370
66: C I01 CONTAINS THE LOGICAL UNIT NUMBER FOR THE CARD READER. 00630370
67: I01 = 05 00640370
68: C I02 CONTAINS THE LOGICAL UNIT NUMBER FOR THE PRINTER. 00650370
69: I02 = 06 00660370
70: C 00670370
71: I01 = 5 00680370
72: C THE CX010 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I01 = 5 00690370
73: CX011 REPLACED BY FEXEC X-011 CONTROL CARD. CX011 IS FOR SYSTEMS 00700370
74: C REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX010. 00710370
75: C 00720370
76: I02 = 6 00730370
77: C THE CX020 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I02= 6 00740370
78: CX021 REPLACED BY FEXEC X-021 CONTROL CARD. CX021 IS FOR SYSTEMS 00750370
79: C REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX020. 00760370
80: C 00770370
81: CBE** ********************** BBCINITB **********************************00780370
82: NUVI = I02 00790370
83: IVTOTL = 16 00800370
84: ZPROG = 'FM370' 00810370
85: CBB** ********************** BBCHED0A **********************************00820370
86: C**** 00830370
87: C**** WRITE REPORT TITLE 00840370
88: C**** 00850370
89: WRITE (I02, 90002) 00860370
90: WRITE (I02, 90006) 00870370
91: WRITE (I02, 90007) 00880370
92: WRITE (I02, 90008) ZVERS, ZVERSD 00890370
93: WRITE (I02, 90009) ZPROG, ZPROG 00900370
94: WRITE (I02, 90010) ZDATE, ZCOMPL 00910370
95: CBE** ********************** BBCHED0A **********************************00920370
96: C***** HEADER FOR SEGMENT 181 00930370
97: WRITE(NUVI,18100) 00940370
98: 18100 FORMAT(1H , / 35H XALOG - (181) INTRINSIC FUNCTIONS// 00950370
99: 1 26H ALOG (NATURAL LOGARITHM)// 00960370
100: 2 20H SUBSET REF. - 15.3) 00970370
101: CBB** ********************** BBCHED0B **********************************00980370
102: C**** WRITE DETAIL REPORT HEADERS 00990370
103: C**** 01000370
104: WRITE (I02,90004) 01010370
105: WRITE (I02,90004) 01020370
106: WRITE (I02,90013) 01030370
107: WRITE (I02,90014) 01040370
108: WRITE (I02,90015) IVTOTL 01050370
109: CBE** ********************** BBCHED0B **********************************01060370
110: C***** 01070370
111: CT001* TEST 1 ONE, SINCE LN(1.0) = 0.0 01080370
112: IVTNUM = 1 01090370
113: BVS = 1.0 01100370
114: AVS = ALOG(BVS) 01110370
115: IF (AVS + 0.50000E-04) 20010, 10010, 40010 01120370
116: 40010 IF (AVS - 0.50000E-04) 10010, 10010, 20010 01130370
117: 10010 IVPASS = IVPASS + 1 01140370
118: WRITE (NUVI, 80002) IVTNUM 01150370
119: GO TO 0011 01160370
120: 20010 IVFAIL = IVFAIL + 1 01170370
121: RVCORR = 0.00000000000000 01180370
122: WRITE (NUVI, 80012) IVTNUM, AVS, RVCORR 01190370
123: 0011 CONTINUE 01200370
124: CT002* TEST 2 VALUES CLOSE TO E 01210370
125: IVTNUM = 2 01220370
126: AVS = ALOG(2.6875) 01230370
127: IF (AVS - 0.98856E+00) 20020, 10020, 40020 01240370
128: 40020 IF (AVS - 0.98866E+00) 10020, 10020, 20020 01250370
129: 10020 IVPASS = IVPASS + 1 01260370
130: WRITE (NUVI, 80002) IVTNUM 01270370
131: GO TO 0021 01280370
132: 20020 IVFAIL = IVFAIL + 1 01290370
133: RVCORR = 0.98861139345378 01300370
134: WRITE (NUVI, 80012) IVTNUM, AVS, RVCORR 01310370
135: 0021 CONTINUE 01320370
136: CT003* TEST 3 01330370
137: IVTNUM = 3 01340370
138: AVS = ALOG(5.125) 01350370
139: IF (AVS - 0.16340E+01) 20030, 10030, 40030 01360370
140: 40030 IF (AVS - 0.16342E+01) 10030, 10030, 20030 01370370
141: 10030 IVPASS = IVPASS + 1 01380370
142: WRITE (NUVI, 80002) IVTNUM 01390370
143: GO TO 0031 01400370
144: 20030 IVFAIL = IVFAIL + 1 01410370
145: RVCORR = 1.63413052502447 01420370
146: WRITE (NUVI, 80012) IVTNUM, AVS, RVCORR 01430370
147: 0031 CONTINUE 01440370
148: CT004* TEST 4 01450370
149: IVTNUM = 4 01460370
150: AVS = ALOG(10.0) 01470370
151: IF (AVS - 0.23025E+01) 20040, 10040, 40040 01480370
152: 40040 IF (AVS - 0.23027E+01) 10040, 10040, 20040 01490370
153: 10040 IVPASS = IVPASS + 1 01500370
154: WRITE (NUVI, 80002) IVTNUM 01510370
155: GO TO 0041 01520370
156: 20040 IVFAIL = IVFAIL + 1 01530370
157: RVCORR = 2.30258509299405 01540370
158: WRITE (NUVI, 80012) IVTNUM, AVS, RVCORR 01550370
159: 0041 CONTINUE 01560370
160: CT005* TEST 5 01570370
161: IVTNUM = 5 01580370
162: AVS = ALOG(100.0) 01590370
163: IF (AVS - 0.46049E+01) 20050, 10050, 40050 01600370
164: 40050 IF (AVS - 0.46054E+01) 10050, 10050, 20050 01610370
165: 10050 IVPASS = IVPASS + 1 01620370
166: WRITE (NUVI, 80002) IVTNUM 01630370
167: GO TO 0051 01640370
168: 20050 IVFAIL = IVFAIL + 1 01650370
169: RVCORR = 4.60517018598809 01660370
170: WRITE (NUVI, 80012) IVTNUM, AVS, RVCORR 01670370
171: 0051 CONTINUE 01680370
172: CT006* TEST 6 01690370
173: IVTNUM = 6 01700370
174: BVS = 1.0 01710370
175: AVS = ALOG(BVS / 4.0) 01720370
176: IF (AVS + 0.13864E+01) 20060, 10060, 40060 01730370
177: 40060 IF (AVS + 0.13862E+01) 10060, 10060, 20060 01740370
178: 10060 IVPASS = IVPASS + 1 01750370
179: WRITE (NUVI, 80002) IVTNUM 01760370
180: GO TO 0061 01770370
181: 20060 IVFAIL = IVFAIL + 1 01780370
182: RVCORR = -1.38629436111989 01790370
183: WRITE (NUVI, 80012) IVTNUM, AVS, RVCORR 01800370
184: 0061 CONTINUE 01810370
185: CT007* TEST 7 01820370
186: IVTNUM = 7 01830370
187: BVS = 1.0 01840370
188: CVS = 8.0 01850370
189: AVS = ALOG(3.0 * BVS / CVS) 01860370
190: IF (AVS + 0.98088E+00) 20070, 10070, 40070 01870370
191: 40070 IF (AVS + 0.98078E+00) 10070, 10070, 20070 01880370
192: 10070 IVPASS = IVPASS + 1 01890370
193: WRITE (NUVI, 80002) IVTNUM 01900370
194: GO TO 0071 01910370
195: 20070 IVFAIL = IVFAIL + 1 01920370
196: RVCORR = -0.98082925301173 01930370
197: WRITE (NUVI, 80012) IVTNUM, AVS, RVCORR 01940370
198: 0071 CONTINUE 01950370
199: CT008* TEST 8 01960370
200: IVTNUM = 8 01970370
201: AVS = ALOG(50.0 / 100.0) 01980370
202: IF (AVS + 0.69318E+00) 20080, 10080, 40080 01990370
203: 40080 IF (AVS + 0.69311E+00) 10080, 10080, 20080 02000370
204: 10080 IVPASS = IVPASS + 1 02010370
205: WRITE (NUVI, 80002) IVTNUM 02020370
206: GO TO 0081 02030370
207: 20080 IVFAIL = IVFAIL + 1 02040370
208: RVCORR = -0.69314718055995 02050370
209: WRITE (NUVI, 80012) IVTNUM, AVS, RVCORR 02060370
210: 0081 CONTINUE 02070370
211: CT009* TEST 9 02080370
212: IVTNUM = 9 02090370
213: BVS = 68.75 02100370
214: AVS = ALOG(BVS * 0.01) 02110370
215: IF (AVS + 0.37471E+00) 20090, 10090, 40090 02120370
216: 40090 IF (AVS + 0.37467E+00) 10090, 10090, 20090 02130370
217: 10090 IVPASS = IVPASS + 1 02140370
218: WRITE (NUVI, 80002) IVTNUM 02150370
219: GO TO 0091 02160370
220: 20090 IVFAIL = IVFAIL + 1 02170370
221: RVCORR = -0.37469344944141 02180370
222: WRITE (NUVI, 80012) IVTNUM, AVS, RVCORR 02190370
223: 0091 CONTINUE 02200370
224: CT010* TEST 10 VALUES CLOSE TO ONE 02210370
225: IVTNUM = 10 02220370
226: AVS = ALOG(0.96875) 02230370
227: IF (AVS + 0.31750E-01) 20100, 10100, 40100 02240370
228: 40100 IF (AVS + 0.31747E-01) 10100, 10100, 20100 02250370
229: 10100 IVPASS = IVPASS + 1 02260370
230: WRITE (NUVI, 80002) IVTNUM 02270370
231: GO TO 0101 02280370
232: 20100 IVFAIL = IVFAIL + 1 02290370
233: RVCORR = -0.03174869831458 02300370
234: WRITE (NUVI, 80012) IVTNUM, AVS, RVCORR 02310370
235: 0101 CONTINUE 02320370
236: CT011* TEST 11 02330370
237: IVTNUM = 11 02340370
238: BVS = 1.015625 02350370
239: AVS = ALOG(BVS) 02360370
240: IF (AVS - 0.15503E-01) 20110, 10110, 40110 02370370
241: 40110 IF (AVS - 0.15505E-01) 10110, 10110, 20110 02380370
242: 10110 IVPASS = IVPASS + 1 02390370
243: WRITE (NUVI, 80002) IVTNUM 02400370
244: GO TO 0111 02410370
245: 20110 IVFAIL = IVFAIL + 1 02420370
246: RVCORR = 0.01550418653597 02430370
247: WRITE (NUVI, 80012) IVTNUM, AVS, RVCORR 02440370
248: 0111 CONTINUE 02450370
249: CT012* TEST 12 VALUES CLOSE TO ZERO 02460370
250: IVTNUM = 12 02470370
251: BVS = 128.0 02480370
252: AVS = ALOG(1.0 / BVS) 02490370
253: IF (AVS + 0.48523E+01) 20120, 10120, 40120 02500370
254: 40120 IF (AVS + 0.48518E+01) 10120, 10120, 20120 02510370
255: 10120 IVPASS = IVPASS + 1 02520370
256: WRITE (NUVI, 80002) IVTNUM 02530370
257: GO TO 0121 02540370
258: 20120 IVFAIL = IVFAIL + 1 02550370
259: RVCORR = -4.85203026391962 02560370
260: WRITE (NUVI, 80012) IVTNUM, AVS, RVCORR 02570370
261: 0121 CONTINUE 02580370
262: CT013* TEST 13 02590370
263: IVTNUM = 13 02600370
264: BVS = 128.0 02610370
265: AVS = ALOG(1.0 / (BVS * 4.0)) 02620370
266: IF (AVS + 0.62386E+01) 20130, 10130, 40130 02630370
267: 40130 IF (AVS + 0.62380E+01) 10130, 10130, 20130 02640370
268: 10130 IVPASS = IVPASS + 1 02650370
269: WRITE (NUVI, 80002) IVTNUM 02660370
270: GO TO 0131 02670370
271: 20130 IVFAIL = IVFAIL + 1 02680370
272: RVCORR = -6.23832462503951 02690370
273: WRITE (NUVI, 80012) IVTNUM, AVS, RVCORR 02700370
274: 0131 CONTINUE 02710370
275: CT014* TEST 14 AN ARGUMENT OF HIGH MAGNITUDE 02720370
276: IVTNUM = 14 02730370
277: BVS = 1.0E+37 02740370
278: AVS = ALOG(BVS) 02750370
279: IF (AVS - 0.85191E+01) 20140, 10140, 40140 02760370
280: 40140 IF (AVS - 0.85200E+02) 10140, 10140, 20140 02770370
281: 10140 IVPASS = IVPASS + 1 02780370
282: WRITE (NUVI, 80002) IVTNUM 02790370
283: GO TO 0141 02800370
284: 20140 IVFAIL = IVFAIL + 1 02810370
285: RVCORR = 85.19564844077969 02820370
286: WRITE (NUVI, 80012) IVTNUM, AVS, RVCORR 02830370
287: 0141 CONTINUE 02840370
288: CT015* TEST 15 AN ARGUMENT OF LOW MAGNITUDE 02850370
289: IVTNUM = 15 02860370
290: BVS = 1.0E-37 02870370
291: AVS = ALOG(BVS) 02880370
292: IF (AVS + 0.85200E+02) 20150, 10150, 40150 02890370
293: 40150 IF (AVS + 0.85191E+02) 10150, 10150, 20150 02900370
294: 10150 IVPASS = IVPASS + 1 02910370
295: WRITE (NUVI, 80002) IVTNUM 02920370
296: GO TO 0151 02930370
297: 20150 IVFAIL = IVFAIL + 1 02940370
298: RVCORR = -85.19564844077969 02950370
299: WRITE (NUVI, 80012) IVTNUM, AVS, RVCORR 02960370
300: 0151 CONTINUE 02970370
301: CT016* TEST 16 02980370
302: IVTNUM = 16 02990370
303: AVS = ALOG(8.0) + ALOG(0.125) 03000370
304: IF (AVS + 0.50000E-04) 20160, 10160, 40160 03010370
305: 40160 IF (AVS - 0.50000E-04) 10160, 10160, 20160 03020370
306: 10160 IVPASS = IVPASS + 1 03030370
307: WRITE (NUVI, 80002) IVTNUM 03040370
308: GO TO 0161 03050370
309: 20160 IVFAIL = IVFAIL + 1 03060370
310: RVCORR = 0.0000000 03070370
311: WRITE (NUVI, 80012) IVTNUM, AVS, RVCORR 03080370
312: 0161 CONTINUE 03090370
313: C***** 03100370
314: CBB** ********************** BBCSUM0 **********************************03110370
315: C**** WRITE OUT TEST SUMMARY 03120370
316: C**** 03130370
317: IVTOTN = IVPASS + IVFAIL + IVDELE + IVINSP 03140370
318: WRITE (I02, 90004) 03150370
319: WRITE (I02, 90014) 03160370
320: WRITE (I02, 90004) 03170370
321: WRITE (I02, 90020) IVPASS 03180370
322: WRITE (I02, 90022) IVFAIL 03190370
323: WRITE (I02, 90024) IVDELE 03200370
324: WRITE (I02, 90026) IVINSP 03210370
325: WRITE (I02, 90028) IVTOTN, IVTOTL 03220370
326: CBE** ********************** BBCSUM0 **********************************03230370
327: CBB** ********************** BBCFOOT0 **********************************03240370
328: C**** WRITE OUT REPORT FOOTINGS 03250370
329: C**** 03260370
330: WRITE (I02,90016) ZPROG, ZPROG 03270370
331: WRITE (I02,90018) ZPROJ, ZNAME, ZTAPE, ZTAPED 03280370
332: WRITE (I02,90019) 03290370
333: CBE** ********************** BBCFOOT0 **********************************03300370
334: CBB** ********************** BBCFMT0A **********************************03310370
335: C**** FORMATS FOR TEST DETAIL LINES 03320370
336: C**** 03330370
337: 80000 FORMAT (1H ,2X,I3,4X,7HDELETED,32X,A31) 03340370
338: 80002 FORMAT (1H ,2X,I3,4X,7H PASS ,32X,A31) 03350370
339: 80004 FORMAT (1H ,2X,I3,4X,7HINSPECT,32X,A31) 03360370
340: 80008 FORMAT (1H ,2X,I3,4X,7H FAIL ,32X,A31) 03370370
341: 80010 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,15X,10HCOMPUTED= , 03380370
342: 1I6,/,1H ,15X,10HCORRECT= ,I6) 03390370
343: 80012 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 03400370
344: 1E12.5,/,1H ,16X,10HCORRECT= ,E12.5) 03410370
345: 80018 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 03420370
346: 1A21,/,1H ,16X,10HCORRECT= ,A21) 03430370
347: 80020 FORMAT (1H ,16X,10HCOMPUTED= ,A21,1X,A31) 03440370
348: 80022 FORMAT (1H ,16X,10HCORRECT= ,A21,1X,A31) 03450370
349: 80024 FORMAT (1H ,16X,10HCOMPUTED= ,I6,16X,A31) 03460370
350: 80026 FORMAT (1H ,16X,10HCORRECT= ,I6,16X,A31) 03470370
351: 80028 FORMAT (1H ,16X,10HCOMPUTED= ,E12.5,10X,A31) 03480370
352: 80030 FORMAT (1H ,16X,10HCORRECT= ,E12.5,10X,A31) 03490370
353: 80050 FORMAT (1H ,48X,A31) 03500370
354: CBE** ********************** BBCFMT0A **********************************03510370
355: CBB** ********************** BBCFMT0B **********************************03520370
356: C**** FORMAT STATEMENTS FOR PAGE HEADERS 03530370
357: C**** 03540370
358: 90002 FORMAT (1H1) 03550370
359: 90004 FORMAT (1H ) 03560370
360: 90006 FORMAT (1H ,20X,31HFEDERAL SOFTWARE TESTING CENTER) 03570370
361: 90007 FORMAT (1H ,19X,34HFORTRAN COMPILER VALIDATION SYSTEM) 03580370
362: 90008 FORMAT (1H ,21X,A13,A17) 03590370
363: 90009 FORMAT (1H ,/,2H *,A5,6HBEGIN*,12X,15HTEST RESULTS - ,A5,/) 03600370
364: 90010 FORMAT (1H ,8X,16HTEST DATE*TIME= ,A17,15H - COMPILER= ,A20) 03610370
365: 90013 FORMAT (1H ,8H TEST ,10HPASS/FAIL ,6X,17HDISPLAYED RESULTS, 03620370
366: 1 7X,7HREMARKS,24X) 03630370
367: 90014 FORMAT (1H ,46H----------------------------------------------, 03640370
368: 1 33H---------------------------------) 03650370
369: 90015 FORMAT (1H ,48X,17HTHIS PROGRAM HAS ,I3,6H TESTS,/) 03660370
370: C**** 03670370
371: C**** FORMAT STATEMENTS FOR REPORT FOOTINGS 03680370
372: C**** 03690370
373: 90016 FORMAT (1H ,/,2H *,A5,4HEND*,14X,14HEND OF TEST - ,A5,/) 03700370
374: 90018 FORMAT (1H ,A13,13X,A20,7H * ,A10,1H/, 03710370
375: 1 A13) 03720370
376: 90019 FORMAT (1H ,26HFOR OFFICIAL USE ONLY ,35X,15HCOPYRIGHT 1982) 03730370
377: C**** 03740370
378: C**** FORMAT STATEMENTS FOR RUN SUMMARY 03750370
379: C**** 03760370
380: 90020 FORMAT (1H ,21X,I5,13H TESTS PASSED) 03770370
381: 90022 FORMAT (1H ,21X,I5,13H TESTS FAILED) 03780370
382: 90024 FORMAT (1H ,21X,I5,14H TESTS DELETED) 03790370
383: 90026 FORMAT (1H ,21X,I5,25H TESTS REQUIRE INSPECTION) 03800370
384: 90028 FORMAT (1H ,21X,I5,4H OF ,I3,15H TESTS EXECUTED) 03810370
385: CBE** ********************** BBCFMT0B **********************************03820370
386: C***** 03830370
387: C***** END OF TEST SEGMENT 181 03840370
388: STOP 03850370
389: END 03860370
390: 03870370
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.