![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to FM833.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 FM833.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***********************************************************************00010833
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 00020833
6: C***** FM833 00030833
7: C***** YGEN6 - (211) 00040833
8: C***** 00050833
9: C***********************************************************************00060833
10: C***** GENERAL PURPOSE ANS REF 00070833
11: C***** TEST GENERIC FUNCTIONS 15.3 00080833
12: C***** SPECIFIC AND GENERIC NAME OF SAME FUNCTION WITH TABLE 5 00090833
13: C***** SAME TYPE OF ARGUMENT IN A STATEMENT 00100833
14: C***** 00110833
15: CBB** ********************** BBCCOMNT **********************************00120833
16: C**** 00130833
17: C**** 1978 FORTRAN COMPILER VALIDATION SYSTEM 00140833
18: C**** VERSION 2.0 00150833
19: C**** 00160833
20: C**** 00170833
21: C**** SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00180833
22: C**** GENERAL SERVICES ADMINISTRATION 00190833
23: C**** FEDERAL SOFTWARE TESTING CENTER 00200833
24: C**** 5203 LEESBURG PIKE, SUITE 1100 00210833
25: C**** FALLS CHURCH, VA. 22041 00220833
26: C**** 00230833
27: C**** (703) 756-6153 00240833
28: C**** 00250833
29: CBE** ********************** BBCCOMNT **********************************00260833
30: C***** 00270833
31: C***** S P E C I F I C A T I O N S SEGMENT 211 00280833
32: DOUBLE PRECISION AVD, BVD, CVD, DVCORR 00290833
33: COMPLEX AVC, BVC, ZVCORR 00300833
34: REAL R2E(2) 00310833
35: EQUIVALENCE (AVC, R2E) 00320833
36: C***** 00330833
37: CBB** ********************** BBCINITA **********************************00340833
38: C**** SPECIFICATION STATEMENTS 00350833
39: C**** 00360833
40: CHARACTER ZVERS*13, ZVERSD*17, ZDATE*17, ZPROG*5, ZCOMPL*20, 00370833
41: 1 ZNAME*20, ZTAPE*10, ZPROJ*13, REMRKS*31, ZTAPED*13 00380833
42: CBE** ********************** BBCINITA **********************************00390833
43: CBB** ********************** BBCINITB **********************************00400833
44: C**** INITIALIZE SECTION 00410833
45: DATA ZVERS, ZVERSD, ZDATE 00420833
46: 1 /'VERSION 2.0 ', '82/08/02*18.33.46', '*NO DATE*TIME'/ 00430833
47: DATA ZCOMPL, ZNAME, ZTAPE 00440833
48: 1 /'*NONE SPECIFIED*', '*NO COMPANY NAME*', '*NO TAPE*'/ 00450833
49: DATA ZPROJ, ZTAPED, ZPROG 00460833
50: 1 /'*NO PROJECT*', '*NO TAPE DATE', 'XXXXX'/ 00470833
51: DATA REMRKS /' '/ 00480833
52: C**** THE FOLLOWING 9 COMMENT LINES (CZ01, CZ02, ...) CAN BE REPLACED 00490833
53: C**** FOR IDENTIFYING THE TEST ENVIRONMENT 00500833
54: C**** 00510833
55: CZ01 ZVERS = 'VERSION OF THE COMPILER VALIDATION SYSTEM' 00520833
56: CZ02 ZVERSD = 'CREATION DATE/TIME OF THE COMPILER VALIDATION SYSTEM' 00530833
57: CZ03 ZPROG = 'PROGRAM NAME' 00540833
58: ZDATE = '07-Nov-85 ' *RP
59: ZCOMPL = 'CCI 5.2 ' *RP
60: ZPROJ = 'TC-85- -410' *RP
61: ZNAME = ' ' *RP
62: ZTAPE = ' ' *RP
63: ZTAPED = '850703 ' *RP
64: C 00610833
65: IVPASS = 0 00620833
66: IVFAIL = 0 00630833
67: IVDELE = 0 00640833
68: IVINSP = 0 00650833
69: IVTOTL = 0 00660833
70: IVTOTN = 0 00670833
71: ICZERO = 0 00680833
72: C 00690833
73: C I01 CONTAINS THE LOGICAL UNIT NUMBER FOR THE CARD READER. 00700833
74: I01 = 05 00710833
75: C I02 CONTAINS THE LOGICAL UNIT NUMBER FOR THE PRINTER. 00720833
76: I02 = 06 00730833
77: C 00740833
78: I01 = 5 00750833
79: C THE CX010 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I01 = 5 00760833
80: CX011 REPLACED BY FEXEC X-011 CONTROL CARD. CX011 IS FOR SYSTEMS 00770833
81: C REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX010. 00780833
82: C 00790833
83: I02 = 6 00800833
84: C THE CX020 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I02= 6 00810833
85: CX021 REPLACED BY FEXEC X-021 CONTROL CARD. CX021 IS FOR SYSTEMS 00820833
86: C REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX020. 00830833
87: C 00840833
88: CBE** ********************** BBCINITB **********************************00850833
89: NUVI = I02 00860833
90: IVTOTL = 11 00870833
91: ZPROG = 'FM833' 00880833
92: CBB** ********************** BBCHED0A **********************************00890833
93: C**** 00900833
94: C**** WRITE REPORT TITLE 00910833
95: C**** 00920833
96: WRITE (I02, 90002) 00930833
97: WRITE (I02, 90006) 00940833
98: WRITE (I02, 90007) 00950833
99: WRITE (I02, 90008) ZVERS, ZVERSD 00960833
100: WRITE (I02, 90009) ZPROG, ZPROG 00970833
101: WRITE (I02, 90010) ZDATE, ZCOMPL 00980833
102: CBE** ********************** BBCHED0A **********************************00990833
103: C***** 01000833
104: C***** HEADER FOR SEGMENT 211 01010833
105: WRITE(NUVI,21100) 01020833
106: 21100 FORMAT( 1H , / 35H YGEN6 - (211) GENERIC FUNCTIONS --// 01030833
107: 1 59H SPECIFIC AND GENERIC NAME OF SAME FUNCTION IN A STATEMENT//01040833
108: 2 17H ANS REF. - 15.3) 01050833
109: CBB** ********************** BBCHED0B **********************************01060833
110: C**** WRITE DETAIL REPORT HEADERS 01070833
111: C**** 01080833
112: WRITE (I02,90004) 01090833
113: WRITE (I02,90004) 01100833
114: WRITE (I02,90013) 01110833
115: WRITE (I02,90014) 01120833
116: WRITE (I02,90015) IVTOTL 01130833
117: CBE** ********************** BBCHED0B **********************************01140833
118: C***** 01150833
119: CT001* TEST 1 TEST OF ISIGN AND SIGN WITH INTEGER 01160833
120: IVTNUM = 1 01170833
121: KVI = 5 01180833
122: JVI = -3 01190833
123: LVI = ISIGN(KVI, JVI) - SIGN(KVI, JVI) 01200833
124: IF (LVI - 0) 20010, 10010, 20010 01210833
125: 10010 IVPASS = IVPASS + 1 01220833
126: WRITE (NUVI, 80002) IVTNUM 01230833
127: GO TO 0011 01240833
128: 20010 IVFAIL = IVFAIL + 1 01250833
129: IVCORR = 0 01260833
130: WRITE (NUVI, 80010) IVTNUM, LVI, IVCORR 01270833
131: 0011 CONTINUE 01280833
132: CT002* TEST 2 TEST OF AMAX1 AND MAX WITH REALS 01290833
133: IVTNUM = 2 01300833
134: BVS = 2.5 01310833
135: CVS = 3.5 01320833
136: AVS = AMAX1(BVS, CVS) - MAX(BVS, CVS) 01330833
137: IF (AVS + 0.50000E-04) 20020, 10020, 40020 01340833
138: 40020 IF (AVS - 0.50000E-04) 10020, 10020, 20020 01350833
139: 10020 IVPASS = IVPASS + 1 01360833
140: WRITE (NUVI, 80002) IVTNUM 01370833
141: GO TO 0021 01380833
142: 20020 IVFAIL = IVFAIL + 1 01390833
143: RVCORR = 0.0000 01400833
144: WRITE (NUVI, 80012) IVTNUM, AVS, RVCORR 01410833
145: 0021 CONTINUE 01420833
146: CT003* TEST 3 TEST OF DEXP AND EXP WITH DOUBLE PREC 01430833
147: IVTNUM = 3 01440833
148: BVD = 1.0D0 01450833
149: AVD = DEXP(BVD) - EXP(BVD) 01460833
150: IF (AVD + 0.5000000000D-09) 20030, 10030, 40030 01470833
151: 40030 IF (AVD - 0.5000000000D-09) 10030, 10030, 20030 01480833
152: 10030 IVPASS = IVPASS + 1 01490833
153: WRITE (NUVI, 80002) IVTNUM 01500833
154: GO TO 0031 01510833
155: 20030 IVFAIL = IVFAIL + 1 01520833
156: DVCORR = 0.00000000D+00 01530833
157: WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 01540833
158: 0031 CONTINUE 01550833
159: CT004* TEST 4 TEST OF DTANH AND TANH WITH DOUBLE PREC 01560833
160: IVTNUM = 4 01570833
161: BVD = 0.5D0 01580833
162: AVD = DTANH(BVD) - TANH(BVD) 01590833
163: IF (AVD + 0.5000000000D-09) 20040, 10040, 40040 01600833
164: 40040 IF (AVD - 0.5000000000D-09) 10040, 10040, 20040 01610833
165: 10040 IVPASS = IVPASS + 1 01620833
166: WRITE (NUVI, 80002) IVTNUM 01630833
167: GO TO 0041 01640833
168: 20040 IVFAIL = IVFAIL + 1 01650833
169: DVCORR = 0.00000000D+00 01660833
170: WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 01670833
171: 0041 CONTINUE 01680833
172: CT005* TEST 5 TEST OF DASIN AND ASIN WITH DOUBLE PREC 01690833
173: IVTNUM = 5 01700833
174: BVD = -1.0D0 01710833
175: AVD = DASIN(BVD) - ASIN(BVD) 01720833
176: IF (AVD + 0.5000000000D-09) 20050, 10050, 40050 01730833
177: 40050 IF (AVD - 0.5000000000D-09) 10050, 10050, 20050 01740833
178: 10050 IVPASS = IVPASS + 1 01750833
179: WRITE (NUVI, 80002) IVTNUM 01760833
180: GO TO 0051 01770833
181: 20050 IVFAIL = IVFAIL + 1 01780833
182: DVCORR = 0.00000000D+00 01790833
183: WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 01800833
184: 0051 CONTINUE 01810833
185: CT006* TEST 6 TEST OF DNINT AND ANINT WITH DOUBLE PREC 01820833
186: IVTNUM = 6 01830833
187: BVD = 2.75D0 01840833
188: AVD = DNINT(BVD) - ANINT(BVD) 01850833
189: IF (AVD + 0.5000000000D-09) 20060, 10060, 40060 01860833
190: 40060 IF (AVD - 0.5000000000D-09) 10060, 10060, 20060 01870833
191: 10060 IVPASS = IVPASS + 1 01880833
192: WRITE (NUVI, 80002) IVTNUM 01890833
193: GO TO 0061 01900833
194: 20060 IVFAIL = IVFAIL + 1 01910833
195: DVCORR = 0.00000000D+00 01920833
196: WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 01930833
197: 0061 CONTINUE 01940833
198: CT007* TEST 7 TEST OF DMOD AND MOD WITH DOUBLE PREC 01950833
199: IVTNUM = 7 01960833
200: BVD = 6.0D0 01970833
201: CVD = 3.0D0 01980833
202: AVD = DMOD(BVD, CVD) - MOD(BVD, CVD) 01990833
203: IF (AVD + 0.5000000000D-09) 20070, 10070, 40070 02000833
204: 40070 IF (AVD - 0.5000000000D-09) 10070, 10070, 20070 02010833
205: 10070 IVPASS = IVPASS + 1 02020833
206: WRITE (NUVI, 80002) IVTNUM 02030833
207: GO TO 0071 02040833
208: 20070 IVFAIL = IVFAIL + 1 02050833
209: DVCORR = 0.00000000D+00 02060833
210: WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 02070833
211: 0071 CONTINUE 02080833
212: CT008* TEST 8 TEST OF CABS AND ABS WITH COMPLEX 02090833
213: IVTNUM = 8 02100833
214: BVC = (4.0, 3.0) 02110833
215: AVC = CABS(BVC) - ABS(BVC) 02120833
216: IF (R2E(1) + 0.50000E-04) 20080, 40082, 40081 02130833
217: 40081 IF (R2E(1) - 0.50000E-04) 40082, 40082, 20080 02140833
218: 40082 IF (R2E(2) + 0.50000E-04) 20080, 10080, 40080 02150833
219: 40080 IF (R2E(2) - 0.50000E-04) 10080, 10080, 20080 02160833
220: 10080 IVPASS = IVPASS + 1 02170833
221: WRITE (NUVI, 80002) IVTNUM 02180833
222: GO TO 0081 02190833
223: 20080 IVFAIL = IVFAIL + 1 02200833
224: ZVCORR = ( 0.0000, 0.0000) 02210833
225: WRITE (NUVI, 80045) IVTNUM, AVC, ZVCORR 02220833
226: 0081 CONTINUE 02230833
227: CT009* TEST 9 TEST OF CSQRT AND SQRT WITH COMPLEX 02240833
228: IVTNUM = 9 02250833
229: BVC = (3.0, 4.0) 02260833
230: AVC = CSQRT(BVC) - SQRT(BVC) 02270833
231: IF (R2E(1) + 0.50000E-04) 20090, 40092, 40091 02280833
232: 40091 IF (R2E(1) - 0.50000E-04) 40092, 40092, 20090 02290833
233: 40092 IF (R2E(2) + 0.50000E-04) 20090, 10090, 40090 02300833
234: 40090 IF (R2E(2) - 0.50000E-04) 10090, 10090, 20090 02310833
235: 10090 IVPASS = IVPASS + 1 02320833
236: WRITE (NUVI, 80002) IVTNUM 02330833
237: GO TO 0091 02340833
238: 20090 IVFAIL = IVFAIL + 1 02350833
239: ZVCORR = ( 0.0000, 0.0000) 02360833
240: WRITE (NUVI, 80045) IVTNUM, AVC, ZVCORR 02370833
241: 0091 CONTINUE 02380833
242: CT010* TEST 10 TEST OF CLOG AND LOG WITH COMPLEX 02390833
243: IVTNUM = 10 02400833
244: BVC = (1.0, 0.0) 02410833
245: AVC = CLOG(BVC) - LOG(BVC) 02420833
246: IF (R2E(1) + 0.50000E-04) 20100, 40102, 40101 02430833
247: 40101 IF (R2E(1) - 0.50000E-04) 40102, 40102, 20100 02440833
248: 40102 IF (R2E(2) + 0.50000E-04) 20100, 10100, 40100 02450833
249: 40100 IF (R2E(2) - 0.50000E-04) 10100, 10100, 20100 02460833
250: 10100 IVPASS = IVPASS + 1 02470833
251: WRITE (NUVI, 80002) IVTNUM 02480833
252: GO TO 0101 02490833
253: 20100 IVFAIL = IVFAIL + 1 02500833
254: ZVCORR = ( 0.0000, 0.0000) 02510833
255: WRITE (NUVI, 80045) IVTNUM, AVC, ZVCORR 02520833
256: 0101 CONTINUE 02530833
257: CT011* TEST 11 TEST OF CSIN AND SIN WITH COMPLEX 02540833
258: IVTNUM = 11 02550833
259: BVC = (1.5, 3.5) 02560833
260: AVC = CSIN(BVC) - SIN(BVC) 02570833
261: IF (R2E(1) + 0.50000E-04) 20110, 40112, 40111 02580833
262: 40111 IF (R2E(1) - 0.50000E-04) 40112, 40112, 20110 02590833
263: 40112 IF (R2E(2) + 0.50000E-04) 20110, 10110, 40110 02600833
264: 40110 IF (R2E(2) - 0.50000E-04) 10110, 10110, 20110 02610833
265: 10110 IVPASS = IVPASS + 1 02620833
266: WRITE (NUVI, 80002) IVTNUM 02630833
267: GO TO 0111 02640833
268: 20110 IVFAIL = IVFAIL + 1 02650833
269: ZVCORR = ( 0.0000, 0.0000) 02660833
270: WRITE (NUVI, 80045) IVTNUM, AVC, ZVCORR 02670833
271: 0111 CONTINUE 02680833
272: C***** 02690833
273: CBB** ********************** BBCSUM0 **********************************02700833
274: C**** WRITE OUT TEST SUMMARY 02710833
275: C**** 02720833
276: IVTOTN = IVPASS + IVFAIL + IVDELE + IVINSP 02730833
277: WRITE (I02, 90004) 02740833
278: WRITE (I02, 90014) 02750833
279: WRITE (I02, 90004) 02760833
280: WRITE (I02, 90020) IVPASS 02770833
281: WRITE (I02, 90022) IVFAIL 02780833
282: WRITE (I02, 90024) IVDELE 02790833
283: WRITE (I02, 90026) IVINSP 02800833
284: WRITE (I02, 90028) IVTOTN, IVTOTL 02810833
285: CBE** ********************** BBCSUM0 **********************************02820833
286: CBB** ********************** BBCFOOT0 **********************************02830833
287: C**** WRITE OUT REPORT FOOTINGS 02840833
288: C**** 02850833
289: WRITE (I02,90016) ZPROG, ZPROG 02860833
290: WRITE (I02,90018) ZPROJ, ZNAME, ZTAPE, ZTAPED 02870833
291: WRITE (I02,90019) 02880833
292: CBE** ********************** BBCFOOT0 **********************************02890833
293: CBB** ********************** BBCFMT0A **********************************02900833
294: C**** FORMATS FOR TEST DETAIL LINES 02910833
295: C**** 02920833
296: 80000 FORMAT (1H ,2X,I3,4X,7HDELETED,32X,A31) 02930833
297: 80002 FORMAT (1H ,2X,I3,4X,7H PASS ,32X,A31) 02940833
298: 80004 FORMAT (1H ,2X,I3,4X,7HINSPECT,32X,A31) 02950833
299: 80008 FORMAT (1H ,2X,I3,4X,7H FAIL ,32X,A31) 02960833
300: 80010 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,15X,10HCOMPUTED= , 02970833
301: 1I6,/,1H ,15X,10HCORRECT= ,I6) 02980833
302: 80012 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 02990833
303: 1E12.5,/,1H ,16X,10HCORRECT= ,E12.5) 03000833
304: 80018 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 03010833
305: 1A21,/,1H ,16X,10HCORRECT= ,A21) 03020833
306: 80020 FORMAT (1H ,16X,10HCOMPUTED= ,A21,1X,A31) 03030833
307: 80022 FORMAT (1H ,16X,10HCORRECT= ,A21,1X,A31) 03040833
308: 80024 FORMAT (1H ,16X,10HCOMPUTED= ,I6,16X,A31) 03050833
309: 80026 FORMAT (1H ,16X,10HCORRECT= ,I6,16X,A31) 03060833
310: 80028 FORMAT (1H ,16X,10HCOMPUTED= ,E12.5,10X,A31) 03070833
311: 80030 FORMAT (1H ,16X,10HCORRECT= ,E12.5,10X,A31) 03080833
312: 80050 FORMAT (1H ,48X,A31) 03090833
313: CBE** ********************** BBCFMT0A **********************************03100833
314: CBB** ********************** BBCFMAT1 **********************************03110833
315: C**** FORMATS FOR TEST DETAIL LINES - FULL LANGUAGE 03120833
316: C**** 03130833
317: 80031 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 03140833
318: 1D17.10,/,1H ,16X,10HCORRECT= ,D17.10) 03150833
319: 80033 FORMAT (1H ,16X,10HCOMPUTED= ,D17.10,10X,A31) 03160833
320: 80035 FORMAT (1H ,16X,10HCORRECT= ,D17.10,10X,A31) 03170833
321: 80037 FORMAT (1H ,16X,10HCOMPUTED= ,1H(,E12.5,2H, ,E12.5,1H),6X,A31) 03180833
322: 80039 FORMAT (1H ,16X,10HCORRECT= ,1H(,E12.5,2H, ,E12.5,1H),6X,A31) 03190833
323: 80041 FORMAT (1H ,16X,10HCOMPUTED= ,1H(,F12.5,2H, ,F12.5,1H),6X,A31) 03200833
324: 80043 FORMAT (1H ,16X,10HCORRECT= ,1H(,F12.5,2H, ,F12.5,1H),6X,A31) 03210833
325: 80045 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 03220833
326: 11H(,F12.5,2H, ,F12.5,1H)/,1H ,16X,10HCORRECT= , 03230833
327: 21H(,F12.5,2H, ,F12.5,1H)) 03240833
328: CBE** ********************** BBCFMAT1 **********************************03250833
329: CBB** ********************** BBCFMT0B **********************************03260833
330: C**** FORMAT STATEMENTS FOR PAGE HEADERS 03270833
331: C**** 03280833
332: 90002 FORMAT (1H1) 03290833
333: 90004 FORMAT (1H ) 03300833
334: 90006 FORMAT (1H ,20X,31HFEDERAL SOFTWARE TESTING CENTER) 03310833
335: 90007 FORMAT (1H ,19X,34HFORTRAN COMPILER VALIDATION SYSTEM) 03320833
336: 90008 FORMAT (1H ,21X,A13,A17) 03330833
337: 90009 FORMAT (1H ,/,2H *,A5,6HBEGIN*,12X,15HTEST RESULTS - ,A5,/) 03340833
338: 90010 FORMAT (1H ,8X,16HTEST DATE*TIME= ,A17,15H - COMPILER= ,A20) 03350833
339: 90013 FORMAT (1H ,8H TEST ,10HPASS/FAIL ,6X,17HDISPLAYED RESULTS, 03360833
340: 1 7X,7HREMARKS,24X) 03370833
341: 90014 FORMAT (1H ,46H----------------------------------------------, 03380833
342: 1 33H---------------------------------) 03390833
343: 90015 FORMAT (1H ,48X,17HTHIS PROGRAM HAS ,I3,6H TESTS,/) 03400833
344: C**** 03410833
345: C**** FORMAT STATEMENTS FOR REPORT FOOTINGS 03420833
346: C**** 03430833
347: 90016 FORMAT (1H ,/,2H *,A5,4HEND*,14X,14HEND OF TEST - ,A5,/) 03440833
348: 90018 FORMAT (1H ,A13,13X,A20,7H * ,A10,1H/, 03450833
349: 1 A13) 03460833
350: 90019 FORMAT (1H ,26HFOR OFFICIAL USE ONLY ,35X,15HCOPYRIGHT 1982) 03470833
351: C**** 03480833
352: C**** FORMAT STATEMENTS FOR RUN SUMMARY 03490833
353: C**** 03500833
354: 90020 FORMAT (1H ,21X,I5,13H TESTS PASSED) 03510833
355: 90022 FORMAT (1H ,21X,I5,13H TESTS FAILED) 03520833
356: 90024 FORMAT (1H ,21X,I5,14H TESTS DELETED) 03530833
357: 90026 FORMAT (1H ,21X,I5,25H TESTS REQUIRE INSPECTION) 03540833
358: 90028 FORMAT (1H ,21X,I5,4H OF ,I3,15H TESTS EXECUTED) 03550833
359: CBE** ********************** BBCFMT0B **********************************03560833
360: C***** 03570833
361: C***** END OF TEST SEGMENT 211 03580833
362: STOP 03590833
363: END 03600833
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.