![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to FM823.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 FM823.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***********************************************************************00010823
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 00020823
6: C***** FM823 00030823
7: C***** YDASIN - (194) 00040823
8: C***** 00050823
9: C***********************************************************************00060823
10: C***** GENERAL PURPOSE ANS REF 00070823
11: C***** TEST INTRINSIC FUNCTION DASIN, DACOS 15.3 00080823
12: C***** TABLE 5 00090823
13: C***** 00100823
14: CBB** ********************** BBCCOMNT **********************************00110823
15: C**** 00120823
16: C**** 1978 FORTRAN COMPILER VALIDATION SYSTEM 00130823
17: C**** VERSION 2.0 00140823
18: C**** 00150823
19: C**** 00160823
20: C**** SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00170823
21: C**** GENERAL SERVICES ADMINISTRATION 00180823
22: C**** FEDERAL SOFTWARE TESTING CENTER 00190823
23: C**** 5203 LEESBURG PIKE, SUITE 1100 00200823
24: C**** FALLS CHURCH, VA. 22041 00210823
25: C**** 00220823
26: C**** (703) 756-6153 00230823
27: C**** 00240823
28: CBE** ********************** BBCCOMNT **********************************00250823
29: C***** 00260823
30: C***** S P E C I F I C A T I O N S SEGMENT 194 00270823
31: DOUBLE PRECISION AVD, BVD, CVD, DVCORR 00280823
32: C***** 00290823
33: CBB** ********************** BBCINITA **********************************00300823
34: C**** SPECIFICATION STATEMENTS 00310823
35: C**** 00320823
36: CHARACTER ZVERS*13, ZVERSD*17, ZDATE*17, ZPROG*5, ZCOMPL*20, 00330823
37: 1 ZNAME*20, ZTAPE*10, ZPROJ*13, REMRKS*31, ZTAPED*13 00340823
38: CBE** ********************** BBCINITA **********************************00350823
39: CBB** ********************** BBCINITB **********************************00360823
40: C**** INITIALIZE SECTION 00370823
41: DATA ZVERS, ZVERSD, ZDATE 00380823
42: 1 /'VERSION 2.0 ', '82/08/02*18.33.46', '*NO DATE*TIME'/ 00390823
43: DATA ZCOMPL, ZNAME, ZTAPE 00400823
44: 1 /'*NONE SPECIFIED*', '*NO COMPANY NAME*', '*NO TAPE*'/ 00410823
45: DATA ZPROJ, ZTAPED, ZPROG 00420823
46: 1 /'*NO PROJECT*', '*NO TAPE DATE', 'XXXXX'/ 00430823
47: DATA REMRKS /' '/ 00440823
48: C**** THE FOLLOWING 9 COMMENT LINES (CZ01, CZ02, ...) CAN BE REPLACED 00450823
49: C**** FOR IDENTIFYING THE TEST ENVIRONMENT 00460823
50: C**** 00470823
51: CZ01 ZVERS = 'VERSION OF THE COMPILER VALIDATION SYSTEM' 00480823
52: CZ02 ZVERSD = 'CREATION DATE/TIME OF THE COMPILER VALIDATION SYSTEM' 00490823
53: CZ03 ZPROG = 'PROGRAM NAME' 00500823
54: ZDATE = '07-Nov-85 ' *RP
55: ZCOMPL = 'CCI 5.2 ' *RP
56: ZPROJ = 'TC-85- -410' *RP
57: ZNAME = ' ' *RP
58: ZTAPE = ' ' *RP
59: ZTAPED = '850703 ' *RP
60: C 00570823
61: IVPASS = 0 00580823
62: IVFAIL = 0 00590823
63: IVDELE = 0 00600823
64: IVINSP = 0 00610823
65: IVTOTL = 0 00620823
66: IVTOTN = 0 00630823
67: ICZERO = 0 00640823
68: C 00650823
69: C I01 CONTAINS THE LOGICAL UNIT NUMBER FOR THE CARD READER. 00660823
70: I01 = 05 00670823
71: C I02 CONTAINS THE LOGICAL UNIT NUMBER FOR THE PRINTER. 00680823
72: I02 = 06 00690823
73: C 00700823
74: I01 = 5 00710823
75: C THE CX010 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I01 = 5 00720823
76: CX011 REPLACED BY FEXEC X-011 CONTROL CARD. CX011 IS FOR SYSTEMS 00730823
77: C REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX010. 00740823
78: C 00750823
79: I02 = 6 00760823
80: C THE CX020 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I02= 6 00770823
81: CX021 REPLACED BY FEXEC X-021 CONTROL CARD. CX021 IS FOR SYSTEMS 00780823
82: C REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX020. 00790823
83: C 00800823
84: CBE** ********************** BBCINITB **********************************00810823
85: NUVI = I02 00820823
86: IVTOTL = 12 00830823
87: ZPROG = 'FM823' 00840823
88: CBB** ********************** BBCHED0A **********************************00850823
89: C**** 00860823
90: C**** WRITE REPORT TITLE 00870823
91: C**** 00880823
92: WRITE (I02, 90002) 00890823
93: WRITE (I02, 90006) 00900823
94: WRITE (I02, 90007) 00910823
95: WRITE (I02, 90008) ZVERS, ZVERSD 00920823
96: WRITE (I02, 90009) ZPROG, ZPROG 00930823
97: WRITE (I02, 90010) ZDATE, ZCOMPL 00940823
98: CBE** ********************** BBCHED0A **********************************00950823
99: C***** 00960823
100: C***** HEADER FOR SEGMENT 194 00970823
101: WRITE(NUVI,19400) 00980823
102: 19400 FORMAT(1H , / 36H YDASIN - (194) INTRINSIC FUNCTIONS// 00990823
103: 1 52H DASIN, DACOS (DOUBLE PRECISION ARCSINE, ARCCOSINE)//01000823
104: 2 17H ANS REF. - 15.3) 01010823
105: CBB** ********************** BBCHED0B **********************************01020823
106: C**** WRITE DETAIL REPORT HEADERS 01030823
107: C**** 01040823
108: WRITE (I02,90004) 01050823
109: WRITE (I02,90004) 01060823
110: WRITE (I02,90013) 01070823
111: WRITE (I02,90014) 01080823
112: WRITE (I02,90015) IVTOTL 01090823
113: CBE** ********************** BBCHED0B **********************************01100823
114: C***** 01110823
115: WRITE(NUVI,19401) 01120823
116: 19401 FORMAT(1H0,8X,13HTEST OF DASIN) 01130823
117: C***** 01140823
118: CT001* TEST 1 -1.0D0 FOR PRINCIPAL VALUE AT ENDPOINTS 01150823
119: IVTNUM = 1 01160823
120: BVD = -1.0D0 01170823
121: AVD = DASIN(BVD) 01180823
122: IF (AVD + 0.1570796328D+01) 20010, 10010, 40010 01190823
123: 40010 IF (AVD + 0.1570796326D+01) 10010, 10010, 20010 01200823
124: 10010 IVPASS = IVPASS + 1 01210823
125: WRITE (NUVI, 80002) IVTNUM 01220823
126: GO TO 0011 01230823
127: 20010 IVFAIL = IVFAIL + 1 01240823
128: DVCORR = -1.5707963267948966192D+00 01250823
129: WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 01260823
130: 0011 CONTINUE 01270823
131: CT002* TEST 2 +1.0D0 FOR PRINCIPAL VALUE AT ENDPOINTS 01280823
132: IVTNUM = 2 01290823
133: AVD = DASIN(1.0D0) 01300823
134: IF (AVD - 0.1570796326D+01) 20020, 10020, 40020 01310823
135: 40020 IF (AVD - 0.1570796328D+01) 10020, 10020, 20020 01320823
136: 10020 IVPASS = IVPASS + 1 01330823
137: WRITE (NUVI, 80002) IVTNUM 01340823
138: GO TO 0021 01350823
139: 20020 IVFAIL = IVFAIL + 1 01360823
140: DVCORR = 1.5707963267948966192D+00 01370823
141: WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 01380823
142: 0021 CONTINUE 01390823
143: CT003* TEST 3 THE VALUE -DSQRT(0.5D0) 01400823
144: IVTNUM = 3 01410823
145: BVD = -(DSQRT(2.0D0) / 2.0D0) 01420823
146: AVD = DASIN(BVD) 01430823
147: IF (AVD + 0.7853981638D+00) 20030, 10030, 40030 01440823
148: 40030 IF (AVD + 0.7853981630D+00) 10030, 10030, 20030 01450823
149: 10030 IVPASS = IVPASS + 1 01460823
150: WRITE (NUVI, 80002) IVTNUM 01470823
151: GO TO 0031 01480823
152: 20030 IVFAIL = IVFAIL + 1 01490823
153: DVCORR = -0.78539816339744830962D+00 01500823
154: WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 01510823
155: 0031 CONTINUE 01520823
156: CT004* TEST 4 THE VALUE 0.5D0 01530823
157: IVTNUM = 4 01540823
158: AVD = DASIN(1.0D0 / 2.0D0) 01550823
159: IF (AVD - 0.5235987753D+00) 20040, 10040, 40040 01560823
160: 40040 IF (AVD - 0.5235987759D+00) 10040, 10040, 20040 01570823
161: 10040 IVPASS = IVPASS + 1 01580823
162: WRITE (NUVI, 80002) IVTNUM 01590823
163: GO TO 0041 01600823
164: 20040 IVFAIL = IVFAIL + 1 01610823
165: DVCORR = 0.52359877559829887308D+00 01620823
166: WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 01630823
167: 0041 CONTINUE 01640823
168: CT005* TEST 5 AN ARGUMENT OF LOW MAGNITUDE 01650823
169: IVTNUM = 5 01660823
170: AVD = DASIN(-1.0D-13) 01670823
171: IF (AVD + 0.1000000001D-12) 20050, 10050, 40050 01680823
172: 40050 IF (AVD + 0.9999999995D-13) 10050, 10050, 20050 01690823
173: 10050 IVPASS = IVPASS + 1 01700823
174: WRITE (NUVI, 80002) IVTNUM 01710823
175: GO TO 0051 01720823
176: 20050 IVFAIL = IVFAIL + 1 01730823
177: DVCORR = -1.0000000000000000000D-13 01740823
178: WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 01750823
179: 0051 CONTINUE 01760823
180: C***** 01770823
181: WRITE(NUVI,19407) 01780823
182: 19407 FORMAT(1H0,8X,13HTEST OF DACOS) 01790823
183: C***** 01800823
184: CT006* TEST 6 -1.0D0 FOR PRINCIPAL VALUE AT ENDPOINTS 01810823
185: IVTNUM = 6 01820823
186: BVD = -1.0D0 01830823
187: AVD = DACOS(BVD) 01840823
188: IF (AVD - 0.3141592652D+01) 20060, 10060, 40060 01850823
189: 40060 IF (AVD - 0.3141592655D+01) 10060, 10060, 20060 01860823
190: 10060 IVPASS = IVPASS + 1 01870823
191: WRITE (NUVI, 80002) IVTNUM 01880823
192: GO TO 0061 01890823
193: 20060 IVFAIL = IVFAIL + 1 01900823
194: DVCORR = 3.1415926535897932384D+00 01910823
195: WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 01920823
196: 0061 CONTINUE 01930823
197: CT007* TEST 7 +1.0D0 TO TEST PRINCIPAL VALUE AT ENDPOINTS 01940823
198: IVTNUM = 7 01950823
199: AVD = DACOS(1.0D0) 01960823
200: IF (AVD + 0.5000000000D-09) 20070, 10070, 40070 01970823
201: 40070 IF (AVD - 0.5000000000D-09) 10070, 10070, 20070 01980823
202: 10070 IVPASS = IVPASS + 1 01990823
203: WRITE (NUVI, 80002) IVTNUM 02000823
204: GO TO 0071 02010823
205: 20070 IVFAIL = IVFAIL + 1 02020823
206: DVCORR = 0.00000000000000000000D+00 02030823
207: WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 02040823
208: 0071 CONTINUE 02050823
209: CT008* TEST 8 THE VALUE -DSQRT(0.5D0) 02060823
210: IVTNUM = 8 02070823
211: BVD = -(DSQRT(2.0D0) / 2.0D0) 02080823
212: AVD = DACOS(BVD) 02090823
213: IF (AVD - 0.2356194489D+01) 20080, 10080, 40080 02100823
214: 40080 IF (AVD - 0.2356194492D+01) 10080, 10080, 20080 02110823
215: 10080 IVPASS = IVPASS + 1 02120823
216: WRITE (NUVI, 80002) IVTNUM 02130823
217: GO TO 0081 02140823
218: 20080 IVFAIL = IVFAIL + 1 02150823
219: DVCORR = 2.3561944901923449288D+00 02160823
220: WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 02170823
221: 0081 CONTINUE 02180823
222: CT009* TEST 9 THE VALUE 0.5D0 02190823
223: IVTNUM = 9 02200823
224: AVD = DACOS(1.0D0 / 2.0D0) 02210823
225: IF (AVD - 0.1047197550D+01) 20090, 10090, 40090 02220823
226: 40090 IF (AVD - 0.1047197552D+01) 10090, 10090, 20090 02230823
227: 10090 IVPASS = IVPASS + 1 02240823
228: WRITE (NUVI, 80002) IVTNUM 02250823
229: GO TO 0091 02260823
230: 20090 IVFAIL = IVFAIL + 1 02270823
231: DVCORR = 1.0471975511965977461D+00 02280823
232: WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 02290823
233: 0091 CONTINUE 02300823
234: CT010* TEST 10 AN ARGUMENT OF LOW MAGNITUDE 02310823
235: IVTNUM = 10 02320823
236: AVD = DACOS(-1.0D-33) 02330823
237: IF (AVD - 0.1570796326D+01) 20100, 10100, 40100 02340823
238: 40100 IF (AVD - 0.1570796328D+01) 10100, 10100, 20100 02350823
239: 10100 IVPASS = IVPASS + 1 02360823
240: WRITE (NUVI, 80002) IVTNUM 02370823
241: GO TO 0101 02380823
242: 20100 IVFAIL = IVFAIL + 1 02390823
243: DVCORR = 1.5707963267948966192D+00 02400823
244: WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 02410823
245: 0101 CONTINUE 02420823
246: CT011* TEST 11 COMPARISON OF DASIN AND DACOS FOR RIGHT RELATIONSHIP 02430823
247: IVTNUM = 11 02440823
248: BVD = DASIN(DSQRT(3.0D0) / 3.0D0) 02450823
249: CVD = DACOS(DSQRT(3.0D0) / 3.0D0) 02460823
250: AVD = (BVD + CVD) * 2.0D0 02470823
251: IF (AVD - 0.3141592652D+01) 20110, 10110, 40110 02480823
252: 40110 IF (AVD - 0.3141592655D+01) 10110, 10110, 20110 02490823
253: 10110 IVPASS = IVPASS + 1 02500823
254: WRITE (NUVI, 80002) IVTNUM 02510823
255: GO TO 0111 02520823
256: 20110 IVFAIL = IVFAIL + 1 02530823
257: DVCORR = 3.1415926535897932384D+00 02540823
258: WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 02550823
259: 0111 CONTINUE 02560823
260: CT012* TEST 12 COMPARISON OF DASIN AND DACOS TO TEST RELATIONSHIP 02570823
261: IVTNUM = 12 02580823
262: AVD = (DASIN(+0.25D0) + DACOS(+0.25D0)) * 2.0D0 02590823
263: IF (AVD - 0.3141592652D+01) 20120, 10120, 40120 02600823
264: 40120 IF (AVD - 0.3141592655D+01) 10120, 10120, 20120 02610823
265: 10120 IVPASS = IVPASS + 1 02620823
266: WRITE (NUVI, 80002) IVTNUM 02630823
267: GO TO 0121 02640823
268: 20120 IVFAIL = IVFAIL + 1 02650823
269: DVCORR = 3.1415926535897932384D+00 02660823
270: WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 02670823
271: 0121 CONTINUE 02680823
272: C***** 02690823
273: CBB** ********************** BBCSUM0 **********************************02700823
274: C**** WRITE OUT TEST SUMMARY 02710823
275: C**** 02720823
276: IVTOTN = IVPASS + IVFAIL + IVDELE + IVINSP 02730823
277: WRITE (I02, 90004) 02740823
278: WRITE (I02, 90014) 02750823
279: WRITE (I02, 90004) 02760823
280: WRITE (I02, 90020) IVPASS 02770823
281: WRITE (I02, 90022) IVFAIL 02780823
282: WRITE (I02, 90024) IVDELE 02790823
283: WRITE (I02, 90026) IVINSP 02800823
284: WRITE (I02, 90028) IVTOTN, IVTOTL 02810823
285: CBE** ********************** BBCSUM0 **********************************02820823
286: CBB** ********************** BBCFOOT0 **********************************02830823
287: C**** WRITE OUT REPORT FOOTINGS 02840823
288: C**** 02850823
289: WRITE (I02,90016) ZPROG, ZPROG 02860823
290: WRITE (I02,90018) ZPROJ, ZNAME, ZTAPE, ZTAPED 02870823
291: WRITE (I02,90019) 02880823
292: CBE** ********************** BBCFOOT0 **********************************02890823
293: CBB** ********************** BBCFMT0A **********************************02900823
294: C**** FORMATS FOR TEST DETAIL LINES 02910823
295: C**** 02920823
296: 80000 FORMAT (1H ,2X,I3,4X,7HDELETED,32X,A31) 02930823
297: 80002 FORMAT (1H ,2X,I3,4X,7H PASS ,32X,A31) 02940823
298: 80004 FORMAT (1H ,2X,I3,4X,7HINSPECT,32X,A31) 02950823
299: 80008 FORMAT (1H ,2X,I3,4X,7H FAIL ,32X,A31) 02960823
300: 80010 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,15X,10HCOMPUTED= , 02970823
301: 1I6,/,1H ,15X,10HCORRECT= ,I6) 02980823
302: 80012 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 02990823
303: 1E12.5,/,1H ,16X,10HCORRECT= ,E12.5) 03000823
304: 80018 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 03010823
305: 1A21,/,1H ,16X,10HCORRECT= ,A21) 03020823
306: 80020 FORMAT (1H ,16X,10HCOMPUTED= ,A21,1X,A31) 03030823
307: 80022 FORMAT (1H ,16X,10HCORRECT= ,A21,1X,A31) 03040823
308: 80024 FORMAT (1H ,16X,10HCOMPUTED= ,I6,16X,A31) 03050823
309: 80026 FORMAT (1H ,16X,10HCORRECT= ,I6,16X,A31) 03060823
310: 80028 FORMAT (1H ,16X,10HCOMPUTED= ,E12.5,10X,A31) 03070823
311: 80030 FORMAT (1H ,16X,10HCORRECT= ,E12.5,10X,A31) 03080823
312: 80050 FORMAT (1H ,48X,A31) 03090823
313: CBE** ********************** BBCFMT0A **********************************03100823
314: CBB** ********************** BBCFMAT1 **********************************03110823
315: C**** FORMATS FOR TEST DETAIL LINES - FULL LANGUAGE 03120823
316: C**** 03130823
317: 80031 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 03140823
318: 1D17.10,/,1H ,16X,10HCORRECT= ,D17.10) 03150823
319: 80033 FORMAT (1H ,16X,10HCOMPUTED= ,D17.10,10X,A31) 03160823
320: 80035 FORMAT (1H ,16X,10HCORRECT= ,D17.10,10X,A31) 03170823
321: 80037 FORMAT (1H ,16X,10HCOMPUTED= ,1H(,E12.5,2H, ,E12.5,1H),6X,A31) 03180823
322: 80039 FORMAT (1H ,16X,10HCORRECT= ,1H(,E12.5,2H, ,E12.5,1H),6X,A31) 03190823
323: 80041 FORMAT (1H ,16X,10HCOMPUTED= ,1H(,F12.5,2H, ,F12.5,1H),6X,A31) 03200823
324: 80043 FORMAT (1H ,16X,10HCORRECT= ,1H(,F12.5,2H, ,F12.5,1H),6X,A31) 03210823
325: 80045 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 03220823
326: 11H(,F12.5,2H, ,F12.5,1H)/,1H ,16X,10HCORRECT= , 03230823
327: 21H(,F12.5,2H, ,F12.5,1H)) 03240823
328: CBE** ********************** BBCFMAT1 **********************************03250823
329: CBB** ********************** BBCFMT0B **********************************03260823
330: C**** FORMAT STATEMENTS FOR PAGE HEADERS 03270823
331: C**** 03280823
332: 90002 FORMAT (1H1) 03290823
333: 90004 FORMAT (1H ) 03300823
334: 90006 FORMAT (1H ,20X,31HFEDERAL SOFTWARE TESTING CENTER) 03310823
335: 90007 FORMAT (1H ,19X,34HFORTRAN COMPILER VALIDATION SYSTEM) 03320823
336: 90008 FORMAT (1H ,21X,A13,A17) 03330823
337: 90009 FORMAT (1H ,/,2H *,A5,6HBEGIN*,12X,15HTEST RESULTS - ,A5,/) 03340823
338: 90010 FORMAT (1H ,8X,16HTEST DATE*TIME= ,A17,15H - COMPILER= ,A20) 03350823
339: 90013 FORMAT (1H ,8H TEST ,10HPASS/FAIL ,6X,17HDISPLAYED RESULTS, 03360823
340: 1 7X,7HREMARKS,24X) 03370823
341: 90014 FORMAT (1H ,46H----------------------------------------------, 03380823
342: 1 33H---------------------------------) 03390823
343: 90015 FORMAT (1H ,48X,17HTHIS PROGRAM HAS ,I3,6H TESTS,/) 03400823
344: C**** 03410823
345: C**** FORMAT STATEMENTS FOR REPORT FOOTINGS 03420823
346: C**** 03430823
347: 90016 FORMAT (1H ,/,2H *,A5,4HEND*,14X,14HEND OF TEST - ,A5,/) 03440823
348: 90018 FORMAT (1H ,A13,13X,A20,7H * ,A10,1H/, 03450823
349: 1 A13) 03460823
350: 90019 FORMAT (1H ,26HFOR OFFICIAL USE ONLY ,35X,15HCOPYRIGHT 1982) 03470823
351: C**** 03480823
352: C**** FORMAT STATEMENTS FOR RUN SUMMARY 03490823
353: C**** 03500823
354: 90020 FORMAT (1H ,21X,I5,13H TESTS PASSED) 03510823
355: 90022 FORMAT (1H ,21X,I5,13H TESTS FAILED) 03520823
356: 90024 FORMAT (1H ,21X,I5,14H TESTS DELETED) 03530823
357: 90026 FORMAT (1H ,21X,I5,25H TESTS REQUIRE INSPECTION) 03540823
358: 90028 FORMAT (1H ,21X,I5,4H OF ,I3,15H TESTS EXECUTED) 03550823
359: CBE** ********************** BBCFMT0B **********************************03560823
360: C***** 03570823
361: C***** END OF TEST SEGMENT 194 03580823
362: STOP 03590823
363: END 03600823
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.