![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to FM825.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 FM825.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***********************************************************************00010825
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 00020825
6: C***** FM825 00030825
7: C***** YDSINH - (198) 00040825
8: C***** 00050825
9: C***********************************************************************00060825
10: C***** GENERAL PURPOSE ANS REF 00070825
11: C***** TEST INTRINSIC FUNCTION DSINH, DCOSH 15.3 00080825
12: C***** TABLE 5 00090825
13: CBB** ********************** BBCCOMNT **********************************00100825
14: C**** 00110825
15: C**** 1978 FORTRAN COMPILER VALIDATION SYSTEM 00120825
16: C**** VERSION 2.0 00130825
17: C**** 00140825
18: C**** 00150825
19: C**** SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00160825
20: C**** GENERAL SERVICES ADMINISTRATION 00170825
21: C**** FEDERAL SOFTWARE TESTING CENTER 00180825
22: C**** 5203 LEESBURG PIKE, SUITE 1100 00190825
23: C**** FALLS CHURCH, VA. 22041 00200825
24: C**** 00210825
25: C**** (703) 756-6153 00220825
26: C**** 00230825
27: CBE** ********************** BBCCOMNT **********************************00240825
28: C***** 00250825
29: C***** S P E C I F I C A T I O N S SEGMENT 198 00260825
30: DOUBLE PRECISION AVD, BVD, CVD, DVCORR 00270825
31: C***** 00280825
32: CBB** ********************** BBCINITA **********************************00290825
33: C**** SPECIFICATION STATEMENTS 00300825
34: C**** 00310825
35: CHARACTER ZVERS*13, ZVERSD*17, ZDATE*17, ZPROG*5, ZCOMPL*20, 00320825
36: 1 ZNAME*20, ZTAPE*10, ZPROJ*13, REMRKS*31, ZTAPED*13 00330825
37: CBE** ********************** BBCINITA **********************************00340825
38: CBB** ********************** BBCINITB **********************************00350825
39: C**** INITIALIZE SECTION 00360825
40: DATA ZVERS, ZVERSD, ZDATE 00370825
41: 1 /'VERSION 2.0 ', '82/08/02*18.33.46', '*NO DATE*TIME'/ 00380825
42: DATA ZCOMPL, ZNAME, ZTAPE 00390825
43: 1 /'*NONE SPECIFIED*', '*NO COMPANY NAME*', '*NO TAPE*'/ 00400825
44: DATA ZPROJ, ZTAPED, ZPROG 00410825
45: 1 /'*NO PROJECT*', '*NO TAPE DATE', 'XXXXX'/ 00420825
46: DATA REMRKS /' '/ 00430825
47: C**** THE FOLLOWING 9 COMMENT LINES (CZ01, CZ02, ...) CAN BE REPLACED 00440825
48: C**** FOR IDENTIFYING THE TEST ENVIRONMENT 00450825
49: C**** 00460825
50: CZ01 ZVERS = 'VERSION OF THE COMPILER VALIDATION SYSTEM' 00470825
51: CZ02 ZVERSD = 'CREATION DATE/TIME OF THE COMPILER VALIDATION SYSTEM' 00480825
52: CZ03 ZPROG = 'PROGRAM NAME' 00490825
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 00560825
60: IVPASS = 0 00570825
61: IVFAIL = 0 00580825
62: IVDELE = 0 00590825
63: IVINSP = 0 00600825
64: IVTOTL = 0 00610825
65: IVTOTN = 0 00620825
66: ICZERO = 0 00630825
67: C 00640825
68: C I01 CONTAINS THE LOGICAL UNIT NUMBER FOR THE CARD READER. 00650825
69: I01 = 05 00660825
70: C I02 CONTAINS THE LOGICAL UNIT NUMBER FOR THE PRINTER. 00670825
71: I02 = 06 00680825
72: C 00690825
73: I01 = 5 00700825
74: C THE CX010 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I01 = 5 00710825
75: CX011 REPLACED BY FEXEC X-011 CONTROL CARD. CX011 IS FOR SYSTEMS 00720825
76: C REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX010. 00730825
77: C 00740825
78: I02 = 6 00750825
79: C THE CX020 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I02= 6 00760825
80: CX021 REPLACED BY FEXEC X-021 CONTROL CARD. CX021 IS FOR SYSTEMS 00770825
81: C REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX020. 00780825
82: C 00790825
83: CBE** ********************** BBCINITB **********************************00800825
84: NUVI = I02 00810825
85: IVTOTL = 16 00820825
86: ZPROG = 'FM825' 00830825
87: CBB** ********************** BBCHED0A **********************************00840825
88: C**** 00850825
89: C**** WRITE REPORT TITLE 00860825
90: C**** 00870825
91: WRITE (I02, 90002) 00880825
92: WRITE (I02, 90006) 00890825
93: WRITE (I02, 90007) 00900825
94: WRITE (I02, 90008) ZVERS, ZVERSD 00910825
95: WRITE (I02, 90009) ZPROG, ZPROG 00920825
96: WRITE (I02, 90010) ZDATE, ZCOMPL 00930825
97: CBE** ********************** BBCHED0A **********************************00940825
98: C***** 00950825
99: C***** HEADER FOR SEGMENT 198 00960825
100: WRITE(NUVI,19800) 00970825
101: 19800 FORMAT(1H , / 36H YDSINH - (198) INTRINSIC FUNCTIONS// 00980825
102: 1 57H DSINH, DCOSH (DOUBLE PRECISION HYPERBOLIC SINE, COSINE)// 00990825
103: 2 17H ANS REF. - 15.3) 01000825
104: CBB** ********************** BBCHED0B **********************************01010825
105: C**** WRITE DETAIL REPORT HEADERS 01020825
106: C**** 01030825
107: WRITE (I02,90004) 01040825
108: WRITE (I02,90004) 01050825
109: WRITE (I02,90013) 01060825
110: WRITE (I02,90014) 01070825
111: WRITE (I02,90015) IVTOTL 01080825
112: CBE** ********************** BBCHED0B **********************************01090825
113: C***** 01100825
114: WRITE(NUVI,19801) 01110825
115: 19801 FORMAT(/ 8X, 13HTEST OF DSINH) 01120825
116: C***** 01130825
117: CT001* TEST 1 TEST AT ZERO (0.0D0) 01140825
118: IVTNUM = 1 01150825
119: BVD = 0.0D0 01160825
120: AVD = DSINH(BVD) 01170825
121: IF (AVD + 0.5000000000D-09) 20010, 10010, 40010 01180825
122: 40010 IF (AVD - 0.5000000000D-09) 10010, 10010, 20010 01190825
123: 10010 IVPASS = IVPASS + 1 01200825
124: WRITE (NUVI, 80002) IVTNUM 01210825
125: GO TO 0011 01220825
126: 20010 IVFAIL = IVFAIL + 1 01230825
127: DVCORR = 0.00000000000000000000D+00 01240825
128: WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 01250825
129: 0011 CONTINUE 01260825
130: CT002* TEST 2 TEST ARGUMENTS CLOSE TO 1.0D0 01270825
131: IVTNUM = 2 01280825
132: AVD = DSINH(15.0D0 / 16.0D0) 01290825
133: IF (AVD - 0.1080991915D+01) 20020, 10020, 40020 01300825
134: 40020 IF (AVD - 0.1080991917D+01) 10020, 10020, 20020 01310825
135: 10020 IVPASS = IVPASS + 1 01320825
136: WRITE (NUVI, 80002) IVTNUM 01330825
137: GO TO 0021 01340825
138: 20020 IVFAIL = IVFAIL + 1 01350825
139: DVCORR = 1.0809919156930639401D+00 01360825
140: WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 01370825
141: 0021 CONTINUE 01380825
142: CT003* TEST 3 TEST AT 1.0D0 01390825
143: IVTNUM = 3 01400825
144: BVD = 1.0D0 01410825
145: AVD = DSINH(BVD) 01420825
146: IF (AVD - 0.1175201193D+01) 20030, 10030, 40030 01430825
147: 40030 IF (AVD - 0.1175201195D+01) 10030, 10030, 20030 01440825
148: 10030 IVPASS = IVPASS + 1 01450825
149: WRITE (NUVI, 80002) IVTNUM 01460825
150: GO TO 0031 01470825
151: 20030 IVFAIL = IVFAIL + 1 01480825
152: DVCORR = 1.1752011936438014569D+00 01490825
153: WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 01500825
154: 0031 CONTINUE 01510825
155: CT004* TEST 4 TEST ARGUMENTS CLOSE TO 1.0D0 01520825
156: IVTNUM = 4 01530825
157: AVD = DSINH(33.0D0 / 32.0D0) 01540825
158: IF (AVD - 0.1224004187D+01) 20040, 10040, 40040 01550825
159: 40040 IF (AVD - 0.1224004189D+01) 10040, 10040, 20040 01560825
160: 10040 IVPASS = IVPASS + 1 01570825
161: WRITE (NUVI, 80002) IVTNUM 01580825
162: GO TO 0041 01590825
163: 20040 IVFAIL = IVFAIL + 1 01600825
164: DVCORR = 1.2240041877866398138D+00 01610825
165: WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 01620825
166: 0041 CONTINUE 01630825
167: CT005* TEST 5 TEST AT 2.0D0 01640825
168: IVTNUM = 5 01650825
169: BVD = 2.0D0 01660825
170: AVD = DSINH(BVD) 01670825
171: IF (AVD - 0.3626860406D+01) 20050, 10050, 40050 01680825
172: 40050 IF (AVD - 0.3626860410D+01) 10050, 10050, 20050 01690825
173: 10050 IVPASS = IVPASS + 1 01700825
174: WRITE (NUVI, 80002) IVTNUM 01710825
175: GO TO 0051 01720825
176: 20050 IVFAIL = IVFAIL + 1 01730825
177: DVCORR = 3.6268604078470187677D+00 01740825
178: WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 01750825
179: 0051 CONTINUE 01760825
180: CT006* TEST 6 A NEGATIVE ARGUMENT 01770825
181: IVTNUM = 6 01780825
182: AVD = DSINH(-2.0D0) 01790825
183: IF (AVD + 0.3626860410D+01) 20060, 10060, 40060 01800825
184: 40060 IF (AVD + 0.3626860406D+01) 10060, 10060, 20060 01810825
185: 10060 IVPASS = IVPASS + 1 01820825
186: WRITE (NUVI, 80002) IVTNUM 01830825
187: GO TO 0061 01840825
188: 20060 IVFAIL = IVFAIL + 1 01850825
189: DVCORR = -3.6268604078470187677D+00 01860825
190: WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 01870825
191: 0061 CONTINUE 01880825
192: CT007* TEST 7 AN ARGUMENT OF LOW MAGNITUDE 01890825
193: IVTNUM = 7 01900825
194: AVD = DSINH(1.0D-14) 01910825
195: IF (AVD - 0.9999999995D-14) 20070, 10070, 40070 01920825
196: 40070 IF (AVD - 0.1000000001D-13) 10070, 10070, 20070 01930825
197: 10070 IVPASS = IVPASS + 1 01940825
198: WRITE (NUVI, 80002) IVTNUM 01950825
199: GO TO 0071 01960825
200: 20070 IVFAIL = IVFAIL + 1 01970825
201: DVCORR = 1.0000000000000000000D-14 01980825
202: WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 01990825
203: 0071 CONTINUE 02000825
204: C***** 02010825
205: WRITE (NUVI, 90002) 02020825
206: WRITE (NUVI, 90013) 02030825
207: WRITE (NUVI, 90014) 02040825
208: C***** 02050825
209: WRITE(NUVI,19809) 02060825
210: 19809 FORMAT(/ 08X, 13HTEST OF DCOSH) 02070825
211: C***** 02080825
212: CT008* TEST 8 TEST AT ZERO (0.0D0) 02090825
213: IVTNUM = 8 02100825
214: BVD = 0.0D0 02110825
215: AVD = DCOSH(BVD) 02120825
216: IF (AVD - 0.9999999995D+00) 20080, 10080, 40080 02130825
217: 40080 IF (AVD - 0.1000000001D+01) 10080, 10080, 20080 02140825
218: 10080 IVPASS = IVPASS + 1 02150825
219: WRITE (NUVI, 80002) IVTNUM 02160825
220: GO TO 0081 02170825
221: 20080 IVFAIL = IVFAIL + 1 02180825
222: DVCORR = 1.0000000000000000000D+00 02190825
223: WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 02200825
224: 0081 CONTINUE 02210825
225: CT009* TEST 9 VALUES CLOSE TO 1.0D0 02220825
226: IVTNUM = 9 02230825
227: AVD = DCOSH(15.0D0 / 16.0D0) 02240825
228: IF (AVD - 0.1472597541D+01) 20090, 10090, 40090 02250825
229: 40090 IF (AVD - 0.1472597543D+01) 10090, 10090, 20090 02260825
230: 10090 IVPASS = IVPASS + 1 02270825
231: WRITE (NUVI, 80002) IVTNUM 02280825
232: GO TO 0091 02290825
233: 20090 IVFAIL = IVFAIL + 1 02300825
234: DVCORR = 1.4725975423698629333D+00 02310825
235: WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 02320825
236: 0091 CONTINUE 02330825
237: CT010* TEST 10 TEST ARGUMENTS CLOSE TO 1.0D0 02340825
238: IVTNUM = 10 02350825
239: BVD = 1.0D0 02360825
240: AVD = DCOSH(BVD) 02370825
241: IF (AVD - 0.1543080634D+01) 20100, 10100, 40100 02380825
242: 40100 IF (AVD - 0.1543080636D+01) 10100, 10100, 20100 02390825
243: 10100 IVPASS = IVPASS + 1 02400825
244: WRITE (NUVI, 80002) IVTNUM 02410825
245: GO TO 0101 02420825
246: 20100 IVFAIL = IVFAIL + 1 02430825
247: DVCORR = 1.5430806348152437785D+00 02440825
248: WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 02450825
249: 0101 CONTINUE 02460825
250: CT011* TEST 11 TEST ARGUMENTS CLOSE TO 1.0D0 02470825
251: IVTNUM = 11 02480825
252: AVD = DCOSH(33.0D0 / 32.0D0) 02490825
253: IF (AVD - 0.1580565167D+01) 20110, 10110, 40110 02500825
254: 40110 IF (AVD - 0.1580565170D+01) 10110, 10110, 20110 02510825
255: 10110 IVPASS = IVPASS + 1 02520825
256: WRITE (NUVI, 80002) IVTNUM 02530825
257: GO TO 0111 02540825
258: 20110 IVFAIL = IVFAIL + 1 02550825
259: DVCORR = 1.5805651684505867982D+00 02560825
260: WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 02570825
261: 0111 CONTINUE 02580825
262: CT012* TEST 12 TEST AT 2.0D0 02590825
263: IVTNUM = 12 02600825
264: BVD = 2.0D0 02610825
265: AVD = DCOSH(BVD) 02620825
266: IF (AVD - 0.3762195689D+01) 20120, 10120, 40120 02630825
267: 40120 IF (AVD - 0.3762195693D+01) 10120, 10120, 20120 02640825
268: 10120 IVPASS = IVPASS + 1 02650825
269: WRITE (NUVI, 80002) IVTNUM 02660825
270: GO TO 0121 02670825
271: 20120 IVFAIL = IVFAIL + 1 02680825
272: DVCORR = 3.7621956910836314596D+00 02690825
273: WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 02700825
274: 0121 CONTINUE 02710825
275: CT013* TEST 13 A NEGATIVE ARGUMENT 02720825
276: IVTNUM = 13 02730825
277: AVD = DCOSH(-2.0D0) 02740825
278: IF (AVD - 0.3762195689D+01) 20130, 10130, 40130 02750825
279: 40130 IF (AVD - 0.3762195693D+01) 10130, 10130, 20130 02760825
280: 10130 IVPASS = IVPASS + 1 02770825
281: WRITE (NUVI, 80002) IVTNUM 02780825
282: GO TO 0131 02790825
283: 20130 IVFAIL = IVFAIL + 1 02800825
284: DVCORR = 3.7621956910836314596D+00 02810825
285: WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 02820825
286: 0131 CONTINUE 02830825
287: CT014* TEST 14 AN ARGUMENT OF LOW MAGNITUDE 02840825
288: IVTNUM = 14 02850825
289: AVD = DCOSH(-1.0D-14) 02860825
290: IF (AVD - 0.9999999995D+00) 20140, 10140, 40140 02870825
291: 40140 IF (AVD - 0.1000000001D+01) 10140, 10140, 20140 02880825
292: 10140 IVPASS = IVPASS + 1 02890825
293: WRITE (NUVI, 80002) IVTNUM 02900825
294: GO TO 0141 02910825
295: 20140 IVFAIL = IVFAIL + 1 02920825
296: DVCORR = 1.0000000000000000000D+00 02930825
297: WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 02940825
298: 0141 CONTINUE 02950825
299: CT015* TEST 15 NEGATIVE VALUES SUPPLIED AS ARGUMENTS 02960825
300: C***** TO BOTH FUNCTIONS IN AN EXPRESSION 02970825
301: IVTNUM = 15 02980825
302: BVD = DSINH(-3.145D0) ** 2 02990825
303: CVD = DCOSH(-3.145D0) ** 2 03000825
304: AVD = CVD - BVD 03010825
305: IF (AVD - 0.9999999990D+00) 20150, 10150, 40150 03020825
306: 40150 IF (AVD - 0.1000000001D+01) 10150, 10150, 20150 03030825
307: 10150 IVPASS = IVPASS + 1 03040825
308: WRITE (NUVI, 80002) IVTNUM 03050825
309: GO TO 0151 03060825
310: 20150 IVFAIL = IVFAIL + 1 03070825
311: DVCORR = 1.0000000000000000000D+00 03080825
312: WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 03090825
313: 0151 CONTINUE 03100825
314: CT016* TEST 16 POSITIVE VALUES SUPPLIED AS ARGUMENTS 03110825
315: C***** TO BOTH FUNCTIONS IN AN EXPRESSION 03120825
316: IVTNUM = 16 03130825
317: AVD = DSINH(3.25D0) + DCOSH(3.25D0) 03140825
318: IF (AVD - 0.2579033990D+02) 20160, 10160, 40160 03150825
319: 40160 IF (AVD - 0.2579033993D+02) 10160, 10160, 20160 03160825
320: 10160 IVPASS = IVPASS + 1 03170825
321: WRITE (NUVI, 80002) IVTNUM 03180825
322: GO TO 0161 03190825
323: 20160 IVFAIL = IVFAIL + 1 03200825
324: DVCORR = 25.790339917193062089D+00 03210825
325: WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 03220825
326: 0161 CONTINUE 03230825
327: C***** 03240825
328: CBB** ********************** BBCSUM0 **********************************03250825
329: C**** WRITE OUT TEST SUMMARY 03260825
330: C**** 03270825
331: IVTOTN = IVPASS + IVFAIL + IVDELE + IVINSP 03280825
332: WRITE (I02, 90004) 03290825
333: WRITE (I02, 90014) 03300825
334: WRITE (I02, 90004) 03310825
335: WRITE (I02, 90020) IVPASS 03320825
336: WRITE (I02, 90022) IVFAIL 03330825
337: WRITE (I02, 90024) IVDELE 03340825
338: WRITE (I02, 90026) IVINSP 03350825
339: WRITE (I02, 90028) IVTOTN, IVTOTL 03360825
340: CBE** ********************** BBCSUM0 **********************************03370825
341: CBB** ********************** BBCFOOT0 **********************************03380825
342: C**** WRITE OUT REPORT FOOTINGS 03390825
343: C**** 03400825
344: WRITE (I02,90016) ZPROG, ZPROG 03410825
345: WRITE (I02,90018) ZPROJ, ZNAME, ZTAPE, ZTAPED 03420825
346: WRITE (I02,90019) 03430825
347: CBE** ********************** BBCFOOT0 **********************************03440825
348: CBB** ********************** BBCFMT0A **********************************03450825
349: C**** FORMATS FOR TEST DETAIL LINES 03460825
350: C**** 03470825
351: 80000 FORMAT (1H ,2X,I3,4X,7HDELETED,32X,A31) 03480825
352: 80002 FORMAT (1H ,2X,I3,4X,7H PASS ,32X,A31) 03490825
353: 80004 FORMAT (1H ,2X,I3,4X,7HINSPECT,32X,A31) 03500825
354: 80008 FORMAT (1H ,2X,I3,4X,7H FAIL ,32X,A31) 03510825
355: 80010 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,15X,10HCOMPUTED= , 03520825
356: 1I6,/,1H ,15X,10HCORRECT= ,I6) 03530825
357: 80012 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 03540825
358: 1E12.5,/,1H ,16X,10HCORRECT= ,E12.5) 03550825
359: 80018 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 03560825
360: 1A21,/,1H ,16X,10HCORRECT= ,A21) 03570825
361: 80020 FORMAT (1H ,16X,10HCOMPUTED= ,A21,1X,A31) 03580825
362: 80022 FORMAT (1H ,16X,10HCORRECT= ,A21,1X,A31) 03590825
363: 80024 FORMAT (1H ,16X,10HCOMPUTED= ,I6,16X,A31) 03600825
364: 80026 FORMAT (1H ,16X,10HCORRECT= ,I6,16X,A31) 03610825
365: 80028 FORMAT (1H ,16X,10HCOMPUTED= ,E12.5,10X,A31) 03620825
366: 80030 FORMAT (1H ,16X,10HCORRECT= ,E12.5,10X,A31) 03630825
367: 80050 FORMAT (1H ,48X,A31) 03640825
368: CBE** ********************** BBCFMT0A **********************************03650825
369: CBB** ********************** BBCFMAT1 **********************************03660825
370: C**** FORMATS FOR TEST DETAIL LINES - FULL LANGUAGE 03670825
371: C**** 03680825
372: 80031 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 03690825
373: 1D17.10,/,1H ,16X,10HCORRECT= ,D17.10) 03700825
374: 80033 FORMAT (1H ,16X,10HCOMPUTED= ,D17.10,10X,A31) 03710825
375: 80035 FORMAT (1H ,16X,10HCORRECT= ,D17.10,10X,A31) 03720825
376: 80037 FORMAT (1H ,16X,10HCOMPUTED= ,1H(,E12.5,2H, ,E12.5,1H),6X,A31) 03730825
377: 80039 FORMAT (1H ,16X,10HCORRECT= ,1H(,E12.5,2H, ,E12.5,1H),6X,A31) 03740825
378: 80041 FORMAT (1H ,16X,10HCOMPUTED= ,1H(,F12.5,2H, ,F12.5,1H),6X,A31) 03750825
379: 80043 FORMAT (1H ,16X,10HCORRECT= ,1H(,F12.5,2H, ,F12.5,1H),6X,A31) 03760825
380: 80045 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 03770825
381: 11H(,F12.5,2H, ,F12.5,1H)/,1H ,16X,10HCORRECT= , 03780825
382: 21H(,F12.5,2H, ,F12.5,1H)) 03790825
383: CBE** ********************** BBCFMAT1 **********************************03800825
384: CBB** ********************** BBCFMT0B **********************************03810825
385: C**** FORMAT STATEMENTS FOR PAGE HEADERS 03820825
386: C**** 03830825
387: 90002 FORMAT (1H1) 03840825
388: 90004 FORMAT (1H ) 03850825
389: 90006 FORMAT (1H ,20X,31HFEDERAL SOFTWARE TESTING CENTER) 03860825
390: 90007 FORMAT (1H ,19X,34HFORTRAN COMPILER VALIDATION SYSTEM) 03870825
391: 90008 FORMAT (1H ,21X,A13,A17) 03880825
392: 90009 FORMAT (1H ,/,2H *,A5,6HBEGIN*,12X,15HTEST RESULTS - ,A5,/) 03890825
393: 90010 FORMAT (1H ,8X,16HTEST DATE*TIME= ,A17,15H - COMPILER= ,A20) 03900825
394: 90013 FORMAT (1H ,8H TEST ,10HPASS/FAIL ,6X,17HDISPLAYED RESULTS, 03910825
395: 1 7X,7HREMARKS,24X) 03920825
396: 90014 FORMAT (1H ,46H----------------------------------------------, 03930825
397: 1 33H---------------------------------) 03940825
398: 90015 FORMAT (1H ,48X,17HTHIS PROGRAM HAS ,I3,6H TESTS,/) 03950825
399: C**** 03960825
400: C**** FORMAT STATEMENTS FOR REPORT FOOTINGS 03970825
401: C**** 03980825
402: 90016 FORMAT (1H ,/,2H *,A5,4HEND*,14X,14HEND OF TEST - ,A5,/) 03990825
403: 90018 FORMAT (1H ,A13,13X,A20,7H * ,A10,1H/, 04000825
404: 1 A13) 04010825
405: 90019 FORMAT (1H ,26HFOR OFFICIAL USE ONLY ,35X,15HCOPYRIGHT 1982) 04020825
406: C**** 04030825
407: C**** FORMAT STATEMENTS FOR RUN SUMMARY 04040825
408: C**** 04050825
409: 90020 FORMAT (1H ,21X,I5,13H TESTS PASSED) 04060825
410: 90022 FORMAT (1H ,21X,I5,13H TESTS FAILED) 04070825
411: 90024 FORMAT (1H ,21X,I5,14H TESTS DELETED) 04080825
412: 90026 FORMAT (1H ,21X,I5,25H TESTS REQUIRE INSPECTION) 04090825
413: 90028 FORMAT (1H ,21X,I5,4H OF ,I3,15H TESTS EXECUTED) 04100825
414: CBE** ********************** BBCFMT0B **********************************04110825
415: C***** 04120825
416: C***** END OF TEST SEGMENT 198 04130825
417: STOP 04140825
418: END 04150825
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.