![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to FM373.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 FM373.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***********************************************************************00010373
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 00020373
6: C***** FM373 00030373
7: C***** XCOS - (189) 00040373
8: C***** 00050373
9: C***********************************************************************00060373
10: C***** GENERAL PURPOSE SUBSET REF 00070373
11: C***** TEST INTRINSIC FUNCTION COS 15.3 00080373
12: C***** TABLE 5 00090373
13: C***** 00100373
14: CBB** ********************** BBCCOMNT **********************************00110373
15: C**** 00120373
16: C**** 1978 FORTRAN COMPILER VALIDATION SYSTEM 00130373
17: C**** VERSION 2.0 00140373
18: C**** 00150373
19: C**** 00160373
20: C**** SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00170373
21: C**** GENERAL SERVICES ADMINISTRATION 00180373
22: C**** FEDERAL SOFTWARE TESTING CENTER 00190373
23: C**** 5203 LEESBURG PIKE, SUITE 1100 00200373
24: C**** FALLS CHURCH, VA. 22041 00210373
25: C**** 00220373
26: C**** (703) 756-6153 00230373
27: C**** 00240373
28: CBE** ********************** BBCCOMNT **********************************00250373
29: CBB** ********************** BBCINITA **********************************00260373
30: C**** SPECIFICATION STATEMENTS 00270373
31: C**** 00280373
32: CHARACTER ZVERS*13, ZVERSD*17, ZDATE*17, ZPROG*5, ZCOMPL*20, 00290373
33: 1 ZNAME*20, ZTAPE*10, ZPROJ*13, REMRKS*31, ZTAPED*13 00300373
34: CBE** ********************** BBCINITA **********************************00310373
35: CBB** ********************** BBCINITB **********************************00320373
36: C**** INITIALIZE SECTION 00330373
37: DATA ZVERS, ZVERSD, ZDATE 00340373
38: 1 /'VERSION 2.0 ', '82/08/02*18.33.46', '*NO DATE*TIME'/ 00350373
39: DATA ZCOMPL, ZNAME, ZTAPE 00360373
40: 1 /'*NONE SPECIFIED*', '*NO COMPANY NAME*', '*NO TAPE*'/ 00370373
41: DATA ZPROJ, ZTAPED, ZPROG 00380373
42: 1 /'*NO PROJECT*', '*NO TAPE DATE', 'XXXXX'/ 00390373
43: DATA REMRKS /' '/ 00400373
44: C**** THE FOLLOWING 9 COMMENT LINES (CZ01, CZ02, ...) CAN BE REPLACED 00410373
45: C**** FOR IDENTIFYING THE TEST ENVIRONMENT 00420373
46: C**** 00430373
47: CZ01 ZVERS = 'VERSION OF THE COMPILER VALIDATION SYSTEM' 00440373
48: CZ02 ZVERSD = 'CREATION DATE/TIME OF THE COMPILER VALIDATION SYSTEM' 00450373
49: CZ03 ZPROG = 'PROGRAM NAME' 00460373
50: ZDATE = '07-Nov-85 ' *RP
51: ZCOMPL = 'CCI 5.2 ' *RP
52: ZPROJ = 'TC-85- -410' *RP
53: ZNAME = ' ' *RP
54: ZTAPE = ' ' *RP
55: ZTAPED = '850703 ' *RP
56: C 00530373
57: IVPASS = 0 00540373
58: IVFAIL = 0 00550373
59: IVDELE = 0 00560373
60: IVINSP = 0 00570373
61: IVTOTL = 0 00580373
62: IVTOTN = 0 00590373
63: ICZERO = 0 00600373
64: C 00610373
65: C I01 CONTAINS THE LOGICAL UNIT NUMBER FOR THE CARD READER. 00620373
66: I01 = 05 00630373
67: C I02 CONTAINS THE LOGICAL UNIT NUMBER FOR THE PRINTER. 00640373
68: I02 = 06 00650373
69: C 00660373
70: I01 = 5 00670373
71: C THE CX010 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I01 = 5 00680373
72: CX011 REPLACED BY FEXEC X-011 CONTROL CARD. CX011 IS FOR SYSTEMS 00690373
73: C REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX010. 00700373
74: C 00710373
75: I02 = 6 00720373
76: C THE CX020 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I02= 6 00730373
77: CX021 REPLACED BY FEXEC X-021 CONTROL CARD. CX021 IS FOR SYSTEMS 00740373
78: C REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX020. 00750373
79: C 00760373
80: CBE** ********************** BBCINITB **********************************00770373
81: NUVI = I02 00780373
82: IVTOTL = 19 00790373
83: ZPROG = 'FM373' 00800373
84: CBB** ********************** BBCHED0A **********************************00810373
85: C**** 00820373
86: C**** WRITE REPORT TITLE 00830373
87: C**** 00840373
88: WRITE (I02, 90002) 00850373
89: WRITE (I02, 90006) 00860373
90: WRITE (I02, 90007) 00870373
91: WRITE (I02, 90008) ZVERS, ZVERSD 00880373
92: WRITE (I02, 90009) ZPROG, ZPROG 00890373
93: WRITE (I02, 90010) ZDATE, ZCOMPL 00900373
94: CBE** ********************** BBCHED0A **********************************00910373
95: C***** 00920373
96: C***** HEADER FOR SEGMENT 189 00930373
97: WRITE(NUVI,18900) 00940373
98: 18900 FORMAT(1H /33H XCOS - (189) INTRINSIC FUNCTIONS// 00950373
99: 1 14H COS (COSINE)// 00960373
100: 2 20H SUBSET REF. - 15.3) 00970373
101: CBB** ********************** BBCHED0B **********************************00980373
102: C**** WRITE DETAIL REPORT HEADERS 00990373
103: C**** 01000373
104: WRITE (I02,90004) 01010373
105: WRITE (I02,90004) 01020373
106: WRITE (I02,90013) 01030373
107: WRITE (I02,90014) 01040373
108: WRITE (I02,90015) IVTOTL 01050373
109: CBE** ********************** BBCHED0B **********************************01060373
110: C***** 01070373
111: PIVS = 3.1415926535897932384626434 01080373
112: C***** 01090373
113: CT001* TEST 1 ZERO (0.0), SINCE COS(0)=1 01100373
114: IVTNUM = 1 01110373
115: BVS = 0.0 01120373
116: AVS = COS(BVS) 01130373
117: IF (AVS - 0.99995E+00) 20010, 10010, 40010 01140373
118: 40010 IF (AVS - 0.10001E+01) 10010, 10010, 20010 01150373
119: 10010 IVPASS = IVPASS + 1 01160373
120: WRITE (NUVI, 80002) IVTNUM 01170373
121: GO TO 0011 01180373
122: 20010 IVFAIL = IVFAIL + 1 01190373
123: RVCORR = 1.00000000000000 01200373
124: WRITE (NUVI, 80012) IVTNUM, AVS, RVCORR 01210373
125: 0011 CONTINUE 01220373
126: CT002* TEST 2 VALUES NEAR PI 01230373
127: IVTNUM = 2 01240373
128: AVS = COS(PIVS) 01250373
129: IF (AVS + 0.10001E+01) 20020, 10020, 40020 01260373
130: 40020 IF (AVS + 0.99995E+00) 10020, 10020, 20020 01270373
131: 10020 IVPASS = IVPASS + 1 01280373
132: WRITE (NUVI, 80002) IVTNUM 01290373
133: GO TO 0021 01300373
134: 20020 IVFAIL = IVFAIL + 1 01310373
135: RVCORR = -1.00000000000000 01320373
136: WRITE (NUVI, 80012) IVTNUM, AVS, RVCORR 01330373
137: 0021 CONTINUE 01340373
138: CT003* TEST 3 PI - 1/16 01350373
139: IVTNUM = 3 01360373
140: BVS = 3.0790926536 01370373
141: AVS = COS(BVS) 01380373
142: IF (AVS + 0.99810E+00) 20030, 10030, 40030 01390373
143: 40030 IF (AVS + 0.99799E+00) 10030, 10030, 20030 01400373
144: 10030 IVPASS = IVPASS + 1 01410373
145: WRITE (NUVI, 80002) IVTNUM 01420373
146: GO TO 0031 01430373
147: 20030 IVFAIL = IVFAIL + 1 01440373
148: RVCORR = -0.99804751070010 01450373
149: WRITE (NUVI, 80012) IVTNUM, AVS, RVCORR 01460373
150: 0031 CONTINUE 01470373
151: CT004* TEST 4 PI + 1/32 01480373
152: IVTNUM = 4 01490373
153: AVS = COS(3.1728426535) 01500373
154: IF (AVS + 0.99957E+00) 20040, 10040, 40040 01510373
155: 40040 IF (AVS + 0.99946E+00) 10040, 10040, 20040 01520373
156: 10040 IVPASS = IVPASS + 1 01530373
157: WRITE (NUVI, 80002) IVTNUM 01540373
158: GO TO 0041 01550373
159: 20040 IVFAIL = IVFAIL + 1 01560373
160: RVCORR = -0.99951175848514 01570373
161: WRITE (NUVI, 80012) IVTNUM, AVS, RVCORR 01580373
162: 0041 CONTINUE 01590373
163: CT005* TEST 5 VALUES NEAR 2*PI 01600373
164: IVTNUM = 5 01610373
165: BVS = PIVS * 2.0 01620373
166: AVS = COS(BVS) 01630373
167: IF (AVS - 0.99995E+00) 20050, 10050, 40050 01640373
168: 40050 IF (AVS - 0.10001E+01) 10050, 10050, 20050 01650373
169: 10050 IVPASS = IVPASS + 1 01660373
170: WRITE (NUVI, 80002) IVTNUM 01670373
171: GO TO 0051 01680373
172: 20050 IVFAIL = IVFAIL + 1 01690373
173: RVCORR = 1.00000000000000 01700373
174: WRITE (NUVI, 80012) IVTNUM, AVS, RVCORR 01710373
175: 0051 CONTINUE 01720373
176: CT006* TEST 6 VALUES NEAR 2*PI 01730373
177: IVTNUM = 6 01740373
178: BVS = (2.0 * PIVS) - 1.0 / 64.0 01750373
179: AVS = COS(BVS) 01760373
180: IF (AVS - 0.99982E+00) 20060, 10060, 40060 01770373
181: 40060 IF (AVS - 0.99993E+00) 10060, 10060, 20060 01780373
182: 10060 IVPASS = IVPASS + 1 01790373
183: WRITE (NUVI, 80002) IVTNUM 01800373
184: GO TO 0061 01810373
185: 20060 IVFAIL = IVFAIL + 1 01820373
186: RVCORR = 0.99987793217101 01830373
187: WRITE (NUVI, 80012) IVTNUM, AVS, RVCORR 01840373
188: 0061 CONTINUE 01850373
189: CT007* TEST 7 VALUES NEAR 2*PI 01860373
190: IVTNUM = 7 01870373
191: BVS = (2.0 * PIVS) + 1.0 / 128.0 01880373
192: AVS = COS(BVS) 01890373
193: IF (AVS - 0.99992E+00) 20070, 10070, 40070 01900373
194: 40070 IF (AVS - 0.10001E+01) 10070, 10070, 20070 01910373
195: 10070 IVPASS = IVPASS + 1 01920373
196: WRITE (NUVI, 80002) IVTNUM 01930373
197: GO TO 0071 01940373
198: 20070 IVFAIL = IVFAIL + 1 01950373
199: RVCORR = 0.99996948257710 01960373
200: WRITE (NUVI, 80012) IVTNUM, AVS, RVCORR 01970373
201: 0071 CONTINUE 01980373
202: CT008* TEST 8 AN EXPRESSION PRESENTED TO COS 01990373
203: IVTNUM = 8 02000373
204: BVS = 350.0 02010373
205: AVS = COS(BVS / 100.0) 02020373
206: IF (AVS + 0.93651E+00) 20080, 10080, 40080 02030373
207: 40080 IF (AVS + 0.93641E+00) 10080, 10080, 20080 02040373
208: 10080 IVPASS = IVPASS + 1 02050373
209: WRITE (NUVI, 80002) IVTNUM 02060373
210: GO TO 0081 02070373
211: 20080 IVFAIL = IVFAIL + 1 02080373
212: RVCORR = -0.93645668729080 02090373
213: WRITE (NUVI, 80012) IVTNUM, AVS, RVCORR 02100373
214: 0081 CONTINUE 02110373
215: CT009* TEST 9 A NEGATIVE ARGUMENT 02120373
216: IVTNUM = 9 02130373
217: BVS = -1.5 02140373
218: AVS = COS(BVS) 02150373
219: IF (AVS - 0.70733E-01) 20090, 10090, 40090 02160373
220: 40090 IF (AVS - 0.70741E-01) 10090, 10090, 20090 02170373
221: 10090 IVPASS = IVPASS + 1 02180373
222: WRITE (NUVI, 80002) IVTNUM 02190373
223: GO TO 0091 02200373
224: 20090 IVFAIL = IVFAIL + 1 02210373
225: RVCORR = 0.07073720166770 02220373
226: WRITE (NUVI, 80012) IVTNUM, AVS, RVCORR 02230373
227: 0091 CONTINUE 02240373
228: CT010* TEST 10 TEST LARGE VALUES FOR ARGUMENT REDUCTION 02250373
229: IVTNUM = 10 02260373
230: AVS = COS(200.0) 02270373
231: IF (AVS - 0.48716E+00) 20100, 10100, 40100 02280373
232: 40100 IF (AVS - 0.48722E+00) 10100, 10100, 20100 02290373
233: 10100 IVPASS = IVPASS + 1 02300373
234: WRITE (NUVI, 80002) IVTNUM 02310373
235: GO TO 0101 02320373
236: 20100 IVFAIL = IVFAIL + 1 02330373
237: RVCORR = 0.48718767500701 02340373
238: WRITE (NUVI, 80012) IVTNUM, AVS, RVCORR 02350373
239: 0101 CONTINUE 02360373
240: CT011* TEST 11 TEST LARGE VALUES FOR ARGUMENT REDUCTION 02370373
241: IVTNUM = 11 02380373
242: AVS = COS(-31416.0) 02390373
243: IF (AVS - 0.99725E+00) 20110, 10110, 40110 02400373
244: 40110 IF (AVS - 0.99736E+00) 10110, 10110, 20110 02410373
245: 10110 IVPASS = IVPASS + 1 02420373
246: WRITE (NUVI, 80002) IVTNUM 02430373
247: GO TO 0111 02440373
248: 20110 IVFAIL = IVFAIL + 1 02450373
249: RVCORR = 0.99730272627420 02460373
250: WRITE (NUVI, 80012) IVTNUM, AVS, RVCORR 02470373
251: 0111 CONTINUE 02480373
252: CT012* TEST 12 TEST VALUES NEAR PI/2 02490373
253: IVTNUM = 12 02500373
254: AVS = COS(1.5707963268) 02510373
255: IF (AVS + 0.50000E-04) 20120, 10120, 40120 02520373
256: 40120 IF (AVS - 0.50000E-04) 10120, 10120, 20120 02530373
257: 10120 IVPASS = IVPASS + 1 02540373
258: WRITE (NUVI, 80002) IVTNUM 02550373
259: GO TO 0121 02560373
260: 20120 IVFAIL = IVFAIL + 1 02570373
261: RVCORR = 0.00000000000000 02580373
262: WRITE (NUVI, 80012) IVTNUM, AVS, RVCORR 02590373
263: 0121 CONTINUE 02600373
264: CT013* TEST 13 (PI / 2) - 1/32 02610373
265: IVTNUM = 13 02620373
266: BVS = (1.5395463267) 02630373
267: AVS = COS(BVS) 02640373
268: IF (AVS - 0.31243E-01) 20130, 10130, 40130 02650373
269: 40130 IF (AVS - 0.31247E-01) 10130, 10130, 20130 02660373
270: 10130 IVPASS = IVPASS + 1 02670373
271: WRITE (NUVI, 80002) IVTNUM 02680373
272: GO TO 0131 02690373
273: 20130 IVFAIL = IVFAIL + 1 02700373
274: RVCORR = 0.03124491398533 02710373
275: WRITE (NUVI, 80012) IVTNUM, AVS, RVCORR 02720373
276: 0131 CONTINUE 02730373
277: CT014* TEST 14 (PI / 2) + 1/16 02740373
278: IVTNUM = 14 02750373
279: AVS = COS(1.6332963267) 02760373
280: IF (AVS + 0.62463E-01) 20140, 10140, 40140 02770373
281: 40140 IF (AVS + 0.62456E-01) 10140, 10140, 20140 02780373
282: 10140 IVPASS = IVPASS + 1 02790373
283: WRITE (NUVI, 80002) IVTNUM 02800373
284: GO TO 0141 02810373
285: 20140 IVFAIL = IVFAIL + 1 02820373
286: RVCORR = -0.06245931784238 02830373
287: WRITE (NUVI, 80012) IVTNUM, AVS, RVCORR 02840373
288: 0141 CONTINUE 02850373
289: CT015* TEST 15 TEST VALUES NEAR 3*PI/2 02860373
290: IVTNUM = 15 02870373
291: BVS = 3.0 * PIVS / 2.0 02880373
292: AVS = COS(BVS) 02890373
293: IF (AVS + 0.50000E-04) 20150, 10150, 40150 02900373
294: 40150 IF (AVS - 0.50000E-04) 10150, 10150, 20150 02910373
295: 10150 IVPASS = IVPASS + 1 02920373
296: WRITE (NUVI, 80002) IVTNUM 02930373
297: GO TO 0151 02940373
298: 20150 IVFAIL = IVFAIL + 1 02950373
299: RVCORR = 0.00000000000000 02960373
300: WRITE (NUVI, 80012) IVTNUM, AVS, RVCORR 02970373
301: 0151 CONTINUE 02980373
302: CT016* TEST 16 TEST VALUES NEAR 3*PI/2 02990373
303: IVTNUM = 16 03000373
304: BVS = (3.0 * PIVS / 2.0) - 1.0 / 16.0 03010373
305: AVS = COS(BVS) 03020373
306: IF (AVS + 0.62463E-01) 20160, 10160, 40160 03030373
307: 40160 IF (AVS + 0.62456E-01) 10160, 10160, 20160 03040373
308: 10160 IVPASS = IVPASS + 1 03050373
309: WRITE (NUVI, 80002) IVTNUM 03060373
310: GO TO 0161 03070373
311: 20160 IVFAIL = IVFAIL + 1 03080373
312: RVCORR = -0.06245931784238 03090373
313: WRITE (NUVI, 80012) IVTNUM, AVS, RVCORR 03100373
314: 0161 CONTINUE 03110373
315: CT017* TEST 17 TEST VALUES NEAR 3*PI/2 03120373
316: IVTNUM = 17 03130373
317: BVS = (3.0 * PIVS / 2.0) + 1.0 / 512.0 03140373
318: AVS = COS(BVS) 03150373
319: IF (AVS - 0.19530E-02) 20170, 10170, 40170 03160373
320: 40170 IF (AVS - 0.19533E-02) 10170, 10170, 20170 03170373
321: 10170 IVPASS = IVPASS + 1 03180373
322: WRITE (NUVI, 80002) IVTNUM 03190373
323: GO TO 0171 03200373
324: 20170 IVFAIL = IVFAIL + 1 03210373
325: RVCORR = 0.00195312375824 03220373
326: WRITE (NUVI, 80012) IVTNUM, AVS, RVCORR 03230373
327: 70171 FORMAT (1H ,16X,34HINFORMATIVE - UNDER REVIEW BY FSTC) 03230*TI
328: WRITE (NUVI,70171) 03230*TI
329: 0171 CONTINUE 03240373
330: CT018* TEST 18 ARGUMENT OF LOW MAGNITUDE 03250373
331: IVTNUM = 18 03260373
332: BVS = -3.141593E-35 03270373
333: AVS = COS(BVS) 03280373
334: IF (AVS - 0.99995E+00) 20180, 10180, 40180 03290373
335: 40180 IF (AVS - 0.10001E+01) 10180, 10180, 20180 03300373
336: 10180 IVPASS = IVPASS + 1 03310373
337: WRITE (NUVI, 80002) IVTNUM 03320373
338: GO TO 0181 03330373
339: 20180 IVFAIL = IVFAIL + 1 03340373
340: RVCORR = 1.00000000000000 03350373
341: WRITE (NUVI, 80012) IVTNUM, AVS, RVCORR 03360373
342: 0181 CONTINUE 03370373
343: CT019* TEST 19 THE FUNCTION APPLIED TWICE 03380373
344: IVTNUM = 19 03390373
345: AVS = COS(PIVS / 4.0) * COS(3.0 * PIVS / 4.0) 03400373
346: IF (AVS + 0.50003E+00) 20190, 10190, 40190 03410373
347: 40190 IF (AVS + 0.49997E+00) 10190, 10190, 20190 03420373
348: 10190 IVPASS = IVPASS + 1 03430373
349: WRITE (NUVI, 80002) IVTNUM 03440373
350: GO TO 0191 03450373
351: 20190 IVFAIL = IVFAIL + 1 03460373
352: RVCORR = -0.50000000000000 03470373
353: WRITE (NUVI, 80012) IVTNUM, AVS, RVCORR 03480373
354: 0191 CONTINUE 03490373
355: C***** 03500373
356: CBB** ********************** BBCSUM0 **********************************03510373
357: C**** WRITE OUT TEST SUMMARY 03520373
358: C**** 03530373
359: IVTOTN = IVPASS + IVFAIL + IVDELE + IVINSP 03540373
360: WRITE (I02, 90004) 03550373
361: WRITE (I02, 90014) 03560373
362: WRITE (I02, 90004) 03570373
363: WRITE (I02, 90020) IVPASS 03580373
364: WRITE (I02, 90022) IVFAIL 03590373
365: WRITE (I02, 90024) IVDELE 03600373
366: WRITE (I02, 90026) IVINSP 03610373
367: WRITE (I02, 90028) IVTOTN, IVTOTL 03620373
368: CBE** ********************** BBCSUM0 **********************************03630373
369: CBB** ********************** BBCFOOT0 **********************************03640373
370: C**** WRITE OUT REPORT FOOTINGS 03650373
371: C**** 03660373
372: WRITE (I02,90016) ZPROG, ZPROG 03670373
373: WRITE (I02,90018) ZPROJ, ZNAME, ZTAPE, ZTAPED 03680373
374: WRITE (I02,90019) 03690373
375: CBE** ********************** BBCFOOT0 **********************************03700373
376: CBB** ********************** BBCFMT0A **********************************03710373
377: C**** FORMATS FOR TEST DETAIL LINES 03720373
378: C**** 03730373
379: 80000 FORMAT (1H ,2X,I3,4X,7HDELETED,32X,A31) 03740373
380: 80002 FORMAT (1H ,2X,I3,4X,7H PASS ,32X,A31) 03750373
381: 80004 FORMAT (1H ,2X,I3,4X,7HINSPECT,32X,A31) 03760373
382: 80008 FORMAT (1H ,2X,I3,4X,7H FAIL ,32X,A31) 03770373
383: 80010 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,15X,10HCOMPUTED= , 03780373
384: 1I6,/,1H ,15X,10HCORRECT= ,I6) 03790373
385: 80012 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 03800373
386: 1E12.5,/,1H ,16X,10HCORRECT= ,E12.5) 03810373
387: 80018 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 03820373
388: 1A21,/,1H ,16X,10HCORRECT= ,A21) 03830373
389: 80020 FORMAT (1H ,16X,10HCOMPUTED= ,A21,1X,A31) 03840373
390: 80022 FORMAT (1H ,16X,10HCORRECT= ,A21,1X,A31) 03850373
391: 80024 FORMAT (1H ,16X,10HCOMPUTED= ,I6,16X,A31) 03860373
392: 80026 FORMAT (1H ,16X,10HCORRECT= ,I6,16X,A31) 03870373
393: 80028 FORMAT (1H ,16X,10HCOMPUTED= ,E12.5,10X,A31) 03880373
394: 80030 FORMAT (1H ,16X,10HCORRECT= ,E12.5,10X,A31) 03890373
395: 80050 FORMAT (1H ,48X,A31) 03900373
396: CBE** ********************** BBCFMT0A **********************************03910373
397: CBB** ********************** BBCFMT0B **********************************03920373
398: C**** FORMAT STATEMENTS FOR PAGE HEADERS 03930373
399: C**** 03940373
400: 90002 FORMAT (1H1) 03950373
401: 90004 FORMAT (1H ) 03960373
402: 90006 FORMAT (1H ,20X,31HFEDERAL SOFTWARE TESTING CENTER) 03970373
403: 90007 FORMAT (1H ,19X,34HFORTRAN COMPILER VALIDATION SYSTEM) 03980373
404: 90008 FORMAT (1H ,21X,A13,A17) 03990373
405: 90009 FORMAT (1H ,/,2H *,A5,6HBEGIN*,12X,15HTEST RESULTS - ,A5,/) 04000373
406: 90010 FORMAT (1H ,8X,16HTEST DATE*TIME= ,A17,15H - COMPILER= ,A20) 04010373
407: 90013 FORMAT (1H ,8H TEST ,10HPASS/FAIL ,6X,17HDISPLAYED RESULTS, 04020373
408: 1 7X,7HREMARKS,24X) 04030373
409: 90014 FORMAT (1H ,46H----------------------------------------------, 04040373
410: 1 33H---------------------------------) 04050373
411: 90015 FORMAT (1H ,48X,17HTHIS PROGRAM HAS ,I3,6H TESTS,/) 04060373
412: C**** 04070373
413: C**** FORMAT STATEMENTS FOR REPORT FOOTINGS 04080373
414: C**** 04090373
415: 90016 FORMAT (1H ,/,2H *,A5,4HEND*,14X,14HEND OF TEST - ,A5,/) 04100373
416: 90018 FORMAT (1H ,A13,13X,A20,7H * ,A10,1H/, 04110373
417: 1 A13) 04120373
418: 90019 FORMAT (1H ,26HFOR OFFICIAL USE ONLY ,35X,15HCOPYRIGHT 1982) 04130373
419: C**** 04140373
420: C**** FORMAT STATEMENTS FOR RUN SUMMARY 04150373
421: C**** 04160373
422: 90020 FORMAT (1H ,21X,I5,13H TESTS PASSED) 04170373
423: 90022 FORMAT (1H ,21X,I5,13H TESTS FAILED) 04180373
424: 90024 FORMAT (1H ,21X,I5,14H TESTS DELETED) 04190373
425: 90026 FORMAT (1H ,21X,I5,25H TESTS REQUIRE INSPECTION) 04200373
426: 90028 FORMAT (1H ,21X,I5,4H OF ,I3,15H TESTS EXECUTED) 04210373
427: CBE** ********************** BBCFMT0B **********************************04220373
428: C***** 04230373
429: C***** END OF TEST SEGMENT 189 04240373
430: STOP 04250373
431: END 04260373
432: 04270373
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.