![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to FM503.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 FM503.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***********************************************************************00010503
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 00020503
6: C***** FM503 00030503
7: C***** BLKD2 - (261) 00040503
8: C***** THIS PROGRAM USES FM504 (UNNAMED BLOCK DATA SUBPROGRAM 00050503
9: C***** AND SUBROUTINE SN505 00060503
10: C***********************************************************************00070503
11: C***** TESTING OF BLOCK DATA SUBPROGRAMS ANS REF 00080503
12: C***** DATA INTERNAL FORMS 16 00090503
13: C***** THIS SEGMENT USES SEGMENTS 702 AND 703, BLOCK DATA PROGRAM 00100503
14: C***** FM504 AND SUBROUTINE SN505 00110503
15: C***** 00120503
16: CBB** ********************** BBCCOMNT **********************************00130503
17: C**** 00140503
18: C**** 1978 FORTRAN COMPILER VALIDATION SYSTEM 00150503
19: C**** VERSION 2.0 00160503
20: C**** 00170503
21: C**** 00180503
22: C**** SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00190503
23: C**** GENERAL SERVICES ADMINISTRATION 00200503
24: C**** FEDERAL SOFTWARE TESTING CENTER 00210503
25: C**** 5203 LEESBURG PIKE, SUITE 1100 00220503
26: C**** FALLS CHURCH, VA. 22041 00230503
27: C**** 00240503
28: C**** (703) 756-6153 00250503
29: C**** 00260503
30: CBE** ********************** BBCCOMNT **********************************00270503
31: C***** 00280503
32: C***** S P E C I F I C A T I O N S SEGMENT 261 00290503
33: C***** 00300503
34: C***** DECLARATION OF VARIABLES IN COMMON BLOCKS 00310503
35: C***** DOUBLE PRECISION AXVD, DVCORR 00320503
36: C***** COMPLEX AXVC, ZVCORR 00330503
37: C***** LOGICAL AXVB 00340503
38: C***** CHARACTER*6 A6XVK, B6XVK, CVCORR 00350503
39: C***** 00360503
40: C***** COMMON /BLK9/ AXVS, BXVS, IXVI, AXVD, AXVC, AXVB 00370503
41: C***** COMMON /BLK7/ A6XVK, B6XVK 00380503
42: C***** 00390503
43: C***** 00400503
44: CALL SN505 00410503
45: STOP 00420503
46: C***** 00430503
47: C***** END OF TEST SEGMENT 261 00440503
48: END 00450503
49: C***********************************************************************00010504
50: C DATE***82/08/02*18.33.46
51: C OWNER PRE/850703/TC-85- -410/ /FSTC/278FCVS*F78UBP20/
52: C AUDIT FCVS78 V2.0
53: C***** FORTRAN 77 00020504
54: C***** FM504 BDS2 (UNNAMED) - (702) 00030504
55: C***** THIS BLOCK DATA SUBPROGRAM IS USED BY FM503 00040504
56: C***********************************************************************00050504
57: C***** 00060504
58: C***** GENERAL PURPOSE 00070504
59: C***** THIS SEGMENT CONTAINS A BLOCK DATA SUBPROGRAM THAT IS 00080504
60: C***** TO BE RUN WITH TEST SEGMENT 261 00090504
61: C***** THIS SEGMENT WILL TEST INTERNAL DATA FORMS, AS WELL 00100504
62: C***** AS THE USE OF UNNAMED BLOCK DATA PROGRAM 00110504
63: C***** 00120504
64: BLOCK DATA 00130504
65: C***** 00140504
66: C***** DECLARATION OF VARIABLES IN COMMON BLOCKS 00150504
67: DOUBLE PRECISION AXVD 00160504
68: COMPLEX AXVC 00170504
69: LOGICAL AXVB 00180504
70: CHARACTER*6 A6XVK, B6XVK 00190504
71: C***** 00200504
72: COMMON /BLK9/ AXVS, BXVS, IXVI, AXVD, AXVC, AXVB 00210504
73: COMMON /BLK7/ A6XVK, B6XVK 00220504
74: DATA AXVS, BXVS, IXVI, AXVD, AXVC, AXVB /34.25E-1, 43.23, 21, 00230504
75: 1 1.23456, (234.23, 34.9), .TRUE./ 00240504
76: DATA A6XVK, B6XVK /'ABCDE', 'FGHIJK'/ 00250504
77: C***** 00260504
78: END 00270504
79: C***********************************************************************00010505
80: C DATE***82/08/02*18.33.46
81: C OWNER PRE/850703/TC-85- -410/ /FSTC/278FCVS*F78UBP20/
82: C AUDIT FCVS78 V2.0
83: C***** FORTRAN 77 00020505
84: C***** FM505 BLKD2Q - (703) 00030505
85: C***** THIS SUBROUTINE IS CALLED BY FM503 00040505
86: C***********************************************************************00050505
87: C***** 00060505
88: C***** GENERAL PURPOSE 00070505
89: C***** THIS SEGMENT IS TO BE RUN WITH TEST SEGMENT 261 00080505
90: C***** THIS SEGMENT CONTAINS A SUBROUTINE THAT CHECKS TO SEE IF 00090505
91: C***** IF THE BLOCK DATA PROGRAM CORRECTLY INITIALIZED THE MANY 00100505
92: C***** VARIABLES 00110505
93: C***** 00120505
94: SUBROUTINE SN505 00130505
95: C***** 00140505
96: C***** 00150505
97: C***** DECLARATION OF VARIABLES IN COMMON BLOCKS 00160505
98: DOUBLE PRECISION AXVD, DVCORR 00170505
99: COMPLEX AXVC, ZVCORR 00180505
100: LOGICAL AXVB 00190505
101: CHARACTER*6 A6XVK, B6XVK, CVCORR 00200505
102: C***** 00210505
103: COMMON /BLK9/ AXVS, BXVS, IXVI, AXVD, AXVC, AXVB 00220505
104: COMMON /BLK7/ A6XVK, B6XVK 00230505
105: C***** LOCAL DECLARATION 00240505
106: DOUBLE PRECISION AVD 00250505
107: COMPLEX AVC 00260505
108: REAL R2E(2) 00270505
109: EQUIVALENCE (AVC, R2E) 00280505
110: C***** 00290505
111: CBB** ********************** BBCINITA **********************************00300505
112: C**** SPECIFICATION STATEMENTS 00310505
113: C**** 00320505
114: CHARACTER ZVERS*13, ZVERSD*17, ZDATE*17, ZPROG*5, ZCOMPL*20, 00330505
115: 1 ZNAME*20, ZTAPE*10, ZPROJ*13, REMRKS*31, ZTAPED*13 00340505
116: CBE** ********************** BBCINITA **********************************00350505
117: CBB** ********************** BBCINITB **********************************00360505
118: C**** INITIALIZE SECTION 00370505
119: DATA ZVERS, ZVERSD, ZDATE 00380505
120: 1 /'VERSION 2.0 ', '82/08/02*18.33.46', '*NO DATE*TIME'/ 00390505
121: DATA ZCOMPL, ZNAME, ZTAPE 00400505
122: 1 /'*NONE SPECIFIED*', '*NO COMPANY NAME*', '*NO TAPE*'/ 00410505
123: DATA ZPROJ, ZTAPED, ZPROG 00420505
124: 1 /'*NO PROJECT*', '*NO TAPE DATE', 'XXXXX'/ 00430505
125: DATA REMRKS /' '/ 00440505
126: C**** THE FOLLOWING 9 COMMENT LINES (CZ01, CZ02, ...) CAN BE REPLACED 00450505
127: C**** FOR IDENTIFYING THE TEST ENVIRONMENT 00460505
128: C**** 00470505
129: CZ01 ZVERS = 'VERSION OF THE COMPILER VALIDATION SYSTEM' 00480505
130: CZ02 ZVERSD = 'CREATION DATE/TIME OF THE COMPILER VALIDATION SYSTEM' 00490505
131: CZ03 ZPROG = 'PROGRAM NAME' 00500505
132: ZDATE = '07-Nov-85 ' *RP
133: ZCOMPL = 'CCI 5.2 ' *RP
134: ZPROJ = 'TC-85- -410' *RP
135: ZNAME = ' ' *RP
136: ZTAPE = ' ' *RP
137: ZTAPED = '850703 ' *RP
138: C 00570505
139: IVPASS = 0 00580505
140: IVFAIL = 0 00590505
141: IVDELE = 0 00600505
142: IVINSP = 0 00610505
143: IVTOTL = 0 00620505
144: IVTOTN = 0 00630505
145: ICZERO = 0 00640505
146: C 00650505
147: C I01 CONTAINS THE LOGICAL UNIT NUMBER FOR THE CARD READER. 00660505
148: I01 = 05 00670505
149: C I02 CONTAINS THE LOGICAL UNIT NUMBER FOR THE PRINTER. 00680505
150: I02 = 06 00690505
151: C 00700505
152: I01 = 5 00710505
153: C THE CX010 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I01 = 5 00720505
154: CX011 REPLACED BY FEXEC X-011 CONTROL CARD. CX011 IS FOR SYSTEMS 00730505
155: C REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX010. 00740505
156: C 00750505
157: I02 = 6 00760505
158: C THE CX020 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I02= 6 00770505
159: CX021 REPLACED BY FEXEC X-021 CONTROL CARD. CX021 IS FOR SYSTEMS 00780505
160: C REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX020. 00790505
161: C 00800505
162: CBE** ********************** BBCINITB **********************************00810505
163: NUVI = I02 00820505
164: IVTOTL = 8 00830505
165: ZPROG = 'FM503' 00840505
166: CBB** ********************** BBCHED0A **********************************00850505
167: C**** 00860505
168: C**** WRITE REPORT TITLE 00870505
169: C**** 00880505
170: WRITE (I02, 90002) 00890505
171: WRITE (I02, 90006) 00900505
172: WRITE (I02, 90007) 00910505
173: WRITE (I02, 90008) ZVERS, ZVERSD 00920505
174: WRITE (I02, 90009) ZPROG, ZPROG 00930505
175: WRITE (I02, 90010) ZDATE, ZCOMPL 00940505
176: CBE** ********************** BBCHED0A **********************************00950505
177: WRITE(NUVI,26100) 00960505
178: 26100 FORMAT( 1H , / 39H BLKD2 - (261) BLOCK DATA SUBPROGRAM --// 00970505
179: 1 21H DATA INTERNAL FORMS// 00980505
180: 2 15H ANS REF. - 16) 00990505
181: CBB** ********************** BBCHED0B **********************************01000505
182: C**** WRITE DETAIL REPORT HEADERS 01010505
183: C**** 01020505
184: WRITE (I02,90004) 01030505
185: WRITE (I02,90004) 01040505
186: WRITE (I02,90013) 01050505
187: WRITE (I02,90014) 01060505
188: WRITE (I02,90015) IVTOTL 01070505
189: CBE** ********************** BBCHED0B **********************************01080505
190: C***** 01090505
191: CT001* TEST 1 REAL VARIABLE - EXPONENT FORM 01100505
192: IVTNUM = 1 01110505
193: AVS = AXVS 01120505
194: IF (AVS - 0.34248E+01) 20010, 10010, 40010 01130505
195: 40010 IF (AVS - 0.34252E+01) 10010, 10010, 20010 01140505
196: 10010 IVPASS = IVPASS + 1 01150505
197: WRITE (NUVI, 80002) IVTNUM 01160505
198: GO TO 0011 01170505
199: 20010 IVFAIL = IVFAIL + 1 01180505
200: RVCORR = 34.25E-1 01190505
201: WRITE (NUVI, 80012) IVTNUM, AVS, RVCORR 01200505
202: 0011 CONTINUE 01210505
203: CT002* TEST 2 REAL VARIABLE - NON EXPONENT FORM 01220505
204: IVTNUM = 2 01230505
205: AVS = BXVS 01240505
206: IF (AVS - 0.43227E+02) 20020, 10020, 40020 01250505
207: 40020 IF (AVS - 0.43233E+02) 10020, 10020, 20020 01260505
208: 10020 IVPASS = IVPASS + 1 01270505
209: WRITE (NUVI, 80002) IVTNUM 01280505
210: GO TO 0021 01290505
211: 20020 IVFAIL = IVFAIL + 1 01300505
212: RVCORR = 43.23 01310505
213: WRITE (NUVI, 80012) IVTNUM, AVS, RVCORR 01320505
214: 0021 CONTINUE 01330505
215: CT003* TEST 3 INTEGER VARIABLE 01340505
216: IVTNUM = 3 01350505
217: IVI = IXVI 01360505
218: IF (IVI - 21) 20030, 10030, 20030 01370505
219: 10030 IVPASS = IVPASS + 1 01380505
220: WRITE (NUVI, 80002) IVTNUM 01390505
221: GO TO 0031 01400505
222: 20030 IVFAIL = IVFAIL + 1 01410505
223: IVCORR = 21 01420505
224: WRITE (NUVI, 80010) IVTNUM, IVI, IVCORR 01430505
225: 0031 CONTINUE 01440505
226: CT004* TEST 4 DOUBLE PRECISION VARIABLE 01450505
227: IVTNUM = 4 01460505
228: AVD = AXVD 01470505
229: IF (AVD - 0.12345D+01) 20040, 10040, 40040 01480505
230: 40040 IF (AVD - 0.12347D+01) 10040, 10040, 20040 01490505
231: 10040 IVPASS = IVPASS + 1 01500505
232: WRITE (NUVI, 80002) IVTNUM 01510505
233: GO TO 0041 01520505
234: 20040 IVFAIL = IVFAIL + 1 01530505
235: DVCORR = 1.23456D+0 01540505
236: WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 01550505
237: 0041 CONTINUE 01560505
238: CT005* TEST 5 COMPLEX VARIABLE 01570505
239: IVTNUM = 5 01580505
240: AVC = AXVC 01590505
241: IF (R2E(1) - 0.23421E+03) 20050, 40052, 40051 01600505
242: 40051 IF (R2E(1) - 0.23425E+03) 40052, 40052, 20050 01610505
243: 40052 IF (R2E(2) - 0.34898E+02) 20050, 10050, 40050 01620505
244: 40050 IF (R2E(2) - 0.34902E+02) 10050, 10050, 20050 01630505
245: 10050 IVPASS = IVPASS + 1 01640505
246: WRITE (NUVI, 80002) IVTNUM 01650505
247: GO TO 0051 01660505
248: 20050 IVFAIL = IVFAIL + 1 01670505
249: ZVCORR = (234.23, 34.9) 01680505
250: WRITE (NUVI, 80045) IVTNUM, AVC, ZVCORR 01690505
251: 0051 CONTINUE 01700505
252: CT006* TEST 6 LOGICAL VARIABLE 01710505
253: IVTNUM = 6 01720505
254: IVI = 0 01730505
255: IF (AXVB) IVI = 1 01740505
256: IF (IVI - 1) 20060, 10060, 20060 01750505
257: 10060 IVPASS = IVPASS + 1 01760505
258: WRITE (NUVI, 80002) IVTNUM 01770505
259: GO TO 0061 01780505
260: 20060 IVFAIL = IVFAIL + 1 01790505
261: LVCORR = 1 01800505
262: REMRKS = '1 = TRUE ; 0 = FALSE' 01810505
263: WRITE (NUVI, 80008) IVTNUM, REMRKS 01820505
264: WRITE (NUVI, 80024) IVI 01830505
265: WRITE (NUVI, 80026) LVCORR 01840505
266: 0061 CONTINUE 01850505
267: CT007* TEST 7 6 CHARACTER VARIABLE - INIT WITH 5 CHARACTERS 01860505
268: IVTNUM = 7 01870505
269: IVI = 0 01880505
270: IF (A6XVK.EQ.'ABCDE ') IVI = 1 01890505
271: IF (IVI - 1) 20070, 10070, 20070 01900505
272: 10070 IVPASS = IVPASS + 1 01910505
273: WRITE (NUVI, 80002) IVTNUM 01920505
274: GO TO 0071 01930505
275: 20070 IVFAIL = IVFAIL + 1 01940505
276: CVCORR = 'ABCDE ' 01950505
277: WRITE (NUVI, 80018) IVTNUM, A6XVK, CVCORR 01960505
278: 0071 CONTINUE 01970505
279: CT008* TEST 8 6 CHARACTER VARIABLE - INIT WITH 6 CHARACTERS 01980505
280: IVTNUM = 8 01990505
281: IVI = 0 02000505
282: IF (B6XVK.EQ.'FGHIJK') IVI = 1 02010505
283: IF (IVI - 1) 20080, 10080, 20080 02020505
284: 10080 IVPASS = IVPASS + 1 02030505
285: WRITE (NUVI, 80002) IVTNUM 02040505
286: GO TO 0081 02050505
287: 20080 IVFAIL = IVFAIL + 1 02060505
288: CVCORR = 'FGHIJK' 02070505
289: WRITE (NUVI, 80018) IVTNUM, B6XVK, CVCORR 02080505
290: 0081 CONTINUE 02090505
291: C***** 02100505
292: CBB** ********************** BBCSUM0 **********************************02110505
293: C**** WRITE OUT TEST SUMMARY 02120505
294: C**** 02130505
295: IVTOTN = IVPASS + IVFAIL + IVDELE + IVINSP 02140505
296: WRITE (I02, 90004) 02150505
297: WRITE (I02, 90014) 02160505
298: WRITE (I02, 90004) 02170505
299: WRITE (I02, 90020) IVPASS 02180505
300: WRITE (I02, 90022) IVFAIL 02190505
301: WRITE (I02, 90024) IVDELE 02200505
302: WRITE (I02, 90026) IVINSP 02210505
303: WRITE (I02, 90028) IVTOTN, IVTOTL 02220505
304: CBE** ********************** BBCSUM0 **********************************02230505
305: CBB** ********************** BBCFOOT0 **********************************02240505
306: C**** WRITE OUT REPORT FOOTINGS 02250505
307: C**** 02260505
308: WRITE (I02,90016) ZPROG, ZPROG 02270505
309: WRITE (I02,90018) ZPROJ, ZNAME, ZTAPE, ZTAPED 02280505
310: WRITE (I02,90019) 02290505
311: CBE** ********************** BBCFOOT0 **********************************02300505
312: CBB** ********************** BBCFMT0A **********************************02310505
313: C**** FORMATS FOR TEST DETAIL LINES 02320505
314: C**** 02330505
315: 80000 FORMAT (1H ,2X,I3,4X,7HDELETED,32X,A31) 02340505
316: 80002 FORMAT (1H ,2X,I3,4X,7H PASS ,32X,A31) 02350505
317: 80004 FORMAT (1H ,2X,I3,4X,7HINSPECT,32X,A31) 02360505
318: 80008 FORMAT (1H ,2X,I3,4X,7H FAIL ,32X,A31) 02370505
319: 80010 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,15X,10HCOMPUTED= , 02380505
320: 1I6,/,1H ,15X,10HCORRECT= ,I6) 02390505
321: 80012 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 02400505
322: 1E12.5,/,1H ,16X,10HCORRECT= ,E12.5) 02410505
323: 80018 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 02420505
324: 1A21,/,1H ,16X,10HCORRECT= ,A21) 02430505
325: 80020 FORMAT (1H ,16X,10HCOMPUTED= ,A21,1X,A31) 02440505
326: 80022 FORMAT (1H ,16X,10HCORRECT= ,A21,1X,A31) 02450505
327: 80024 FORMAT (1H ,16X,10HCOMPUTED= ,I6,16X,A31) 02460505
328: 80026 FORMAT (1H ,16X,10HCORRECT= ,I6,16X,A31) 02470505
329: 80028 FORMAT (1H ,16X,10HCOMPUTED= ,E12.5,10X,A31) 02480505
330: 80030 FORMAT (1H ,16X,10HCORRECT= ,E12.5,10X,A31) 02490505
331: 80050 FORMAT (1H ,48X,A31) 02500505
332: CBE** ********************** BBCFMT0A **********************************02510505
333: CBB** ********************** BBCFMAT1 **********************************02520505
334: C**** FORMATS FOR TEST DETAIL LINES - FULL LANGUAGE 02530505
335: C**** 02540505
336: 80031 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 02550505
337: 1D17.10,/,1H ,16X,10HCORRECT= ,D17.10) 02560505
338: 80033 FORMAT (1H ,16X,10HCOMPUTED= ,D17.10,10X,A31) 02570505
339: 80035 FORMAT (1H ,16X,10HCORRECT= ,D17.10,10X,A31) 02580505
340: 80037 FORMAT (1H ,16X,10HCOMPUTED= ,1H(,E12.5,2H, ,E12.5,1H),6X,A31) 02590505
341: 80039 FORMAT (1H ,16X,10HCORRECT= ,1H(,E12.5,2H, ,E12.5,1H),6X,A31) 02600505
342: 80041 FORMAT (1H ,16X,10HCOMPUTED= ,1H(,F12.5,2H, ,F12.5,1H),6X,A31) 02610505
343: 80043 FORMAT (1H ,16X,10HCORRECT= ,1H(,F12.5,2H, ,F12.5,1H),6X,A31) 02620505
344: 80045 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 02630505
345: 11H(,F12.5,2H, ,F12.5,1H)/,1H ,16X,10HCORRECT= , 02640505
346: 21H(,F12.5,2H, ,F12.5,1H)) 02650505
347: CBE** ********************** BBCFMAT1 **********************************02660505
348: CBB** ********************** BBCFMT0B **********************************02670505
349: C**** FORMAT STATEMENTS FOR PAGE HEADERS 02680505
350: C**** 02690505
351: 90002 FORMAT (1H1) 02700505
352: 90004 FORMAT (1H ) 02710505
353: 90006 FORMAT (1H ,20X,31HFEDERAL SOFTWARE TESTING CENTER) 02720505
354: 90007 FORMAT (1H ,19X,34HFORTRAN COMPILER VALIDATION SYSTEM) 02730505
355: 90008 FORMAT (1H ,21X,A13,A17) 02740505
356: 90009 FORMAT (1H ,/,2H *,A5,6HBEGIN*,12X,15HTEST RESULTS - ,A5,/) 02750505
357: 90010 FORMAT (1H ,8X,16HTEST DATE*TIME= ,A17,15H - COMPILER= ,A20) 02760505
358: 90013 FORMAT (1H ,8H TEST ,10HPASS/FAIL ,6X,17HDISPLAYED RESULTS, 02770505
359: 1 7X,7HREMARKS,24X) 02780505
360: 90014 FORMAT (1H ,46H----------------------------------------------, 02790505
361: 1 33H---------------------------------) 02800505
362: 90015 FORMAT (1H ,48X,17HTHIS PROGRAM HAS ,I3,6H TESTS,/) 02810505
363: C**** 02820505
364: C**** FORMAT STATEMENTS FOR REPORT FOOTINGS 02830505
365: C**** 02840505
366: 90016 FORMAT (1H ,/,2H *,A5,4HEND*,14X,14HEND OF TEST - ,A5,/) 02850505
367: 90018 FORMAT (1H ,A13,13X,A20,7H * ,A10,1H/, 02860505
368: 1 A13) 02870505
369: 90019 FORMAT (1H ,26HFOR OFFICIAL USE ONLY ,35X,15HCOPYRIGHT 1982) 02880505
370: C**** 02890505
371: C**** FORMAT STATEMENTS FOR RUN SUMMARY 02900505
372: C**** 02910505
373: 90020 FORMAT (1H ,21X,I5,13H TESTS PASSED) 02920505
374: 90022 FORMAT (1H ,21X,I5,13H TESTS FAILED) 02930505
375: 90024 FORMAT (1H ,21X,I5,14H TESTS DELETED) 02940505
376: 90026 FORMAT (1H ,21X,I5,25H TESTS REQUIRE INSPECTION) 02950505
377: 90028 FORMAT (1H ,21X,I5,4H OF ,I3,15H TESTS EXECUTED) 02960505
378: CBE** ********************** BBCFMT0B **********************************02970505
379: C***** 02980505
380: END 02990505
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.