![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to FM803.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 FM803.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***********************************************************************00010803
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 00020803
6: C***** FM803 YCABS - (158) 00030803
7: C***** 00040803
8: C***********************************************************************00050803
9: C***** GENERAL PURPOSE ANS REF 00060803
10: C***** TEST INTRINSIC FUNCTION CABS (ABSOLUTE VALUE OF 15.3 00070803
11: C***** A COMPLEX ARGUMENT) (TABLE 5)00080803
12: C***** 00090803
13: CBB** ********************** BBCCOMNT **********************************00100803
14: C**** 00110803
15: C**** 1978 FORTRAN COMPILER VALIDATION SYSTEM 00120803
16: C**** VERSION 2.0 00130803
17: C**** 00140803
18: C**** 00150803
19: C**** SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00160803
20: C**** GENERAL SERVICES ADMINISTRATION 00170803
21: C**** FEDERAL SOFTWARE TESTING CENTER 00180803
22: C**** 5203 LEESBURG PIKE, SUITE 1100 00190803
23: C**** FALLS CHURCH, VA. 22041 00200803
24: C**** 00210803
25: C**** (703) 756-6153 00220803
26: C**** 00230803
27: CBE** ********************** BBCCOMNT **********************************00240803
28: C***** 00250803
29: C***** S P E C I F I C A T I O N S SEGMENT 158 00260803
30: COMPLEX CPAVC 00270803
31: C***** 00280803
32: CBB** ********************** BBCINITA **********************************00290803
33: C**** SPECIFICATION STATEMENTS 00300803
34: C**** 00310803
35: CHARACTER ZVERS*13, ZVERSD*17, ZDATE*17, ZPROG*5, ZCOMPL*20, 00320803
36: 1 ZNAME*20, ZTAPE*10, ZPROJ*13, REMRKS*31, ZTAPED*13 00330803
37: CBE** ********************** BBCINITA **********************************00340803
38: CBB** ********************** BBCINITB **********************************00350803
39: C**** INITIALIZE SECTION 00360803
40: DATA ZVERS, ZVERSD, ZDATE 00370803
41: 1 /'VERSION 2.0 ', '82/08/02*18.33.46', '*NO DATE*TIME'/ 00380803
42: DATA ZCOMPL, ZNAME, ZTAPE 00390803
43: 1 /'*NONE SPECIFIED*', '*NO COMPANY NAME*', '*NO TAPE*'/ 00400803
44: DATA ZPROJ, ZTAPED, ZPROG 00410803
45: 1 /'*NO PROJECT*', '*NO TAPE DATE', 'XXXXX'/ 00420803
46: DATA REMRKS /' '/ 00430803
47: C**** THE FOLLOWING 9 COMMENT LINES (CZ01, CZ02, ...) CAN BE REPLACED 00440803
48: C**** FOR IDENTIFYING THE TEST ENVIRONMENT 00450803
49: C**** 00460803
50: CZ01 ZVERS = 'VERSION OF THE COMPILER VALIDATION SYSTEM' 00470803
51: CZ02 ZVERSD = 'CREATION DATE/TIME OF THE COMPILER VALIDATION SYSTEM' 00480803
52: CZ03 ZPROG = 'PROGRAM NAME' 00490803
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 00560803
60: IVPASS = 0 00570803
61: IVFAIL = 0 00580803
62: IVDELE = 0 00590803
63: IVINSP = 0 00600803
64: IVTOTL = 0 00610803
65: IVTOTN = 0 00620803
66: ICZERO = 0 00630803
67: C 00640803
68: C I01 CONTAINS THE LOGICAL UNIT NUMBER FOR THE CARD READER. 00650803
69: I01 = 05 00660803
70: C I02 CONTAINS THE LOGICAL UNIT NUMBER FOR THE PRINTER. 00670803
71: I02 = 06 00680803
72: C 00690803
73: I01 = 5 00700803
74: C THE CX010 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I01 = 5 00710803
75: CX011 REPLACED BY FEXEC X-011 CONTROL CARD. CX011 IS FOR SYSTEMS 00720803
76: C REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX010. 00730803
77: C 00740803
78: I02 = 6 00750803
79: C THE CX020 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I02= 6 00760803
80: CX021 REPLACED BY FEXEC X-021 CONTROL CARD. CX021 IS FOR SYSTEMS 00770803
81: C REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX020. 00780803
82: C 00790803
83: CBE** ********************** BBCINITB **********************************00800803
84: NUVI = I02 00810803
85: IVTOTL = 9 00820803
86: ZPROG = 'FM803' 00830803
87: CBB** ********************** BBCHED0A **********************************00840803
88: C**** 00850803
89: C**** WRITE REPORT TITLE 00860803
90: C**** 00870803
91: WRITE (I02, 90002) 00880803
92: WRITE (I02, 90006) 00890803
93: WRITE (I02, 90007) 00900803
94: WRITE (I02, 90008) ZVERS, ZVERSD 00910803
95: WRITE (I02, 90009) ZPROG, ZPROG 00920803
96: WRITE (I02, 90010) ZDATE, ZCOMPL 00930803
97: CBE** ********************** BBCHED0A **********************************00940803
98: C***** 00950803
99: C***** HEADER FOR SEGMENT 158 WRITTEN 00960803
100: WRITE (NUVI,15801) 00970803
101: 15801 FORMAT (1H , //1X,34HYCABS - (158) INTRINSIC FUNCTION--//16X, 00980803
102: 1 21HCABS (ABSOLUTE VALUE)//2X, 00990803
103: 2 15HANS REF. - 15.3) 01000803
104: CBB** ********************** BBCHED0B **********************************01010803
105: C**** WRITE DETAIL REPORT HEADERS 01020803
106: C**** 01030803
107: WRITE (I02,90004) 01040803
108: WRITE (I02,90004) 01050803
109: WRITE (I02,90013) 01060803
110: WRITE (I02,90014) 01070803
111: WRITE (I02,90015) IVTOTL 01080803
112: CBE** ********************** BBCHED0B **********************************01090803
113: C***** 01100803
114: CT001* TEST 1 COMPLEX VALUE ZERO (0,0) 01110803
115: IVTNUM = 1 01120803
116: RPAVS = CABS((0.0, 0.0)) 01130803
117: IF (RPAVS + .00005) 20010, 10010, 40010 01140803
118: 40010 IF (RPAVS - .00005) 10010, 10010, 20010 01150803
119: 10010 IVPASS = IVPASS + 1 01160803
120: WRITE (NUVI, 80002) IVTNUM 01170803
121: GO TO 0011 01180803
122: 20010 IVFAIL = IVFAIL + 1 01190803
123: RVCORR = 0.0 01200803
124: WRITE (NUVI, 80012) IVTNUM, RPAVS, RVCORR 01210803
125: 0011 CONTINUE 01220803
126: CT002* TEST 2 COMPLEX VALUE HAVING ONLY REAL COMPONENT 01230803
127: IVTNUM = 2 01240803
128: RPAVS = CABS((3.0, 0.0)) 01250803
129: IF (RPAVS - 2.9998) 20020, 10020, 40020 01260803
130: 40020 IF (RPAVS - 3.0002) 10020, 10020, 20020 01270803
131: 10020 IVPASS = IVPASS + 1 01280803
132: WRITE (NUVI, 80002) IVTNUM 01290803
133: GO TO 0021 01300803
134: 20020 IVFAIL = IVFAIL + 1 01310803
135: RVCORR = 3.0 01320803
136: WRITE(NUVI, 80012) IVTNUM, RPAVS, RVCORR 01330803
137: 0021 CONTINUE 01340803
138: CT003* TEST 3 COMPLEX VALUE HAVING ONLY IMAGINARY COMPONENT 01350803
139: IVTNUM = 3 01360803
140: RPAVS = CABS((0.0, 3.0)) 01370803
141: IF (RPAVS - 2.9998) 20030, 10030, 40030 01380803
142: 40030 IF (RPAVS - 3.0002) 10030, 10030, 20030 01390803
143: 10030 IVPASS = IVPASS + 1 01400803
144: WRITE (NUVI, 80002) IVTNUM 01410803
145: GO TO 0031 01420803
146: 20030 IVFAIL = IVFAIL + 1 01430803
147: RVCORR = 3.0 01440803
148: WRITE(NUVI, 80012) IVTNUM, RPAVS, RVCORR 01450803
149: 0031 CONTINUE 01460803
150: CT004* TEST 4 ARBITRARY COMPLEX VALUE 01470803
151: IVTNUM = 4 01480803
152: RPAVS = CABS((3.0, 4.0)) 01490803
153: IF (RPAVS - 4.9997) 20040, 10040, 40040 01500803
154: 40040 IF (RPAVS - 5.0003) 10040, 10040, 20040 01510803
155: 10040 IVPASS = IVPASS + 1 01520803
156: WRITE (NUVI, 80002) IVTNUM 01530803
157: GO TO 0041 01540803
158: 20040 IVFAIL = IVFAIL + 1 01550803
159: RVCORR = 5.0 01560803
160: WRITE(NUVI, 80012) IVTNUM, RPAVS, RVCORR 01570803
161: 0041 CONTINUE 01580803
162: CT005* TEST 5 NEGATIVE REAL COMPONENT, NO IMAGINARY COMPONENT 01590803
163: IVTNUM = 5 01600803
164: RPAVS = CABS((-3.0, 0.0)) 01610803
165: IF (RPAVS - 2.9998) 20050, 10050, 40050 01620803
166: 40050 IF (RPAVS - 3.0002) 10050, 10050, 20050 01630803
167: 10050 IVPASS = IVPASS + 1 01640803
168: WRITE (NUVI, 80002) IVTNUM 01650803
169: GO TO 0051 01660803
170: 20050 IVFAIL = IVFAIL + 1 01670803
171: RVCORR = 3.0 01680803
172: WRITE(NUVI, 80012) IVTNUM, RPAVS, RVCORR 01690803
173: 0051 CONTINUE 01700803
174: CT006* TEST 6 NO REAL COMPONENT, NEGATIVE IMAGINARY COMPONENT 01710803
175: IVTNUM = 6 01720803
176: RPAVS = CABS((0.0, -3.0)) 01730803
177: IF (RPAVS - 2.9998) 20060, 10060, 40060 01740803
178: 40060 IF (RPAVS - 3.0002) 10060, 10060, 20060 01750803
179: 10060 IVPASS = IVPASS + 1 01760803
180: WRITE (NUVI, 80002) IVTNUM 01770803
181: GO TO 0061 01780803
182: 20060 IVFAIL = IVFAIL + 1 01790803
183: RVCORR = 3.0 01800803
184: WRITE(NUVI, 80012) IVTNUM, RPAVS, RVCORR 01810803
185: 0061 CONTINUE 01820803
186: CT007* TEST 7 ARBITRARY COMPLEX VALUE WITH NEGATIVE COMPONENTS 01830803
187: IVTNUM = 7 01840803
188: RPAVS = CABS((-3.0, -4.0)) 01850803
189: IF (RPAVS - 4.9997) 20070, 10070, 40070 01860803
190: 40070 IF (RPAVS - 5.0003) 10070, 10070, 20070 01870803
191: 10070 IVPASS = IVPASS + 1 01880803
192: WRITE (NUVI, 80002) IVTNUM 01890803
193: GO TO 0071 01900803
194: 20070 IVFAIL = IVFAIL + 1 01910803
195: RVCORR = 5.0 01920803
196: WRITE(NUVI, 80012) IVTNUM, RPAVS, RVCORR 01930803
197: 0071 CONTINUE 01940803
198: CT008* TEST 8 COMPLEX VALUE ZERO PRECEDED BY MINUS SIGN 01950803
199: IVTNUM = 8 01960803
200: CPAVC = (0.0, 0.0) 01970803
201: RPAVS = CABS(-CPAVC) 01980803
202: IF (RPAVS + 0.00005) 20080, 10080, 40080 01990803
203: 40080 IF (RPAVS - 0.00005) 10080, 10080, 20080 02000803
204: 10080 IVPASS = IVPASS + 1 02010803
205: WRITE (NUVI, 80002) IVTNUM 02020803
206: GO TO 0081 02030803
207: 20080 IVFAIL = IVFAIL + 1 02040803
208: RVCORR = 0.0 02050803
209: WRITE(NUVI, 80012) IVTNUM, RPAVS, RVCORR 02060803
210: 0081 CONTINUE 02070803
211: CT009* TEST 9 COMPLEX EXPRESSION PRESENTED AS ARGUMENT 02080803
212: IVTNUM = 9 02090803
213: CPAVC = (3.0, 4.0) 02100803
214: RPAVS = CABS(CPAVC - (3.0, 4.0)) 02110803
215: IF (RPAVS + 0.00005) 20090, 10090, 40090 02120803
216: 40090 IF (RPAVS - 0.00005) 10090, 10090, 20090 02130803
217: 10090 IVPASS = IVPASS + 1 02140803
218: WRITE (NUVI, 80002) IVTNUM 02150803
219: GO TO 0091 02160803
220: 20090 IVFAIL = IVFAIL + 1 02170803
221: RVCORR = 0.0 02180803
222: WRITE(NUVI, 80012) IVTNUM, RPAVS, RVCORR 02190803
223: 0091 CONTINUE 02200803
224: C***** 02210803
225: CBB** ********************** BBCSUM0 **********************************02220803
226: C**** WRITE OUT TEST SUMMARY 02230803
227: C**** 02240803
228: IVTOTN = IVPASS + IVFAIL + IVDELE + IVINSP 02250803
229: WRITE (I02, 90004) 02260803
230: WRITE (I02, 90014) 02270803
231: WRITE (I02, 90004) 02280803
232: WRITE (I02, 90020) IVPASS 02290803
233: WRITE (I02, 90022) IVFAIL 02300803
234: WRITE (I02, 90024) IVDELE 02310803
235: WRITE (I02, 90026) IVINSP 02320803
236: WRITE (I02, 90028) IVTOTN, IVTOTL 02330803
237: CBE** ********************** BBCSUM0 **********************************02340803
238: CBB** ********************** BBCFOOT0 **********************************02350803
239: C**** WRITE OUT REPORT FOOTINGS 02360803
240: C**** 02370803
241: WRITE (I02,90016) ZPROG, ZPROG 02380803
242: WRITE (I02,90018) ZPROJ, ZNAME, ZTAPE, ZTAPED 02390803
243: WRITE (I02,90019) 02400803
244: CBE** ********************** BBCFOOT0 **********************************02410803
245: CBB** ********************** BBCFMT0A **********************************02420803
246: C**** FORMATS FOR TEST DETAIL LINES 02430803
247: C**** 02440803
248: 80000 FORMAT (1H ,2X,I3,4X,7HDELETED,32X,A31) 02450803
249: 80002 FORMAT (1H ,2X,I3,4X,7H PASS ,32X,A31) 02460803
250: 80004 FORMAT (1H ,2X,I3,4X,7HINSPECT,32X,A31) 02470803
251: 80008 FORMAT (1H ,2X,I3,4X,7H FAIL ,32X,A31) 02480803
252: 80010 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,15X,10HCOMPUTED= , 02490803
253: 1I6,/,1H ,15X,10HCORRECT= ,I6) 02500803
254: 80012 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 02510803
255: 1E12.5,/,1H ,16X,10HCORRECT= ,E12.5) 02520803
256: 80018 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 02530803
257: 1A21,/,1H ,16X,10HCORRECT= ,A21) 02540803
258: 80020 FORMAT (1H ,16X,10HCOMPUTED= ,A21,1X,A31) 02550803
259: 80022 FORMAT (1H ,16X,10HCORRECT= ,A21,1X,A31) 02560803
260: 80024 FORMAT (1H ,16X,10HCOMPUTED= ,I6,16X,A31) 02570803
261: 80026 FORMAT (1H ,16X,10HCORRECT= ,I6,16X,A31) 02580803
262: 80028 FORMAT (1H ,16X,10HCOMPUTED= ,E12.5,10X,A31) 02590803
263: 80030 FORMAT (1H ,16X,10HCORRECT= ,E12.5,10X,A31) 02600803
264: 80050 FORMAT (1H ,48X,A31) 02610803
265: CBE** ********************** BBCFMT0A **********************************02620803
266: CBB** ********************** BBCFMAT1 **********************************02630803
267: C**** FORMATS FOR TEST DETAIL LINES - FULL LANGUAGE 02640803
268: C**** 02650803
269: 80031 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 02660803
270: 1D17.10,/,1H ,16X,10HCORRECT= ,D17.10) 02670803
271: 80033 FORMAT (1H ,16X,10HCOMPUTED= ,D17.10,10X,A31) 02680803
272: 80035 FORMAT (1H ,16X,10HCORRECT= ,D17.10,10X,A31) 02690803
273: 80037 FORMAT (1H ,16X,10HCOMPUTED= ,1H(,E12.5,2H, ,E12.5,1H),6X,A31) 02700803
274: 80039 FORMAT (1H ,16X,10HCORRECT= ,1H(,E12.5,2H, ,E12.5,1H),6X,A31) 02710803
275: 80041 FORMAT (1H ,16X,10HCOMPUTED= ,1H(,F12.5,2H, ,F12.5,1H),6X,A31) 02720803
276: 80043 FORMAT (1H ,16X,10HCORRECT= ,1H(,F12.5,2H, ,F12.5,1H),6X,A31) 02730803
277: 80045 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 02740803
278: 11H(,F12.5,2H, ,F12.5,1H)/,1H ,16X,10HCORRECT= , 02750803
279: 21H(,F12.5,2H, ,F12.5,1H)) 02760803
280: CBE** ********************** BBCFMAT1 **********************************02770803
281: CBB** ********************** BBCFMT0B **********************************02780803
282: C**** FORMAT STATEMENTS FOR PAGE HEADERS 02790803
283: C**** 02800803
284: 90002 FORMAT (1H1) 02810803
285: 90004 FORMAT (1H ) 02820803
286: 90006 FORMAT (1H ,20X,31HFEDERAL SOFTWARE TESTING CENTER) 02830803
287: 90007 FORMAT (1H ,19X,34HFORTRAN COMPILER VALIDATION SYSTEM) 02840803
288: 90008 FORMAT (1H ,21X,A13,A17) 02850803
289: 90009 FORMAT (1H ,/,2H *,A5,6HBEGIN*,12X,15HTEST RESULTS - ,A5,/) 02860803
290: 90010 FORMAT (1H ,8X,16HTEST DATE*TIME= ,A17,15H - COMPILER= ,A20) 02870803
291: 90013 FORMAT (1H ,8H TEST ,10HPASS/FAIL ,6X,17HDISPLAYED RESULTS, 02880803
292: 1 7X,7HREMARKS,24X) 02890803
293: 90014 FORMAT (1H ,46H----------------------------------------------, 02900803
294: 1 33H---------------------------------) 02910803
295: 90015 FORMAT (1H ,48X,17HTHIS PROGRAM HAS ,I3,6H TESTS,/) 02920803
296: C**** 02930803
297: C**** FORMAT STATEMENTS FOR REPORT FOOTINGS 02940803
298: C**** 02950803
299: 90016 FORMAT (1H ,/,2H *,A5,4HEND*,14X,14HEND OF TEST - ,A5,/) 02960803
300: 90018 FORMAT (1H ,A13,13X,A20,7H * ,A10,1H/, 02970803
301: 1 A13) 02980803
302: 90019 FORMAT (1H ,26HFOR OFFICIAL USE ONLY ,35X,15HCOPYRIGHT 1982) 02990803
303: C**** 03000803
304: C**** FORMAT STATEMENTS FOR RUN SUMMARY 03010803
305: C**** 03020803
306: 90020 FORMAT (1H ,21X,I5,13H TESTS PASSED) 03030803
307: 90022 FORMAT (1H ,21X,I5,13H TESTS FAILED) 03040803
308: 90024 FORMAT (1H ,21X,I5,14H TESTS DELETED) 03050803
309: 90026 FORMAT (1H ,21X,I5,25H TESTS REQUIRE INSPECTION) 03060803
310: 90028 FORMAT (1H ,21X,I5,4H OF ,I3,15H TESTS EXECUTED) 03070803
311: CBE** ********************** BBCFMT0B **********************************03080803
312: C***** 03090803
313: C***** END OF TEST SEGMENT 158 03100803
314: STOP 03110803
315: END 03120803
316: 03130803
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.