![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to FM818.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 FM818.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***********************************************************************00010818
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 00020818
6: C***** FM818 00030818
7: C***** YDLG10 - (185) 00040818
8: C***** 00050818
9: C***********************************************************************00060818
10: C***** GENERAL PURPOSE ANS REF 00070818
11: C***** TEST INTRINSIC FUNCTION DLOG10 15.3 00080818
12: C***** TABLE 5 00090818
13: C***** 00100818
14: CBB** ********************** BBCCOMNT **********************************00110818
15: C**** 00120818
16: C**** 1978 FORTRAN COMPILER VALIDATION SYSTEM 00130818
17: C**** VERSION 2.0 00140818
18: C**** 00150818
19: C**** 00160818
20: C**** SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00170818
21: C**** GENERAL SERVICES ADMINISTRATION 00180818
22: C**** FEDERAL SOFTWARE TESTING CENTER 00190818
23: C**** 5203 LEESBURG PIKE, SUITE 1100 00200818
24: C**** FALLS CHURCH, VA. 22041 00210818
25: C**** 00220818
26: C**** (703) 756-6153 00230818
27: C**** 00240818
28: CBE** ********************** BBCCOMNT **********************************00250818
29: C***** S P E C I F I C A T I O N S SEGMENT 185 00260818
30: DOUBLE PRECISION AVD, BVD, CVD, DVCORR 00270818
31: C***** 00280818
32: CBB** ********************** BBCINITA **********************************00290818
33: C**** SPECIFICATION STATEMENTS 00300818
34: C**** 00310818
35: CHARACTER ZVERS*13, ZVERSD*17, ZDATE*17, ZPROG*5, ZCOMPL*20, 00320818
36: 1 ZNAME*20, ZTAPE*10, ZPROJ*13, REMRKS*31, ZTAPED*13 00330818
37: CBE** ********************** BBCINITA **********************************00340818
38: CBB** ********************** BBCINITB **********************************00350818
39: C**** INITIALIZE SECTION 00360818
40: DATA ZVERS, ZVERSD, ZDATE 00370818
41: 1 /'VERSION 2.0 ', '82/08/02*18.33.46', '*NO DATE*TIME'/ 00380818
42: DATA ZCOMPL, ZNAME, ZTAPE 00390818
43: 1 /'*NONE SPECIFIED*', '*NO COMPANY NAME*', '*NO TAPE*'/ 00400818
44: DATA ZPROJ, ZTAPED, ZPROG 00410818
45: 1 /'*NO PROJECT*', '*NO TAPE DATE', 'XXXXX'/ 00420818
46: DATA REMRKS /' '/ 00430818
47: C**** THE FOLLOWING 9 COMMENT LINES (CZ01, CZ02, ...) CAN BE REPLACED 00440818
48: C**** FOR IDENTIFYING THE TEST ENVIRONMENT 00450818
49: C**** 00460818
50: CZ01 ZVERS = 'VERSION OF THE COMPILER VALIDATION SYSTEM' 00470818
51: CZ02 ZVERSD = 'CREATION DATE/TIME OF THE COMPILER VALIDATION SYSTEM' 00480818
52: CZ03 ZPROG = 'PROGRAM NAME' 00490818
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 00560818
60: IVPASS = 0 00570818
61: IVFAIL = 0 00580818
62: IVDELE = 0 00590818
63: IVINSP = 0 00600818
64: IVTOTL = 0 00610818
65: IVTOTN = 0 00620818
66: ICZERO = 0 00630818
67: C 00640818
68: C I01 CONTAINS THE LOGICAL UNIT NUMBER FOR THE CARD READER. 00650818
69: I01 = 05 00660818
70: C I02 CONTAINS THE LOGICAL UNIT NUMBER FOR THE PRINTER. 00670818
71: I02 = 06 00680818
72: C 00690818
73: I01 = 5 00700818
74: C THE CX010 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I01 = 5 00710818
75: CX011 REPLACED BY FEXEC X-011 CONTROL CARD. CX011 IS FOR SYSTEMS 00720818
76: C REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX010. 00730818
77: C 00740818
78: I02 = 6 00750818
79: C THE CX020 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I02= 6 00760818
80: CX021 REPLACED BY FEXEC X-021 CONTROL CARD. CX021 IS FOR SYSTEMS 00770818
81: C REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX020. 00780818
82: C 00790818
83: CBE** ********************** BBCINITB **********************************00800818
84: NUVI = I02 00810818
85: IVTOTL = 16 00820818
86: ZPROG = 'FM818' 00830818
87: CBB** ********************** BBCHED0A **********************************00840818
88: C**** 00850818
89: C**** WRITE REPORT TITLE 00860818
90: C**** 00870818
91: WRITE (I02, 90002) 00880818
92: WRITE (I02, 90006) 00890818
93: WRITE (I02, 90007) 00900818
94: WRITE (I02, 90008) ZVERS, ZVERSD 00910818
95: WRITE (I02, 90009) ZPROG, ZPROG 00920818
96: WRITE (I02, 90010) ZDATE, ZCOMPL 00930818
97: CBE** ********************** BBCHED0A **********************************00940818
98: C***** 00950818
99: C***** HEADER FOR SEGMENT 185 00960818
100: WRITE(NUVI,18500) 00970818
101: 18500 FORMAT(1H , / 36H YDLG10 - (185) INTRINSIC FUNCTIONS// 00980818
102: 1 44H DLOG10 (DOUBLE PRECISION COMMON LOGARITHM)// 00990818
103: 2 17H ANS REF. - 15.3) 01000818
104: CBB** ********************** BBCHED0B **********************************01010818
105: C**** WRITE DETAIL REPORT HEADERS 01020818
106: C**** 01030818
107: WRITE (I02,90004) 01040818
108: WRITE (I02,90004) 01050818
109: WRITE (I02,90013) 01060818
110: WRITE (I02,90014) 01070818
111: WRITE (I02,90015) IVTOTL 01080818
112: CBE** ********************** BBCHED0B **********************************01090818
113: C***** 01100818
114: CT001* TEST 1 ONE, SINCE LN(1.0) = 0.0 01110818
115: IVTNUM = 1 01120818
116: BVD = 1.0D0 01130818
117: AVD = DLOG10(BVD) 01140818
118: IF (AVD + 0.5000000000D-09) 20010, 10010, 40010 01150818
119: 40010 IF (AVD - 0.5000000000D-09) 10010, 10010, 20010 01160818
120: 10010 IVPASS = IVPASS + 1 01170818
121: WRITE (NUVI, 80002) IVTNUM 01180818
122: GO TO 0011 01190818
123: 20010 IVFAIL = IVFAIL + 1 01200818
124: DVCORR = 0.00000000000000000000D+00 01210818
125: WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 01220818
126: 0011 CONTINUE 01230818
127: CT002* TEST 2 A VALUE CLOSE TO 10 01240818
128: IVTNUM = 2 01250818
129: AVD = DLOG10(9.875D0) 01260818
130: IF (AVD - 0.9945371038D+00) 20020, 10020, 40020 01270818
131: 40020 IF (AVD - 0.9945371048D+00) 10020, 10020, 20020 01280818
132: 10020 IVPASS = IVPASS + 1 01290818
133: WRITE (NUVI, 80002) IVTNUM 01300818
134: GO TO 0021 01310818
135: 20020 IVFAIL = IVFAIL + 1 01320818
136: DVCORR = 0.99453710429849784235D+00 01330818
137: WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 01340818
138: 0021 CONTINUE 01350818
139: CT003* TEST 3 THE VALUE 10.D0 01360818
140: IVTNUM = 3 01370818
141: AVD = DLOG10(10.0D0) 01380818
142: IF (AVD - 0.9999999995D+00) 20030, 10030, 40030 01390818
143: 40030 IF (AVD - 0.1000000001D+01) 10030, 10030, 20030 01400818
144: 10030 IVPASS = IVPASS + 1 01410818
145: WRITE (NUVI, 80002) IVTNUM 01420818
146: GO TO 0031 01430818
147: 20030 IVFAIL = IVFAIL + 1 01440818
148: DVCORR = 1.0000000000000000000D+00 01450818
149: WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 01460818
150: 0031 CONTINUE 01470818
151: CT004* TEST 4 THE VALUE 20.5D0 01480818
152: IVTNUM = 4 01490818
153: AVD = DLOG10(20.5D0) 01500818
154: IF (AVD - 0.1311753860D+01) 20040, 10040, 40040 01510818
155: 40040 IF (AVD - 0.1311753862D+01) 10040, 10040, 20040 01520818
156: 10040 IVPASS = IVPASS + 1 01530818
157: WRITE (NUVI, 80002) IVTNUM 01540818
158: GO TO 0041 01550818
159: 20040 IVFAIL = IVFAIL + 1 01560818
160: DVCORR = 1.3117538610557542993D+00 01570818
161: WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 01580818
162: 0041 CONTINUE 01590818
163: CT005* TEST 5 THE VALUE 99.0D0 01600818
164: IVTNUM = 5 01610818
165: AVD = DLOG10(99.0D0) 01620818
166: IF (AVD - 0.1995635193D+01) 20050, 10050, 40050 01630818
167: 40050 IF (AVD - 0.1995635196D+01) 10050, 10050, 20050 01640818
168: 10050 IVPASS = IVPASS + 1 01650818
169: WRITE (NUVI, 80002) IVTNUM 01660818
170: GO TO 0051 01670818
171: 20050 IVFAIL = IVFAIL + 1 01680818
172: DVCORR = 1.9956351945975499153D+00 01690818
173: WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 01700818
174: 0051 CONTINUE 01710818
175: CT006* TEST 6 VARIABLE WITHIN AN EXPRESSION 01720818
176: IVTNUM = 6 01730818
177: BVD = 1.0D0 01740818
178: CVD = 8.0D0 01750818
179: AVD = DLOG10(3.0D0 * BVD / CVD) 01760818
180: IF (AVD + 0.4259687325D+00) 20060, 10060, 40060 01770818
181: 40060 IF (AVD + 0.4259687320D+00) 10060, 10060, 20060 01780818
182: 10060 IVPASS = IVPASS + 1 01790818
183: WRITE (NUVI, 80002) IVTNUM 01800818
184: GO TO 0061 01810818
185: 20060 IVFAIL = IVFAIL + 1 01820818
186: DVCORR = -0.42596873227228114835D+00 01830818
187: WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 01840818
188: 0061 CONTINUE 01850818
189: CT007* TEST 7 VARIABLE WITHIN AN EXPRESSION 01860818
190: IVTNUM = 7 01870818
191: BVD = 1.0D0 01880818
192: CVD = 8.0D0 01890818
193: AVD = DLOG10(5.0D0 * BVD / CVD) 01900818
194: IF (AVD + 0.2041199828D+00) 20070, 10070, 40070 01910818
195: 40070 IF (AVD + 0.2041199825D+00) 10070, 10070, 20070 01920818
196: 10070 IVPASS = IVPASS + 1 01930818
197: WRITE (NUVI, 80002) IVTNUM 01940818
198: GO TO 0071 01950818
199: 20070 IVFAIL = IVFAIL + 1 01960818
200: DVCORR = -0.20411998265592478085D+00 01970818
201: WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 01980818
202: 0071 CONTINUE 01990818
203: CT008* TEST 8 AN EXPRESSION SUPPLIED TO DLOG10 02000818
204: IVTNUM = 8 02010818
205: AVD = DLOG10(75.D0 / 100.0D0) 02020818
206: IF (AVD + 0.1249387367D+00) 20080, 10080, 40080 02030818
207: 40080 IF (AVD + 0.1249387365D+00) 10080, 10080, 20080 02040818
208: 10080 IVPASS = IVPASS + 1 02050818
209: WRITE (NUVI, 80002) IVTNUM 02060818
210: GO TO 0081 02070818
211: 20080 IVFAIL = IVFAIL + 1 02080818
212: DVCORR = -0.12493873660829995313D+00 02090818
213: WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 02100818
214: 0081 CONTINUE 02110818
215: CT009* TEST 9 VARIABLE WITHIN AN EXPRESSION 02120818
216: IVTNUM = 9 02130818
217: BVD = 1.0D0 02140818
218: CVD = 8.0D0 02150818
219: AVD = DLOG10(7.0D0 * BVD / CVD) 02160818
220: IF (AVD + 0.5799194701D-01) 20090, 10090, 40090 02170818
221: 40090 IF (AVD + 0.5799194694D-01) 10090, 10090, 20090 02180818
222: 10090 IVPASS = IVPASS + 1 02190818
223: WRITE (NUVI, 80002) IVTNUM 02200818
224: GO TO 0091 02210818
225: 20090 IVFAIL = IVFAIL + 1 02220818
226: DVCORR = -0.057991946977686754929D+00 02230818
227: WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 02240818
228: 0091 CONTINUE 02250818
229: CT010* TEST 10 A VALUE CLOSE TO ONE 02260818
230: IVTNUM = 10 02270818
231: AVD = DLOG10(0.9921875D0) 02280818
232: IF (AVD + 0.3406248694D-02) 20100, 10100, 40100 02290818
233: 40100 IF (AVD + 0.3406248690D-02) 10100, 10100, 20100 02300818
234: 10100 IVPASS = IVPASS + 1 02310818
235: WRITE (NUVI, 80002) IVTNUM 02320818
236: GO TO 0101 02330818
237: 20100 IVFAIL = IVFAIL + 1 02340818
238: DVCORR = -0.0034062486919115022492D+00 02350818
239: WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 02360818
240: 0101 CONTINUE 02370818
241: CT011* TEST 11 A VALUE CLOSE TO ONE 02380818
242: IVTNUM = 11 02390818
243: BVD = 1.0009765625 02400818
244: AVD = DLOG10(BVD) 02410818
245: IF (AVD - 0.4239087517D-03) 20110, 10110, 40110 02420818
246: 40110 IF (AVD - 0.4239087522D-03) 10110, 10110, 20110 02430818
247: 10110 IVPASS = IVPASS + 1 02440818
248: WRITE (NUVI, 80002) IVTNUM 02450818
249: GO TO 0111 02460818
250: 20110 IVFAIL = IVFAIL + 1 02470818
251: DVCORR = 0.00042390875196115194455D+00 02480818
252: WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 02490818
253: 70111 FORMAT (1H ,16X,34HINFORMATIVE - UNDER REVIEW BY FSTC) 02490*TI
254: WRITE (NUVI,70111) 02490*TI
255: 0111 CONTINUE 02500818
256: CT012* TEST 12 A VALUE CLOSE TO ZERO 02510818
257: IVTNUM = 12 02520818
258: BVD = 256.0D0 02530818
259: AVD = DLOG10(1.0D0 / BVD) 02540818
260: IF (AVD + 0.2408239967D+01) 20120, 10120, 40120 02550818
261: 40120 IF (AVD + 0.2408239964D+01) 10120, 10120, 20120 02560818
262: 10120 IVPASS = IVPASS + 1 02570818
263: WRITE (NUVI, 80002) IVTNUM 02580818
264: GO TO 0121 02590818
265: 20120 IVFAIL = IVFAIL + 1 02600818
266: DVCORR = -2.4082399653118495617D+00 02610818
267: WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 02620818
268: 0121 CONTINUE 02630818
269: CT013* TEST 13 A VALUE CLOSE TO ZERO 02640818
270: IVTNUM = 13 02650818
271: BVD = 128.0D0 02660818
272: AVD = DLOG10(1.0D0 / (BVD * 8D0)) 02670818
273: IF (AVD + 0.3010299959D+01) 20130, 10130, 40130 02680818
274: 40130 IF (AVD + 0.3010299955D+01) 10130, 10130, 20130 02690818
275: 10130 IVPASS = IVPASS + 1 02700818
276: WRITE (NUVI, 80002) IVTNUM 02710818
277: GO TO 0131 02720818
278: 20130 IVFAIL = IVFAIL + 1 02730818
279: DVCORR = -3.0102999566398119521D+00 02740818
280: WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 02750818
281: 0131 CONTINUE 02760818
282: CT014* TEST 14 AN ARGUMENT OF HIGH MAGNITUDE 02770818
283: IVTNUM = 14 02780818
284: BVD = 2.0D+35 02790818
285: AVD = DLOG10(BVD) 02800818
286: IF (AVD - 0.3530102997D+01) 20140, 10140, 40140 02810818
287: 40140 IF (AVD - 0.3530103002D+02) 10140, 10140, 20140 02820818
288: 10140 IVPASS = IVPASS + 1 02830818
289: WRITE (NUVI, 80002) IVTNUM 02840818
290: GO TO 0141 02850818
291: 20140 IVFAIL = IVFAIL + 1 02860818
292: DVCORR = 35.301029995663981195D+00 02870818
293: WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 02880818
294: 0141 CONTINUE 02890818
295: CT015* TEST 15 AN ARGUMENT OF LOW MAGNITUDE 02900818
296: IVTNUM = 15 02910818
297: BVD = 2.0D-35 02920818
298: AVD = DLOG10(BVD) 02930818
299: IF (AVD + 0.3469897003D+02) 20150, 10150, 40150 02940818
300: 40150 IF (AVD + 0.3469896998D+02) 10150, 10150, 20150 02950818
301: 10150 IVPASS = IVPASS + 1 02960818
302: WRITE (NUVI, 80002) IVTNUM 02970818
303: GO TO 0151 02980818
304: 20150 IVFAIL = IVFAIL + 1 02990818
305: DVCORR = -34.698970004336018805D+00 03000818
306: WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 03010818
307: 0151 CONTINUE 03020818
308: CT016* TEST 16 THE FUNCTION APPIED TWICE 03030818
309: IVTNUM = 16 03040818
310: AVD = DLOG10(20.0D0) - DLOG10(2.0D0) 03050818
311: IF (AVD - 0.9999999995D+00) 20160, 10160, 40160 03060818
312: 40160 IF (AVD - 0.1000000001D+01) 10160, 10160, 20160 03070818
313: 10160 IVPASS = IVPASS + 1 03080818
314: WRITE (NUVI, 80002) IVTNUM 03090818
315: GO TO 0161 03100818
316: 20160 IVFAIL = IVFAIL + 1 03110818
317: DVCORR = 1.00000000000000D+00 03120818
318: WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 03130818
319: 0161 CONTINUE 03140818
320: C***** 03150818
321: CBB** ********************** BBCSUM0 **********************************03160818
322: C**** WRITE OUT TEST SUMMARY 03170818
323: C**** 03180818
324: IVTOTN = IVPASS + IVFAIL + IVDELE + IVINSP 03190818
325: WRITE (I02, 90004) 03200818
326: WRITE (I02, 90014) 03210818
327: WRITE (I02, 90004) 03220818
328: WRITE (I02, 90020) IVPASS 03230818
329: WRITE (I02, 90022) IVFAIL 03240818
330: WRITE (I02, 90024) IVDELE 03250818
331: WRITE (I02, 90026) IVINSP 03260818
332: WRITE (I02, 90028) IVTOTN, IVTOTL 03270818
333: CBE** ********************** BBCSUM0 **********************************03280818
334: CBB** ********************** BBCFOOT0 **********************************03290818
335: C**** WRITE OUT REPORT FOOTINGS 03300818
336: C**** 03310818
337: WRITE (I02,90016) ZPROG, ZPROG 03320818
338: WRITE (I02,90018) ZPROJ, ZNAME, ZTAPE, ZTAPED 03330818
339: WRITE (I02,90019) 03340818
340: CBE** ********************** BBCFOOT0 **********************************03350818
341: CBB** ********************** BBCFMT0A **********************************03360818
342: C**** FORMATS FOR TEST DETAIL LINES 03370818
343: C**** 03380818
344: 80000 FORMAT (1H ,2X,I3,4X,7HDELETED,32X,A31) 03390818
345: 80002 FORMAT (1H ,2X,I3,4X,7H PASS ,32X,A31) 03400818
346: 80004 FORMAT (1H ,2X,I3,4X,7HINSPECT,32X,A31) 03410818
347: 80008 FORMAT (1H ,2X,I3,4X,7H FAIL ,32X,A31) 03420818
348: 80010 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,15X,10HCOMPUTED= , 03430818
349: 1I6,/,1H ,15X,10HCORRECT= ,I6) 03440818
350: 80012 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 03450818
351: 1E12.5,/,1H ,16X,10HCORRECT= ,E12.5) 03460818
352: 80018 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 03470818
353: 1A21,/,1H ,16X,10HCORRECT= ,A21) 03480818
354: 80020 FORMAT (1H ,16X,10HCOMPUTED= ,A21,1X,A31) 03490818
355: 80022 FORMAT (1H ,16X,10HCORRECT= ,A21,1X,A31) 03500818
356: 80024 FORMAT (1H ,16X,10HCOMPUTED= ,I6,16X,A31) 03510818
357: 80026 FORMAT (1H ,16X,10HCORRECT= ,I6,16X,A31) 03520818
358: 80028 FORMAT (1H ,16X,10HCOMPUTED= ,E12.5,10X,A31) 03530818
359: 80030 FORMAT (1H ,16X,10HCORRECT= ,E12.5,10X,A31) 03540818
360: 80050 FORMAT (1H ,48X,A31) 03550818
361: CBE** ********************** BBCFMT0A **********************************03560818
362: CBB** ********************** BBCFMAT1 **********************************03570818
363: C**** FORMATS FOR TEST DETAIL LINES - FULL LANGUAGE 03580818
364: C**** 03590818
365: 80031 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 03600818
366: 1D17.10,/,1H ,16X,10HCORRECT= ,D17.10) 03610818
367: 80033 FORMAT (1H ,16X,10HCOMPUTED= ,D17.10,10X,A31) 03620818
368: 80035 FORMAT (1H ,16X,10HCORRECT= ,D17.10,10X,A31) 03630818
369: 80037 FORMAT (1H ,16X,10HCOMPUTED= ,1H(,E12.5,2H, ,E12.5,1H),6X,A31) 03640818
370: 80039 FORMAT (1H ,16X,10HCORRECT= ,1H(,E12.5,2H, ,E12.5,1H),6X,A31) 03650818
371: 80041 FORMAT (1H ,16X,10HCOMPUTED= ,1H(,F12.5,2H, ,F12.5,1H),6X,A31) 03660818
372: 80043 FORMAT (1H ,16X,10HCORRECT= ,1H(,F12.5,2H, ,F12.5,1H),6X,A31) 03670818
373: 80045 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 03680818
374: 11H(,F12.5,2H, ,F12.5,1H)/,1H ,16X,10HCORRECT= , 03690818
375: 21H(,F12.5,2H, ,F12.5,1H)) 03700818
376: CBE** ********************** BBCFMAT1 **********************************03710818
377: CBB** ********************** BBCFMT0B **********************************03720818
378: C**** FORMAT STATEMENTS FOR PAGE HEADERS 03730818
379: C**** 03740818
380: 90002 FORMAT (1H1) 03750818
381: 90004 FORMAT (1H ) 03760818
382: 90006 FORMAT (1H ,20X,31HFEDERAL SOFTWARE TESTING CENTER) 03770818
383: 90007 FORMAT (1H ,19X,34HFORTRAN COMPILER VALIDATION SYSTEM) 03780818
384: 90008 FORMAT (1H ,21X,A13,A17) 03790818
385: 90009 FORMAT (1H ,/,2H *,A5,6HBEGIN*,12X,15HTEST RESULTS - ,A5,/) 03800818
386: 90010 FORMAT (1H ,8X,16HTEST DATE*TIME= ,A17,15H - COMPILER= ,A20) 03810818
387: 90013 FORMAT (1H ,8H TEST ,10HPASS/FAIL ,6X,17HDISPLAYED RESULTS, 03820818
388: 1 7X,7HREMARKS,24X) 03830818
389: 90014 FORMAT (1H ,46H----------------------------------------------, 03840818
390: 1 33H---------------------------------) 03850818
391: 90015 FORMAT (1H ,48X,17HTHIS PROGRAM HAS ,I3,6H TESTS,/) 03860818
392: C**** 03870818
393: C**** FORMAT STATEMENTS FOR REPORT FOOTINGS 03880818
394: C**** 03890818
395: 90016 FORMAT (1H ,/,2H *,A5,4HEND*,14X,14HEND OF TEST - ,A5,/) 03900818
396: 90018 FORMAT (1H ,A13,13X,A20,7H * ,A10,1H/, 03910818
397: 1 A13) 03920818
398: 90019 FORMAT (1H ,26HFOR OFFICIAL USE ONLY ,35X,15HCOPYRIGHT 1982) 03930818
399: C**** 03940818
400: C**** FORMAT STATEMENTS FOR RUN SUMMARY 03950818
401: C**** 03960818
402: 90020 FORMAT (1H ,21X,I5,13H TESTS PASSED) 03970818
403: 90022 FORMAT (1H ,21X,I5,13H TESTS FAILED) 03980818
404: 90024 FORMAT (1H ,21X,I5,14H TESTS DELETED) 03990818
405: 90026 FORMAT (1H ,21X,I5,25H TESTS REQUIRE INSPECTION) 04000818
406: 90028 FORMAT (1H ,21X,I5,4H OF ,I3,15H TESTS EXECUTED) 04010818
407: CBE** ********************** BBCFMT0B **********************************04020818
408: C***** END OF TEST SEGMENT 185 04030818
409: STOP 04040818
410: END 04050818
411: 04060818
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.