![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to FM815.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 FM815.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***********************************************************************00010815
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 00020815
6: C***** FM815 00030815
7: C***** YCEXP - (180) 00040815
8: C***** 00050815
9: C***********************************************************************00060815
10: C***** GENERAL PURPOSE ANS REF 00070815
11: C***** TEST INTRINSIC FUNCTION CEXP 15.3 00080815
12: C***** INTRINSIC FUNCTIONS AIMAG AND CABS ASSUMED WORKING TABLE 5 00090815
13: C***** 00100815
14: CBB** ********************** BBCCOMNT **********************************00110815
15: C**** 00120815
16: C**** 1978 FORTRAN COMPILER VALIDATION SYSTEM 00130815
17: C**** VERSION 2.0 00140815
18: C**** 00150815
19: C**** 00160815
20: C**** SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00170815
21: C**** GENERAL SERVICES ADMINISTRATION 00180815
22: C**** FEDERAL SOFTWARE TESTING CENTER 00190815
23: C**** 5203 LEESBURG PIKE, SUITE 1100 00200815
24: C**** FALLS CHURCH, VA. 22041 00210815
25: C**** 00220815
26: C**** (703) 756-6153 00230815
27: C**** 00240815
28: CBE** ********************** BBCCOMNT **********************************00250815
29: C***** 00260815
30: C***** S P E C I F I C A T I O N S SEGMENT 180 00270815
31: COMPLEX AVC, BVC, CVC, ZVCORR 00280815
32: REAL R2E(2) 00290815
33: EQUIVALENCE (AVC, R2E) 00300815
34: C***** 00310815
35: CBB** ********************** BBCINITA **********************************00320815
36: C**** SPECIFICATION STATEMENTS 00330815
37: C**** 00340815
38: CHARACTER ZVERS*13, ZVERSD*17, ZDATE*17, ZPROG*5, ZCOMPL*20, 00350815
39: 1 ZNAME*20, ZTAPE*10, ZPROJ*13, REMRKS*31, ZTAPED*13 00360815
40: CBE** ********************** BBCINITA **********************************00370815
41: CBB** ********************** BBCINITB **********************************00380815
42: C**** INITIALIZE SECTION 00390815
43: DATA ZVERS, ZVERSD, ZDATE 00400815
44: 1 /'VERSION 2.0 ', '82/08/02*18.33.46', '*NO DATE*TIME'/ 00410815
45: DATA ZCOMPL, ZNAME, ZTAPE 00420815
46: 1 /'*NONE SPECIFIED*', '*NO COMPANY NAME*', '*NO TAPE*'/ 00430815
47: DATA ZPROJ, ZTAPED, ZPROG 00440815
48: 1 /'*NO PROJECT*', '*NO TAPE DATE', 'XXXXX'/ 00450815
49: DATA REMRKS /' '/ 00460815
50: C**** THE FOLLOWING 9 COMMENT LINES (CZ01, CZ02, ...) CAN BE REPLACED 00470815
51: C**** FOR IDENTIFYING THE TEST ENVIRONMENT 00480815
52: C**** 00490815
53: CZ01 ZVERS = 'VERSION OF THE COMPILER VALIDATION SYSTEM' 00500815
54: CZ02 ZVERSD = 'CREATION DATE/TIME OF THE COMPILER VALIDATION SYSTEM' 00510815
55: CZ03 ZPROG = 'PROGRAM NAME' 00520815
56: ZDATE = '07-Nov-85 ' *RP
57: ZCOMPL = 'CCI 5.2 ' *RP
58: ZPROJ = 'TC-85- -410' *RP
59: ZNAME = ' ' *RP
60: ZTAPE = ' ' *RP
61: ZTAPED = '850703 ' *RP
62: C 00590815
63: IVPASS = 0 00600815
64: IVFAIL = 0 00610815
65: IVDELE = 0 00620815
66: IVINSP = 0 00630815
67: IVTOTL = 0 00640815
68: IVTOTN = 0 00650815
69: ICZERO = 0 00660815
70: C 00670815
71: C I01 CONTAINS THE LOGICAL UNIT NUMBER FOR THE CARD READER. 00680815
72: I01 = 05 00690815
73: C I02 CONTAINS THE LOGICAL UNIT NUMBER FOR THE PRINTER. 00700815
74: I02 = 06 00710815
75: C 00720815
76: I01 = 5 00730815
77: C THE CX010 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I01 = 5 00740815
78: CX011 REPLACED BY FEXEC X-011 CONTROL CARD. CX011 IS FOR SYSTEMS 00750815
79: C REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX010. 00760815
80: C 00770815
81: I02 = 6 00780815
82: C THE CX020 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I02= 6 00790815
83: CX021 REPLACED BY FEXEC X-021 CONTROL CARD. CX021 IS FOR SYSTEMS 00800815
84: C REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX020. 00810815
85: C 00820815
86: CBE** ********************** BBCINITB **********************************00830815
87: NUVI = I02 00840815
88: IVTOTL = 9 00850815
89: ZPROG = 'FM815' 00860815
90: CBB** ********************** BBCHED0A **********************************00870815
91: C**** 00880815
92: C**** WRITE REPORT TITLE 00890815
93: C**** 00900815
94: WRITE (I02, 90002) 00910815
95: WRITE (I02, 90006) 00920815
96: WRITE (I02, 90007) 00930815
97: WRITE (I02, 90008) ZVERS, ZVERSD 00940815
98: WRITE (I02, 90009) ZPROG, ZPROG 00950815
99: WRITE (I02, 90010) ZDATE, ZCOMPL 00960815
100: CBE** ********************** BBCHED0A **********************************00970815
101: C***** 00980815
102: C***** HEADER FOR SEGMENT 180 00990815
103: WRITE(NUVI,18000) 01000815
104: 18000 FORMAT(1H , / 35H YCEXP - (180) INTRINSIC FUNCTIONS// 01010815
105: 1 28H CEXP (COMPLEX EXPONENTIAL)// 01020815
106: 2 17H ANS REF. - 15.3) 01030815
107: CBB** ********************** BBCHED0B **********************************01040815
108: C**** WRITE DETAIL REPORT HEADERS 01050815
109: C**** 01060815
110: WRITE (I02,90004) 01070815
111: WRITE (I02,90004) 01080815
112: WRITE (I02,90013) 01090815
113: WRITE (I02,90014) 01100815
114: WRITE (I02,90015) IVTOTL 01110815
115: CBE** ********************** BBCHED0B **********************************01120815
116: C***** 01130815
117: CT001* TEST 1 ZERO 01140815
118: IVTNUM = 1 01150815
119: BVC = (0.0, 0.0) 01160815
120: AVC = CEXP(BVC) 01170815
121: IF (R2E(1) - 0.99995E+00) 20010, 40012, 40011 01180815
122: 40011 IF (R2E(1) - 0.10001E+01) 40012, 40012, 20010 01190815
123: 40012 IF (R2E(2) + 0.50000E-04) 20010, 10010, 40010 01200815
124: 40010 IF (R2E(2) - 0.50000E-04) 10010, 10010, 20010 01210815
125: 10010 IVPASS = IVPASS + 1 01220815
126: WRITE (NUVI, 80002) IVTNUM 01230815
127: GO TO 0011 01240815
128: 20010 IVFAIL = IVFAIL + 1 01250815
129: ZVCORR = (1.0000000000000, 0.00000000000000) 01260815
130: WRITE (NUVI, 80045) IVTNUM, AVC, ZVCORR 01270815
131: 0011 CONTINUE 01280815
132: CT002* TEST 2 PURELY REAL NUMBERS -- RESULT AGREES WITH EXP 01290815
133: IVTNUM = 2 01300815
134: AVC = CEXP((1.0, 0.0)) 01310815
135: IF (R2E(1) - 0.27181E+01) 20020, 40022, 40021 01320815
136: 40021 IF (R2E(1) - 0.27185E+01) 40022, 40022, 20020 01330815
137: 40022 IF (R2E(2) + 0.50000E-04) 20020, 10020, 40020 01340815
138: 40020 IF (R2E(2) - 0.50000E-04) 10020, 10020, 20020 01350815
139: 10020 IVPASS = IVPASS + 1 01360815
140: WRITE (NUVI, 80002) IVTNUM 01370815
141: GO TO 0021 01380815
142: 20020 IVFAIL = IVFAIL + 1 01390815
143: ZVCORR = (2.7182818284590, 0.00000000000000) 01400815
144: WRITE (NUVI, 80045) IVTNUM, AVC, ZVCORR 01410815
145: 0021 CONTINUE 01420815
146: CT003* TEST 3 PURELY REAL NUMBERS -- RESULT AGREES WITH EXP 01430815
147: IVTNUM = 3 01440815
148: BVC = (-3.0, 0.0) 01450815
149: AVC = CEXP(BVC) 01460815
150: IF (R2E(1) - 0.49784E-01) 20030, 40032, 40031 01470815
151: 40031 IF (R2E(1) - 0.49790E-01) 40032, 40032, 20030 01480815
152: 40032 IF (R2E(2) + 0.50000E-04) 20030, 10030, 40030 01490815
153: 40030 IF (R2E(2) - 0.50000E-04) 10030, 10030, 20030 01500815
154: 10030 IVPASS = IVPASS + 1 01510815
155: WRITE (NUVI, 80002) IVTNUM 01520815
156: GO TO 0031 01530815
157: 20030 IVFAIL = IVFAIL + 1 01540815
158: ZVCORR = (0.04978706836785, 0.00000000000000) 01550815
159: WRITE (NUVI, 80045) IVTNUM, AVC, ZVCORR 01560815
160: 0031 CONTINUE 01570815
161: C***** TESTS 4 AND 5 - PURELY IMAGINARY NUMBERS--RESULT LIES 01580815
162: C***** ON UNIT CIRCLE 01590815
163: CT004* TEST 4 (0,PI) 01600815
164: IVTNUM = 4 01610815
165: BVC = (0.0, 3.1415926536) 01620815
166: AVC = CEXP(BVC * (1.0, 0.0)) 01630815
167: IF (R2E(1) + 0.10001E+01) 20040, 40042, 40041 01640815
168: 40041 IF (R2E(1) + 0.99995E+00) 40042, 40042, 20040 01650815
169: 40042 IF (R2E(2) + 0.50000E-04) 20040, 10040, 40040 01660815
170: 40040 IF (R2E(2) - 0.50000E-04) 10040, 10040, 20040 01670815
171: 10040 IVPASS = IVPASS + 1 01680815
172: WRITE (NUVI, 80002) IVTNUM 01690815
173: GO TO 0041 01700815
174: 20040 IVFAIL = IVFAIL + 1 01710815
175: ZVCORR = (-1.0000000000000, 0.00000000000000) 01720815
176: WRITE (NUVI, 80045) IVTNUM, AVC, ZVCORR 01730815
177: 0041 CONTINUE 01740815
178: CT005* TEST 5 (0,-PI/2) 01750815
179: IVTNUM = 5 01760815
180: BVC = (0.0, -3.1415926536) 01770815
181: AVC = CEXP(BVC / (2.0, 0.0)) 01780815
182: IF (R2E(1) + 0.50000E-04) 20050, 40052, 40051 01790815
183: 40051 IF (R2E(1) - 0.50000E-04) 40052, 40052, 20050 01800815
184: 40052 IF (R2E(2) + 0.10001E+01) 20050, 10050, 40050 01810815
185: 40050 IF (R2E(2) + 0.99995E+00) 10050, 10050, 20050 01820815
186: 10050 IVPASS = IVPASS + 1 01830815
187: WRITE (NUVI, 80002) IVTNUM 01840815
188: GO TO 0051 01850815
189: 20050 IVFAIL = IVFAIL + 1 01860815
190: ZVCORR = (0.00000000000000, -1.0000000000000) 01870815
191: WRITE (NUVI, 80045) IVTNUM, AVC, ZVCORR 01880815
192: 0051 CONTINUE 01890815
193: CT006* TEST 6 (2.5,PI/4) 01900815
194: IVTNUM = 6 01910815
195: AVC = CEXP((1.0, 2.0)) 01920815
196: IF (R2E(1) + 0.11313E+01) 20060, 40062, 40061 01930815
197: 40061 IF (R2E(1) + 0.11311E+01) 40062, 40062, 20060 01940815
198: 40062 IF (R2E(2) - 0.24716E+01) 20060, 10060, 40060 01950815
199: 40060 IF (R2E(2) - 0.24719E+01) 10060, 10060, 20060 01960815
200: 10060 IVPASS = IVPASS + 1 01970815
201: WRITE (NUVI, 80002) IVTNUM 01980815
202: GO TO 0061 01990815
203: 20060 IVFAIL = IVFAIL + 1 02000815
204: ZVCORR = (-1.1312043837568, 2.4717266720048) 02010815
205: WRITE (NUVI, 80045) IVTNUM, AVC, ZVCORR 02020815
206: 0061 CONTINUE 02030815
207: CT007* TEST 7 A VARIABLE SUPPLIED TO CEXP 02040815
208: IVTNUM = 7 02050815
209: BVC = (-1.75, 4.625) 02060815
210: AVC = CEXP(BVC) 02070815
211: IF (R2E(1) + 0.15168E-01) 20070, 40072, 40071 02080815
212: 40071 IF (R2E(1) + 0.15165E-01) 40072, 40072, 20070 02090815
213: 40072 IF (R2E(2) + 0.17312E+00) 20070, 10070, 40070 02100815
214: 40070 IF (R2E(2) + 0.17310E+00) 10070, 10070, 20070 02110815
215: 10070 IVPASS = IVPASS + 1 02120815
216: WRITE (NUVI, 80002) IVTNUM 02130815
217: GO TO 0071 02140815
218: 20070 IVFAIL = IVFAIL + 1 02150815
219: ZVCORR = (-0.01516660638013, -0.17311082425206) 02160815
220: WRITE (NUVI, 80045) IVTNUM, AVC, ZVCORR 02170815
221: 0071 CONTINUE 02180815
222: CT008* TEST 8 POSITIVE REAL, NEGATIVE IMAGINARY ARGUMENT 02190815
223: IVTNUM = 8 02200815
224: AVC = CEXP((5.5, -1.015625)) 02210815
225: IF (R2E(1) - 0.12896E+03) 20080, 40082, 40081 02220815
226: 40081 IF (R2E(1) - 0.12898E+03) 40082, 40082, 20080 02230815
227: 40082 IF (R2E(2) + 0.20796E+03) 20080, 10080, 40080 02240815
228: 40080 IF (R2E(2) + 0.20793E+03) 10080, 10080, 20080 02250815
229: 10080 IVPASS = IVPASS + 1 02260815
230: WRITE (NUVI, 80002) IVTNUM 02270815
231: GO TO 0081 02280815
232: 20080 IVFAIL = IVFAIL + 1 02290815
233: ZVCORR = (128.97440219594, -207.94168724284) 02300815
234: WRITE (NUVI, 80045) IVTNUM, AVC, ZVCORR 02310815
235: 0081 CONTINUE 02320815
236: CT009* TEST 9 THE FUNCTION TOGETHER WITH AIMAG AND CABS 02330815
237: IVTNUM = 9 02340815
238: BVC = (10.0, 3.1415926536) 02350815
239: CVC = CEXP(BVC / (4.0, 0.0)) 02360815
240: AVS = (AIMAG(CVC) / CABS(CVC)) ** 2 02370815
241: IF (AVS - 0.49997E+00) 20090, 10090, 40090 02380815
242: 40090 IF (AVS - 0.50003E+00) 10090, 10090, 20090 02390815
243: 10090 IVPASS = IVPASS + 1 02400815
244: WRITE (NUVI, 80002) IVTNUM 02410815
245: GO TO 0091 02420815
246: 20090 IVFAIL = IVFAIL + 1 02430815
247: RVCORR = 0.5000000 02440815
248: WRITE (NUVI, 80012) IVTNUM, AVS, RVCORR 02450815
249: 0091 CONTINUE 02460815
250: C***** 02470815
251: CBB** ********************** BBCSUM0 **********************************02480815
252: C**** WRITE OUT TEST SUMMARY 02490815
253: C**** 02500815
254: IVTOTN = IVPASS + IVFAIL + IVDELE + IVINSP 02510815
255: WRITE (I02, 90004) 02520815
256: WRITE (I02, 90014) 02530815
257: WRITE (I02, 90004) 02540815
258: WRITE (I02, 90020) IVPASS 02550815
259: WRITE (I02, 90022) IVFAIL 02560815
260: WRITE (I02, 90024) IVDELE 02570815
261: WRITE (I02, 90026) IVINSP 02580815
262: WRITE (I02, 90028) IVTOTN, IVTOTL 02590815
263: CBE** ********************** BBCSUM0 **********************************02600815
264: CBB** ********************** BBCFOOT0 **********************************02610815
265: C**** WRITE OUT REPORT FOOTINGS 02620815
266: C**** 02630815
267: WRITE (I02,90016) ZPROG, ZPROG 02640815
268: WRITE (I02,90018) ZPROJ, ZNAME, ZTAPE, ZTAPED 02650815
269: WRITE (I02,90019) 02660815
270: CBE** ********************** BBCFOOT0 **********************************02670815
271: CBB** ********************** BBCFMT0A **********************************02680815
272: C**** FORMATS FOR TEST DETAIL LINES 02690815
273: C**** 02700815
274: 80000 FORMAT (1H ,2X,I3,4X,7HDELETED,32X,A31) 02710815
275: 80002 FORMAT (1H ,2X,I3,4X,7H PASS ,32X,A31) 02720815
276: 80004 FORMAT (1H ,2X,I3,4X,7HINSPECT,32X,A31) 02730815
277: 80008 FORMAT (1H ,2X,I3,4X,7H FAIL ,32X,A31) 02740815
278: 80010 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,15X,10HCOMPUTED= , 02750815
279: 1I6,/,1H ,15X,10HCORRECT= ,I6) 02760815
280: 80012 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 02770815
281: 1E12.5,/,1H ,16X,10HCORRECT= ,E12.5) 02780815
282: 80018 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 02790815
283: 1A21,/,1H ,16X,10HCORRECT= ,A21) 02800815
284: 80020 FORMAT (1H ,16X,10HCOMPUTED= ,A21,1X,A31) 02810815
285: 80022 FORMAT (1H ,16X,10HCORRECT= ,A21,1X,A31) 02820815
286: 80024 FORMAT (1H ,16X,10HCOMPUTED= ,I6,16X,A31) 02830815
287: 80026 FORMAT (1H ,16X,10HCORRECT= ,I6,16X,A31) 02840815
288: 80028 FORMAT (1H ,16X,10HCOMPUTED= ,E12.5,10X,A31) 02850815
289: 80030 FORMAT (1H ,16X,10HCORRECT= ,E12.5,10X,A31) 02860815
290: 80050 FORMAT (1H ,48X,A31) 02870815
291: CBE** ********************** BBCFMT0A **********************************02880815
292: CBB** ********************** BBCFMAT1 **********************************02890815
293: C**** FORMATS FOR TEST DETAIL LINES - FULL LANGUAGE 02900815
294: C**** 02910815
295: 80031 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 02920815
296: 1D17.10,/,1H ,16X,10HCORRECT= ,D17.10) 02930815
297: 80033 FORMAT (1H ,16X,10HCOMPUTED= ,D17.10,10X,A31) 02940815
298: 80035 FORMAT (1H ,16X,10HCORRECT= ,D17.10,10X,A31) 02950815
299: 80037 FORMAT (1H ,16X,10HCOMPUTED= ,1H(,E12.5,2H, ,E12.5,1H),6X,A31) 02960815
300: 80039 FORMAT (1H ,16X,10HCORRECT= ,1H(,E12.5,2H, ,E12.5,1H),6X,A31) 02970815
301: 80041 FORMAT (1H ,16X,10HCOMPUTED= ,1H(,F12.5,2H, ,F12.5,1H),6X,A31) 02980815
302: 80043 FORMAT (1H ,16X,10HCORRECT= ,1H(,F12.5,2H, ,F12.5,1H),6X,A31) 02990815
303: 80045 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 03000815
304: 11H(,F12.5,2H, ,F12.5,1H)/,1H ,16X,10HCORRECT= , 03010815
305: 21H(,F12.5,2H, ,F12.5,1H)) 03020815
306: CBE** ********************** BBCFMAT1 **********************************03030815
307: CBB** ********************** BBCFMT0B **********************************03040815
308: C**** FORMAT STATEMENTS FOR PAGE HEADERS 03050815
309: C**** 03060815
310: 90002 FORMAT (1H1) 03070815
311: 90004 FORMAT (1H ) 03080815
312: 90006 FORMAT (1H ,20X,31HFEDERAL SOFTWARE TESTING CENTER) 03090815
313: 90007 FORMAT (1H ,19X,34HFORTRAN COMPILER VALIDATION SYSTEM) 03100815
314: 90008 FORMAT (1H ,21X,A13,A17) 03110815
315: 90009 FORMAT (1H ,/,2H *,A5,6HBEGIN*,12X,15HTEST RESULTS - ,A5,/) 03120815
316: 90010 FORMAT (1H ,8X,16HTEST DATE*TIME= ,A17,15H - COMPILER= ,A20) 03130815
317: 90013 FORMAT (1H ,8H TEST ,10HPASS/FAIL ,6X,17HDISPLAYED RESULTS, 03140815
318: 1 7X,7HREMARKS,24X) 03150815
319: 90014 FORMAT (1H ,46H----------------------------------------------, 03160815
320: 1 33H---------------------------------) 03170815
321: 90015 FORMAT (1H ,48X,17HTHIS PROGRAM HAS ,I3,6H TESTS,/) 03180815
322: C**** 03190815
323: C**** FORMAT STATEMENTS FOR REPORT FOOTINGS 03200815
324: C**** 03210815
325: 90016 FORMAT (1H ,/,2H *,A5,4HEND*,14X,14HEND OF TEST - ,A5,/) 03220815
326: 90018 FORMAT (1H ,A13,13X,A20,7H * ,A10,1H/, 03230815
327: 1 A13) 03240815
328: 90019 FORMAT (1H ,26HFOR OFFICIAL USE ONLY ,35X,15HCOPYRIGHT 1982) 03250815
329: C**** 03260815
330: C**** FORMAT STATEMENTS FOR RUN SUMMARY 03270815
331: C**** 03280815
332: 90020 FORMAT (1H ,21X,I5,13H TESTS PASSED) 03290815
333: 90022 FORMAT (1H ,21X,I5,13H TESTS FAILED) 03300815
334: 90024 FORMAT (1H ,21X,I5,14H TESTS DELETED) 03310815
335: 90026 FORMAT (1H ,21X,I5,25H TESTS REQUIRE INSPECTION) 03320815
336: 90028 FORMAT (1H ,21X,I5,4H OF ,I3,15H TESTS EXECUTED) 03330815
337: CBE** ********************** BBCFMT0B **********************************03340815
338: C***** 03350815
339: C***** END OF TEST SEGMENT 180 03360815
340: STOP 03370815
341: END 03380815
342: 03390815
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.