![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to FM821.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 FM821.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***********************************************************************00010821
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 00020821
6: C***** FM821 00030821
7: C***** YDCOS - (190) 00040821
8: C***** 00050821
9: C***********************************************************************00060821
10: C***** GENERAL PURPOSE ANS REF 00070821
11: C***** TEST INTRINSIC FUNCTION DCOS 15.3 00080821
12: C***** TABLE 5 00090821
13: C***** 00100821
14: CBB** ********************** BBCCOMNT **********************************00110821
15: C**** 00120821
16: C**** 1978 FORTRAN COMPILER VALIDATION SYSTEM 00130821
17: C**** VERSION 2.0 00140821
18: C**** 00150821
19: C**** 00160821
20: C**** SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00170821
21: C**** GENERAL SERVICES ADMINISTRATION 00180821
22: C**** FEDERAL SOFTWARE TESTING CENTER 00190821
23: C**** 5203 LEESBURG PIKE, SUITE 1100 00200821
24: C**** FALLS CHURCH, VA. 22041 00210821
25: C**** 00220821
26: C**** (703) 756-6153 00230821
27: C**** 00240821
28: CBE** ********************** BBCCOMNT **********************************00250821
29: C***** 00260821
30: C***** S P E C I F I C A T I O N S SEGMENT 190 00270821
31: DOUBLE PRECISION AVD, BVD, PIVD, DVCORR 00280821
32: C***** 00290821
33: CBB** ********************** BBCINITA **********************************00300821
34: C**** SPECIFICATION STATEMENTS 00310821
35: C**** 00320821
36: CHARACTER ZVERS*13, ZVERSD*17, ZDATE*17, ZPROG*5, ZCOMPL*20, 00330821
37: 1 ZNAME*20, ZTAPE*10, ZPROJ*13, REMRKS*31, ZTAPED*13 00340821
38: CBE** ********************** BBCINITA **********************************00350821
39: CBB** ********************** BBCINITB **********************************00360821
40: C**** INITIALIZE SECTION 00370821
41: DATA ZVERS, ZVERSD, ZDATE 00380821
42: 1 /'VERSION 2.0 ', '82/08/02*18.33.46', '*NO DATE*TIME'/ 00390821
43: DATA ZCOMPL, ZNAME, ZTAPE 00400821
44: 1 /'*NONE SPECIFIED*', '*NO COMPANY NAME*', '*NO TAPE*'/ 00410821
45: DATA ZPROJ, ZTAPED, ZPROG 00420821
46: 1 /'*NO PROJECT*', '*NO TAPE DATE', 'XXXXX'/ 00430821
47: DATA REMRKS /' '/ 00440821
48: C**** THE FOLLOWING 9 COMMENT LINES (CZ01, CZ02, ...) CAN BE REPLACED 00450821
49: C**** FOR IDENTIFYING THE TEST ENVIRONMENT 00460821
50: C**** 00470821
51: CZ01 ZVERS = 'VERSION OF THE COMPILER VALIDATION SYSTEM' 00480821
52: CZ02 ZVERSD = 'CREATION DATE/TIME OF THE COMPILER VALIDATION SYSTEM' 00490821
53: CZ03 ZPROG = 'PROGRAM NAME' 00500821
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 00570821
61: IVPASS = 0 00580821
62: IVFAIL = 0 00590821
63: IVDELE = 0 00600821
64: IVINSP = 0 00610821
65: IVTOTL = 0 00620821
66: IVTOTN = 0 00630821
67: ICZERO = 0 00640821
68: C 00650821
69: C I01 CONTAINS THE LOGICAL UNIT NUMBER FOR THE CARD READER. 00660821
70: I01 = 05 00670821
71: C I02 CONTAINS THE LOGICAL UNIT NUMBER FOR THE PRINTER. 00680821
72: I02 = 06 00690821
73: C 00700821
74: I01 = 5 00710821
75: C THE CX010 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I01 = 5 00720821
76: CX011 REPLACED BY FEXEC X-011 CONTROL CARD. CX011 IS FOR SYSTEMS 00730821
77: C REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX010. 00740821
78: C 00750821
79: I02 = 6 00760821
80: C THE CX020 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I02= 6 00770821
81: CX021 REPLACED BY FEXEC X-021 CONTROL CARD. CX021 IS FOR SYSTEMS 00780821
82: C REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX020. 00790821
83: C 00800821
84: CBE** ********************** BBCINITB **********************************00810821
85: NUVI = I02 00820821
86: IVTOTL = 19 00830821
87: ZPROG = 'FM821' 00840821
88: CBB** ********************** BBCHED0A **********************************00850821
89: C**** 00860821
90: C**** WRITE REPORT TITLE 00870821
91: C**** 00880821
92: WRITE (I02, 90002) 00890821
93: WRITE (I02, 90006) 00900821
94: WRITE (I02, 90007) 00910821
95: WRITE (I02, 90008) ZVERS, ZVERSD 00920821
96: WRITE (I02, 90009) ZPROG, ZPROG 00930821
97: WRITE (I02, 90010) ZDATE, ZCOMPL 00940821
98: CBE** ********************** BBCHED0A **********************************00950821
99: C***** 00960821
100: C***** HEADER FOR SEGMENT 190 00970821
101: WRITE(NUVI,19000) 00980821
102: 19000 FORMAT(1H /34H YDCOS - (190) INTRINSIC FUNCTIONS// 00990821
103: 1 32H DCOS (DOUBLE PRECISION COSINE)// 01000821
104: 2 17H ANS REF. - 15.3) 01010821
105: CBB** ********************** BBCHED0B **********************************01020821
106: C**** WRITE DETAIL REPORT HEADERS 01030821
107: C**** 01040821
108: WRITE (I02,90004) 01050821
109: WRITE (I02,90004) 01060821
110: WRITE (I02,90013) 01070821
111: WRITE (I02,90014) 01080821
112: WRITE (I02,90015) IVTOTL 01090821
113: CBE** ********************** BBCHED0B **********************************01100821
114: C***** 01110821
115: PIVD = 3.1415926535897932384626434D0 01120821
116: C***** 01130821
117: CT001* TEST 1 ZERO (0.0), SINCE COS(0)=1 01140821
118: IVTNUM = 1 01150821
119: BVD = 0.0D0 01160821
120: AVD = DCOS(BVD) 01170821
121: IF (AVD - 0.9999999995D+00) 20010, 10010, 40010 01180821
122: 40010 IF (AVD - 0.1000000001D+01) 10010, 10010, 20010 01190821
123: 10010 IVPASS = IVPASS + 1 01200821
124: WRITE (NUVI, 80002) IVTNUM 01210821
125: GO TO 0011 01220821
126: 20010 IVFAIL = IVFAIL + 1 01230821
127: DVCORR = 1.00000000000000000000D+00 01240821
128: WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 01250821
129: 0011 CONTINUE 01260821
130: CT002* TEST 2 VALUES NEAR PI 01270821
131: IVTNUM = 2 01280821
132: AVD = DCOS(PIVD) 01290821
133: IF (AVD + 0.1000000001D+01) 20020, 10020, 40020 01300821
134: 40020 IF (AVD + 0.9999999995D+00) 10020, 10020, 20020 01310821
135: 10020 IVPASS = IVPASS + 1 01320821
136: WRITE (NUVI, 80002) IVTNUM 01330821
137: GO TO 0021 01340821
138: 20020 IVFAIL = IVFAIL + 1 01350821
139: DVCORR = -1.00000000000000000000D+00 01360821
140: WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 01370821
141: 0021 CONTINUE 01380821
142: CT003* TEST 3 PI - 1/16 01390821
143: IVTNUM = 3 01400821
144: BVD = 3.07909265358979323846D0 01410821
145: AVD = DCOS(BVD) 01420821
146: IF (AVD + 0.9980475112D+00) 20030, 10030, 40030 01430821
147: 40030 IF (AVD + 0.9980475102D+00) 10030, 10030, 20030 01440821
148: 10030 IVPASS = IVPASS + 1 01450821
149: WRITE (NUVI, 80002) IVTNUM 01460821
150: GO TO 0031 01470821
151: 20030 IVFAIL = IVFAIL + 1 01480821
152: DVCORR = -0.99804751070009914963D+00 01490821
153: WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 01500821
154: 0031 CONTINUE 01510821
155: CT004* TEST 4 PI + 1/32 01520821
156: IVTNUM = 4 01530821
157: AVD = DCOS(3.17284265358979323846D0) 01540821
158: IF (AVD + 0.9995117590D+00) 20040, 10040, 40040 01550821
159: 40040 IF (AVD + 0.9995117580D+00) 10040, 10040, 20040 01560821
160: 10040 IVPASS = IVPASS + 1 01570821
161: WRITE (NUVI, 80002) IVTNUM 01580821
162: GO TO 0041 01590821
163: 20040 IVFAIL = IVFAIL + 1 01600821
164: DVCORR = -0.99951175848513636924D+00 01610821
165: WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 01620821
166: 0041 CONTINUE 01630821
167: CT005* TEST 5 VALUES NEAR 2*PI 01640821
168: IVTNUM = 5 01650821
169: BVD = PIVD * 2.0D0 01660821
170: AVD = DCOS(BVD) 01670821
171: IF (AVD - 0.9999999995D+00) 20050, 10050, 40050 01680821
172: 40050 IF (AVD - 0.1000000001D+01) 10050, 10050, 20050 01690821
173: 10050 IVPASS = IVPASS + 1 01700821
174: WRITE (NUVI, 80002) IVTNUM 01710821
175: GO TO 0051 01720821
176: 20050 IVFAIL = IVFAIL + 1 01730821
177: DVCORR = 1.00000000000000000000D+00 01740821
178: WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 01750821
179: 0051 CONTINUE 01760821
180: CT006* TEST 6 VALUES NEAR 2*PI 01770821
181: IVTNUM = 6 01780821
182: BVD = (2.0D0 * PIVD) - 1.0D0 / 64.0D0 01790821
183: AVD = DCOS(BVD) 01800821
184: IF (AVD - 0.9998779316D+00) 20060, 10060, 40060 01810821
185: 40060 IF (AVD - 0.9998779327D+00) 10060, 10060, 20060 01820821
186: 10060 IVPASS = IVPASS + 1 01830821
187: WRITE (NUVI, 80002) IVTNUM 01840821
188: GO TO 0061 01850821
189: 20060 IVFAIL = IVFAIL + 1 01860821
190: DVCORR = 0.99987793217100665474D+00 01870821
191: WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 01880821
192: 0061 CONTINUE 01890821
193: CT007* TEST 7 VALUES NEAR 2*PI 01900821
194: IVTNUM = 7 01910821
195: BVD = (2.0D0 * PIVD) + 1.0D0 / 128.0D0 01920821
196: AVD = DCOS(BVD) 01930821
197: IF (AVD - 0.9999694820D+00) 20070, 10070, 40070 01940821
198: 40070 IF (AVD - 0.9999694831D+00) 10070, 10070, 20070 01950821
199: 10070 IVPASS = IVPASS + 1 01960821
200: WRITE (NUVI, 80002) IVTNUM 01970821
201: GO TO 0071 01980821
202: 20070 IVFAIL = IVFAIL + 1 01990821
203: DVCORR = 0.99996948257709511331D+00 02000821
204: WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 02010821
205: 0071 CONTINUE 02020821
206: CT008* TEST 8 AN EXPRESSION PRESENTED TO DCOS 02030821
207: IVTNUM = 8 02040821
208: BVD = 350.0D1 02050821
209: AVD = DCOS(BVD / 100.0D1) 02060821
210: IF (AVD + 0.9364566878D+00) 20080, 10080, 40080 02070821
211: 40080 IF (AVD + 0.9364566868D+00) 10080, 10080, 20080 02080821
212: 10080 IVPASS = IVPASS + 1 02090821
213: WRITE (NUVI, 80002) IVTNUM 02100821
214: GO TO 0081 02110821
215: 20080 IVFAIL = IVFAIL + 1 02120821
216: DVCORR = -0.93645668729079633770D+00 02130821
217: WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 02140821
218: 0081 CONTINUE 02150821
219: CT009* TEST 9 A NEGATIVE ARGUMENT 02160821
220: IVTNUM = 9 02170821
221: BVD = -1.5D0 02180821
222: AVD = DCOS(BVD) 02190821
223: IF (AVD - 0.7073720163D-01) 20090, 10090, 40090 02200821
224: 40090 IF (AVD - 0.7073720171D-01) 10090, 10090, 20090 02210821
225: 10090 IVPASS = IVPASS + 1 02220821
226: WRITE (NUVI, 80002) IVTNUM 02230821
227: GO TO 0091 02240821
228: 20090 IVFAIL = IVFAIL + 1 02250821
229: DVCORR = 0.070737201667702910088D+00 02260821
230: WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 02270821
231: 0091 CONTINUE 02280821
232: CT010* TEST 10 LARGE VALUES TO CHECK ARGUMENT REDUCTION 02290821
233: IVTNUM = 10 02300821
234: AVD = DCOS(200.0D0) 02310821
235: IF (AVD - 0.4871876747D+00) 20100, 10100, 40100 02320821
236: 40100 IF (AVD - 0.4871876753D+00) 10100, 10100, 20100 02330821
237: 10100 IVPASS = IVPASS + 1 02340821
238: WRITE (NUVI, 80002) IVTNUM 02350821
239: GO TO 0101 02360821
240: 20100 IVFAIL = IVFAIL + 1 02370821
241: DVCORR = 0.48718767500700591035D+00 02380821
242: WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 02390821
243: 0101 CONTINUE 02400821
244: CT011* TEST 11 LARGE VALUES TO CHECK ARGUMENT REDUCTION 02410821
245: IVTNUM = 11 02420821
246: AVD = DCOS(-31416.0D0) 02430821
247: IF (AVD - 0.9973027257D+00) 20110, 10110, 40110 02440821
248: 40110 IF (AVD - 0.9973027268D+00) 10110, 10110, 20110 02450821
249: 10110 IVPASS = IVPASS + 1 02460821
250: WRITE (NUVI, 80002) IVTNUM 02470821
251: GO TO 0111 02480821
252: 20110 IVFAIL = IVFAIL + 1 02490821
253: DVCORR = 0.99730272627420107808D+00 02500821
254: WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 02510821
255: 0111 CONTINUE 02520821
256: CT012* TEST 12 VALUES NEAR PI/2 02530821
257: IVTNUM = 12 02540821
258: AVD = DCOS(1.57079632679489661923D0) 02550821
259: IF (AVD + 0.5000000000D-09) 20120, 10120, 40120 02560821
260: 40120 IF (AVD - 0.5000000000D-09) 10120, 10120, 20120 02570821
261: 10120 IVPASS = IVPASS + 1 02580821
262: WRITE (NUVI, 80002) IVTNUM 02590821
263: GO TO 0121 02600821
264: 20120 IVFAIL = IVFAIL + 1 02610821
265: DVCORR = 0.00000000000000000000D+00 02620821
266: WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 02630821
267: 0121 CONTINUE 02640821
268: CT013* TEST 13 (PI / 2) - 1/32 02650821
269: IVTNUM = 13 02660821
270: BVD = (1.53954632679489661923D0) 02670821
271: AVD = DCOS(BVD) 02680821
272: IF (AVD - 0.3124491397D-01) 20130, 10130, 40130 02690821
273: 40130 IF (AVD - 0.3124491400D-01) 10130, 10130, 20130 02700821
274: 10130 IVPASS = IVPASS + 1 02710821
275: WRITE (NUVI, 80002) IVTNUM 02720821
276: GO TO 0131 02730821
277: 20130 IVFAIL = IVFAIL + 1 02740821
278: DVCORR = 0.031244913985326078739D+00 02750821
279: WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 02760821
280: 0131 CONTINUE 02770821
281: CT014* TEST 14 (PI / 2) + 1/16 02780821
282: IVTNUM = 14 02790821
283: AVD = DCOS(1.63329632679489661923D0) 02800821
284: IF (AVD + 0.6245931788D-01) 20140, 10140, 40140 02810821
285: 40140 IF (AVD + 0.6245931781D-01) 10140, 10140, 20140 02820821
286: 10140 IVPASS = IVPASS + 1 02830821
287: WRITE (NUVI, 80002) IVTNUM 02840821
288: GO TO 0141 02850821
289: 20140 IVFAIL = IVFAIL + 1 02860821
290: DVCORR = -0.062459317842380198585D+00 02870821
291: WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 02880821
292: 0141 CONTINUE 02890821
293: CT015* TEST 15 VALUES NEAR 3*PI/2 02900821
294: IVTNUM = 15 02910821
295: BVD = 3.0D0 * PIVD / 2.0D0 02920821
296: AVD = DCOS(BVD) 02930821
297: IF (AVD + 0.5000000000D-09) 20150, 10150, 40150 02940821
298: 40150 IF (AVD - 0.5000000000D-09) 10150, 10150, 20150 02950821
299: 10150 IVPASS = IVPASS + 1 02960821
300: WRITE (NUVI, 80002) IVTNUM 02970821
301: GO TO 0151 02980821
302: 20150 IVFAIL = IVFAIL + 1 02990821
303: DVCORR = 0.00000000000000000000D+00 03000821
304: WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 03010821
305: 0151 CONTINUE 03020821
306: CT016* TEST 16 VALUES NEAR 3*PI/2 03030821
307: IVTNUM = 16 03040821
308: BVD = (3.0D0 * PIVD / 2.0D0) + 1.0D0 / 16.0D0 03050821
309: AVD = DCOS(BVD) 03060821
310: IF (AVD - 0.6245931781D-01) 20160, 10160, 40160 03070821
311: 40160 IF (AVD - 0.6245931788D-01) 10160, 10160, 20160 03080821
312: 10160 IVPASS = IVPASS + 1 03090821
313: WRITE (NUVI, 80002) IVTNUM 03100821
314: GO TO 0161 03110821
315: 20160 IVFAIL = IVFAIL + 1 03120821
316: DVCORR = 0.062459317842380198585D+00 03130821
317: WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 03140821
318: 0161 CONTINUE 03150821
319: CT017* TEST 17 VALUES NEAR 3*PI/2 03160821
320: IVTNUM = 17 03170821
321: BVD = (3.0D0 * PIVD / 2.0D0) - 1.0D0 / 512.0D0 03180821
322: AVD = DCOS(BVD) 03190821
323: IF (AVD + 0.1953123760D-02) 20170, 10170, 40170 03200821
324: 40170 IF (AVD + 0.1953123757D-02) 10170, 10170, 20170 03210821
325: 10170 IVPASS = IVPASS + 1 03220821
326: WRITE (NUVI, 80002) IVTNUM 03230821
327: GO TO 0171 03240821
328: 20170 IVFAIL = IVFAIL + 1 03250821
329: DVCORR = -0.0019531237582368040269D+00 03260821
330: WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 03270821
331: 0171 CONTINUE 03280821
332: CT018* TEST 18 ARGUMENT OF LOW MAGNITUDE 03290821
333: IVTNUM = 18 03300821
334: BVD = -3.1415926535898D-35 03310821
335: AVD = DCOS(BVD) 03320821
336: IF (AVD - 0.9999999995D+00) 20180, 10180, 40180 03330821
337: 40180 IF (AVD - 0.1000000001D+01) 10180, 10180, 20180 03340821
338: 10180 IVPASS = IVPASS + 1 03350821
339: WRITE (NUVI, 80002) IVTNUM 03360821
340: GO TO 0181 03370821
341: 20180 IVFAIL = IVFAIL + 1 03380821
342: DVCORR = 1.00000000000000000000D+00 03390821
343: WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 03400821
344: 0181 CONTINUE 03410821
345: CT019* TEST 19 THE FUNCTION APPLIED TWICE 03420821
346: IVTNUM = 19 03430821
347: AVD = DCOS(PIVD / 4.0D0) * DCOS(3.0D0 * PIVD / 4.0D0) 03440821
348: IF (AVD + 0.5000000003D+00) 20190, 10190, 40190 03450821
349: 40190 IF (AVD + 0.4999999997D+00) 10190, 10190, 20190 03460821
350: 10190 IVPASS = IVPASS + 1 03470821
351: WRITE (NUVI, 80002) IVTNUM 03480821
352: GO TO 0191 03490821
353: 20190 IVFAIL = IVFAIL + 1 03500821
354: DVCORR = -0.5000000000000000000000D+00 03510821
355: WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 03520821
356: 0191 CONTINUE 03530821
357: C***** 03540821
358: CBB** ********************** BBCSUM0 **********************************03550821
359: C**** WRITE OUT TEST SUMMARY 03560821
360: C**** 03570821
361: IVTOTN = IVPASS + IVFAIL + IVDELE + IVINSP 03580821
362: WRITE (I02, 90004) 03590821
363: WRITE (I02, 90014) 03600821
364: WRITE (I02, 90004) 03610821
365: WRITE (I02, 90020) IVPASS 03620821
366: WRITE (I02, 90022) IVFAIL 03630821
367: WRITE (I02, 90024) IVDELE 03640821
368: WRITE (I02, 90026) IVINSP 03650821
369: WRITE (I02, 90028) IVTOTN, IVTOTL 03660821
370: CBE** ********************** BBCSUM0 **********************************03670821
371: CBB** ********************** BBCFOOT0 **********************************03680821
372: C**** WRITE OUT REPORT FOOTINGS 03690821
373: C**** 03700821
374: WRITE (I02,90016) ZPROG, ZPROG 03710821
375: WRITE (I02,90018) ZPROJ, ZNAME, ZTAPE, ZTAPED 03720821
376: WRITE (I02,90019) 03730821
377: CBE** ********************** BBCFOOT0 **********************************03740821
378: CBB** ********************** BBCFMT0A **********************************03750821
379: C**** FORMATS FOR TEST DETAIL LINES 03760821
380: C**** 03770821
381: 80000 FORMAT (1H ,2X,I3,4X,7HDELETED,32X,A31) 03780821
382: 80002 FORMAT (1H ,2X,I3,4X,7H PASS ,32X,A31) 03790821
383: 80004 FORMAT (1H ,2X,I3,4X,7HINSPECT,32X,A31) 03800821
384: 80008 FORMAT (1H ,2X,I3,4X,7H FAIL ,32X,A31) 03810821
385: 80010 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,15X,10HCOMPUTED= , 03820821
386: 1I6,/,1H ,15X,10HCORRECT= ,I6) 03830821
387: 80012 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 03840821
388: 1E12.5,/,1H ,16X,10HCORRECT= ,E12.5) 03850821
389: 80018 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 03860821
390: 1A21,/,1H ,16X,10HCORRECT= ,A21) 03870821
391: 80020 FORMAT (1H ,16X,10HCOMPUTED= ,A21,1X,A31) 03880821
392: 80022 FORMAT (1H ,16X,10HCORRECT= ,A21,1X,A31) 03890821
393: 80024 FORMAT (1H ,16X,10HCOMPUTED= ,I6,16X,A31) 03900821
394: 80026 FORMAT (1H ,16X,10HCORRECT= ,I6,16X,A31) 03910821
395: 80028 FORMAT (1H ,16X,10HCOMPUTED= ,E12.5,10X,A31) 03920821
396: 80030 FORMAT (1H ,16X,10HCORRECT= ,E12.5,10X,A31) 03930821
397: 80050 FORMAT (1H ,48X,A31) 03940821
398: CBE** ********************** BBCFMT0A **********************************03950821
399: CBB** ********************** BBCFMAT1 **********************************03960821
400: C**** FORMATS FOR TEST DETAIL LINES - FULL LANGUAGE 03970821
401: C**** 03980821
402: 80031 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 03990821
403: 1D17.10,/,1H ,16X,10HCORRECT= ,D17.10) 04000821
404: 80033 FORMAT (1H ,16X,10HCOMPUTED= ,D17.10,10X,A31) 04010821
405: 80035 FORMAT (1H ,16X,10HCORRECT= ,D17.10,10X,A31) 04020821
406: 80037 FORMAT (1H ,16X,10HCOMPUTED= ,1H(,E12.5,2H, ,E12.5,1H),6X,A31) 04030821
407: 80039 FORMAT (1H ,16X,10HCORRECT= ,1H(,E12.5,2H, ,E12.5,1H),6X,A31) 04040821
408: 80041 FORMAT (1H ,16X,10HCOMPUTED= ,1H(,F12.5,2H, ,F12.5,1H),6X,A31) 04050821
409: 80043 FORMAT (1H ,16X,10HCORRECT= ,1H(,F12.5,2H, ,F12.5,1H),6X,A31) 04060821
410: 80045 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 04070821
411: 11H(,F12.5,2H, ,F12.5,1H)/,1H ,16X,10HCORRECT= , 04080821
412: 21H(,F12.5,2H, ,F12.5,1H)) 04090821
413: CBE** ********************** BBCFMAT1 **********************************04100821
414: CBB** ********************** BBCFMT0B **********************************04110821
415: C**** FORMAT STATEMENTS FOR PAGE HEADERS 04120821
416: C**** 04130821
417: 90002 FORMAT (1H1) 04140821
418: 90004 FORMAT (1H ) 04150821
419: 90006 FORMAT (1H ,20X,31HFEDERAL SOFTWARE TESTING CENTER) 04160821
420: 90007 FORMAT (1H ,19X,34HFORTRAN COMPILER VALIDATION SYSTEM) 04170821
421: 90008 FORMAT (1H ,21X,A13,A17) 04180821
422: 90009 FORMAT (1H ,/,2H *,A5,6HBEGIN*,12X,15HTEST RESULTS - ,A5,/) 04190821
423: 90010 FORMAT (1H ,8X,16HTEST DATE*TIME= ,A17,15H - COMPILER= ,A20) 04200821
424: 90013 FORMAT (1H ,8H TEST ,10HPASS/FAIL ,6X,17HDISPLAYED RESULTS, 04210821
425: 1 7X,7HREMARKS,24X) 04220821
426: 90014 FORMAT (1H ,46H----------------------------------------------, 04230821
427: 1 33H---------------------------------) 04240821
428: 90015 FORMAT (1H ,48X,17HTHIS PROGRAM HAS ,I3,6H TESTS,/) 04250821
429: C**** 04260821
430: C**** FORMAT STATEMENTS FOR REPORT FOOTINGS 04270821
431: C**** 04280821
432: 90016 FORMAT (1H ,/,2H *,A5,4HEND*,14X,14HEND OF TEST - ,A5,/) 04290821
433: 90018 FORMAT (1H ,A13,13X,A20,7H * ,A10,1H/, 04300821
434: 1 A13) 04310821
435: 90019 FORMAT (1H ,26HFOR OFFICIAL USE ONLY ,35X,15HCOPYRIGHT 1982) 04320821
436: C**** 04330821
437: C**** FORMAT STATEMENTS FOR RUN SUMMARY 04340821
438: C**** 04350821
439: 90020 FORMAT (1H ,21X,I5,13H TESTS PASSED) 04360821
440: 90022 FORMAT (1H ,21X,I5,13H TESTS FAILED) 04370821
441: 90024 FORMAT (1H ,21X,I5,14H TESTS DELETED) 04380821
442: 90026 FORMAT (1H ,21X,I5,25H TESTS REQUIRE INSPECTION) 04390821
443: 90028 FORMAT (1H ,21X,I5,4H OF ,I3,15H TESTS EXECUTED) 04400821
444: CBE** ********************** BBCFMT0B **********************************04410821
445: C***** 04420821
446: C***** END OF TEST SEGMENT 190 04430821
447: STOP 04440821
448: END 04450821
449: 04460821
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.