![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to FM832.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 FM832.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***********************************************************************00010832
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 00020832
6: C***** FM832 00030832
7: C***** YGEN5 - (210) 00040832
8: C***** 00050832
9: C***********************************************************************00060832
10: C***** GENERAL PURPOSE ANS REF 00070832
11: C***** TEST GENERIC FUNCTIONS 15.3 00080832
12: C***** SQRT,EXP,LOG,LOG10,COS,SINH,TANH,ASIN,ATAN,ATAN2 TABLE 5 00090832
13: C***** EACH FUNCTION IS FIRST CALLED WITH A REAL VALUE 00100832
14: C***** AND THEN WITH A DOUBLE PRECISION VALUE 00110832
15: C***** 00120832
16: CBB** ********************** BBCCOMNT **********************************00130832
17: C**** 00140832
18: C**** 1978 FORTRAN COMPILER VALIDATION SYSTEM 00150832
19: C**** VERSION 2.0 00160832
20: C**** 00170832
21: C**** 00180832
22: C**** SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00190832
23: C**** GENERAL SERVICES ADMINISTRATION 00200832
24: C**** FEDERAL SOFTWARE TESTING CENTER 00210832
25: C**** 5203 LEESBURG PIKE, SUITE 1100 00220832
26: C**** FALLS CHURCH, VA. 22041 00230832
27: C**** 00240832
28: C**** (703) 756-6153 00250832
29: C**** 00260832
30: CBE** ********************** BBCCOMNT **********************************00270832
31: C***** 00280832
32: C***** S P E C I F I C A T I O N S SEGMENT 210 00290832
33: DOUBLE PRECISION AVD, BVD, CVD, DVCORR 00300832
34: C***** 00310832
35: CBB** ********************** BBCINITA **********************************00320832
36: C**** SPECIFICATION STATEMENTS 00330832
37: C**** 00340832
38: CHARACTER ZVERS*13, ZVERSD*17, ZDATE*17, ZPROG*5, ZCOMPL*20, 00350832
39: 1 ZNAME*20, ZTAPE*10, ZPROJ*13, REMRKS*31, ZTAPED*13 00360832
40: CBE** ********************** BBCINITA **********************************00370832
41: CBB** ********************** BBCINITB **********************************00380832
42: C**** INITIALIZE SECTION 00390832
43: DATA ZVERS, ZVERSD, ZDATE 00400832
44: 1 /'VERSION 2.0 ', '82/08/02*18.33.46', '*NO DATE*TIME'/ 00410832
45: DATA ZCOMPL, ZNAME, ZTAPE 00420832
46: 1 /'*NONE SPECIFIED*', '*NO COMPANY NAME*', '*NO TAPE*'/ 00430832
47: DATA ZPROJ, ZTAPED, ZPROG 00440832
48: 1 /'*NO PROJECT*', '*NO TAPE DATE', 'XXXXX'/ 00450832
49: DATA REMRKS /' '/ 00460832
50: C**** THE FOLLOWING 9 COMMENT LINES (CZ01, CZ02, ...) CAN BE REPLACED 00470832
51: C**** FOR IDENTIFYING THE TEST ENVIRONMENT 00480832
52: C**** 00490832
53: CZ01 ZVERS = 'VERSION OF THE COMPILER VALIDATION SYSTEM' 00500832
54: CZ02 ZVERSD = 'CREATION DATE/TIME OF THE COMPILER VALIDATION SYSTEM' 00510832
55: CZ03 ZPROG = 'PROGRAM NAME' 00520832
56: ZDATE = '07-Nov-85 ' *RP
57: ZCOMPL = 'CCI 5.2 ' *RP
58: ZPROJ = 'TC-85- -410' *RP
59: ZNAME = ' ' *RP
60: ZTAPE = ' ' *RP
61: ZTAPED = '850703 ' *RP
62: C 00590832
63: IVPASS = 0 00600832
64: IVFAIL = 0 00610832
65: IVDELE = 0 00620832
66: IVINSP = 0 00630832
67: IVTOTL = 0 00640832
68: IVTOTN = 0 00650832
69: ICZERO = 0 00660832
70: C 00670832
71: C I01 CONTAINS THE LOGICAL UNIT NUMBER FOR THE CARD READER. 00680832
72: I01 = 05 00690832
73: C I02 CONTAINS THE LOGICAL UNIT NUMBER FOR THE PRINTER. 00700832
74: I02 = 06 00710832
75: C 00720832
76: I01 = 5 00730832
77: C THE CX010 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I01 = 5 00740832
78: CX011 REPLACED BY FEXEC X-011 CONTROL CARD. CX011 IS FOR SYSTEMS 00750832
79: C REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX010. 00760832
80: C 00770832
81: I02 = 6 00780832
82: C THE CX020 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I02= 6 00790832
83: CX021 REPLACED BY FEXEC X-021 CONTROL CARD. CX021 IS FOR SYSTEMS 00800832
84: C REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX020. 00810832
85: C 00820832
86: CBE** ********************** BBCINITB **********************************00830832
87: NUVI = I02 00840832
88: IVTOTL = 20 00850832
89: ZPROG = 'FM832' 00860832
90: CBB** ********************** BBCHED0A **********************************00870832
91: C**** 00880832
92: C**** WRITE REPORT TITLE 00890832
93: C**** 00900832
94: WRITE (I02, 90002) 00910832
95: WRITE (I02, 90006) 00920832
96: WRITE (I02, 90007) 00930832
97: WRITE (I02, 90008) ZVERS, ZVERSD 00940832
98: WRITE (I02, 90009) ZPROG, ZPROG 00950832
99: WRITE (I02, 90010) ZDATE, ZCOMPL 00960832
100: CBE** ********************** BBCHED0A **********************************00970832
101: C***** 00980832
102: C***** HEADER FOR SEGMENT 210 00990832
103: WRITE(NUVI,21000) 01000832
104: 21000 FORMAT( 1H , / 35H YGEN5 - (210) GENERIC FUNCTIONS --// 01010832
105: 1 50H SQRT,EXP,LOG,LOG10,COS,SINH,TANH,ASIN,ATAN,ATAN2// 01020832
106: 2 17H ANS REF. - 15.3) 01030832
107: CBB** ********************** BBCHED0B **********************************01040832
108: C**** WRITE DETAIL REPORT HEADERS 01050832
109: C**** 01060832
110: WRITE (I02,90004) 01070832
111: WRITE (I02,90004) 01080832
112: WRITE (I02,90013) 01090832
113: WRITE (I02,90014) 01100832
114: WRITE (I02,90015) IVTOTL 01110832
115: CBE** ********************** BBCHED0B **********************************01120832
116: C***** 01130832
117: C***** TEST WITH REAL ARGUMENTS 01140832
118: C***** 01150832
119: WRITE(NUVI, 21001) 01160832
120: 21001 FORMAT (/ 8X, 24HTEST WITH REAL ARGUMENTS) 01170832
121: CT001* TEST 1 TEST OF SQRT 01180832
122: IVTNUM = 1 01190832
123: AVS = 2.0 01200832
124: BVS = 1.0 01210832
125: AVD = SQRT(AVS*BVS) 01220832
126: IF (AVD - 0.14141E+01) 20010, 10010, 40010 01230832
127: 40010 IF (AVD - 0.14143E+01) 10010, 10010, 20010 01240832
128: 10010 IVPASS = IVPASS + 1 01250832
129: WRITE (NUVI, 80002) IVTNUM 01260832
130: GO TO 0011 01270832
131: 20010 IVFAIL = IVFAIL + 1 01280832
132: RVCORR = 0.14142135381699E+01 01290832
133: WRITE (NUVI, 80012) IVTNUM, AVD, RVCORR 01300832
134: 0011 CONTINUE 01310832
135: CT002* TEST 2 TEST OF EXP 01320832
136: IVTNUM = 2 01330832
137: AVS = 10.0 01340832
138: AVD = EXP(AVS / 10.0) 01350832
139: IF (AVD - 0.27181E+01) 20020, 10020, 40020 01360832
140: 40020 IF (AVD - 0.27185E+01) 10020, 10020, 20020 01370832
141: 10020 IVPASS = IVPASS + 1 01380832
142: WRITE (NUVI, 80002) IVTNUM 01390832
143: GO TO 0021 01400832
144: 20020 IVFAIL = IVFAIL + 1 01410832
145: RVCORR = 0.27182817459106E+01 01420832
146: WRITE (NUVI, 80012) IVTNUM, AVD, RVCORR 01430832
147: 0021 CONTINUE 01440832
148: CT003* TEST 3 TEST OF LOG 01450832
149: IVTNUM = 3 01460832
150: AVS = 0.1234 01470832
151: BVS = .0000567 01480832
152: AVD = LOG(AVS + BVS) 01490832
153: IF (AVD + 0.20920E+01) 20030, 10030, 40030 01500832
154: 40030 IF (AVD + 0.20917E+01) 10030, 10030, 20030 01510832
155: 10030 IVPASS = IVPASS + 1 01520832
156: WRITE (NUVI, 80002) IVTNUM 01530832
157: GO TO 0031 01540832
158: 20030 IVFAIL = IVFAIL + 1 01550832
159: RVCORR = -0.20918648242950E+01 01560832
160: WRITE (NUVI, 80012) IVTNUM, AVD, RVCORR 01570832
161: 0031 CONTINUE 01580832
162: CT004* TEST 4 TEST OF LOG10 01590832
163: IVTNUM = 4 01600832
164: AVS = 0.375 01610832
165: BVD = 3.75D0 01620832
166: AVD = LOG10(AVS) 01630832
167: IF (AVD + 0.42599E+00) 20040, 10040, 40040 01640832
168: 40040 IF (AVD + 0.42594E+00) 10040, 10040, 20040 01650832
169: 10040 IVPASS = IVPASS + 1 01660832
170: WRITE (NUVI, 80002) IVTNUM 01670832
171: GO TO 0041 01680832
172: 20040 IVFAIL = IVFAIL + 1 01690832
173: RVCORR = -0.42596873641014E+00 01700832
174: WRITE (NUVI, 80012) IVTNUM, AVD, RVCORR 01710832
175: 0041 CONTINUE 01720832
176: CT005* TEST 5 TEST OF COS 01730832
177: IVTNUM = 5 01740832
178: AVS = .25 01750832
179: AVD = COS(AVS*2) 01760832
180: IF (AVD - 0.87753E+00) 20050, 10050, 40050 01770832
181: 40050 IF (AVD - 0.87763E+00) 10050, 10050, 20050 01780832
182: 10050 IVPASS = IVPASS + 1 01790832
183: WRITE (NUVI, 80002) IVTNUM 01800832
184: GO TO 0051 01810832
185: 20050 IVFAIL = IVFAIL + 1 01820832
186: RVCORR = 0.87758255004883E+00 01830832
187: WRITE (NUVI, 80012) IVTNUM, AVD, RVCORR 01840832
188: 0051 CONTINUE 01850832
189: CT006* TEST 6 TEST OF SINH 01860832
190: IVTNUM = 6 01870832
191: AVD = SINH(AVS+3.0) 01880832
192: IF (AVD - 0.12875E+02) 20060, 10060, 40060 01890832
193: 40060 IF (AVD - 0.12877E+02) 10060, 10060, 20060 01900832
194: 10060 IVPASS = IVPASS + 1 01910832
195: WRITE (NUVI, 80002) IVTNUM 01920832
196: GO TO 0061 01930832
197: 20060 IVFAIL = IVFAIL + 1 01940832
198: RVCORR = 0.12875782966614E+02 01950832
199: WRITE (NUVI, 80012) IVTNUM, AVD, RVCORR 01960832
200: 0061 CONTINUE 01970832
201: CT007* TEST 7 TEST OF TANH 01980832
202: IVTNUM = 7 01990832
203: CVD = 0.5D1 02000832
204: AVD = TANH(AVS*20.0) 02010832
205: IF (AVD - 0.99986E+00) 20070, 10070, 40070 02020832
206: 40070 IF (AVD - 0.99996E+00) 10070, 10070, 20070 02030832
207: 10070 IVPASS = IVPASS + 1 02040832
208: WRITE (NUVI, 80002) IVTNUM 02050832
209: GO TO 0071 02060832
210: 20070 IVFAIL = IVFAIL + 1 02070832
211: RVCORR = 0.99990922212601E+00 02080832
212: WRITE (NUVI, 80012) IVTNUM, AVD, RVCORR 02090832
213: 0071 CONTINUE 02100832
214: CT008* TEST 8 TEST OF ASIN 02110832
215: IVTNUM = 8 02120832
216: AVD = ASIN(AVS*4.0) 02130832
217: IF (AVD - 0.15707E+01) 20080, 10080, 40080 02140832
218: 40080 IF (AVD - 0.15709E+01) 10080, 10080, 20080 02150832
219: 10080 IVPASS = IVPASS + 1 02160832
220: WRITE (NUVI, 80002) IVTNUM 02170832
221: GO TO 0081 02180832
222: 20080 IVFAIL = IVFAIL + 1 02190832
223: RVCORR = 0.15707963705063E+01 02200832
224: WRITE (NUVI, 80012) IVTNUM, AVD, RVCORR 02210832
225: 0081 CONTINUE 02220832
226: CT009* TEST 9 TEST OF ATAN 02230832
227: IVTNUM = 9 02240832
228: AVS = 500.0 02250832
229: AVD = ATAN(-2.0*AVS) 02260832
230: IF (AVD + 0.15699E+01) 20090, 10090, 40090 02270832
231: 40090 IF (AVD + 0.15697E+01) 10090, 10090, 20090 02280832
232: 10090 IVPASS = IVPASS + 1 02290832
233: WRITE (NUVI, 80002) IVTNUM 02300832
234: GO TO 0091 02310832
235: 20090 IVFAIL = IVFAIL + 1 02320832
236: RVCORR = -0.15697963237762E+01 02330832
237: WRITE (NUVI, 80012) IVTNUM, AVD, RVCORR 02340832
238: 0091 CONTINUE 02350832
239: CT010* TEST 10 TEST OF ATAN2 02360832
240: IVTNUM = 10 02370832
241: AVS = 0.0 02380832
242: BVS = -5.0 02390832
243: AVD = ATAN2(AVS, BVS) 02400832
244: IF (AVD - 0.31414E+01) 20100, 10100, 40100 02410832
245: 40100 IF (AVD - 0.31418E+01) 10100, 10100, 20100 02420832
246: 10100 IVPASS = IVPASS + 1 02430832
247: WRITE (NUVI, 80002) IVTNUM 02440832
248: GO TO 0101 02450832
249: 20100 IVFAIL = IVFAIL + 1 02460832
250: RVCORR = 0.31415927410126E+01 02470832
251: WRITE (NUVI, 80012) IVTNUM, AVD, RVCORR 02480832
252: 0101 CONTINUE 02490832
253: C***** 02500832
254: WRITE (NUVI, 90002) 02510832
255: WRITE (NUVI, 90013) 02520832
256: WRITE (NUVI, 90014) 02530832
257: C***** 02540832
258: C***** TEST WITH DOUBLE PRECISION ARGUMENTS 02550832
259: C***** 02560832
260: WRITE (NUVI, 21002) 02570832
261: 21002 FORMAT (/ 08X, 36HTEST WITH DOUBLE PRECISION ARGUMENTS) 02580832
262: CT011* TEST 11 TEST OF SQRT 02590832
263: IVTNUM = 11 02600832
264: AVS = 2.0 02610832
265: BVS = 1.0 02620832
266: BVD = SQRT(DBLE(AVS)) 02630832
267: IF (BVD - 0.1414213561D+01) 20110, 10110, 40110 02640832
268: 40110 IF (BVD - 0.1414213563D+01) 10110, 10110, 20110 02650832
269: 10110 IVPASS = IVPASS + 1 02660832
270: WRITE (NUVI, 80002) IVTNUM 02670832
271: GO TO 0111 02680832
272: 20110 IVFAIL = IVFAIL + 1 02690832
273: DVCORR = 0.14142135623731D+01 02700832
274: WRITE (NUVI, 80031) IVTNUM, BVD, DVCORR 02710832
275: 0111 CONTINUE 02720832
276: CT012* TEST 12 TEST OF EXP 02730832
277: IVTNUM = 12 02740832
278: AVS = 10.0 02750832
279: BVD = EXP(1.0D0) 02760832
280: IF (BVD - 0.2718281827D+01) 20120, 10120, 40120 02770832
281: 40120 IF (BVD - 0.2718281830D+01) 10120, 10120, 20120 02780832
282: 10120 IVPASS = IVPASS + 1 02790832
283: WRITE (NUVI, 80002) IVTNUM 02800832
284: GO TO 0121 02810832
285: 20120 IVFAIL = IVFAIL + 1 02820832
286: DVCORR = 0.27182818284590D+01 02830832
287: WRITE (NUVI, 80031) IVTNUM, BVD, DVCORR 02840832
288: 0121 CONTINUE 02850832
289: CT013* TEST 13 TEST OF LOG 02860832
290: IVTNUM = 13 02870832
291: AVS = 0.1234 02880832
292: BVS = .0000567 02890832
293: BVD = LOG(0.1234567D0) 02900832
294: IF (BVD + 0.2091864793D+01) 20130, 10130, 40130 02910832
295: 40130 IF (BVD + 0.2091864790D+01) 10130, 10130, 20130 02920832
296: 10130 IVPASS = IVPASS + 1 02930832
297: WRITE (NUVI, 80002) IVTNUM 02940832
298: GO TO 0131 02950832
299: 20130 IVFAIL = IVFAIL + 1 02960832
300: DVCORR = -0.20918647916786D+01 02970832
301: WRITE (NUVI, 80031) IVTNUM, BVD, DVCORR 02980832
302: 0131 CONTINUE 02990832
303: CT014* TEST 14 TEST OF LOG10 03000832
304: IVTNUM = 14 03010832
305: AVS = 0.375 03020832
306: BVD = 3.75D0 03030832
307: BVD = LOG10(BVD / 1.0D1) 03040832
308: IF (BVD + 0.4259687325D+00) 20140, 10140, 40140 03050832
309: 40140 IF (BVD + 0.4259687320D+00) 10140, 10140, 20140 03060832
310: 10140 IVPASS = IVPASS + 1 03070832
311: WRITE (NUVI, 80002) IVTNUM 03080832
312: GO TO 0141 03090832
313: 20140 IVFAIL = IVFAIL + 1 03100832
314: DVCORR = -0.42596873227228D+00 03110832
315: WRITE (NUVI, 80031) IVTNUM, BVD, DVCORR 03120832
316: 0141 CONTINUE 03130832
317: CT015* TEST 15 TEST OF COS 03140832
318: IVTNUM = 15 03150832
319: AVS = .25 03160832
320: BVD = COS(0.5D0) 03170832
321: IF (BVD - 0.8775825614D+00) 20150, 10150, 40150 03180832
322: 40150 IF (BVD - 0.8775825624D+00) 10150, 10150, 20150 03190832
323: 10150 IVPASS = IVPASS + 1 03200832
324: WRITE (NUVI, 80002) IVTNUM 03210832
325: GO TO 0151 03220832
326: 20150 IVFAIL = IVFAIL + 1 03230832
327: DVCORR = 0.87758256189037D+00 03240832
328: WRITE (NUVI, 80031) IVTNUM, BVD, DVCORR 03250832
329: 0151 CONTINUE 03260832
330: CT016* TEST 16 TEST OF SINH 03270832
331: IVTNUM = 16 03280832
332: BVD = SINH(3.25D0) 03290832
333: IF (BVD - 0.1287578284D+02) 20160, 10160, 40160 03300832
334: 40160 IF (BVD - 0.1287578286D+02) 10160, 10160, 20160 03310832
335: 10160 IVPASS = IVPASS + 1 03320832
336: WRITE (NUVI, 80002) IVTNUM 03330832
337: GO TO 0161 03340832
338: 20160 IVFAIL = IVFAIL + 1 03350832
339: DVCORR = 0.12875782854681D+02 03360832
340: WRITE (NUVI, 80031) IVTNUM, BVD, DVCORR 03370832
341: 0161 CONTINUE 03380832
342: CT017* TEST 17 TEST OF TANH 03390832
343: IVTNUM = 17 03400832
344: CVD = 0.5D1 03410832
345: BVD = TANH(CVD) 03420832
346: IF (BVD - 0.9999092037D+00) 20170, 10170, 40170 03430832
347: 40170 IF (BVD - 0.9999092048D+00) 10170, 10170, 20170 03440832
348: 10170 IVPASS = IVPASS + 1 03450832
349: WRITE (NUVI, 80002) IVTNUM 03460832
350: GO TO 0171 03470832
351: 20170 IVFAIL = IVFAIL + 1 03480832
352: DVCORR = 0.99990920426260D+00 03490832
353: WRITE (NUVI, 80031) IVTNUM, BVD, DVCORR 03500832
354: 0171 CONTINUE 03510832
355: CT018* TEST 18 TEST OF ASIN 03520832
356: IVTNUM = 18 03530832
357: BVD = ASIN(100.0D0 / 1.0D2) 03540832
358: IF (BVD - 0.1570796326D+01) 20180, 10180, 40180 03550832
359: 40180 IF (BVD - 0.1570796328D+01) 10180, 10180, 20180 03560832
360: 10180 IVPASS = IVPASS + 1 03570832
361: WRITE (NUVI, 80002) IVTNUM 03580832
362: GO TO 0181 03590832
363: 20180 IVFAIL = IVFAIL + 1 03600832
364: DVCORR = 0.15707963267949D+01 03610832
365: WRITE (NUVI, 80031) IVTNUM, BVD, DVCORR 03620832
366: 0181 CONTINUE 03630832
367: CT019* TEST 19 TEST OF ATAN 03640832
368: IVTNUM = 19 03650832
369: AVS = 500.0 03660832
370: BVD = ATAN(-1.0D3) 03670832
371: IF (BVD + 0.1569796328D+01) 20190, 10190, 40190 03680832
372: 40190 IF (BVD + 0.1569796326D+01) 10190, 10190, 20190 03690832
373: 10190 IVPASS = IVPASS + 1 03700832
374: WRITE (NUVI, 80002) IVTNUM 03710832
375: GO TO 0191 03720832
376: 20190 IVFAIL = IVFAIL + 1 03730832
377: DVCORR = -0.15697963271282D+01 03740832
378: WRITE (NUVI, 80031) IVTNUM, BVD, DVCORR 03750832
379: 0191 CONTINUE 03760832
380: CT020* TEST 20 TEST OF ATAN2 03770832
381: IVTNUM = 20 03780832
382: AVS = 0.0 03790832
383: BVS = -5.0 03800832
384: BVD = ATAN2(0.0D0, -5.0D0) 03810832
385: IF (BVD - 0.3141592652D+01) 20200, 10200, 40200 03820832
386: 40200 IF (BVD - 0.3141592655D+01) 10200, 10200, 20200 03830832
387: 10200 IVPASS = IVPASS + 1 03840832
388: WRITE (NUVI, 80002) IVTNUM 03850832
389: GO TO 0201 03860832
390: 20200 IVFAIL = IVFAIL + 1 03870832
391: DVCORR = 0.31415926535898D+01 03880832
392: WRITE (NUVI, 80031) IVTNUM, BVD, DVCORR 03890832
393: 0201 CONTINUE 03900832
394: C***** 03910832
395: CBB** ********************** BBCSUM0 **********************************03920832
396: C**** WRITE OUT TEST SUMMARY 03930832
397: C**** 03940832
398: IVTOTN = IVPASS + IVFAIL + IVDELE + IVINSP 03950832
399: WRITE (I02, 90004) 03960832
400: WRITE (I02, 90014) 03970832
401: WRITE (I02, 90004) 03980832
402: WRITE (I02, 90020) IVPASS 03990832
403: WRITE (I02, 90022) IVFAIL 04000832
404: WRITE (I02, 90024) IVDELE 04010832
405: WRITE (I02, 90026) IVINSP 04020832
406: WRITE (I02, 90028) IVTOTN, IVTOTL 04030832
407: CBE** ********************** BBCSUM0 **********************************04040832
408: CBB** ********************** BBCFOOT0 **********************************04050832
409: C**** WRITE OUT REPORT FOOTINGS 04060832
410: C**** 04070832
411: WRITE (I02,90016) ZPROG, ZPROG 04080832
412: WRITE (I02,90018) ZPROJ, ZNAME, ZTAPE, ZTAPED 04090832
413: WRITE (I02,90019) 04100832
414: CBE** ********************** BBCFOOT0 **********************************04110832
415: CBB** ********************** BBCFMT0A **********************************04120832
416: C**** FORMATS FOR TEST DETAIL LINES 04130832
417: C**** 04140832
418: 80000 FORMAT (1H ,2X,I3,4X,7HDELETED,32X,A31) 04150832
419: 80002 FORMAT (1H ,2X,I3,4X,7H PASS ,32X,A31) 04160832
420: 80004 FORMAT (1H ,2X,I3,4X,7HINSPECT,32X,A31) 04170832
421: 80008 FORMAT (1H ,2X,I3,4X,7H FAIL ,32X,A31) 04180832
422: 80010 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,15X,10HCOMPUTED= , 04190832
423: 1I6,/,1H ,15X,10HCORRECT= ,I6) 04200832
424: 80012 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 04210832
425: 1E12.5,/,1H ,16X,10HCORRECT= ,E12.5) 04220832
426: 80018 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 04230832
427: 1A21,/,1H ,16X,10HCORRECT= ,A21) 04240832
428: 80020 FORMAT (1H ,16X,10HCOMPUTED= ,A21,1X,A31) 04250832
429: 80022 FORMAT (1H ,16X,10HCORRECT= ,A21,1X,A31) 04260832
430: 80024 FORMAT (1H ,16X,10HCOMPUTED= ,I6,16X,A31) 04270832
431: 80026 FORMAT (1H ,16X,10HCORRECT= ,I6,16X,A31) 04280832
432: 80028 FORMAT (1H ,16X,10HCOMPUTED= ,E12.5,10X,A31) 04290832
433: 80030 FORMAT (1H ,16X,10HCORRECT= ,E12.5,10X,A31) 04300832
434: 80050 FORMAT (1H ,48X,A31) 04310832
435: CBE** ********************** BBCFMT0A **********************************04320832
436: CBB** ********************** BBCFMAT1 **********************************04330832
437: C**** FORMATS FOR TEST DETAIL LINES - FULL LANGUAGE 04340832
438: C**** 04350832
439: 80031 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 04360832
440: 1D17.10,/,1H ,16X,10HCORRECT= ,D17.10) 04370832
441: 80033 FORMAT (1H ,16X,10HCOMPUTED= ,D17.10,10X,A31) 04380832
442: 80035 FORMAT (1H ,16X,10HCORRECT= ,D17.10,10X,A31) 04390832
443: 80037 FORMAT (1H ,16X,10HCOMPUTED= ,1H(,E12.5,2H, ,E12.5,1H),6X,A31) 04400832
444: 80039 FORMAT (1H ,16X,10HCORRECT= ,1H(,E12.5,2H, ,E12.5,1H),6X,A31) 04410832
445: 80041 FORMAT (1H ,16X,10HCOMPUTED= ,1H(,F12.5,2H, ,F12.5,1H),6X,A31) 04420832
446: 80043 FORMAT (1H ,16X,10HCORRECT= ,1H(,F12.5,2H, ,F12.5,1H),6X,A31) 04430832
447: 80045 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 04440832
448: 11H(,F12.5,2H, ,F12.5,1H)/,1H ,16X,10HCORRECT= , 04450832
449: 21H(,F12.5,2H, ,F12.5,1H)) 04460832
450: CBE** ********************** BBCFMAT1 **********************************04470832
451: CBB** ********************** BBCFMT0B **********************************04480832
452: C**** FORMAT STATEMENTS FOR PAGE HEADERS 04490832
453: C**** 04500832
454: 90002 FORMAT (1H1) 04510832
455: 90004 FORMAT (1H ) 04520832
456: 90006 FORMAT (1H ,20X,31HFEDERAL SOFTWARE TESTING CENTER) 04530832
457: 90007 FORMAT (1H ,19X,34HFORTRAN COMPILER VALIDATION SYSTEM) 04540832
458: 90008 FORMAT (1H ,21X,A13,A17) 04550832
459: 90009 FORMAT (1H ,/,2H *,A5,6HBEGIN*,12X,15HTEST RESULTS - ,A5,/) 04560832
460: 90010 FORMAT (1H ,8X,16HTEST DATE*TIME= ,A17,15H - COMPILER= ,A20) 04570832
461: 90013 FORMAT (1H ,8H TEST ,10HPASS/FAIL ,6X,17HDISPLAYED RESULTS, 04580832
462: 1 7X,7HREMARKS,24X) 04590832
463: 90014 FORMAT (1H ,46H----------------------------------------------, 04600832
464: 1 33H---------------------------------) 04610832
465: 90015 FORMAT (1H ,48X,17HTHIS PROGRAM HAS ,I3,6H TESTS,/) 04620832
466: C**** 04630832
467: C**** FORMAT STATEMENTS FOR REPORT FOOTINGS 04640832
468: C**** 04650832
469: 90016 FORMAT (1H ,/,2H *,A5,4HEND*,14X,14HEND OF TEST - ,A5,/) 04660832
470: 90018 FORMAT (1H ,A13,13X,A20,7H * ,A10,1H/, 04670832
471: 1 A13) 04680832
472: 90019 FORMAT (1H ,26HFOR OFFICIAL USE ONLY ,35X,15HCOPYRIGHT 1982) 04690832
473: C**** 04700832
474: C**** FORMAT STATEMENTS FOR RUN SUMMARY 04710832
475: C**** 04720832
476: 90020 FORMAT (1H ,21X,I5,13H TESTS PASSED) 04730832
477: 90022 FORMAT (1H ,21X,I5,13H TESTS FAILED) 04740832
478: 90024 FORMAT (1H ,21X,I5,14H TESTS DELETED) 04750832
479: 90026 FORMAT (1H ,21X,I5,25H TESTS REQUIRE INSPECTION) 04760832
480: 90028 FORMAT (1H ,21X,I5,4H OF ,I3,15H TESTS EXECUTED) 04770832
481: CBE** ********************** BBCFMT0B **********************************04780832
482: C***** 04790832
483: C***** END OF TEST SEGMENT 210 04800832
484: STOP 04810832
485: END 04820832
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.