![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to FM371.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 FM371.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***********************************************************************00010371
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 00020371
6: C***** FM371 00030371
7: C***** XALG10 - (184) 00040371
8: C***** 00050371
9: C***********************************************************************00060371
10: C***** GENERAL PURPOSE SUBSET REF 00070371
11: C***** TEST INTRINSIC FUNCTION ALOG10 15.3 00080371
12: C***** TABLE 5 00090371
13: C***** 00100371
14: CBB** ********************** BBCCOMNT **********************************00110371
15: C**** 00120371
16: C**** 1978 FORTRAN COMPILER VALIDATION SYSTEM 00130371
17: C**** VERSION 2.0 00140371
18: C**** 00150371
19: C**** 00160371
20: C**** SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00170371
21: C**** GENERAL SERVICES ADMINISTRATION 00180371
22: C**** FEDERAL SOFTWARE TESTING CENTER 00190371
23: C**** 5203 LEESBURG PIKE, SUITE 1100 00200371
24: C**** FALLS CHURCH, VA. 22041 00210371
25: C**** 00220371
26: C**** (703) 756-6153 00230371
27: C**** 00240371
28: CBE** ********************** BBCCOMNT **********************************00250371
29: CBB** ********************** BBCINITA **********************************00260371
30: C**** SPECIFICATION STATEMENTS 00270371
31: C**** 00280371
32: CHARACTER ZVERS*13, ZVERSD*17, ZDATE*17, ZPROG*5, ZCOMPL*20, 00290371
33: 1 ZNAME*20, ZTAPE*10, ZPROJ*13, REMRKS*31, ZTAPED*13 00300371
34: CBE** ********************** BBCINITA **********************************00310371
35: CBB** ********************** BBCINITB **********************************00320371
36: C**** INITIALIZE SECTION 00330371
37: DATA ZVERS, ZVERSD, ZDATE 00340371
38: 1 /'VERSION 2.0 ', '82/08/02*18.33.46', '*NO DATE*TIME'/ 00350371
39: DATA ZCOMPL, ZNAME, ZTAPE 00360371
40: 1 /'*NONE SPECIFIED*', '*NO COMPANY NAME*', '*NO TAPE*'/ 00370371
41: DATA ZPROJ, ZTAPED, ZPROG 00380371
42: 1 /'*NO PROJECT*', '*NO TAPE DATE', 'XXXXX'/ 00390371
43: DATA REMRKS /' '/ 00400371
44: C**** THE FOLLOWING 9 COMMENT LINES (CZ01, CZ02, ...) CAN BE REPLACED 00410371
45: C**** FOR IDENTIFYING THE TEST ENVIRONMENT 00420371
46: C**** 00430371
47: CZ01 ZVERS = 'VERSION OF THE COMPILER VALIDATION SYSTEM' 00440371
48: CZ02 ZVERSD = 'CREATION DATE/TIME OF THE COMPILER VALIDATION SYSTEM' 00450371
49: CZ03 ZPROG = 'PROGRAM NAME' 00460371
50: ZDATE = '07-Nov-85 ' *RP
51: ZCOMPL = 'CCI 5.2 ' *RP
52: ZPROJ = 'TC-85- -410' *RP
53: ZNAME = ' ' *RP
54: ZTAPE = ' ' *RP
55: ZTAPED = '850703 ' *RP
56: C 00530371
57: IVPASS = 0 00540371
58: IVFAIL = 0 00550371
59: IVDELE = 0 00560371
60: IVINSP = 0 00570371
61: IVTOTL = 0 00580371
62: IVTOTN = 0 00590371
63: ICZERO = 0 00600371
64: C 00610371
65: C I01 CONTAINS THE LOGICAL UNIT NUMBER FOR THE CARD READER. 00620371
66: I01 = 05 00630371
67: C I02 CONTAINS THE LOGICAL UNIT NUMBER FOR THE PRINTER. 00640371
68: I02 = 06 00650371
69: C 00660371
70: I01 = 5 00670371
71: C THE CX010 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I01 = 5 00680371
72: CX011 REPLACED BY FEXEC X-011 CONTROL CARD. CX011 IS FOR SYSTEMS 00690371
73: C REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX010. 00700371
74: C 00710371
75: I02 = 6 00720371
76: C THE CX020 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I02= 6 00730371
77: CX021 REPLACED BY FEXEC X-021 CONTROL CARD. CX021 IS FOR SYSTEMS 00740371
78: C REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX020. 00750371
79: C 00760371
80: CBE** ********************** BBCINITB **********************************00770371
81: NUVI = I02 00780371
82: IVTOTL = 16 00790371
83: ZPROG = 'FM371' 00800371
84: CBB** ********************** BBCHED0A **********************************00810371
85: C**** 00820371
86: C**** WRITE REPORT TITLE 00830371
87: C**** 00840371
88: WRITE (I02, 90002) 00850371
89: WRITE (I02, 90006) 00860371
90: WRITE (I02, 90007) 00870371
91: WRITE (I02, 90008) ZVERS, ZVERSD 00880371
92: WRITE (I02, 90009) ZPROG, ZPROG 00890371
93: WRITE (I02, 90010) ZDATE, ZCOMPL 00900371
94: CBE** ********************** BBCHED0A **********************************00910371
95: C***** 00920371
96: C***** HEADER FOR SEGMENT 184 00930371
97: WRITE(NUVI,18400) 00940371
98: 18400 FORMAT(1H , / 36H XALG10 - (184) INTRINSIC FUNCTIONS// 00950371
99: 1 27H ALOG10 (COMMON LOGARITHM)// 00960371
100: 2 20H SUBSET REF. - 15.3) 00970371
101: CBB** ********************** BBCHED0B **********************************00980371
102: C**** WRITE DETAIL REPORT HEADERS 00990371
103: C**** 01000371
104: WRITE (I02,90004) 01010371
105: WRITE (I02,90004) 01020371
106: WRITE (I02,90013) 01030371
107: WRITE (I02,90014) 01040371
108: WRITE (I02,90015) IVTOTL 01050371
109: CBE** ********************** BBCHED0B **********************************01060371
110: C***** 01070371
111: CT001* TEST 1 ONE, SINCE LN(1.0) = 0.0 01080371
112: IVTNUM = 1 01090371
113: BVS = 1.0 01100371
114: AVS = ALOG10(BVS) 01110371
115: IF (AVS + 0.50000E-04) 20010, 10010, 40010 01120371
116: 40010 IF (AVS - 0.50000E-04) 10010, 10010, 20010 01130371
117: 10010 IVPASS = IVPASS + 1 01140371
118: WRITE (NUVI, 80002) IVTNUM 01150371
119: GO TO 0011 01160371
120: 20010 IVFAIL = IVFAIL + 1 01170371
121: RVCORR = 0.00000000000000 01180371
122: WRITE (NUVI, 80012) IVTNUM, AVS, RVCORR 01190371
123: 0011 CONTINUE 01200371
124: CT002* TEST 2 A VALUE CLOSE TO TEN 01210371
125: IVTNUM = 2 01220371
126: AVS = ALOG10(9.875) 01230371
127: IF (AVS - 0.99448E+00) 20020, 10020, 40020 01240371
128: 40020 IF (AVS - 0.99459E+00) 10020, 10020, 20020 01250371
129: 10020 IVPASS = IVPASS + 1 01260371
130: WRITE (NUVI, 80002) IVTNUM 01270371
131: GO TO 0021 01280371
132: 20020 IVFAIL = IVFAIL + 1 01290371
133: RVCORR = 0.99453710429850 01300371
134: WRITE (NUVI, 80012) IVTNUM, AVS, RVCORR 01310371
135: 0021 CONTINUE 01320371
136: CT003* TEST 3 THE VALUE 10.0 01330371
137: IVTNUM = 3 01340371
138: AVS = ALOG10(10.0) 01350371
139: IF (AVS - 0.99995E+00) 20030, 10030, 40030 01360371
140: 40030 IF (AVS - 0.10001E+01) 10030, 10030, 20030 01370371
141: 10030 IVPASS = IVPASS + 1 01380371
142: WRITE (NUVI, 80002) IVTNUM 01390371
143: GO TO 0031 01400371
144: 20030 IVFAIL = IVFAIL + 1 01410371
145: RVCORR = 1.00000000000000 01420371
146: WRITE (NUVI, 80012) IVTNUM, AVS, RVCORR 01430371
147: 0031 CONTINUE 01440371
148: CT004* TEST 4 THE VALUE 20.5 01450371
149: IVTNUM = 4 01460371
150: AVS = ALOG10(20.5) 01470371
151: IF (AVS - 0.13116E+01) 20040, 10040, 40040 01480371
152: 40040 IF (AVS - 0.13119E+01) 10040, 10040, 20040 01490371
153: 10040 IVPASS = IVPASS + 1 01500371
154: WRITE (NUVI, 80002) IVTNUM 01510371
155: GO TO 0041 01520371
156: 20040 IVFAIL = IVFAIL + 1 01530371
157: RVCORR = 1.31175386105575 01540371
158: WRITE (NUVI, 80012) IVTNUM, AVS, RVCORR 01550371
159: 0041 CONTINUE 01560371
160: CT005* TEST 5 THE VALUE 99.0 01570371
161: IVTNUM = 5 01580371
162: AVS = ALOG10(99.0) 01590371
163: IF (AVS - 0.19955E+01) 20050, 10050, 40050 01600371
164: 40050 IF (AVS - 0.19958E+01) 10050, 10050, 20050 01610371
165: 10050 IVPASS = IVPASS + 1 01620371
166: WRITE (NUVI, 80002) IVTNUM 01630371
167: GO TO 0051 01640371
168: 20050 IVFAIL = IVFAIL + 1 01650371
169: RVCORR = 1.99563519459755 01660371
170: WRITE (NUVI, 80012) IVTNUM, AVS, RVCORR 01670371
171: 0051 CONTINUE 01680371
172: CT006* TEST 6 VARIABLES WITHIN AN EXPRESSION 01690371
173: IVTNUM = 6 01700371
174: BVS = 1.0 01710371
175: CVS = 8.0 01720371
176: AVS = ALOG10(3.0 * BVS / CVS) 01730371
177: IF (AVS + 0.42599E+00) 20060, 10060, 40060 01740371
178: 40060 IF (AVS + 0.42594E+00) 10060, 10060, 20060 01750371
179: 10060 IVPASS = IVPASS + 1 01760371
180: WRITE (NUVI, 80002) IVTNUM 01770371
181: GO TO 0061 01780371
182: 20060 IVFAIL = IVFAIL + 1 01790371
183: RVCORR = -0.42596873227228 01800371
184: WRITE (NUVI, 80012) IVTNUM, AVS, RVCORR 01810371
185: 0061 CONTINUE 01820371
186: CT007* TEST 7 VARIABLES WITHIN AN EXPRESSION 01830371
187: IVTNUM = 7 01840371
188: BVS = 1.0 01850371
189: CVS = 8.0 01860371
190: AVS = ALOG10(5.0 * BVS / CVS) 01870371
191: IF (AVS + 0.20413E+00) 20070, 10070, 40070 01880371
192: 40070 IF (AVS + 0.20411E+00) 10070, 10070, 20070 01890371
193: 10070 IVPASS = IVPASS + 1 01900371
194: WRITE (NUVI, 80002) IVTNUM 01910371
195: GO TO 0071 01920371
196: 20070 IVFAIL = IVFAIL + 1 01930371
197: RVCORR = -0.20411998265592 01940371
198: WRITE (NUVI, 80012) IVTNUM, AVS, RVCORR 01950371
199: 0071 CONTINUE 01960371
200: CT008* TEST 8 AN EXPRESSION SUPPLIED TO ALOG10 01970371
201: IVTNUM = 8 01980371
202: AVS = ALOG10(75.0 / 100.0) 01990371
203: IF (AVS + 0.12495E+00) 20080, 10080, 40080 02000371
204: 40080 IF (AVS + 0.12493E+00) 10080, 10080, 20080 02010371
205: 10080 IVPASS = IVPASS + 1 02020371
206: WRITE (NUVI, 80002) IVTNUM 02030371
207: GO TO 0081 02040371
208: 20080 IVFAIL = IVFAIL + 1 02050371
209: RVCORR = -0.12493873660830 02060371
210: WRITE (NUVI, 80012) IVTNUM, AVS, RVCORR 02070371
211: 0081 CONTINUE 02080371
212: CT009* TEST 9 VARIABLES WITHIN AN EXPRESSION 02090371
213: IVTNUM = 9 02100371
214: BVS = 1.0 02110371
215: CVS = 8.0 02120371
216: AVS = ALOG10(7.0 * BVS / CVS) 02130371
217: IF (AVS + 0.57995E-01) 20090, 10090, 40090 02140371
218: 40090 IF (AVS + 0.57989E-01) 10090, 10090, 20090 02150371
219: 10090 IVPASS = IVPASS + 1 02160371
220: WRITE (NUVI, 80002) IVTNUM 02170371
221: GO TO 0091 02180371
222: 20090 IVFAIL = IVFAIL + 1 02190371
223: RVCORR = -0.05799194697769 02200371
224: WRITE (NUVI, 80012) IVTNUM, AVS, RVCORR 02210371
225: 0091 CONTINUE 02220371
226: CT010* TEST 10 A VALUE CLOSE TO ONE 02230371
227: IVTNUM = 10 02240371
228: AVS = ALOG10(0.9921875) 02250371
229: IF (AVS + 0.34065E-02) 20100, 10100, 40100 02260371
230: 40100 IF (AVS + 0.34060E-02) 10100, 10100, 20100 02270371
231: 10100 IVPASS = IVPASS + 1 02280371
232: WRITE (NUVI, 80002) IVTNUM 02290371
233: GO TO 0101 02300371
234: 20100 IVFAIL = IVFAIL + 1 02310371
235: RVCORR = -0.0034062486919115 02320371
236: WRITE (NUVI, 80012) IVTNUM, AVS, RVCORR 02330371
237: 0101 CONTINUE 02340371
238: CT011* TEST 11 A VALUE CLOSE TO ONE 02350371
239: IVTNUM = 11 02360371
240: BVS = 1.0009765625 02370371
241: AVS = ALOG10(BVS) 02380371
242: IF (AVS - 0.42388E-03) 20110, 10110, 40110 02390371
243: 40110 IF (AVS - 0.42393E-03) 10110, 10110, 20110 02400371
244: 10110 IVPASS = IVPASS + 1 02410371
245: WRITE (NUVI, 80002) IVTNUM 02420371
246: GO TO 0111 02430371
247: 20110 IVFAIL = IVFAIL + 1 02440371
248: RVCORR = 0.00042390875196115 02450371
249: WRITE (NUVI, 80012) IVTNUM, AVS, RVCORR 02460371
250: 70111 FORMAT (1H ,16X,34HINFORMATIVE - UNDER REVIEW BY FSTC) 02460*TI
251: WRITE (NUVI,70111) 02460*TI
252: 0111 CONTINUE 02470371
253: CT012* TEST 12 A VALUE CLOSE TO ZERO 02480371
254: IVTNUM = 12 02490371
255: BVS = 256.0 02500371
256: AVS = ALOG10(1.0 / BVS) 02510371
257: IF (AVS + 0.24084E+01) 20120, 10120, 40120 02520371
258: 40120 IF (AVS + 0.24081E+01) 10120, 10120, 20120 02530371
259: 10120 IVPASS = IVPASS + 1 02540371
260: WRITE (NUVI, 80002) IVTNUM 02550371
261: GO TO 0121 02560371
262: 20120 IVFAIL = IVFAIL + 1 02570371
263: RVCORR = -2.40823996531185 02580371
264: WRITE (NUVI, 80012) IVTNUM, AVS, RVCORR 02590371
265: 0121 CONTINUE 02600371
266: CT013* TEST 13 A VALUE CLOSE TO ZERO 02610371
267: IVTNUM = 13 02620371
268: BVS = 128.0 02630371
269: AVS = ALOG10(1.0 / (BVS * 8.0)) 02640371
270: IF (AVS + 0.30105E+01) 20130, 10130, 40130 02650371
271: 40130 IF (AVS + 0.30101E+01) 10130, 10130, 20130 02660371
272: 10130 IVPASS = IVPASS + 1 02670371
273: WRITE (NUVI, 80002) IVTNUM 02680371
274: GO TO 0131 02690371
275: 20130 IVFAIL = IVFAIL + 1 02700371
276: RVCORR = -3.01029995663981 02710371
277: WRITE (NUVI, 80012) IVTNUM, AVS, RVCORR 02720371
278: 0131 CONTINUE 02730371
279: CT014* TEST 14 AN ARGUMENT OF HIGH MAGNITUDE 02740371
280: IVTNUM = 14 02750371
281: BVS = 2.0E+35 02760371
282: AVS = ALOG10(BVS) 02770371
283: IF (AVS - 0.35299E+02) 20140, 10140, 40140 02780371
284: 40140 IF (AVS - 0.35303E+02) 10140, 10140, 20140 02790371
285: 10140 IVPASS = IVPASS + 1 02800371
286: WRITE (NUVI, 80002) IVTNUM 02810371
287: GO TO 0141 02820371
288: 20140 IVFAIL = IVFAIL + 1 02830371
289: RVCORR = 35.30102999566398 02840371
290: WRITE (NUVI, 80012) IVTNUM, AVS, RVCORR 02850371
291: 0141 CONTINUE 02860371
292: CT015* TEST 15 AN ARGUMENT OF LOW MAGNITUDE 02870371
293: IVTNUM = 15 02880371
294: BVS = 2.0E-35 02890371
295: AVS = ALOG10(BVS) 02900371
296: IF (AVS + 0.34701E+02) 20150, 10150, 40150 02910371
297: 40150 IF (AVS + 0.34697E+02) 10150, 10150, 20150 02920371
298: 10150 IVPASS = IVPASS + 1 02930371
299: WRITE (NUVI, 80002) IVTNUM 02940371
300: GO TO 0151 02950371
301: 20150 IVFAIL = IVFAIL + 1 02960371
302: RVCORR = -34.69897000433602 02970371
303: WRITE (NUVI, 80012) IVTNUM, AVS, RVCORR 02980371
304: 0151 CONTINUE 02990371
305: CT016* TEST 16 THE FUNCTION APPLIED TWICE 03000371
306: IVTNUM = 16 03010371
307: AVS = ALOG10(20.0) - ALOG10(2.0) 03020371
308: IF (AVS - 0.99995E+00) 20160, 10160, 40160 03030371
309: 40160 IF (AVS - 0.10001E+01) 10160, 10160, 20160 03040371
310: 10160 IVPASS = IVPASS + 1 03050371
311: WRITE (NUVI, 80002) IVTNUM 03060371
312: GO TO 0161 03070371
313: 20160 IVFAIL = IVFAIL + 1 03080371
314: RVCORR = 1.0000000 03090371
315: WRITE (NUVI, 80012) IVTNUM, AVS, RVCORR 03100371
316: 0161 CONTINUE 03110371
317: C***** 03120371
318: CBB** ********************** BBCSUM0 **********************************03130371
319: C**** WRITE OUT TEST SUMMARY 03140371
320: C**** 03150371
321: IVTOTN = IVPASS + IVFAIL + IVDELE + IVINSP 03160371
322: WRITE (I02, 90004) 03170371
323: WRITE (I02, 90014) 03180371
324: WRITE (I02, 90004) 03190371
325: WRITE (I02, 90020) IVPASS 03200371
326: WRITE (I02, 90022) IVFAIL 03210371
327: WRITE (I02, 90024) IVDELE 03220371
328: WRITE (I02, 90026) IVINSP 03230371
329: WRITE (I02, 90028) IVTOTN, IVTOTL 03240371
330: CBE** ********************** BBCSUM0 **********************************03250371
331: CBB** ********************** BBCFOOT0 **********************************03260371
332: C**** WRITE OUT REPORT FOOTINGS 03270371
333: C**** 03280371
334: WRITE (I02,90016) ZPROG, ZPROG 03290371
335: WRITE (I02,90018) ZPROJ, ZNAME, ZTAPE, ZTAPED 03300371
336: WRITE (I02,90019) 03310371
337: CBE** ********************** BBCFOOT0 **********************************03320371
338: CBB** ********************** BBCFMT0A **********************************03330371
339: C**** FORMATS FOR TEST DETAIL LINES 03340371
340: C**** 03350371
341: 80000 FORMAT (1H ,2X,I3,4X,7HDELETED,32X,A31) 03360371
342: 80002 FORMAT (1H ,2X,I3,4X,7H PASS ,32X,A31) 03370371
343: 80004 FORMAT (1H ,2X,I3,4X,7HINSPECT,32X,A31) 03380371
344: 80008 FORMAT (1H ,2X,I3,4X,7H FAIL ,32X,A31) 03390371
345: 80010 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,15X,10HCOMPUTED= , 03400371
346: 1I6,/,1H ,15X,10HCORRECT= ,I6) 03410371
347: 80012 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 03420371
348: 1E12.5,/,1H ,16X,10HCORRECT= ,E12.5) 03430371
349: 80018 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 03440371
350: 1A21,/,1H ,16X,10HCORRECT= ,A21) 03450371
351: 80020 FORMAT (1H ,16X,10HCOMPUTED= ,A21,1X,A31) 03460371
352: 80022 FORMAT (1H ,16X,10HCORRECT= ,A21,1X,A31) 03470371
353: 80024 FORMAT (1H ,16X,10HCOMPUTED= ,I6,16X,A31) 03480371
354: 80026 FORMAT (1H ,16X,10HCORRECT= ,I6,16X,A31) 03490371
355: 80028 FORMAT (1H ,16X,10HCOMPUTED= ,E12.5,10X,A31) 03500371
356: 80030 FORMAT (1H ,16X,10HCORRECT= ,E12.5,10X,A31) 03510371
357: 80050 FORMAT (1H ,48X,A31) 03520371
358: CBE** ********************** BBCFMT0A **********************************03530371
359: CBB** ********************** BBCFMT0B **********************************03540371
360: C**** FORMAT STATEMENTS FOR PAGE HEADERS 03550371
361: C**** 03560371
362: 90002 FORMAT (1H1) 03570371
363: 90004 FORMAT (1H ) 03580371
364: 90006 FORMAT (1H ,20X,31HFEDERAL SOFTWARE TESTING CENTER) 03590371
365: 90007 FORMAT (1H ,19X,34HFORTRAN COMPILER VALIDATION SYSTEM) 03600371
366: 90008 FORMAT (1H ,21X,A13,A17) 03610371
367: 90009 FORMAT (1H ,/,2H *,A5,6HBEGIN*,12X,15HTEST RESULTS - ,A5,/) 03620371
368: 90010 FORMAT (1H ,8X,16HTEST DATE*TIME= ,A17,15H - COMPILER= ,A20) 03630371
369: 90013 FORMAT (1H ,8H TEST ,10HPASS/FAIL ,6X,17HDISPLAYED RESULTS, 03640371
370: 1 7X,7HREMARKS,24X) 03650371
371: 90014 FORMAT (1H ,46H----------------------------------------------, 03660371
372: 1 33H---------------------------------) 03670371
373: 90015 FORMAT (1H ,48X,17HTHIS PROGRAM HAS ,I3,6H TESTS,/) 03680371
374: C**** 03690371
375: C**** FORMAT STATEMENTS FOR REPORT FOOTINGS 03700371
376: C**** 03710371
377: 90016 FORMAT (1H ,/,2H *,A5,4HEND*,14X,14HEND OF TEST - ,A5,/) 03720371
378: 90018 FORMAT (1H ,A13,13X,A20,7H * ,A10,1H/, 03730371
379: 1 A13) 03740371
380: 90019 FORMAT (1H ,26HFOR OFFICIAL USE ONLY ,35X,15HCOPYRIGHT 1982) 03750371
381: C**** 03760371
382: C**** FORMAT STATEMENTS FOR RUN SUMMARY 03770371
383: C**** 03780371
384: 90020 FORMAT (1H ,21X,I5,13H TESTS PASSED) 03790371
385: 90022 FORMAT (1H ,21X,I5,13H TESTS FAILED) 03800371
386: 90024 FORMAT (1H ,21X,I5,14H TESTS DELETED) 03810371
387: 90026 FORMAT (1H ,21X,I5,25H TESTS REQUIRE INSPECTION) 03820371
388: 90028 FORMAT (1H ,21X,I5,4H OF ,I3,15H TESTS EXECUTED) 03830371
389: CBE** ********************** BBCFMT0B **********************************03840371
390: C***** 03850371
391: C***** END OF TEST SEGMENT 184 03860371
392: STOP 03870371
393: END 03880371
394: 03890371
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.