![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to FM368.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 FM368.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***********************************************************************00010368
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 00020368
6: C***** FM368 00030368
7: C***** XSQRT - (175) 00040368
8: C***** 00050368
9: C***********************************************************************00060368
10: C***** GENERAL PURPOSE SUBSET REF 00070368
11: C***** TEST INTRINSIC FUNCTION SQRT 15.3 00080368
12: C***** TABLE 5 00090368
13: C***** 00100368
14: CBB** ********************** BBCCOMNT **********************************00110368
15: C**** 00120368
16: C**** 1978 FORTRAN COMPILER VALIDATION SYSTEM 00130368
17: C**** VERSION 2.0 00140368
18: C**** 00150368
19: C**** 00160368
20: C**** SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00170368
21: C**** GENERAL SERVICES ADMINISTRATION 00180368
22: C**** FEDERAL SOFTWARE TESTING CENTER 00190368
23: C**** 5203 LEESBURG PIKE, SUITE 1100 00200368
24: C**** FALLS CHURCH, VA. 22041 00210368
25: C**** 00220368
26: C**** (703) 756-6153 00230368
27: C**** 00240368
28: CBE** ********************** BBCCOMNT **********************************00250368
29: CBB** ********************** BBCINITA **********************************00260368
30: C**** SPECIFICATION STATEMENTS 00270368
31: C**** 00280368
32: CHARACTER ZVERS*13, ZVERSD*17, ZDATE*17, ZPROG*5, ZCOMPL*20, 00290368
33: 1 ZNAME*20, ZTAPE*10, ZPROJ*13, REMRKS*31, ZTAPED*13 00300368
34: CBE** ********************** BBCINITA **********************************00310368
35: CBB** ********************** BBCINITB **********************************00320368
36: C**** INITIALIZE SECTION 00330368
37: DATA ZVERS, ZVERSD, ZDATE 00340368
38: 1 /'VERSION 2.0 ', '82/08/02*18.33.46', '*NO DATE*TIME'/ 00350368
39: DATA ZCOMPL, ZNAME, ZTAPE 00360368
40: 1 /'*NONE SPECIFIED*', '*NO COMPANY NAME*', '*NO TAPE*'/ 00370368
41: DATA ZPROJ, ZTAPED, ZPROG 00380368
42: 1 /'*NO PROJECT*', '*NO TAPE DATE', 'XXXXX'/ 00390368
43: DATA REMRKS /' '/ 00400368
44: C**** THE FOLLOWING 9 COMMENT LINES (CZ01, CZ02, ...) CAN BE REPLACED 00410368
45: C**** FOR IDENTIFYING THE TEST ENVIRONMENT 00420368
46: C**** 00430368
47: CZ01 ZVERS = 'VERSION OF THE COMPILER VALIDATION SYSTEM' 00440368
48: CZ02 ZVERSD = 'CREATION DATE/TIME OF THE COMPILER VALIDATION SYSTEM' 00450368
49: CZ03 ZPROG = 'PROGRAM NAME' 00460368
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 00530368
57: IVPASS = 0 00540368
58: IVFAIL = 0 00550368
59: IVDELE = 0 00560368
60: IVINSP = 0 00570368
61: IVTOTL = 0 00580368
62: IVTOTN = 0 00590368
63: ICZERO = 0 00600368
64: C 00610368
65: C I01 CONTAINS THE LOGICAL UNIT NUMBER FOR THE CARD READER. 00620368
66: I01 = 05 00630368
67: C I02 CONTAINS THE LOGICAL UNIT NUMBER FOR THE PRINTER. 00640368
68: I02 = 06 00650368
69: C 00660368
70: I01 = 5 00670368
71: C THE CX010 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I01 = 5 00680368
72: CX011 REPLACED BY FEXEC X-011 CONTROL CARD. CX011 IS FOR SYSTEMS 00690368
73: C REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX010. 00700368
74: C 00710368
75: I02 = 6 00720368
76: C THE CX020 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I02= 6 00730368
77: CX021 REPLACED BY FEXEC X-021 CONTROL CARD. CX021 IS FOR SYSTEMS 00740368
78: C REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX020. 00750368
79: C 00760368
80: CBE** ********************** BBCINITB **********************************00770368
81: NUVI = I02 00780368
82: IVTOTL = 13 00790368
83: ZPROG = 'FM368' 00800368
84: CBB** ********************** BBCHED0A **********************************00810368
85: C**** 00820368
86: C**** WRITE REPORT TITLE 00830368
87: C**** 00840368
88: WRITE (I02, 90002) 00850368
89: WRITE (I02, 90006) 00860368
90: WRITE (I02, 90007) 00870368
91: WRITE (I02, 90008) ZVERS, ZVERSD 00880368
92: WRITE (I02, 90009) ZPROG, ZPROG 00890368
93: WRITE (I02, 90010) ZDATE, ZCOMPL 00900368
94: CBE** ********************** BBCHED0A **********************************00910368
95: C***** 00920368
96: C***** HEADER FOR SEGMENT 175 00930368
97: WRITE(NUVI,17500) 00940368
98: 17500 FORMAT(1H , / 35H XSQRT - (175) INTRINSIC FUNCTIONS// 00950368
99: 1 20H SQRT (SQUARE ROOT)// 00960368
100: 2 20H SUBSET REF. - 15.3) 00970368
101: CBB** ********************** BBCHED0B **********************************00980368
102: C**** WRITE DETAIL REPORT HEADERS 00990368
103: C**** 01000368
104: WRITE (I02,90004) 01010368
105: WRITE (I02,90004) 01020368
106: WRITE (I02,90013) 01030368
107: WRITE (I02,90014) 01040368
108: WRITE (I02,90015) IVTOTL 01050368
109: CBE** ********************** BBCHED0B **********************************01060368
110: C***** 01070368
111: CT001* TEST 1 FIXED POINT OF FUNCTION 01080368
112: IVTNUM = 1 01090368
113: BVS = 0.0 01100368
114: AVS = SQRT(BVS) 01110368
115: IF (AVS + 0.50000E-04) 20010, 10010, 40010 01120368
116: 40010 IF (AVS - 0.50000E-04) 10010, 10010, 20010 01130368
117: 10010 IVPASS = IVPASS + 1 01140368
118: WRITE (NUVI, 80002) IVTNUM 01150368
119: GO TO 0011 01160368
120: 20010 IVFAIL = IVFAIL + 1 01170368
121: RVCORR = 0.00000000000000 01180368
122: WRITE (NUVI, 80012) IVTNUM, AVS, RVCORR 01190368
123: 0011 CONTINUE 01200368
124: CT002* TEST 2 FIXED POINT OF FUNCTION 01210368
125: IVTNUM = 2 01220368
126: AVS = SQRT(1.0) 01230368
127: IF (AVS - 0.99995E+00) 20020, 10020, 40020 01240368
128: 40020 IF (AVS - 0.10001E+01) 10020, 10020, 20020 01250368
129: 10020 IVPASS = IVPASS + 1 01260368
130: WRITE (NUVI, 80002) IVTNUM 01270368
131: GO TO 0021 01280368
132: 20020 IVFAIL = IVFAIL + 1 01290368
133: RVCORR = 1.00000000000000 01300368
134: WRITE (NUVI, 80012) IVTNUM, AVS, RVCORR 01310368
135: 0021 CONTINUE 01320368
136: CT003* TEST 3 01330368
137: IVTNUM = 3 01340368
138: AVS = SQRT(2.0) 01350368
139: IF (AVS - 0.14141E+01) 20030, 10030, 40030 01360368
140: 40030 IF (AVS - 0.14143E+01) 10030, 10030, 20030 01370368
141: 10030 IVPASS = IVPASS + 1 01380368
142: WRITE (NUVI, 80002) IVTNUM 01390368
143: GO TO 0031 01400368
144: 20030 IVFAIL = IVFAIL + 1 01410368
145: RVCORR = 1.41421356237310 01420368
146: WRITE (NUVI, 80012) IVTNUM, AVS, RVCORR 01430368
147: 0031 CONTINUE 01440368
148: CT004* TEST 4 01450368
149: IVTNUM = 4 01460368
150: AVS = SQRT(4.0) 01470368
151: IF (AVS - 0.19999E+01) 20040, 10040, 40040 01480368
152: 40040 IF (AVS - 0.20001E+01) 10040, 10040, 20040 01490368
153: 10040 IVPASS = IVPASS + 1 01500368
154: WRITE (NUVI, 80002) IVTNUM 01510368
155: GO TO 0041 01520368
156: 20040 IVFAIL = IVFAIL + 1 01530368
157: RVCORR = 2.00000000000000 01540368
158: WRITE (NUVI, 80012) IVTNUM, AVS, RVCORR 01550368
159: 0041 CONTINUE 01560368
160: CT005* TEST 5 01570368
161: IVTNUM = 5 01580368
162: AVS = SQRT(15.0) 01590368
163: IF (AVS - 0.38727E+01) 20050, 10050, 40050 01600368
164: 40050 IF (AVS - 0.38732E+01) 10050, 10050, 20050 01610368
165: 10050 IVPASS = IVPASS + 1 01620368
166: WRITE (NUVI, 80002) IVTNUM 01630368
167: GO TO 0051 01640368
168: 20050 IVFAIL = IVFAIL + 1 01650368
169: RVCORR = 3.87298334620742 01660368
170: WRITE (NUVI, 80012) IVTNUM, AVS, RVCORR 01670368
171: 0051 CONTINUE 01680368
172: CT006* TEST 6 01690368
173: IVTNUM = 6 01700368
174: AVS = SQRT(31.0) 01710368
175: IF (AVS - 0.55674E+01) 20060, 10060, 40060 01720368
176: 40060 IF (AVS - 0.55681E+01) 10060, 10060, 20060 01730368
177: 10060 IVPASS = IVPASS + 1 01740368
178: WRITE (NUVI, 80002) IVTNUM 01750368
179: GO TO 0061 01760368
180: 20060 IVFAIL = IVFAIL + 1 01770368
181: RVCORR = 5.56776436283002 01780368
182: WRITE (NUVI, 80012) IVTNUM, AVS, RVCORR 01790368
183: 0061 CONTINUE 01800368
184: CT007* TEST 7 01810368
185: IVTNUM = 7 01820368
186: BVS = 2.0/4.0 01830368
187: AVS = SQRT(BVS) 01840368
188: IF (AVS - 0.70707E+00) 20070, 10070, 40070 01850368
189: 40070 IF (AVS - 0.70715E+00) 10070, 10070, 20070 01860368
190: 10070 IVPASS = IVPASS + 1 01870368
191: WRITE (NUVI, 80002) IVTNUM 01880368
192: GO TO 0071 01890368
193: 20070 IVFAIL = IVFAIL + 1 01900368
194: RVCORR = 0.70710678118655 01910368
195: WRITE (NUVI, 80012) IVTNUM, AVS, RVCORR 01920368
196: 0071 CONTINUE 01930368
197: CT008* TEST 8 01940368
198: IVTNUM = 8 01950368
199: BVS = 25.0 01960368
200: AVS = SQRT(BVS/100.0) 01970368
201: IF (AVS - 0.49997E+00) 20080, 10080, 40080 01980368
202: 40080 IF (AVS - 0.50003E+00) 10080, 10080, 20080 01990368
203: 10080 IVPASS = IVPASS + 1 02000368
204: WRITE (NUVI, 80002) IVTNUM 02010368
205: GO TO 0081 02020368
206: 20080 IVFAIL = IVFAIL + 1 02030368
207: RVCORR = 0.50000000000000 02040368
208: WRITE (NUVI, 80012) IVTNUM, AVS, RVCORR 02050368
209: 0081 CONTINUE 02060368
210: CT009* TEST 9 02070368
211: IVTNUM = 9 02080368
212: BVS = 0.0875 02090368
213: AVS = SQRT(BVS * 10.0) 02100368
214: IF (AVS - 0.93536E+00) 20090, 10090, 40090 02110368
215: 40090 IF (AVS - 0.93546E+00) 10090, 10090, 20090 02120368
216: 10090 IVPASS = IVPASS + 1 02130368
217: WRITE (NUVI, 80002) IVTNUM 02140368
218: GO TO 0091 02150368
219: 20090 IVFAIL = IVFAIL + 1 02160368
220: RVCORR = 0.93541434669349 02170368
221: WRITE (NUVI, 80012) IVTNUM, AVS, RVCORR 02180368
222: 0091 CONTINUE 02190368
223: CT010* TEST 10 02200368
224: IVTNUM = 10 02210368
225: AVS = SQRT(31.0/32.0) 02220368
226: IF (AVS - 0.98420E+00) 20100, 10100, 40100 02230368
227: 40100 IF (AVS - 0.98430E+00) 10100, 10100, 20100 02240368
228: 10100 IVPASS = IVPASS + 1 02250368
229: WRITE (NUVI, 80002) IVTNUM 02260368
230: GO TO 0101 02270368
231: 20100 IVFAIL = IVFAIL + 1 02280368
232: RVCORR = 0.98425098425148 02290368
233: WRITE (NUVI, 80012) IVTNUM, AVS, RVCORR 02300368
234: 0101 CONTINUE 02310368
235: CT011* TEST 11 AN ARGUMENT OF LOW MAGNITUDE 02320368
236: IVTNUM = 11 02330368
237: AVS = SQRT(1.6E-35) 02340368
238: IF (AVS - 0.39998E-17) 20110, 10110, 40110 02350368
239: 40110 IF (AVS - 0.40002E-17) 10110, 10110, 20110 02360368
240: 10110 IVPASS = IVPASS + 1 02370368
241: WRITE (NUVI, 80002) IVTNUM 02380368
242: GO TO 0111 02390368
243: 20110 IVFAIL = IVFAIL + 1 02400368
244: RVCORR = 0.40000000000000E-17 02410368
245: WRITE (NUVI, 80012) IVTNUM, AVS, RVCORR 02420368
246: 0111 CONTINUE 02430368
247: CT012* TEST 12 AN ARGUMENT OF HIGH MAGNITUDE 02440368
248: IVTNUM = 12 02450368
249: AVS = SQRT(1.0E+35) 02460368
250: IF (AVS - 0.31621E+18) 20120, 10120, 40120 02470368
251: 40120 IF (AVS - 0.31625E+18) 10120, 10120, 20120 02480368
252: 10120 IVPASS = IVPASS + 1 02490368
253: WRITE (NUVI, 80002) IVTNUM 02500368
254: GO TO 0121 02510368
255: 20120 IVFAIL = IVFAIL + 1 02520368
256: RVCORR = 0.31622776601684E+18 02530368
257: WRITE (NUVI, 80012) IVTNUM, AVS, RVCORR 02540368
258: 0121 CONTINUE 02550368
259: CT013* TEST 13 02560368
260: IVTNUM = 13 02570368
261: BVS = SQRT(1.6) 02580368
262: AVS = SQRT(0.625) * BVS 02590368
263: IF (AVS - 0.99995E+00) 20130, 10130, 40130 02600368
264: 40130 IF (AVS - 0.10001E+01) 10130, 10130, 20130 02610368
265: 10130 IVPASS = IVPASS + 1 02620368
266: WRITE (NUVI, 80002) IVTNUM 02630368
267: GO TO 0131 02640368
268: 20130 IVFAIL = IVFAIL + 1 02650368
269: RVCORR = 1.0000000 02660368
270: WRITE (NUVI, 80012) IVTNUM, AVS, RVCORR 02670368
271: 0131 CONTINUE 02680368
272: C***** 02690368
273: CBB** ********************** BBCSUM0 **********************************02700368
274: C**** WRITE OUT TEST SUMMARY 02710368
275: C**** 02720368
276: IVTOTN = IVPASS + IVFAIL + IVDELE + IVINSP 02730368
277: WRITE (I02, 90004) 02740368
278: WRITE (I02, 90014) 02750368
279: WRITE (I02, 90004) 02760368
280: WRITE (I02, 90020) IVPASS 02770368
281: WRITE (I02, 90022) IVFAIL 02780368
282: WRITE (I02, 90024) IVDELE 02790368
283: WRITE (I02, 90026) IVINSP 02800368
284: WRITE (I02, 90028) IVTOTN, IVTOTL 02810368
285: CBE** ********************** BBCSUM0 **********************************02820368
286: CBB** ********************** BBCFOOT0 **********************************02830368
287: C**** WRITE OUT REPORT FOOTINGS 02840368
288: C**** 02850368
289: WRITE (I02,90016) ZPROG, ZPROG 02860368
290: WRITE (I02,90018) ZPROJ, ZNAME, ZTAPE, ZTAPED 02870368
291: WRITE (I02,90019) 02880368
292: CBE** ********************** BBCFOOT0 **********************************02890368
293: CBB** ********************** BBCFMT0A **********************************02900368
294: C**** FORMATS FOR TEST DETAIL LINES 02910368
295: C**** 02920368
296: 80000 FORMAT (1H ,2X,I3,4X,7HDELETED,32X,A31) 02930368
297: 80002 FORMAT (1H ,2X,I3,4X,7H PASS ,32X,A31) 02940368
298: 80004 FORMAT (1H ,2X,I3,4X,7HINSPECT,32X,A31) 02950368
299: 80008 FORMAT (1H ,2X,I3,4X,7H FAIL ,32X,A31) 02960368
300: 80010 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,15X,10HCOMPUTED= , 02970368
301: 1I6,/,1H ,15X,10HCORRECT= ,I6) 02980368
302: 80012 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 02990368
303: 1E12.5,/,1H ,16X,10HCORRECT= ,E12.5) 03000368
304: 80018 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 03010368
305: 1A21,/,1H ,16X,10HCORRECT= ,A21) 03020368
306: 80020 FORMAT (1H ,16X,10HCOMPUTED= ,A21,1X,A31) 03030368
307: 80022 FORMAT (1H ,16X,10HCORRECT= ,A21,1X,A31) 03040368
308: 80024 FORMAT (1H ,16X,10HCOMPUTED= ,I6,16X,A31) 03050368
309: 80026 FORMAT (1H ,16X,10HCORRECT= ,I6,16X,A31) 03060368
310: 80028 FORMAT (1H ,16X,10HCOMPUTED= ,E12.5,10X,A31) 03070368
311: 80030 FORMAT (1H ,16X,10HCORRECT= ,E12.5,10X,A31) 03080368
312: 80050 FORMAT (1H ,48X,A31) 03090368
313: CBE** ********************** BBCFMT0A **********************************03100368
314: CBB** ********************** BBCFMT0B **********************************03110368
315: C**** FORMAT STATEMENTS FOR PAGE HEADERS 03120368
316: C**** 03130368
317: 90002 FORMAT (1H1) 03140368
318: 90004 FORMAT (1H ) 03150368
319: 90006 FORMAT (1H ,20X,31HFEDERAL SOFTWARE TESTING CENTER) 03160368
320: 90007 FORMAT (1H ,19X,34HFORTRAN COMPILER VALIDATION SYSTEM) 03170368
321: 90008 FORMAT (1H ,21X,A13,A17) 03180368
322: 90009 FORMAT (1H ,/,2H *,A5,6HBEGIN*,12X,15HTEST RESULTS - ,A5,/) 03190368
323: 90010 FORMAT (1H ,8X,16HTEST DATE*TIME= ,A17,15H - COMPILER= ,A20) 03200368
324: 90013 FORMAT (1H ,8H TEST ,10HPASS/FAIL ,6X,17HDISPLAYED RESULTS, 03210368
325: 1 7X,7HREMARKS,24X) 03220368
326: 90014 FORMAT (1H ,46H----------------------------------------------, 03230368
327: 1 33H---------------------------------) 03240368
328: 90015 FORMAT (1H ,48X,17HTHIS PROGRAM HAS ,I3,6H TESTS,/) 03250368
329: C**** 03260368
330: C**** FORMAT STATEMENTS FOR REPORT FOOTINGS 03270368
331: C**** 03280368
332: 90016 FORMAT (1H ,/,2H *,A5,4HEND*,14X,14HEND OF TEST - ,A5,/) 03290368
333: 90018 FORMAT (1H ,A13,13X,A20,7H * ,A10,1H/, 03300368
334: 1 A13) 03310368
335: 90019 FORMAT (1H ,26HFOR OFFICIAL USE ONLY ,35X,15HCOPYRIGHT 1982) 03320368
336: C**** 03330368
337: C**** FORMAT STATEMENTS FOR RUN SUMMARY 03340368
338: C**** 03350368
339: 90020 FORMAT (1H ,21X,I5,13H TESTS PASSED) 03360368
340: 90022 FORMAT (1H ,21X,I5,13H TESTS FAILED) 03370368
341: 90024 FORMAT (1H ,21X,I5,14H TESTS DELETED) 03380368
342: 90026 FORMAT (1H ,21X,I5,25H TESTS REQUIRE INSPECTION) 03390368
343: 90028 FORMAT (1H ,21X,I5,4H OF ,I3,15H TESTS EXECUTED) 03400368
344: CBE** ********************** BBCFMT0B **********************************03410368
345: C***** 03420368
346: C***** END OF TEST SEGMENT 175 03430368
347: STOP 03440368
348: END 03450368
349: 03460368
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.