![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to FM819.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 FM819.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***********************************************************************00010819
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 00020819
6: C***** FM819 00030819
7: C***** YDSIN - (187) 00040819
8: C***** 00050819
9: C***********************************************************************00060819
10: C***** GENERAL PURPOSE ANS REF 00070819
11: C***** TEST INTRINSIC FUNCTION DSIN 15.3 00080819
12: C***** TABLE 5 00090819
13: C***** 00100819
14: CBB** ********************** BBCCOMNT **********************************00110819
15: C**** 00120819
16: C**** 1978 FORTRAN COMPILER VALIDATION SYSTEM 00130819
17: C**** VERSION 2.0 00140819
18: C**** 00150819
19: C**** 00160819
20: C**** SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00170819
21: C**** GENERAL SERVICES ADMINISTRATION 00180819
22: C**** FEDERAL SOFTWARE TESTING CENTER 00190819
23: C**** 5203 LEESBURG PIKE, SUITE 1100 00200819
24: C**** FALLS CHURCH, VA. 22041 00210819
25: C**** 00220819
26: C**** (703) 756-6153 00230819
27: C**** 00240819
28: CBE** ********************** BBCCOMNT **********************************00250819
29: C***** S P E C I F I C A T I O N S SEGMENT 187 00260819
30: DOUBLE PRECISION AVD, BVD, PIVD, DVCORR 00270819
31: C***** 00280819
32: CBB** ********************** BBCINITA **********************************00290819
33: C**** SPECIFICATION STATEMENTS 00300819
34: C**** 00310819
35: CHARACTER ZVERS*13, ZVERSD*17, ZDATE*17, ZPROG*5, ZCOMPL*20, 00320819
36: 1 ZNAME*20, ZTAPE*10, ZPROJ*13, REMRKS*31, ZTAPED*13 00330819
37: CBE** ********************** BBCINITA **********************************00340819
38: CBB** ********************** BBCINITB **********************************00350819
39: C**** INITIALIZE SECTION 00360819
40: DATA ZVERS, ZVERSD, ZDATE 00370819
41: 1 /'VERSION 2.0 ', '82/08/02*18.33.46', '*NO DATE*TIME'/ 00380819
42: DATA ZCOMPL, ZNAME, ZTAPE 00390819
43: 1 /'*NONE SPECIFIED*', '*NO COMPANY NAME*', '*NO TAPE*'/ 00400819
44: DATA ZPROJ, ZTAPED, ZPROG 00410819
45: 1 /'*NO PROJECT*', '*NO TAPE DATE', 'XXXXX'/ 00420819
46: DATA REMRKS /' '/ 00430819
47: C**** THE FOLLOWING 9 COMMENT LINES (CZ01, CZ02, ...) CAN BE REPLACED 00440819
48: C**** FOR IDENTIFYING THE TEST ENVIRONMENT 00450819
49: C**** 00460819
50: CZ01 ZVERS = 'VERSION OF THE COMPILER VALIDATION SYSTEM' 00470819
51: CZ02 ZVERSD = 'CREATION DATE/TIME OF THE COMPILER VALIDATION SYSTEM' 00480819
52: CZ03 ZPROG = 'PROGRAM NAME' 00490819
53: ZDATE = '07-Nov-85 ' *RP
54: ZCOMPL = 'CCI 5.2 ' *RP
55: ZPROJ = 'TC-85- -410' *RP
56: ZNAME = ' ' *RP
57: ZTAPE = ' ' *RP
58: ZTAPED = '850703 ' *RP
59: C 00560819
60: IVPASS = 0 00570819
61: IVFAIL = 0 00580819
62: IVDELE = 0 00590819
63: IVINSP = 0 00600819
64: IVTOTL = 0 00610819
65: IVTOTN = 0 00620819
66: ICZERO = 0 00630819
67: C 00640819
68: C I01 CONTAINS THE LOGICAL UNIT NUMBER FOR THE CARD READER. 00650819
69: I01 = 05 00660819
70: C I02 CONTAINS THE LOGICAL UNIT NUMBER FOR THE PRINTER. 00670819
71: I02 = 06 00680819
72: C 00690819
73: I01 = 5 00700819
74: C THE CX010 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I01 = 5 00710819
75: CX011 REPLACED BY FEXEC X-011 CONTROL CARD. CX011 IS FOR SYSTEMS 00720819
76: C REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX010. 00730819
77: C 00740819
78: I02 = 6 00750819
79: C THE CX020 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I02= 6 00760819
80: CX021 REPLACED BY FEXEC X-021 CONTROL CARD. CX021 IS FOR SYSTEMS 00770819
81: C REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX020. 00780819
82: C 00790819
83: CBE** ********************** BBCINITB **********************************00800819
84: NUVI = I02 00810819
85: IVTOTL = 19 00820819
86: ZPROG = 'FM819' 00830819
87: CBB** ********************** BBCHED0A **********************************00840819
88: C**** 00850819
89: C**** WRITE REPORT TITLE 00860819
90: C**** 00870819
91: WRITE (I02, 90002) 00880819
92: WRITE (I02, 90006) 00890819
93: WRITE (I02, 90007) 00900819
94: WRITE (I02, 90008) ZVERS, ZVERSD 00910819
95: WRITE (I02, 90009) ZPROG, ZPROG 00920819
96: WRITE (I02, 90010) ZDATE, ZCOMPL 00930819
97: CBE** ********************** BBCHED0A **********************************00940819
98: C***** 00950819
99: C***** HEADER FOR SEGMENT 187 00960819
100: WRITE(NUVI,18700) 00970819
101: 18700 FORMAT(1H /34H YDSIN - (187) INTRINSIC FUNCTIONS// 00980819
102: 1 32H DSIN - (DOUBLE PRECISION SINE)// 00990819
103: 2 17H ANS REF. - 15.3) 01000819
104: CBB** ********************** BBCHED0B **********************************01010819
105: C**** WRITE DETAIL REPORT HEADERS 01020819
106: C**** 01030819
107: WRITE (I02,90004) 01040819
108: WRITE (I02,90004) 01050819
109: WRITE (I02,90013) 01060819
110: WRITE (I02,90014) 01070819
111: WRITE (I02,90015) IVTOTL 01080819
112: CBE** ********************** BBCHED0B **********************************01090819
113: C***** 01100819
114: PIVD = 3.1415926535897932384626434D0 01110819
115: C***** 01120819
116: CT001* TEST 1 ZERO (0.0) SINCE SIN(0)=0 01130819
117: IVTNUM = 1 01140819
118: BVD = 0.0D0 01150819
119: AVD = DSIN(BVD) 01160819
120: IF (AVD + 0.5000000000D-09) 20010, 10010, 40010 01170819
121: 40010 IF (AVD - 0.5000000000D-09) 10010, 10010, 20010 01180819
122: 10010 IVPASS = IVPASS + 1 01190819
123: WRITE (NUVI, 80002) IVTNUM 01200819
124: GO TO 0011 01210819
125: 20010 IVFAIL = IVFAIL + 1 01220819
126: DVCORR = 0.00000000000000000000D+00 01230819
127: WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 01240819
128: 0011 CONTINUE 01250819
129: CT002* TEST 2 PI 01260819
130: IVTNUM = 2 01270819
131: AVD = DSIN(PIVD) 01280819
132: IF (AVD + 0.5000000000D-09) 20020, 10020, 40020 01290819
133: 40020 IF (AVD - 0.5000000000D-09) 10020, 10020, 20020 01300819
134: 10020 IVPASS = IVPASS + 1 01310819
135: WRITE (NUVI, 80002) IVTNUM 01320819
136: GO TO 0021 01330819
137: 20020 IVFAIL = IVFAIL + 1 01340819
138: DVCORR = 0.00000000000000000000D+00 01350819
139: WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 01360819
140: 0021 CONTINUE 01370819
141: CT003* TEST 3 PI - 1/8 01380819
142: IVTNUM = 3 01390819
143: BVD = 3.01659265358979323846D0 01400819
144: AVD = DSIN(BVD) 01410819
145: IF (AVD - 0.1246747333D+00) 20030, 10030, 40030 01420819
146: 40030 IF (AVD - 0.1246747335D+00) 10030, 10030, 20030 01430819
147: 10030 IVPASS = IVPASS + 1 01440819
148: WRITE (NUVI, 80002) IVTNUM 01450819
149: GO TO 0031 01460819
150: 20030 IVFAIL = IVFAIL + 1 01470819
151: DVCORR = 0.12467473338522768996D+00 01480819
152: WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 01490819
153: 0031 CONTINUE 01500819
154: CT004* TEST 4 PI - 1/16 01510819
155: IVTNUM = 4 01520819
156: AVD = DSIN(3.204092653589793238D0) 01530819
157: IF (AVD + 0.6245931788D-01) 20040, 10040, 40040 01540819
158: 40040 IF (AVD + 0.6245931781D-01) 10040, 10040, 20040 01550819
159: 10040 IVPASS = IVPASS + 1 01560819
160: WRITE (NUVI, 80002) IVTNUM 01570819
161: GO TO 0041 01580819
162: 20040 IVFAIL = IVFAIL + 1 01590819
163: DVCORR = -0.062459317842380198585D+00 01600819
164: WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 01610819
165: 0041 CONTINUE 01620819
166: CT005* TEST 5 2*PI 01630819
167: IVTNUM = 5 01640819
168: BVD = PIVD * 2.0D0 01650819
169: AVD = DSIN(BVD) 01660819
170: IF (AVD + 0.5000000000D-09) 20050, 10050, 40050 01670819
171: 40050 IF (AVD - 0.5000000000D-09) 10050, 10050, 20050 01680819
172: 10050 IVPASS = IVPASS + 1 01690819
173: WRITE (NUVI, 80002) IVTNUM 01700819
174: GO TO 0051 01710819
175: 20050 IVFAIL = IVFAIL + 1 01720819
176: DVCORR = 0.00000000000000000000D+00 01730819
177: WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 01740819
178: 0051 CONTINUE 01750819
179: CT006* TEST 6 2*PI - 1/128 01760819
180: IVTNUM = 6 01770819
181: BVD = (2.0D0 * PIVD) - 1.0D0 / 128.0D0 01780819
182: AVD = DSIN(BVD) 01790819
183: IF (AVD + 0.7812420532D-02) 20060, 10060, 40060 01800819
184: 40060 IF (AVD + 0.7812420523D-02) 10060, 10060, 20060 01810819
185: 10060 IVPASS = IVPASS + 1 01820819
186: WRITE (NUVI, 80002) IVTNUM 01830819
187: GO TO 0061 01840819
188: 20060 IVFAIL = IVFAIL + 1 01850819
189: DVCORR = -0.0078124205273828310472D+00 01860819
190: WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 01870819
191: 0061 CONTINUE 01880819
192: CT007* TEST 7 2*PI - 1/256 01890819
193: IVTNUM = 7 01900819
194: BVD = (2.0D0 * PIVD) + 1.0D0 / 256.0D0 01910819
195: AVD = DSIN(BVD) 01920819
196: IF (AVD - 0.3906240064D-02) 20070, 10070, 40070 01930819
197: 40070 IF (AVD - 0.3906240068D-02) 10070, 10070, 20070 01940819
198: 10070 IVPASS = IVPASS + 1 01950819
199: WRITE (NUVI, 80002) IVTNUM 01960819
200: GO TO 0071 01970819
201: 20070 IVFAIL = IVFAIL + 1 01980819
202: DVCORR = 0.0039062400659001165547D+00 01990819
203: WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 02000819
204: 0071 CONTINUE 02010819
205: CT008* TEST 8 AN EXPRESSION SUPPLIED TO DSIN 02020819
206: IVTNUM = 8 02030819
207: BVD = 2000.0D0 02040819
208: AVD = DSIN(BVD / 10.0D2) 02050819
209: IF (AVD - 0.9092974263D+00) 20080, 10080, 40080 02060819
210: 40080 IF (AVD - 0.9092974273D+00) 10080, 10080, 20080 02070819
211: 10080 IVPASS = IVPASS + 1 02080819
212: WRITE (NUVI, 80002) IVTNUM 02090819
213: GO TO 0081 02100819
214: 20080 IVFAIL = IVFAIL + 1 02110819
215: DVCORR = 0.90929742682568169540D+00 02120819
216: WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 02130819
217: 0081 CONTINUE 02140819
218: CT009* TEST 9 THE VALUE -2.0D0 02150819
219: IVTNUM = 9 02160819
220: BVD = -2.0D0 02170819
221: AVD = DSIN(BVD) 02180819
222: IF (AVD + 0.9092974273D+00) 20090, 10090, 40090 02190819
223: 40090 IF (AVD + 0.9092974263D+00) 10090, 10090, 20090 02200819
224: 10090 IVPASS = IVPASS + 1 02210819
225: WRITE (NUVI, 80002) IVTNUM 02220819
226: GO TO 0091 02230819
227: 20090 IVFAIL = IVFAIL + 1 02240819
228: DVCORR = -0.90929742682568169540D+00 02250819
229: WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 02260819
230: 0091 CONTINUE 02270819
231: CT010* TEST 10 A LARGE VALUE TO TEST ARGUMENT REDUCTION 02280819
232: IVTNUM = 10 02290819
233: AVD = DSIN(100.0D0) 02300819
234: IF (AVD + 0.5063656414D+00) 20100, 10100, 40100 02310819
235: 40100 IF (AVD + 0.5063656408D+00) 10100, 10100, 20100 02320819
236: 10100 IVPASS = IVPASS + 1 02330819
237: WRITE (NUVI, 80002) IVTNUM 02340819
238: GO TO 0101 02350819
239: 20100 IVFAIL = IVFAIL + 1 02360819
240: DVCORR = -0.50636564110975879366D+00 02370819
241: WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 02380819
242: 0101 CONTINUE 02390819
243: CT011* TEST 11 A VERY LARGE VALUE 02400819
244: IVTNUM = 11 02410819
245: AVD = DSIN(-1000.0D0) 02420819
246: IF (AVD + 0.8268795410D+00) 20110, 10110, 40110 02430819
247: 40110 IF (AVD + 0.8268795401D+00) 10110, 10110, 20110 02440819
248: 10110 IVPASS = IVPASS + 1 02450819
249: WRITE (NUVI, 80002) IVTNUM 02460819
250: GO TO 0111 02470819
251: 20110 IVFAIL = IVFAIL + 1 02480819
252: DVCORR = -0.82687954053200256026D+00 02490819
253: WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 02500819
254: 0111 CONTINUE 02510819
255: CT012* TEST 12 PI/2 02520819
256: IVTNUM = 12 02530819
257: AVD = DSIN(1.57079632679489661923D0) 02540819
258: IF (AVD - 0.9999999995D+00) 20120, 10120, 40120 02550819
259: 40120 IF (AVD - 0.1000000001D+01) 10120, 10120, 20120 02560819
260: 10120 IVPASS = IVPASS + 1 02570819
261: WRITE (NUVI, 80002) IVTNUM 02580819
262: GO TO 0121 02590819
263: 20120 IVFAIL = IVFAIL + 1 02600819
264: DVCORR = 1.0000000000000000000D+00 02610819
265: WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 02620819
266: 0121 CONTINUE 02630819
267: CT013* TEST 13 (PI / 2) - 1/32 02640819
268: IVTNUM = 13 02650819
269: BVD = 1.53954632679489661923D0 02660819
270: AVD = DSIN(BVD) 02670819
271: IF (AVD - 0.9995117579D+00) 20130, 10130, 40130 02680819
272: 40130 IF (AVD - 0.9995117590D+00) 10130, 10130, 20130 02690819
273: 10130 IVPASS = IVPASS + 1 02700819
274: WRITE (NUVI, 80002) IVTNUM 02710819
275: GO TO 0131 02720819
276: 20130 IVFAIL = IVFAIL + 1 02730819
277: DVCORR = 0.99951175848513636924D+00 02740819
278: WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 02750819
279: 0131 CONTINUE 02760819
280: CT014* TEST 14 (PI / 2) + 1/64 02770819
281: IVTNUM = 14 02780819
282: BVD = 1.58642132679489661923D0 02790819
283: AVD = DSIN(BVD) 02800819
284: IF (AVD - 0.9998779316D+00) 20140, 10140, 40140 02810819
285: 40140 IF (AVD - 0.9998779327D+00) 10140, 10140, 20140 02820819
286: 10140 IVPASS = IVPASS + 1 02830819
287: WRITE (NUVI, 80002) IVTNUM 02840819
288: GO TO 0141 02850819
289: 20140 IVFAIL = IVFAIL + 1 02860819
290: DVCORR = 0.99987793217100665474D+00 02870819
291: WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 02880819
292: 0141 CONTINUE 02890819
293: CT015* TEST 15 3*PI/2 02900819
294: IVTNUM = 15 02910819
295: BVD = 3.0D0 * PIVD / 2.0D0 02920819
296: AVD = DSIN(BVD) 02930819
297: IF (AVD + 0.1000000001D+01) 20150, 10150, 40150 02940819
298: 40150 IF (AVD + 0.9999999995D+00) 10150, 10150, 20150 02950819
299: 10150 IVPASS = IVPASS + 1 02960819
300: WRITE (NUVI, 80002) IVTNUM 02970819
301: GO TO 0151 02980819
302: 20150 IVFAIL = IVFAIL + 1 02990819
303: DVCORR = -1.000000000000000000D+00 03000819
304: WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 03010819
305: 0151 CONTINUE 03020819
306: CT016* TEST 16 3*PI/2 - 1/16 03030819
307: IVTNUM = 16 03040819
308: BVD = (3.0D0 * PIVD / 2.0D0) - 1.0D0 / 16.0D0 03050819
309: AVD = DSIN(BVD) 03060819
310: IF (AVD + 0.9980475112D+00) 20160, 10160, 40160 03070819
311: 40160 IF (AVD + 0.9980475102D+00) 10160, 10160, 20160 03080819
312: 10160 IVPASS = IVPASS + 1 03090819
313: WRITE (NUVI, 80002) IVTNUM 03100819
314: GO TO 0161 03110819
315: 20160 IVFAIL = IVFAIL + 1 03120819
316: DVCORR = -0.99804751070009914963D+00 03130819
317: WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 03140819
318: 0161 CONTINUE 03150819
319: CT017* TEST 17 3*PI - 1/512 03160819
320: IVTNUM = 17 03170819
321: BVD = (3.0D0 * PIVD / 2.0D0) + 1.0D0 / 512.0D0 03180819
322: AVD = DSIN(BVD) 03190819
323: IF (AVD + 0.9999980932D+00) 20170, 10170, 40170 03200819
324: 40170 IF (AVD + 0.9999980921D+00) 10170, 10170, 20170 03210819
325: 10170 IVPASS = IVPASS + 1 03220819
326: WRITE (NUVI, 80002) IVTNUM 03230819
327: GO TO 0171 03240819
328: 20170 IVFAIL = IVFAIL + 1 03250819
329: DVCORR = -0.99999809265197351722D+00 03260819
330: WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 03270819
331: 0171 CONTINUE 03280819
332: CT018* TEST 18 ARGUMENT OF LOW MAGNITUDE 03290819
333: IVTNUM = 18 03300819
334: BVD = PIVD * 1.0D-17 03310819
335: AVD = DSIN(BVD) 03320819
336: IF (AVD - 0.3141592652D-16) 20180, 10180, 40180 03330819
337: 40180 IF (AVD - 0.3141592655D-16) 10180, 10180, 20180 03340819
338: 10180 IVPASS = IVPASS + 1 03350819
339: WRITE (NUVI, 80002) IVTNUM 03360819
340: GO TO 0181 03370819
341: 20180 IVFAIL = IVFAIL + 1 03380819
342: DVCORR = 3.1415926535897932385D-17 03390819
343: WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 03400819
344: 0181 CONTINUE 03410819
345: CT019* TEST 19 THE FUNCTION APPLIED TWICE 03420819
346: IVTNUM = 19 03430819
347: AVD = DSIN(PIVD / 4.0D0) * DSIN(3.0D0 * PIVD / 4.0D0) 03440819
348: IF (AVD - 0.4999999997D+00) 20190, 10190, 40190 03450819
349: 40190 IF (AVD - 0.5000000003D+00) 10190, 10190, 20190 03460819
350: 10190 IVPASS = IVPASS + 1 03470819
351: WRITE (NUVI, 80002) IVTNUM 03480819
352: GO TO 0191 03490819
353: 20190 IVFAIL = IVFAIL + 1 03500819
354: DVCORR = 0.50000000000000000000D+00 03510819
355: WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 03520819
356: 0191 CONTINUE 03530819
357: C***** 03540819
358: CBB** ********************** BBCSUM0 **********************************03550819
359: C**** WRITE OUT TEST SUMMARY 03560819
360: C**** 03570819
361: IVTOTN = IVPASS + IVFAIL + IVDELE + IVINSP 03580819
362: WRITE (I02, 90004) 03590819
363: WRITE (I02, 90014) 03600819
364: WRITE (I02, 90004) 03610819
365: WRITE (I02, 90020) IVPASS 03620819
366: WRITE (I02, 90022) IVFAIL 03630819
367: WRITE (I02, 90024) IVDELE 03640819
368: WRITE (I02, 90026) IVINSP 03650819
369: WRITE (I02, 90028) IVTOTN, IVTOTL 03660819
370: CBE** ********************** BBCSUM0 **********************************03670819
371: CBB** ********************** BBCFOOT0 **********************************03680819
372: C**** WRITE OUT REPORT FOOTINGS 03690819
373: C**** 03700819
374: WRITE (I02,90016) ZPROG, ZPROG 03710819
375: WRITE (I02,90018) ZPROJ, ZNAME, ZTAPE, ZTAPED 03720819
376: WRITE (I02,90019) 03730819
377: CBE** ********************** BBCFOOT0 **********************************03740819
378: CBB** ********************** BBCFMT0A **********************************03750819
379: C**** FORMATS FOR TEST DETAIL LINES 03760819
380: C**** 03770819
381: 80000 FORMAT (1H ,2X,I3,4X,7HDELETED,32X,A31) 03780819
382: 80002 FORMAT (1H ,2X,I3,4X,7H PASS ,32X,A31) 03790819
383: 80004 FORMAT (1H ,2X,I3,4X,7HINSPECT,32X,A31) 03800819
384: 80008 FORMAT (1H ,2X,I3,4X,7H FAIL ,32X,A31) 03810819
385: 80010 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,15X,10HCOMPUTED= , 03820819
386: 1I6,/,1H ,15X,10HCORRECT= ,I6) 03830819
387: 80012 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 03840819
388: 1E12.5,/,1H ,16X,10HCORRECT= ,E12.5) 03850819
389: 80018 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 03860819
390: 1A21,/,1H ,16X,10HCORRECT= ,A21) 03870819
391: 80020 FORMAT (1H ,16X,10HCOMPUTED= ,A21,1X,A31) 03880819
392: 80022 FORMAT (1H ,16X,10HCORRECT= ,A21,1X,A31) 03890819
393: 80024 FORMAT (1H ,16X,10HCOMPUTED= ,I6,16X,A31) 03900819
394: 80026 FORMAT (1H ,16X,10HCORRECT= ,I6,16X,A31) 03910819
395: 80028 FORMAT (1H ,16X,10HCOMPUTED= ,E12.5,10X,A31) 03920819
396: 80030 FORMAT (1H ,16X,10HCORRECT= ,E12.5,10X,A31) 03930819
397: 80050 FORMAT (1H ,48X,A31) 03940819
398: CBE** ********************** BBCFMT0A **********************************03950819
399: CBB** ********************** BBCFMAT1 **********************************03960819
400: C**** FORMATS FOR TEST DETAIL LINES - FULL LANGUAGE 03970819
401: C**** 03980819
402: 80031 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 03990819
403: 1D17.10,/,1H ,16X,10HCORRECT= ,D17.10) 04000819
404: 80033 FORMAT (1H ,16X,10HCOMPUTED= ,D17.10,10X,A31) 04010819
405: 80035 FORMAT (1H ,16X,10HCORRECT= ,D17.10,10X,A31) 04020819
406: 80037 FORMAT (1H ,16X,10HCOMPUTED= ,1H(,E12.5,2H, ,E12.5,1H),6X,A31) 04030819
407: 80039 FORMAT (1H ,16X,10HCORRECT= ,1H(,E12.5,2H, ,E12.5,1H),6X,A31) 04040819
408: 80041 FORMAT (1H ,16X,10HCOMPUTED= ,1H(,F12.5,2H, ,F12.5,1H),6X,A31) 04050819
409: 80043 FORMAT (1H ,16X,10HCORRECT= ,1H(,F12.5,2H, ,F12.5,1H),6X,A31) 04060819
410: 80045 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 04070819
411: 11H(,F12.5,2H, ,F12.5,1H)/,1H ,16X,10HCORRECT= , 04080819
412: 21H(,F12.5,2H, ,F12.5,1H)) 04090819
413: CBE** ********************** BBCFMAT1 **********************************04100819
414: CBB** ********************** BBCFMT0B **********************************04110819
415: C**** FORMAT STATEMENTS FOR PAGE HEADERS 04120819
416: C**** 04130819
417: 90002 FORMAT (1H1) 04140819
418: 90004 FORMAT (1H ) 04150819
419: 90006 FORMAT (1H ,20X,31HFEDERAL SOFTWARE TESTING CENTER) 04160819
420: 90007 FORMAT (1H ,19X,34HFORTRAN COMPILER VALIDATION SYSTEM) 04170819
421: 90008 FORMAT (1H ,21X,A13,A17) 04180819
422: 90009 FORMAT (1H ,/,2H *,A5,6HBEGIN*,12X,15HTEST RESULTS - ,A5,/) 04190819
423: 90010 FORMAT (1H ,8X,16HTEST DATE*TIME= ,A17,15H - COMPILER= ,A20) 04200819
424: 90013 FORMAT (1H ,8H TEST ,10HPASS/FAIL ,6X,17HDISPLAYED RESULTS, 04210819
425: 1 7X,7HREMARKS,24X) 04220819
426: 90014 FORMAT (1H ,46H----------------------------------------------, 04230819
427: 1 33H---------------------------------) 04240819
428: 90015 FORMAT (1H ,48X,17HTHIS PROGRAM HAS ,I3,6H TESTS,/) 04250819
429: C**** 04260819
430: C**** FORMAT STATEMENTS FOR REPORT FOOTINGS 04270819
431: C**** 04280819
432: 90016 FORMAT (1H ,/,2H *,A5,4HEND*,14X,14HEND OF TEST - ,A5,/) 04290819
433: 90018 FORMAT (1H ,A13,13X,A20,7H * ,A10,1H/, 04300819
434: 1 A13) 04310819
435: 90019 FORMAT (1H ,26HFOR OFFICIAL USE ONLY ,35X,15HCOPYRIGHT 1982) 04320819
436: C**** 04330819
437: C**** FORMAT STATEMENTS FOR RUN SUMMARY 04340819
438: C**** 04350819
439: 90020 FORMAT (1H ,21X,I5,13H TESTS PASSED) 04360819
440: 90022 FORMAT (1H ,21X,I5,13H TESTS FAILED) 04370819
441: 90024 FORMAT (1H ,21X,I5,14H TESTS DELETED) 04380819
442: 90026 FORMAT (1H ,21X,I5,25H TESTS REQUIRE INSPECTION) 04390819
443: 90028 FORMAT (1H ,21X,I5,4H OF ,I3,15H TESTS EXECUTED) 04400819
444: CBE** ********************** BBCFMT0B **********************************04410819
445: C***** 04420819
446: C***** END OF TEST SEGMENT 187 04430819
447: STOP 04440819
448: END 04450819
449: 04460819
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.