![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to FM364.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 FM364.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***********************************************************************00010364
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 00020364
6: C***** FM364 XRMNX - (172) 00030364
7: C***** 00040364
8: C***********************************************************************00050364
9: C***** GENERAL PURPOSE SUBSET REF 00060364
10: C***** TESTS THE USE OF MIXED MODE ARITHMETIC 15.10 00070364
11: C***** EXPRESSIONS CONTAINING REFERENCES TO THE 15.3 00080364
12: C***** INTRINSIC FUNCTIONS 6.1.4 00090364
13: C***** 00100364
14: C***** GENERAL COMMENTS 00110364
15: C***** SEGMENTS TESTING XINT, XREAL, XAINT, XABS, XAMOD, 00120364
16: C***** XSIGN, XDIM, XMAX, XMIN ASSUMED WORKING 00130364
17: C***** 00140364
18: CBB** ********************** BBCCOMNT **********************************00150364
19: C**** 00160364
20: C**** 1978 FORTRAN COMPILER VALIDATION SYSTEM 00170364
21: C**** VERSION 2.0 00180364
22: C**** 00190364
23: C**** 00200364
24: C**** SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00210364
25: C**** GENERAL SERVICES ADMINISTRATION 00220364
26: C**** FEDERAL SOFTWARE TESTING CENTER 00230364
27: C**** 5203 LEESBURG PIKE, SUITE 1100 00240364
28: C**** FALLS CHURCH, VA. 22041 00250364
29: C**** 00260364
30: C**** (703) 756-6153 00270364
31: C**** 00280364
32: CBE** ********************** BBCCOMNT **********************************00290364
33: CBB** ********************** BBCINITA **********************************00300364
34: C**** SPECIFICATION STATEMENTS 00310364
35: C**** 00320364
36: CHARACTER ZVERS*13, ZVERSD*17, ZDATE*17, ZPROG*5, ZCOMPL*20, 00330364
37: 1 ZNAME*20, ZTAPE*10, ZPROJ*13, REMRKS*31, ZTAPED*13 00340364
38: CBE** ********************** BBCINITA **********************************00350364
39: CBB** ********************** BBCINITB **********************************00360364
40: C**** INITIALIZE SECTION 00370364
41: DATA ZVERS, ZVERSD, ZDATE 00380364
42: 1 /'VERSION 2.0 ', '82/08/02*18.33.46', '*NO DATE*TIME'/ 00390364
43: DATA ZCOMPL, ZNAME, ZTAPE 00400364
44: 1 /'*NONE SPECIFIED*', '*NO COMPANY NAME*', '*NO TAPE*'/ 00410364
45: DATA ZPROJ, ZTAPED, ZPROG 00420364
46: 1 /'*NO PROJECT*', '*NO TAPE DATE', 'XXXXX'/ 00430364
47: DATA REMRKS /' '/ 00440364
48: C**** THE FOLLOWING 9 COMMENT LINES (CZ01, CZ02, ...) CAN BE REPLACED 00450364
49: C**** FOR IDENTIFYING THE TEST ENVIRONMENT 00460364
50: C**** 00470364
51: CZ01 ZVERS = 'VERSION OF THE COMPILER VALIDATION SYSTEM' 00480364
52: CZ02 ZVERSD = 'CREATION DATE/TIME OF THE COMPILER VALIDATION SYSTEM' 00490364
53: CZ03 ZPROG = 'PROGRAM NAME' 00500364
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 00570364
61: IVPASS = 0 00580364
62: IVFAIL = 0 00590364
63: IVDELE = 0 00600364
64: IVINSP = 0 00610364
65: IVTOTL = 0 00620364
66: IVTOTN = 0 00630364
67: ICZERO = 0 00640364
68: C 00650364
69: C I01 CONTAINS THE LOGICAL UNIT NUMBER FOR THE CARD READER. 00660364
70: I01 = 05 00670364
71: C I02 CONTAINS THE LOGICAL UNIT NUMBER FOR THE PRINTER. 00680364
72: I02 = 06 00690364
73: C 00700364
74: I01 = 5 00710364
75: C THE CX010 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I01 = 5 00720364
76: CX011 REPLACED BY FEXEC X-011 CONTROL CARD. CX011 IS FOR SYSTEMS 00730364
77: C REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX010. 00740364
78: C 00750364
79: I02 = 6 00760364
80: C THE CX020 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I02= 6 00770364
81: CX021 REPLACED BY FEXEC X-021 CONTROL CARD. CX021 IS FOR SYSTEMS 00780364
82: C REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX020. 00790364
83: C 00800364
84: CBE** ********************** BBCINITB **********************************00810364
85: C***** O U T P U T T A P E ASSIGNMENT STATEMENT. NO INPUT TAPE. 00820364
86: NUVI = I02 00830364
87: IVTOTL = 14 00840364
88: ZPROG = 'FM364' 00850364
89: C***** 00860364
90: CBB** ********************** BBCHED0A **********************************00870364
91: C**** 00880364
92: C**** WRITE REPORT TITLE 00890364
93: C**** 00900364
94: WRITE (I02, 90002) 00910364
95: WRITE (I02, 90006) 00920364
96: WRITE (I02, 90007) 00930364
97: WRITE (I02, 90008) ZVERS, ZVERSD 00940364
98: WRITE (I02, 90009) ZPROG, ZPROG 00950364
99: WRITE (I02, 90010) ZDATE, ZCOMPL 00960364
100: CBE** ********************** BBCHED0A **********************************00970364
101: C***** HEADER FOR SEGMENT 172 WRITTEN 00980364
102: WRITE (NUVI,17201) 00990364
103: 17201 FORMAT(/41H XRMNX - (172) SUBSET INTRINSIC FUNCTIONS/ 01000364
104: 1 15X,25HIN MIXED MODE EXPRESSIONS //, 01010364
105: 2 33H SUBSET REF. - 15.10, 15.3, 6.1.4) 01020364
106: C***** 01030364
107: CBB** ********************** BBCHED0B **********************************01040364
108: C**** WRITE DETAIL REPORT HEADERS 01050364
109: C**** 01060364
110: WRITE (I02,90004) 01070364
111: WRITE (I02,90004) 01080364
112: WRITE (I02,90013) 01090364
113: WRITE (I02,90014) 01100364
114: WRITE (I02,90015) IVTOTL 01110364
115: CBE** ********************** BBCHED0B **********************************01120364
116: CT001* TEST 1 01130364
117: IVTNUM = 1 01140364
118: RKBVS = 3.2 01150364
119: RKDVS = 3.8 01160364
120: RKAVS = 3.5 + INT(RKBVS) + IFIX(RKDVS) 01170364
121: RKCVS = RKAVS - 9.5 01180364
122: IF (RKCVS + .00005) 20010, 10010, 40010 01190364
123: 40010 IF (RKCVS - .00005) 10010, 10010, 20010 01200364
124: 10010 IVPASS = IVPASS + 1 01210364
125: WRITE (NUVI, 80002) IVTNUM 01220364
126: GO TO 0011 01230364
127: 20010 IVFAIL = IVFAIL + 1 01240364
128: RVCORR = 0.0 01250364
129: WRITE (NUVI, 80012) IVTNUM, RKCVS, RVCORR 01260364
130: 0011 CONTINUE 01270364
131: CT002* TEST 2 01280364
132: IVTNUM = 2 01290364
133: IKBVI = 3 01300364
134: IKDVI = 6 01310364
135: RKAVS = FLOAT(IKBVI) - 3 + REAL(IKDVI) 01320364
136: RKCVS = RKAVS - 6.0 01330364
137: IF (RKCVS + .00005) 20020, 10020, 40020 01340364
138: 40020 IF (RKCVS - .00005) 10020, 10020, 20020 01350364
139: 10020 IVPASS = IVPASS + 1 01360364
140: WRITE (NUVI, 80002) IVTNUM 01370364
141: GO TO 0021 01380364
142: 20020 IVFAIL = IVFAIL + 1 01390364
143: RVCORR = 0.0 01400364
144: WRITE (NUVI, 80012) IVTNUM, RKCVS, RVCORR 01410364
145: 0021 CONTINUE 01420364
146: CT003* TEST 3 01430364
147: IVTNUM = 3 01440364
148: IKAVI = 3 01450364
149: RKBVS = 5.25 01460364
150: RKAVS = ANINT(RKBVS) * IKAVI 01470364
151: RKCVS = RKAVS - 15.0 01480364
152: IF (RKCVS + .00005) 20030, 10030, 40030 01490364
153: 40030 IF (RKCVS - .00005) 10030, 10030, 20030 01500364
154: 10030 IVPASS = IVPASS + 1 01510364
155: WRITE (NUVI, 80002) IVTNUM 01520364
156: GO TO 0031 01530364
157: 20030 IVFAIL = IVFAIL + 1 01540364
158: RVCORR = 0.0 01550364
159: WRITE (NUVI, 80012) IVTNUM, RKCVS, RVCORR 01560364
160: 0031 CONTINUE 01570364
161: CT004* TEST 4 01580364
162: IVTNUM = 4 01590364
163: RKBVS = 5.25 01600364
164: RKAVS = AINT(RKBVS) * IKAVI 01610364
165: RKCVS = RKAVS - 15.0 01620364
166: IF (RKCVS + .00005) 20040, 10040, 40040 01630364
167: 40040 IF (RKCVS - .00005) 10040, 10040, 20040 01640364
168: 10040 IVPASS = IVPASS + 1 01650364
169: WRITE (NUVI, 80002) IVTNUM 01660364
170: GO TO 0041 01670364
171: 20040 IVFAIL = IVFAIL + 1 01680364
172: RVCORR = 0.0 01690364
173: WRITE (NUVI, 80012) IVTNUM, RKCVS, RVCORR 01700364
174: 0041 CONTINUE 01710364
175: CT005* TEST 5 01720364
176: IVTNUM = 5 01730364
177: RKBVS = -5.5 01740364
178: RKAVS = ABS(RKBVS) / 2 01750364
179: RKCVS = RKAVS - 2.75 01760364
180: IF (RKCVS + .00005) 20050, 10050, 40050 01770364
181: 40050 IF (RKCVS - .00005) 10050, 10050, 20050 01780364
182: 10050 IVPASS = IVPASS + 1 01790364
183: WRITE (NUVI, 80002) IVTNUM 01800364
184: GO TO 0051 01810364
185: 20050 IVFAIL = IVFAIL + 1 01820364
186: RVCORR = 0.0 01830364
187: WRITE (NUVI, 80012) IVTNUM, RKCVS, RVCORR 01840364
188: 0051 CONTINUE 01850364
189: CT006* TEST 6 01860364
190: IVTNUM = 6 01870364
191: RKDVS = 5.0 01880364
192: IKBVI = -5 01890364
193: RKAVS = RKDVS / IABS(IKBVI) 01900364
194: RKCVS = RKAVS - 1.0 01910364
195: IF (RKCVS + .00005) 20060, 10060, 40060 01920364
196: 40060 IF (RKCVS - .00005) 10060, 10060, 20060 01930364
197: 10060 IVPASS = IVPASS + 1 01940364
198: WRITE (NUVI, 80002) IVTNUM 01950364
199: GO TO 0061 01960364
200: 20060 IVFAIL = IVFAIL + 1 01970364
201: RVCORR = 0.0 01980364
202: WRITE (NUVI, 80012) IVTNUM, RKCVS, RVCORR 01990364
203: 0061 CONTINUE 02000364
204: CT007* TEST 7 02010364
205: IVTNUM = 7 02020364
206: RKDVS = -2.0 02030364
207: IKAVI = -2 02040364
208: IKBVI = 5 02050364
209: IKCVI = 2 02060364
210: RKAVS = RKDVS / (IABS(IKAVI) * MOD(IKBVI, IKCVI)) 02070364
211: RKCVS = RKAVS + 1.0 02080364
212: IF (RKCVS + .00005) 20070, 10070, 40070 02090364
213: 40070 IF (RKCVS - .00005) 10070, 10070, 20070 02100364
214: 10070 IVPASS = IVPASS + 1 02110364
215: WRITE (NUVI, 80002) IVTNUM 02120364
216: GO TO 0071 02130364
217: 20070 IVFAIL = IVFAIL + 1 02140364
218: RVCORR = 0.0 02150364
219: WRITE (NUVI, 80012) IVTNUM, RKCVS, RVCORR 02160364
220: 0071 CONTINUE 02170364
221: CT008* TEST 8 02180364
222: IVTNUM = 8 02190364
223: IKAVI = -2 02200364
224: IKBVI = 2 02210364
225: RKAVS = 3 * ISIGN(IKAVI, IKBVI) 02220364
226: RKCVS = RKAVS - 6.0 02230364
227: IF (RKCVS + .00005) 20080, 10080, 40080 02240364
228: 40080 IF (RKCVS - .00005) 10080, 10080, 20080 02250364
229: 10080 IVPASS = IVPASS + 1 02260364
230: WRITE (NUVI, 80002) IVTNUM 02270364
231: GO TO 0081 02280364
232: 20080 IVFAIL = IVFAIL + 1 02290364
233: RVCORR = 0.0 02300364
234: WRITE (NUVI, 80012) IVTNUM, RKCVS, RVCORR 02310364
235: 0081 CONTINUE 02320364
236: CT009* TEST 9 02330364
237: IVTNUM = 9 02340364
238: RKBVS = 5.25 02350364
239: RKDVS = 3.25 02360364
240: RKEVS = 2.25 02370364
241: RKAVS = AMOD(RKBVS, RKDVS) * NINT(RKEVS) 02380364
242: RKCVS = RKAVS - 4.0 02390364
243: IF (RKCVS + .00005) 20090, 10090, 40090 02400364
244: 40090 IF (RKCVS - .00005) 10090, 10090, 20090 02410364
245: 10090 IVPASS = IVPASS + 1 02420364
246: WRITE (NUVI, 80002) IVTNUM 02430364
247: GO TO 0091 02440364
248: 20090 IVFAIL = IVFAIL + 1 02450364
249: RVCORR = 0.0 02460364
250: WRITE (NUVI, 80012) IVTNUM, RKCVS, RVCORR 02470364
251: 0091 CONTINUE 02480364
252: CT010* TEST 10 02490364
253: IVTNUM = 10 02500364
254: IKAVI = 2 02510364
255: RKDVS = -4.5 02520364
256: RKBVS = 1.0 02530364
257: RKAVS = (IKAVI + SIGN(RKDVS, RKBVS)) * 1.5 02540364
258: RKCVS = RKAVS - 9.75 02550364
259: IF (RKCVS + .00005) 20100, 10100, 40100 02560364
260: 40100 IF (RKCVS - .00005) 10100, 10100, 20100 02570364
261: 10100 IVPASS = IVPASS + 1 02580364
262: WRITE (NUVI, 80002) IVTNUM 02590364
263: GO TO 0101 02600364
264: 20100 IVFAIL = IVFAIL + 1 02610364
265: RVCORR = 0.0 02620364
266: WRITE (NUVI, 80012) IVTNUM, RKCVS, RVCORR 02630364
267: 0101 CONTINUE 02640364
268: CT011* TEST 11 02650364
269: RKDVS = 6.0 02660364
270: IKAVI = 5 02670364
271: IKBVI = 2 02680364
272: IKCVI = 1 02690364
273: RKAVS = (IDIM(IKAVI, IKBVI) / RKDVS) ** MAX0(IKCVI, IKBVI) 02700364
274: RKCVS = RKAVS - 0.25 02710364
275: IF (RKCVS + .00005) 20110, 10110, 40110 02720364
276: 40110 IF (RKCVS - .00005) 10110, 10110, 20110 02730364
277: 10110 IVPASS = IVPASS + 1 02740364
278: WRITE (NUVI, 80002) IVTNUM 02750364
279: GO TO 0111 02760364
280: 20110 IVFAIL = IVFAIL + 1 02770364
281: RVCORR = 0.0 02780364
282: WRITE (NUVI, 80012) IVTNUM, RKCVS, RVCORR 02790364
283: 0111 CONTINUE 02800364
284: CT012* TEST 12 02810364
285: IVTNUM = 12 02820364
286: IKAVI = 12 02830364
287: RKBVS = 5.5 02840364
288: RKDVS = 3.25 02850364
289: IKBVI = 2 02860364
290: IKCVI = 3 02870364
291: RKAVS = 2 * DIM(RKBVS, RKDVS) + AMAX0(IKBVI, IKCVI) / IKAVI 02880364
292: RKCVS = RKAVS - 4.75 02890364
293: IF (RKCVS + .00005) 20120, 10120, 40120 02900364
294: 40120 IF (RKCVS - .00005) 10120, 10120, 20120 02910364
295: 10120 IVPASS = IVPASS + 1 02920364
296: WRITE (NUVI, 80002) IVTNUM 02930364
297: GO TO 0121 02940364
298: 20120 IVFAIL = IVFAIL + 1 02950364
299: RVCORR = 0.0 02960364
300: WRITE (NUVI, 80012) IVTNUM, RKCVS, RVCORR 02970364
301: 0121 CONTINUE 02980364
302: CT013* TEST 13 02990364
303: IVTNUM = 13 03000364
304: IKAVI = 5 03010364
305: RKBVS = 4.5 03020364
306: RKDVS = 3.5 03030364
307: IKBVI = 2 03040364
308: IKCVI = 3 03050364
309: RKAVS = (AMAX1(RKBVS, RKDVS) * MIN0(IKBVI, IKCVI)) + (IKAVI - 03060364
310: 1 ANINT(RKDVS)) 03070364
311: RKCVS = RKAVS - 10.0 03080364
312: IF (RKCVS + .00005) 20130, 10130, 40130 03090364
313: 40130 IF (RKCVS - .00005) 10130, 10130, 20130 03100364
314: 10130 IVPASS = IVPASS + 1 03110364
315: WRITE (NUVI, 80002) IVTNUM 03120364
316: GO TO 0131 03130364
317: 20130 IVFAIL = IVFAIL + 1 03140364
318: RVCORR = 0.0 03150364
319: WRITE (NUVI, 80012) IVTNUM, RKCVS, RVCORR 03160364
320: 0131 CONTINUE 03170364
321: CT014* TEST 14 03180364
322: IVTNUM = 14 03190364
323: IKAVI = 2 03200364
324: RKBVS = 4.5 03210364
325: RKDVS = 3.5 03220364
326: RKEVS = 2.5 03230364
327: RKFVS = 1.5 03240364
328: IKBVI = 5 03250364
329: IKCVI = 2 03260364
330: RKAVS = (FLOAT(MAX1(RKBVS, RKDVS)) ** (AMIN1(RKEVS, RKDVS) - 03270364
331: 1 IKAVI) + AMIN0(IKBVI, IKCVI)) / MIN1(RKFVS, RKEVS) 03280364
332: RKCVS = RKAVS - 4.0 03290364
333: IF (RKCVS + .00005) 20140, 10140, 40140 03300364
334: 40140 IF (RKCVS - .00005) 10140, 10140, 20140 03310364
335: 10140 IVPASS = IVPASS + 1 03320364
336: WRITE (NUVI, 80002) IVTNUM 03330364
337: GO TO 0141 03340364
338: 20140 IVFAIL = IVFAIL + 1 03350364
339: RVCORR = 0.0 03360364
340: WRITE (NUVI, 80012) IVTNUM, RKCVS, RVCORR 03370364
341: 0141 CONTINUE 03380364
342: C***** 03390364
343: CBB** ********************** BBCSUM0 **********************************03400364
344: C**** WRITE OUT TEST SUMMARY 03410364
345: C**** 03420364
346: IVTOTN = IVPASS + IVFAIL + IVDELE + IVINSP 03430364
347: WRITE (I02, 90004) 03440364
348: WRITE (I02, 90014) 03450364
349: WRITE (I02, 90004) 03460364
350: WRITE (I02, 90020) IVPASS 03470364
351: WRITE (I02, 90022) IVFAIL 03480364
352: WRITE (I02, 90024) IVDELE 03490364
353: WRITE (I02, 90026) IVINSP 03500364
354: WRITE (I02, 90028) IVTOTN, IVTOTL 03510364
355: CBE** ********************** BBCSUM0 **********************************03520364
356: CBB** ********************** BBCFOOT0 **********************************03530364
357: C**** WRITE OUT REPORT FOOTINGS 03540364
358: C**** 03550364
359: WRITE (I02,90016) ZPROG, ZPROG 03560364
360: WRITE (I02,90018) ZPROJ, ZNAME, ZTAPE, ZTAPED 03570364
361: WRITE (I02,90019) 03580364
362: CBE** ********************** BBCFOOT0 **********************************03590364
363: CBB** ********************** BBCFMT0A **********************************03600364
364: C**** FORMATS FOR TEST DETAIL LINES 03610364
365: C**** 03620364
366: 80000 FORMAT (1H ,2X,I3,4X,7HDELETED,32X,A31) 03630364
367: 80002 FORMAT (1H ,2X,I3,4X,7H PASS ,32X,A31) 03640364
368: 80004 FORMAT (1H ,2X,I3,4X,7HINSPECT,32X,A31) 03650364
369: 80008 FORMAT (1H ,2X,I3,4X,7H FAIL ,32X,A31) 03660364
370: 80010 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,15X,10HCOMPUTED= , 03670364
371: 1I6,/,1H ,15X,10HCORRECT= ,I6) 03680364
372: 80012 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 03690364
373: 1E12.5,/,1H ,16X,10HCORRECT= ,E12.5) 03700364
374: 80018 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 03710364
375: 1A21,/,1H ,16X,10HCORRECT= ,A21) 03720364
376: 80020 FORMAT (1H ,16X,10HCOMPUTED= ,A21,1X,A31) 03730364
377: 80022 FORMAT (1H ,16X,10HCORRECT= ,A21,1X,A31) 03740364
378: 80024 FORMAT (1H ,16X,10HCOMPUTED= ,I6,16X,A31) 03750364
379: 80026 FORMAT (1H ,16X,10HCORRECT= ,I6,16X,A31) 03760364
380: 80028 FORMAT (1H ,16X,10HCOMPUTED= ,E12.5,10X,A31) 03770364
381: 80030 FORMAT (1H ,16X,10HCORRECT= ,E12.5,10X,A31) 03780364
382: 80050 FORMAT (1H ,48X,A31) 03790364
383: CBE** ********************** BBCFMT0A **********************************03800364
384: CBB** ********************** BBCFMT0B **********************************03810364
385: C**** FORMAT STATEMENTS FOR PAGE HEADERS 03820364
386: C**** 03830364
387: 90002 FORMAT (1H1) 03840364
388: 90004 FORMAT (1H ) 03850364
389: 90006 FORMAT (1H ,20X,31HFEDERAL SOFTWARE TESTING CENTER) 03860364
390: 90007 FORMAT (1H ,19X,34HFORTRAN COMPILER VALIDATION SYSTEM) 03870364
391: 90008 FORMAT (1H ,21X,A13,A17) 03880364
392: 90009 FORMAT (1H ,/,2H *,A5,6HBEGIN*,12X,15HTEST RESULTS - ,A5,/) 03890364
393: 90010 FORMAT (1H ,8X,16HTEST DATE*TIME= ,A17,15H - COMPILER= ,A20) 03900364
394: 90013 FORMAT (1H ,8H TEST ,10HPASS/FAIL ,6X,17HDISPLAYED RESULTS, 03910364
395: 1 7X,7HREMARKS,24X) 03920364
396: 90014 FORMAT (1H ,46H----------------------------------------------, 03930364
397: 1 33H---------------------------------) 03940364
398: 90015 FORMAT (1H ,48X,17HTHIS PROGRAM HAS ,I3,6H TESTS,/) 03950364
399: C**** 03960364
400: C**** FORMAT STATEMENTS FOR REPORT FOOTINGS 03970364
401: C**** 03980364
402: 90016 FORMAT (1H ,/,2H *,A5,4HEND*,14X,14HEND OF TEST - ,A5,/) 03990364
403: 90018 FORMAT (1H ,A13,13X,A20,7H * ,A10,1H/, 04000364
404: 1 A13) 04010364
405: 90019 FORMAT (1H ,26HFOR OFFICIAL USE ONLY ,35X,15HCOPYRIGHT 1982) 04020364
406: C**** 04030364
407: C**** FORMAT STATEMENTS FOR RUN SUMMARY 04040364
408: C**** 04050364
409: 90020 FORMAT (1H ,21X,I5,13H TESTS PASSED) 04060364
410: 90022 FORMAT (1H ,21X,I5,13H TESTS FAILED) 04070364
411: 90024 FORMAT (1H ,21X,I5,14H TESTS DELETED) 04080364
412: 90026 FORMAT (1H ,21X,I5,25H TESTS REQUIRE INSPECTION) 04090364
413: 90028 FORMAT (1H ,21X,I5,4H OF ,I3,15H TESTS EXECUTED) 04100364
414: CBE** ********************** BBCFMT0B **********************************04110364
415: C***** 04120364
416: C***** END OF TEST SEGMENT 172 04130364
417: STOP 04140364
418: END 04150364
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.