![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to FM822.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 FM822.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***********************************************************************00010822
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 00020822
6: C***** FM822 00030822
7: C***** YDTAN - (192) 00040822
8: C***** 00050822
9: C***********************************************************************00060822
10: C***** GENERAL PURPOSE ANS REF 00070822
11: C***** TEST INTRINSIC FUNCTION DTAN 15.3 00080822
12: C***** TABLE 5 00090822
13: C***** 00100822
14: CBB** ********************** BBCCOMNT **********************************00110822
15: C**** 00120822
16: C**** 1978 FORTRAN COMPILER VALIDATION SYSTEM 00130822
17: C**** VERSION 2.0 00140822
18: C**** 00150822
19: C**** 00160822
20: C**** SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00170822
21: C**** GENERAL SERVICES ADMINISTRATION 00180822
22: C**** FEDERAL SOFTWARE TESTING CENTER 00190822
23: C**** 5203 LEESBURG PIKE, SUITE 1100 00200822
24: C**** FALLS CHURCH, VA. 22041 00210822
25: C**** 00220822
26: C**** (703) 756-6153 00230822
27: C**** 00240822
28: CBE** ********************** BBCCOMNT **********************************00250822
29: C***** 00260822
30: C***** S P E C I F I C A T I O N S SEGMENT 192 00270822
31: DOUBLE PRECISION AVD, BVD, PIVD, DVCORR 00280822
32: C***** 00290822
33: CBB** ********************** BBCINITA **********************************00300822
34: C**** SPECIFICATION STATEMENTS 00310822
35: C**** 00320822
36: CHARACTER ZVERS*13, ZVERSD*17, ZDATE*17, ZPROG*5, ZCOMPL*20, 00330822
37: 1 ZNAME*20, ZTAPE*10, ZPROJ*13, REMRKS*31, ZTAPED*13 00340822
38: CBE** ********************** BBCINITA **********************************00350822
39: CBB** ********************** BBCINITB **********************************00360822
40: C**** INITIALIZE SECTION 00370822
41: DATA ZVERS, ZVERSD, ZDATE 00380822
42: 1 /'VERSION 2.0 ', '82/08/02*18.33.46', '*NO DATE*TIME'/ 00390822
43: DATA ZCOMPL, ZNAME, ZTAPE 00400822
44: 1 /'*NONE SPECIFIED*', '*NO COMPANY NAME*', '*NO TAPE*'/ 00410822
45: DATA ZPROJ, ZTAPED, ZPROG 00420822
46: 1 /'*NO PROJECT*', '*NO TAPE DATE', 'XXXXX'/ 00430822
47: DATA REMRKS /' '/ 00440822
48: C**** THE FOLLOWING 9 COMMENT LINES (CZ01, CZ02, ...) CAN BE REPLACED 00450822
49: C**** FOR IDENTIFYING THE TEST ENVIRONMENT 00460822
50: C**** 00470822
51: CZ01 ZVERS = 'VERSION OF THE COMPILER VALIDATION SYSTEM' 00480822
52: CZ02 ZVERSD = 'CREATION DATE/TIME OF THE COMPILER VALIDATION SYSTEM' 00490822
53: CZ03 ZPROG = 'PROGRAM NAME' 00500822
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 00570822
61: IVPASS = 0 00580822
62: IVFAIL = 0 00590822
63: IVDELE = 0 00600822
64: IVINSP = 0 00610822
65: IVTOTL = 0 00620822
66: IVTOTN = 0 00630822
67: ICZERO = 0 00640822
68: C 00650822
69: C I01 CONTAINS THE LOGICAL UNIT NUMBER FOR THE CARD READER. 00660822
70: I01 = 05 00670822
71: C I02 CONTAINS THE LOGICAL UNIT NUMBER FOR THE PRINTER. 00680822
72: I02 = 06 00690822
73: C 00700822
74: I01 = 5 00710822
75: C THE CX010 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I01 = 5 00720822
76: CX011 REPLACED BY FEXEC X-011 CONTROL CARD. CX011 IS FOR SYSTEMS 00730822
77: C REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX010. 00740822
78: C 00750822
79: I02 = 6 00760822
80: C THE CX020 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I02= 6 00770822
81: CX021 REPLACED BY FEXEC X-021 CONTROL CARD. CX021 IS FOR SYSTEMS 00780822
82: C REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX020. 00790822
83: C 00800822
84: CBE** ********************** BBCINITB **********************************00810822
85: NUVI = I02 00820822
86: IVTOTL = 14 00830822
87: ZPROG = 'FM822' 00840822
88: CBB** ********************** BBCHED0A **********************************00850822
89: C**** 00860822
90: C**** WRITE REPORT TITLE 00870822
91: C**** 00880822
92: WRITE (I02, 90002) 00890822
93: WRITE (I02, 90006) 00900822
94: WRITE (I02, 90007) 00910822
95: WRITE (I02, 90008) ZVERS, ZVERSD 00920822
96: WRITE (I02, 90009) ZPROG, ZPROG 00930822
97: WRITE (I02, 90010) ZDATE, ZCOMPL 00940822
98: CBE** ********************** BBCHED0A **********************************00950822
99: C***** 00960822
100: C***** HEADER FOR SEGMENT 192 00970822
101: WRITE(NUVI,19200) 00980822
102: 19200 FORMAT(1H , / 35H YDTAN - (192) INTRINSIC FUNCTIONS// 00990822
103: 1 34H DTAN (DOUBLE PRECISION TANGENT)// 01000822
104: 2 17H ANS REF. - 15.3) 01010822
105: CBB** ********************** BBCHED0B **********************************01020822
106: C**** WRITE DETAIL REPORT HEADERS 01030822
107: C**** 01040822
108: WRITE (I02,90004) 01050822
109: WRITE (I02,90004) 01060822
110: WRITE (I02,90013) 01070822
111: WRITE (I02,90014) 01080822
112: WRITE (I02,90015) IVTOTL 01090822
113: CBE** ********************** BBCHED0B **********************************01100822
114: C***** 01110822
115: PIVD = 3.1415926535897932384626434D0 01120822
116: C***** 01130822
117: CT001* TEST 1 ZERO (0.0), SINCE TAN(0) = 0. 01140822
118: IVTNUM = 1 01150822
119: BVD = 0.0D0 01160822
120: AVD = DTAN(BVD) 01170822
121: IF (AVD + 0.5000000000D-09) 20010, 10010, 40010 01180822
122: 40010 IF (AVD - 0.5000000000D-09) 10010, 10010, 20010 01190822
123: 10010 IVPASS = IVPASS + 1 01200822
124: WRITE (NUVI, 80002) IVTNUM 01210822
125: GO TO 0011 01220822
126: 20010 IVFAIL = IVFAIL + 1 01230822
127: DVCORR = 0.00000000000000000000D+00 01240822
128: WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 01250822
129: 0011 CONTINUE 01260822
130: CT002* TEST 2 2*PI 01270822
131: IVTNUM = 2 01280822
132: BVD = 6.28318530717958647692D0 01290822
133: AVD = DTAN(BVD) 01300822
134: IF (AVD + 0.5000000000D-09) 20020, 10020, 40020 01310822
135: 40020 IF (AVD - 0.5000000000D-09) 10020, 10020, 20020 01320822
136: 10020 IVPASS = IVPASS + 1 01330822
137: WRITE (NUVI, 80002) IVTNUM 01340822
138: GO TO 0021 01350822
139: 20020 IVFAIL = IVFAIL + 1 01360822
140: DVCORR = 0.00000000000000000000D+00 01370822
141: WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 01380822
142: 0021 CONTINUE 01390822
143: CT003* TEST 3 3*PI 01400822
144: IVTNUM = 3 01410822
145: BVD = 9.42477796076937971538D0 01420822
146: AVD = DTAN(BVD) 01430822
147: IF (AVD + 0.5000000000D-09) 20030, 10030, 40030 01440822
148: 40030 IF (AVD - 0.5000000000D-09) 10030, 10030, 20030 01450822
149: 10030 IVPASS = IVPASS + 1 01460822
150: WRITE (NUVI, 80002) IVTNUM 01470822
151: GO TO 0031 01480822
152: 20030 IVFAIL = IVFAIL + 1 01490822
153: DVCORR = 0.00000000000000000000D+00 01500822
154: WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 01510822
155: 0031 CONTINUE 01520822
156: CT004* TEST 4 PI/4 01530822
157: IVTNUM = 4 01540822
158: AVD = DTAN(PIVD / 4.0D0) 01550822
159: IF (AVD - 0.9999999995D+00) 20040, 10040, 40040 01560822
160: 40040 IF (AVD - 0.1000000001D+01) 10040, 10040, 20040 01570822
161: 10040 IVPASS = IVPASS + 1 01580822
162: WRITE (NUVI, 80002) IVTNUM 01590822
163: GO TO 0041 01600822
164: 20040 IVFAIL = IVFAIL + 1 01610822
165: DVCORR = 1.00000000000000000000D+00 01620822
166: WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 01630822
167: 0041 CONTINUE 01640822
168: CT005* TEST 5 5*PI/4 01650822
169: IVTNUM = 5 01660822
170: BVD = 5.0D0 * PIVD / 4.0D0 01670822
171: AVD = DTAN(BVD) 01680822
172: IF (AVD - 0.9999999995D+00) 20050, 10050, 40050 01690822
173: 40050 IF (AVD - 0.1000000001D+01) 10050, 10050, 20050 01700822
174: 10050 IVPASS = IVPASS + 1 01710822
175: WRITE (NUVI, 80002) IVTNUM 01720822
176: GO TO 0051 01730822
177: 20050 IVFAIL = IVFAIL + 1 01740822
178: DVCORR = 1.00000000000000000000D+00 01750822
179: WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 01760822
180: 0051 CONTINUE 01770822
181: CT006* TEST 6 A NEGATIVE VALUE 01780822
182: IVTNUM = 6 01790822
183: BVD = -2.0D0 / 1.0D0 01800822
184: AVD = DTAN(BVD) 01810822
185: IF (AVD - 0.2185039862D+01) 20060, 10060, 40060 01820822
186: 40060 IF (AVD - 0.2185039865D+01) 10060, 10060, 20060 01830822
187: 10060 IVPASS = IVPASS + 1 01840822
188: WRITE (NUVI, 80002) IVTNUM 01850822
189: GO TO 0061 01860822
190: 20060 IVFAIL = IVFAIL + 1 01870822
191: DVCORR = 2.1850398632615189916D+00 01880822
192: WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 01890822
193: 0061 CONTINUE 01900822
194: CT007* TEST 7 A POSITIVE VALUE 01910822
195: IVTNUM = 7 01920822
196: BVD = 350.0D0 / 100.0D0 01930822
197: AVD = DTAN(BVD) 01940822
198: IF (AVD - 0.3745856399D+00) 20070, 10070, 40070 01950822
199: 40070 IF (AVD - 0.3745856404D+00) 10070, 10070, 20070 01960822
200: 10070 IVPASS = IVPASS + 1 01970822
201: WRITE (NUVI, 80002) IVTNUM 01980822
202: GO TO 0071 01990822
203: 20070 IVFAIL = IVFAIL + 1 02000822
204: DVCORR = 0.37458564015859466633D+00 02010822
205: WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 02020822
206: 0071 CONTINUE 02030822
207: CT008* TEST 8 (PI / 2) - 1/8 02040822
208: IVTNUM = 8 02050822
209: BVD = 1.44579632679489661923D0 02060822
210: AVD = DTAN(BVD) 02070822
211: IF (AVD - 0.7958289861D+01) 20080, 10080, 40080 02080822
212: 40080 IF (AVD - 0.7958289870D+01) 10080, 10080, 20080 02090822
213: 10080 IVPASS = IVPASS + 1 02100822
214: WRITE (NUVI, 80002) IVTNUM 02110822
215: GO TO 0081 02120822
216: 20080 IVFAIL = IVFAIL + 1 02130822
217: DVCORR = 7.9582898658670111779D+00 02140822
218: WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 02150822
219: 0081 CONTINUE 02160822
220: CT009* TEST 9 (PI / 2) + 1/256 02170822
221: IVTNUM = 9 02180822
222: BVD = 1.57470257679489661923D0 02190822
223: AVD = DTAN(BVD) 02200822
224: IF (AVD + 0.2559986981D+03) 20090, 10090, 40090 02210822
225: 40090 IF (AVD + 0.2559986977D+03) 10090, 10090, 20090 02220822
226: 10090 IVPASS = IVPASS + 1 02230822
227: WRITE (NUVI, 80002) IVTNUM 02240822
228: GO TO 0091 02250822
229: 20090 IVFAIL = IVFAIL + 1 02260822
230: DVCORR = -255.99869791534211708D+00 02270822
231: WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 02280822
232: 0091 CONTINUE 02290822
233: CT010* TEST 10 3*PI/2 - 1/1024 02300822
234: IVTNUM = 10 02310822
235: AVD = DTAN((3.0D0 * PIVD / 2.0D0) - 1.0D0 / 1024.0D0) 02320822
236: IF (AVD - 0.1023999674D+04) 20100, 10100, 40100 02330822
237: 40100 IF (AVD - 0.1023999675D+04) 10100, 10100, 20100 02340822
238: 10100 IVPASS = IVPASS + 1 02350822
239: WRITE (NUVI, 80002) IVTNUM 02360822
240: GO TO 0101 02370822
241: 20100 IVFAIL = IVFAIL + 1 02380822
242: DVCORR = 1023.9996744791459706D+00 02390822
243: WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 02400822
244: 0101 CONTINUE 02410822
245: CT011* TEST 11 3*PI + 1/64 02420822
246: IVTNUM = 11 02430822
247: BVD = (3.0D0 * PIVD / 2.0D0) + 1.0D0 / 64.0D0 02440822
248: AVD = DTAN(BVD) 02450822
249: IF (AVD + 0.6399479162D+02) 20110, 10110, 40110 02460822
250: 40110 IF (AVD + 0.6399479155D+02) 10110, 10110, 20110 02470822
251: 10110 IVPASS = IVPASS + 1 02480822
252: WRITE (NUVI, 80002) IVTNUM 02490822
253: GO TO 0111 02500822
254: 20110 IVFAIL = IVFAIL + 1 02510822
255: DVCORR = -63.994791581893645218D+00 02520822
256: WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 02530822
257: 0111 CONTINUE 02540822
258: CT012* TEST 12 LARGE VALUE TO TEST ARGUMENT REDUCTION 02550822
259: IVTNUM = 12 02560822
260: AVD = DTAN(2000.0D0) 02570822
261: IF (AVD + 0.2530998330D+01) 20120, 10120, 40120 02580822
262: 40120 IF (AVD + 0.2530998326D+01) 10120, 10120, 20120 02590822
263: 10120 IVPASS = IVPASS + 1 02600822
264: WRITE (NUVI, 80002) IVTNUM 02610822
265: GO TO 0121 02620822
266: 20120 IVFAIL = IVFAIL + 1 02630822
267: DVCORR = -2.5309983280933409104D+00 02640822
268: WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 02650822
269: 0121 CONTINUE 02660822
270: CT013* TEST 13 ARGUMENT OF LOW MAGNITUDE 02670822
271: IVTNUM = 13 02680822
272: BVD = PIVD * 1.0D-15 02690822
273: AVD = DTAN(BVD) 02700822
274: IF (AVD - 0.3141592652D-14) 20130, 10130, 40130 02710822
275: 40130 IF (AVD - 0.3141592655D-14) 10130, 10130, 20130 02720822
276: 10130 IVPASS = IVPASS + 1 02730822
277: WRITE (NUVI, 80002) IVTNUM 02740822
278: GO TO 0131 02750822
279: 20130 IVFAIL = IVFAIL + 1 02760822
280: DVCORR = 3.1415926535897932385D-15 02770822
281: WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 02780822
282: 0131 CONTINUE 02790822
283: CT014* TEST 14 THE FUNCTION APPLIED TWICE 02800822
284: IVTNUM = 14 02810822
285: AVD = DTAN(PIVD / 6.0D0) * DTAN(PIVD / 6.0D0) 02820822
286: IF (AVD - 0.3333333331D+00) 20140, 10140, 40140 02830822
287: 40140 IF (AVD - 0.3333333335D+00) 10140, 10140, 20140 02840822
288: 10140 IVPASS = IVPASS + 1 02850822
289: WRITE (NUVI, 80002) IVTNUM 02860822
290: GO TO 0141 02870822
291: 20140 IVFAIL = IVFAIL + 1 02880822
292: DVCORR = 0.33333333333333333333D+00 02890822
293: WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 02900822
294: 0141 CONTINUE 02910822
295: C***** 02920822
296: CBB** ********************** BBCSUM0 **********************************02930822
297: C**** WRITE OUT TEST SUMMARY 02940822
298: C**** 02950822
299: IVTOTN = IVPASS + IVFAIL + IVDELE + IVINSP 02960822
300: WRITE (I02, 90004) 02970822
301: WRITE (I02, 90014) 02980822
302: WRITE (I02, 90004) 02990822
303: WRITE (I02, 90020) IVPASS 03000822
304: WRITE (I02, 90022) IVFAIL 03010822
305: WRITE (I02, 90024) IVDELE 03020822
306: WRITE (I02, 90026) IVINSP 03030822
307: WRITE (I02, 90028) IVTOTN, IVTOTL 03040822
308: CBE** ********************** BBCSUM0 **********************************03050822
309: CBB** ********************** BBCFOOT0 **********************************03060822
310: C**** WRITE OUT REPORT FOOTINGS 03070822
311: C**** 03080822
312: WRITE (I02,90016) ZPROG, ZPROG 03090822
313: WRITE (I02,90018) ZPROJ, ZNAME, ZTAPE, ZTAPED 03100822
314: WRITE (I02,90019) 03110822
315: CBE** ********************** BBCFOOT0 **********************************03120822
316: CBB** ********************** BBCFMT0A **********************************03130822
317: C**** FORMATS FOR TEST DETAIL LINES 03140822
318: C**** 03150822
319: 80000 FORMAT (1H ,2X,I3,4X,7HDELETED,32X,A31) 03160822
320: 80002 FORMAT (1H ,2X,I3,4X,7H PASS ,32X,A31) 03170822
321: 80004 FORMAT (1H ,2X,I3,4X,7HINSPECT,32X,A31) 03180822
322: 80008 FORMAT (1H ,2X,I3,4X,7H FAIL ,32X,A31) 03190822
323: 80010 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,15X,10HCOMPUTED= , 03200822
324: 1I6,/,1H ,15X,10HCORRECT= ,I6) 03210822
325: 80012 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 03220822
326: 1E12.5,/,1H ,16X,10HCORRECT= ,E12.5) 03230822
327: 80018 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 03240822
328: 1A21,/,1H ,16X,10HCORRECT= ,A21) 03250822
329: 80020 FORMAT (1H ,16X,10HCOMPUTED= ,A21,1X,A31) 03260822
330: 80022 FORMAT (1H ,16X,10HCORRECT= ,A21,1X,A31) 03270822
331: 80024 FORMAT (1H ,16X,10HCOMPUTED= ,I6,16X,A31) 03280822
332: 80026 FORMAT (1H ,16X,10HCORRECT= ,I6,16X,A31) 03290822
333: 80028 FORMAT (1H ,16X,10HCOMPUTED= ,E12.5,10X,A31) 03300822
334: 80030 FORMAT (1H ,16X,10HCORRECT= ,E12.5,10X,A31) 03310822
335: 80050 FORMAT (1H ,48X,A31) 03320822
336: CBE** ********************** BBCFMT0A **********************************03330822
337: CBB** ********************** BBCFMAT1 **********************************03340822
338: C**** FORMATS FOR TEST DETAIL LINES - FULL LANGUAGE 03350822
339: C**** 03360822
340: 80031 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 03370822
341: 1D17.10,/,1H ,16X,10HCORRECT= ,D17.10) 03380822
342: 80033 FORMAT (1H ,16X,10HCOMPUTED= ,D17.10,10X,A31) 03390822
343: 80035 FORMAT (1H ,16X,10HCORRECT= ,D17.10,10X,A31) 03400822
344: 80037 FORMAT (1H ,16X,10HCOMPUTED= ,1H(,E12.5,2H, ,E12.5,1H),6X,A31) 03410822
345: 80039 FORMAT (1H ,16X,10HCORRECT= ,1H(,E12.5,2H, ,E12.5,1H),6X,A31) 03420822
346: 80041 FORMAT (1H ,16X,10HCOMPUTED= ,1H(,F12.5,2H, ,F12.5,1H),6X,A31) 03430822
347: 80043 FORMAT (1H ,16X,10HCORRECT= ,1H(,F12.5,2H, ,F12.5,1H),6X,A31) 03440822
348: 80045 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 03450822
349: 11H(,F12.5,2H, ,F12.5,1H)/,1H ,16X,10HCORRECT= , 03460822
350: 21H(,F12.5,2H, ,F12.5,1H)) 03470822
351: CBE** ********************** BBCFMAT1 **********************************03480822
352: CBB** ********************** BBCFMT0B **********************************03490822
353: C**** FORMAT STATEMENTS FOR PAGE HEADERS 03500822
354: C**** 03510822
355: 90002 FORMAT (1H1) 03520822
356: 90004 FORMAT (1H ) 03530822
357: 90006 FORMAT (1H ,20X,31HFEDERAL SOFTWARE TESTING CENTER) 03540822
358: 90007 FORMAT (1H ,19X,34HFORTRAN COMPILER VALIDATION SYSTEM) 03550822
359: 90008 FORMAT (1H ,21X,A13,A17) 03560822
360: 90009 FORMAT (1H ,/,2H *,A5,6HBEGIN*,12X,15HTEST RESULTS - ,A5,/) 03570822
361: 90010 FORMAT (1H ,8X,16HTEST DATE*TIME= ,A17,15H - COMPILER= ,A20) 03580822
362: 90013 FORMAT (1H ,8H TEST ,10HPASS/FAIL ,6X,17HDISPLAYED RESULTS, 03590822
363: 1 7X,7HREMARKS,24X) 03600822
364: 90014 FORMAT (1H ,46H----------------------------------------------, 03610822
365: 1 33H---------------------------------) 03620822
366: 90015 FORMAT (1H ,48X,17HTHIS PROGRAM HAS ,I3,6H TESTS,/) 03630822
367: C**** 03640822
368: C**** FORMAT STATEMENTS FOR REPORT FOOTINGS 03650822
369: C**** 03660822
370: 90016 FORMAT (1H ,/,2H *,A5,4HEND*,14X,14HEND OF TEST - ,A5,/) 03670822
371: 90018 FORMAT (1H ,A13,13X,A20,7H * ,A10,1H/, 03680822
372: 1 A13) 03690822
373: 90019 FORMAT (1H ,26HFOR OFFICIAL USE ONLY ,35X,15HCOPYRIGHT 1982) 03700822
374: C**** 03710822
375: C**** FORMAT STATEMENTS FOR RUN SUMMARY 03720822
376: C**** 03730822
377: 90020 FORMAT (1H ,21X,I5,13H TESTS PASSED) 03740822
378: 90022 FORMAT (1H ,21X,I5,13H TESTS FAILED) 03750822
379: 90024 FORMAT (1H ,21X,I5,14H TESTS DELETED) 03760822
380: 90026 FORMAT (1H ,21X,I5,25H TESTS REQUIRE INSPECTION) 03770822
381: 90028 FORMAT (1H ,21X,I5,4H OF ,I3,15H TESTS EXECUTED) 03780822
382: CBE** ********************** BBCFMT0B **********************************03790822
383: C***** 03800822
384: C***** END OF TEST SEGMENT 192 03810822
385: STOP 03820822
386: END 03830822
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.