![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to FM820.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 FM820.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***********************************************************************00010820
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 00020820
6: C***** FM820 00030820
7: C***** YCSIN - (188) 00040820
8: C***** 00050820
9: C***********************************************************************00060820
10: C***** GENERAL PURPOSE ANS REF 00070820
11: C***** TEST INTRINSIC FUNCTION CSIN 15.3 00080820
12: C***** INTRINSIC FUNCTION CABS ASSUMED WORKING TABLE 5 00090820
13: C***** 00100820
14: CBB** ********************** BBCCOMNT **********************************00110820
15: C**** 00120820
16: C**** 1978 FORTRAN COMPILER VALIDATION SYSTEM 00130820
17: C**** VERSION 2.0 00140820
18: C**** 00150820
19: C**** 00160820
20: C**** SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00170820
21: C**** GENERAL SERVICES ADMINISTRATION 00180820
22: C**** FEDERAL SOFTWARE TESTING CENTER 00190820
23: C**** 5203 LEESBURG PIKE, SUITE 1100 00200820
24: C**** FALLS CHURCH, VA. 22041 00210820
25: C**** 00220820
26: C**** (703) 756-6153 00230820
27: C**** 00240820
28: CBE** ********************** BBCCOMNT **********************************00250820
29: C***** 00260820
30: C***** S P E C I F I C A T I O N S SEGMENT 188 00270820
31: COMPLEX AVC, BVC, ZVCORR 00280820
32: REAL R2E(2) 00290820
33: EQUIVALENCE (AVC, R2E) 00300820
34: C***** 00310820
35: CBB** ********************** BBCINITA **********************************00320820
36: C**** SPECIFICATION STATEMENTS 00330820
37: C**** 00340820
38: CHARACTER ZVERS*13, ZVERSD*17, ZDATE*17, ZPROG*5, ZCOMPL*20, 00350820
39: 1 ZNAME*20, ZTAPE*10, ZPROJ*13, REMRKS*31, ZTAPED*13 00360820
40: CBE** ********************** BBCINITA **********************************00370820
41: CBB** ********************** BBCINITB **********************************00380820
42: C**** INITIALIZE SECTION 00390820
43: DATA ZVERS, ZVERSD, ZDATE 00400820
44: 1 /'VERSION 2.0 ', '82/08/02*18.33.46', '*NO DATE*TIME'/ 00410820
45: DATA ZCOMPL, ZNAME, ZTAPE 00420820
46: 1 /'*NONE SPECIFIED*', '*NO COMPANY NAME*', '*NO TAPE*'/ 00430820
47: DATA ZPROJ, ZTAPED, ZPROG 00440820
48: 1 /'*NO PROJECT*', '*NO TAPE DATE', 'XXXXX'/ 00450820
49: DATA REMRKS /' '/ 00460820
50: C**** THE FOLLOWING 9 COMMENT LINES (CZ01, CZ02, ...) CAN BE REPLACED 00470820
51: C**** FOR IDENTIFYING THE TEST ENVIRONMENT 00480820
52: C**** 00490820
53: CZ01 ZVERS = 'VERSION OF THE COMPILER VALIDATION SYSTEM' 00500820
54: CZ02 ZVERSD = 'CREATION DATE/TIME OF THE COMPILER VALIDATION SYSTEM' 00510820
55: CZ03 ZPROG = 'PROGRAM NAME' 00520820
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 00590820
63: IVPASS = 0 00600820
64: IVFAIL = 0 00610820
65: IVDELE = 0 00620820
66: IVINSP = 0 00630820
67: IVTOTL = 0 00640820
68: IVTOTN = 0 00650820
69: ICZERO = 0 00660820
70: C 00670820
71: C I01 CONTAINS THE LOGICAL UNIT NUMBER FOR THE CARD READER. 00680820
72: I01 = 05 00690820
73: C I02 CONTAINS THE LOGICAL UNIT NUMBER FOR THE PRINTER. 00700820
74: I02 = 06 00710820
75: C 00720820
76: I01 = 5 00730820
77: C THE CX010 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I01 = 5 00740820
78: CX011 REPLACED BY FEXEC X-011 CONTROL CARD. CX011 IS FOR SYSTEMS 00750820
79: C REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX010. 00760820
80: C 00770820
81: I02 = 6 00780820
82: C THE CX020 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I02= 6 00790820
83: CX021 REPLACED BY FEXEC X-021 CONTROL CARD. CX021 IS FOR SYSTEMS 00800820
84: C REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX020. 00810820
85: C 00820820
86: CBE** ********************** BBCINITB **********************************00830820
87: NUVI = I02 00840820
88: IVTOTL = 19 00850820
89: ZPROG = 'FM820' 00860820
90: CBB** ********************** BBCHED0A **********************************00870820
91: C**** 00880820
92: C**** WRITE REPORT TITLE 00890820
93: C**** 00900820
94: WRITE (I02, 90002) 00910820
95: WRITE (I02, 90006) 00920820
96: WRITE (I02, 90007) 00930820
97: WRITE (I02, 90008) ZVERS, ZVERSD 00940820
98: WRITE (I02, 90009) ZPROG, ZPROG 00950820
99: WRITE (I02, 90010) ZDATE, ZCOMPL 00960820
100: CBE** ********************** BBCHED0A **********************************00970820
101: C***** 00980820
102: C***** HEADER FOR SEGMENT 188 00990820
103: WRITE(NUVI,18800) 01000820
104: 18800 FORMAT(1H /35H YCSIN - (188) INTRINSIC FUNCTIONS// 01010820
105: 1 36H CSIN, CCOS (COMPLEX SINE, COSINE)// 01020820
106: 2 17H ANS REF. - 15.3) 01030820
107: CBB** ********************** BBCHED0B **********************************01040820
108: C**** WRITE DETAIL REPORT HEADERS 01050820
109: C**** 01060820
110: WRITE (I02,90004) 01070820
111: WRITE (I02,90004) 01080820
112: WRITE (I02,90013) 01090820
113: WRITE (I02,90014) 01100820
114: WRITE (I02,90015) IVTOTL 01110820
115: CBE** ********************** BBCHED0B **********************************01120820
116: C***** 01130820
117: WRITE(NUVI, 18801) 01140820
118: 18801 FORMAT(/ 8X, 12HTEST OF CSIN) 01150820
119: C***** 01160820
120: CT001* TEST 1 TEST AT ZERO (0.0, 0.0) 01170820
121: IVTNUM = 1 01180820
122: AVC = CSIN(( 0.0, 0.0)) 01190820
123: IF (R2E(1) + 0.50000E-04) 20010, 40012, 40011 01200820
124: 40011 IF (R2E(1) - 0.50000E-04) 40012, 40012, 20010 01210820
125: 40012 IF (R2E(2) + 0.50000E-04) 20010, 10010, 40010 01220820
126: 40010 IF (R2E(2) - 0.50000E-04) 10010, 10010, 20010 01230820
127: 10010 IVPASS = IVPASS + 1 01240820
128: WRITE (NUVI, 80002) IVTNUM 01250820
129: GO TO 0011 01260820
130: 20010 IVFAIL = IVFAIL + 1 01270820
131: ZVCORR = (0.00000000000000, 0.00000000000000) 01280820
132: WRITE (NUVI, 80045) IVTNUM, AVC, ZVCORR 01290820
133: 0011 CONTINUE 01300820
134: CT002* TEST 2 TEST SIN ON THE REAL LINE, CSIN SAME AS SIN 01310820
135: IVTNUM = 2 01320820
136: AVC = CSIN(( 2.0, 0.0)) 01330820
137: IF (R2E(1) - 0.90925E+00) 20020, 40022, 40021 01340820
138: 40021 IF (R2E(1) - 0.90935E+00) 40022, 40022, 20020 01350820
139: 40022 IF (R2E(2) + 0.50000E-04) 20020, 10020, 40020 01360820
140: 40020 IF (R2E(2) - 0.50000E-04) 10020, 10020, 20020 01370820
141: 10020 IVPASS = IVPASS + 1 01380820
142: WRITE (NUVI, 80002) IVTNUM 01390820
143: GO TO 0021 01400820
144: 20020 IVFAIL = IVFAIL + 1 01410820
145: ZVCORR = (0.90929742682568, 0.00000000000000) 01420820
146: WRITE (NUVI, 80045) IVTNUM, AVC, ZVCORR 01430820
147: 0021 CONTINUE 01440820
148: CT003* TEST 3 TEST SIN ON THE REAL LINE, CSIN SAME AS SIN 01450820
149: IVTNUM = 3 01460820
150: AVC = CSIN(( -1000.0, 0.0)) 01470820
151: IF (R2E(1) + 0.82692E+00) 20030, 40032, 40031 01480820
152: 40031 IF (R2E(1) + 0.82683E+00) 40032, 40032, 20030 01490820
153: 40032 IF (R2E(2) + 0.50000E-04) 20030, 10030, 40030 01500820
154: 40030 IF (R2E(2) - 0.50000E-04) 10030, 10030, 20030 01510820
155: 10030 IVPASS = IVPASS + 1 01520820
156: WRITE (NUVI, 80002) IVTNUM 01530820
157: GO TO 0031 01540820
158: 20030 IVFAIL = IVFAIL + 1 01550820
159: ZVCORR = (-0.82687954053200, 0.00000000000000) 01560820
160: WRITE (NUVI, 80045) IVTNUM, AVC, ZVCORR 01570820
161: 0031 CONTINUE 01580820
162: CT004* TEST 4 EXPRESSION PRESENTED TO CSIN 01590820
163: IVTNUM = 4 01600820
164: AVC = CSIN(( 150.0, 350.0) / (100.0, 0.0)) 01610820
165: IF (R2E(1) - 0.16530E+02) 20040, 40042, 40041 01620820
166: 40041 IF (R2E(1) - 0.16533E+02) 40042, 40042, 20040 01630820
167: 40042 IF (R2E(2) - 0.11701E+01) 20040, 10040, 40040 01640820
168: 40040 IF (R2E(2) - 0.11703E+01) 10040, 10040, 20040 01650820
169: 10040 IVPASS = IVPASS + 1 01660820
170: WRITE (NUVI, 80002) IVTNUM 01670820
171: GO TO 0041 01680820
172: 20040 IVFAIL = IVFAIL + 1 01690820
173: ZVCORR = (16.531309523248, 1.1701791625591) 01700820
174: WRITE (NUVI, 80045) IVTNUM, AVC, ZVCORR 01710820
175: 0041 CONTINUE 01720820
176: CT005* TEST 5 VARIABLE PRESENTED TO CSIN 01730820
177: IVTNUM = 5 01740820
178: BVC = ( 4.75, 2.50) - (9.50, 1.25) 01750820
179: AVC = CSIN(BVC) 01760820
180: IF (R2E(1) - 0.18870E+01) 20050, 40052, 40051 01770820
181: 40051 IF (R2E(1) - 0.18872E+01) 40052, 40052, 20050 01780820
182: 40052 IF (R2E(2) - 0.60232E-01) 20050, 10050, 40050 01790820
183: 40050 IF (R2E(2) - 0.60239E-01) 10050, 10050, 20050 01800820
184: 10050 IVPASS = IVPASS + 1 01810820
185: WRITE (NUVI, 80002) IVTNUM 01820820
186: GO TO 0051 01830820
187: 20050 IVFAIL = IVFAIL + 1 01840820
188: ZVCORR = (1.8870883629759, 0.060235606171638) 01850820
189: WRITE (NUVI, 80045) IVTNUM, AVC, ZVCORR 01860820
190: 0051 CONTINUE 01870820
191: CT006* TEST 6 VARIABLE PRESENTED TO CSIN 01880820
192: IVTNUM = 6 01890820
193: BVC = ( 0.125, 2.0) * (10.0, 0.0) 01900820
194: AVC = CSIN(BVC) 01910820
195: IF (R2E(1) - 0.23019E+09) 20060, 40062, 40061 01920820
196: 40061 IF (R2E(1) - 0.23022E+09) 40062, 40062, 20060 01930820
197: 40062 IF (R2E(2) - 0.76487E+08) 20060, 10060, 40060 01940820
198: 40060 IF (R2E(2) - 0.76496E+08) 10060, 10060, 20060 01950820
199: 10060 IVPASS = IVPASS + 1 01960820
200: WRITE (NUVI, 80002) IVTNUM 01970820
201: GO TO 0061 01980820
202: 20060 IVFAIL = IVFAIL + 1 01990820
203: ZVCORR = (230207154.14527, 76491717.784289) 02000820
204: WRITE (NUVI, 80145) IVTNUM, AVC, ZVCORR 02010820
205: 80145 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED: , 02020820
206: 1 1H(,E12.5,2H, ,E12.5,1H)/,1H ,16X,10HCORRECT: , 02030820
207: 2 1H(,E12.5,2H, ,E12.5,1H)) 02040820
208: 0061 CONTINUE 02050820
209: CT007* TEST 7 TEST WHERE REAL IS ZERO 02060820
210: IVTNUM = 7 02070820
211: BVC = ( 0.0, 1.0) 02080820
212: AVC = CSIN(BVC) 02090820
213: IF (R2E(1) + 0.50000E-04) 20070, 40072, 40071 02100820
214: 40071 IF (R2E(1) - 0.50000E-04) 40072, 40072, 20070 02110820
215: 40072 IF (R2E(2) - 0.11751E+01) 20070, 10070, 40070 02120820
216: 40070 IF (R2E(2) - 0.11753E+01) 10070, 10070, 20070 02130820
217: 10070 IVPASS = IVPASS + 1 02140820
218: WRITE (NUVI, 80002) IVTNUM 02150820
219: GO TO 0071 02160820
220: 20070 IVFAIL = IVFAIL + 1 02170820
221: ZVCORR = (0.00000000000000, 1.1752011936438) 02180820
222: WRITE (NUVI, 80045) IVTNUM, AVC, ZVCORR 02190820
223: 0071 CONTINUE 02200820
224: CT008* TEST 8 TEST WHERE REAL IS ZERO 02210820
225: IVTNUM = 8 02220820
226: BVC = ( 0.0, -4.75) 02230820
227: AVC = CSIN(BVC) 02240820
228: IF (R2E(1) + 0.50000E-04) 20080, 40082, 40081 02250820
229: 40081 IF (R2E(1) - 0.50000E-04) 40082, 40082, 20080 02260820
230: 40082 IF (R2E(2) + 0.57791E+02) 20080, 10080, 40080 02270820
231: 40080 IF (R2E(2) + 0.57785E+02) 10080, 10080, 20080 02280820
232: 10080 IVPASS = IVPASS + 1 02290820
233: WRITE (NUVI, 80002) IVTNUM 02300820
234: GO TO 0081 02310820
235: 20080 IVFAIL = IVFAIL + 1 02320820
236: ZVCORR = (0.00000000000000, -57.787816415992) 02330820
237: WRITE (NUVI, 80045) IVTNUM, AVC, ZVCORR 02340820
238: 0081 CONTINUE 02350820
239: CT009* TEST 9 TEST WHERE REAL IS ZERO 02360820
240: IVTNUM = 9 02370820
241: AVC = CSIN(( 0.0, -10.0)) 02380820
242: IF (R2E(1) + 0.50000E-04) 20090, 40092, 40091 02390820
243: 40091 IF (R2E(1) - 0.50000E-04) 40092, 40092, 20090 02400820
244: 40092 IF (R2E(2) + 0.11014E+05) 20090, 10090, 40090 02410820
245: 40090 IF (R2E(2) + 0.11012E+05) 10090, 10090, 20090 02420820
246: 10090 IVPASS = IVPASS + 1 02430820
247: WRITE (NUVI, 80002) IVTNUM 02440820
248: GO TO 0091 02450820
249: 20090 IVFAIL = IVFAIL + 1 02460820
250: ZVCORR = (0.00000000000000, -11013.232874703) 02470820
251: WRITE (NUVI, 80045) IVTNUM, AVC, ZVCORR 02480820
252: 0091 CONTINUE 02490820
253: C***** 02500820
254: WRITE (NUVI, 90002) 02510820
255: WRITE (NUVI, 90013) 02520820
256: WRITE (NUVI, 90014) 02530820
257: C***** 02540820
258: WRITE(NUVI, 18811) 02550820
259: 18811 FORMAT(/ 08X, 12HTEST OF CCOS) 02560820
260: CT010* TEST 10 TEST FOR ZERO (0.0, 0.0) 02570820
261: IVTNUM = 10 02580820
262: AVC = CCOS(( 0.0, 0.0)) 02590820
263: IF (R2E(1) - 0.99995E+00) 20100, 40102, 40101 02600820
264: 40101 IF (R2E(1) - 0.10001E+01) 40102, 40102, 20100 02610820
265: 40102 IF (R2E(2) + 0.50000E-04) 20100, 10100, 40100 02620820
266: 40100 IF (R2E(2) - 0.50000E-04) 10100, 10100, 20100 02630820
267: 10100 IVPASS = IVPASS + 1 02640820
268: WRITE (NUVI, 80002) IVTNUM 02650820
269: GO TO 0101 02660820
270: 20100 IVFAIL = IVFAIL + 1 02670820
271: ZVCORR = (1.00000000000000, 0.00000000000000) 02680820
272: WRITE (NUVI, 80045) IVTNUM, AVC, ZVCORR 02690820
273: 0101 CONTINUE 02700820
274: CT011* TEST 11 TEST WITH ZERO IMAGINARY, CCOS = COS 02710820
275: IVTNUM = 11 02720820
276: AVC = CCOS((3.5, 1.0) - (0.0, 1.0)) 02730820
277: IF (R2E(1) + 0.93651E+00) 20110, 40112, 40111 02740820
278: 40111 IF (R2E(1) + 0.93641E+00) 40112, 40112, 20110 02750820
279: 40112 IF (R2E(2) + 0.50000E-04) 20110, 10110, 40110 02760820
280: 40110 IF (R2E(2) - 0.50000E-04) 10110, 10110, 20110 02770820
281: 10110 IVPASS = IVPASS + 1 02780820
282: WRITE (NUVI, 80002) IVTNUM 02790820
283: GO TO 0111 02800820
284: 20110 IVFAIL = IVFAIL + 1 02810820
285: ZVCORR = (-0.93645668729080, 0.00000000000000) 02820820
286: WRITE (NUVI, 80045) IVTNUM, AVC, ZVCORR 02830820
287: 0111 CONTINUE 02840820
288: CT012* TEST 12 EXPRESSION PRESENTED TO CCOS 02850820
289: IVTNUM = 12 02860820
290: AVC = CCOS(( 3.1416, 0.0) * (-10000.0, 0.0)) 02870820
291: IF (R2E(1) - 0.99725E+00) 20120, 40122, 40121 02880820
292: 40121 IF (R2E(1) - 0.99736E+00) 40122, 40122, 20120 02890820
293: 40122 IF (R2E(2) + 0.50000E-04) 20120, 10120, 40120 02900820
294: 40120 IF (R2E(2) - 0.50000E-04) 10120, 10120, 20120 02910820
295: 10120 IVPASS = IVPASS + 1 02920820
296: WRITE (NUVI, 80002) IVTNUM 02930820
297: GO TO 0121 02940820
298: 20120 IVFAIL = IVFAIL + 1 02950820
299: ZVCORR = (0.99730272627420, 0.00000000000000) 02960820
300: WRITE (NUVI, 80045) IVTNUM, AVC, ZVCORR 02970820
301: 70121 FORMAT (1H ,16X,34HINFORMATIVE - UNDER REVIEW BY FSTC) 02970*TI
302: WRITE (NUVI,70121) 02970*TI
303: 0121 CONTINUE 02980820
304: CT013* TEST 13 EXPRESSION PRESENTED TO CCOS 02990820
305: IVTNUM = 13 03000820
306: AVC = CCOS(( 3.5, 5.5) - (2.0, 2.0)) 03010820
307: IF (R2E(1) - 0.11722E+01) 20130, 40132, 40131 03020820
308: 40131 IF (R2E(1) - 0.11724E+01) 40132, 40132, 20130 03030820
309: 40132 IF (R2E(2) + 0.16502E+02) 20130, 10130, 40130 03040820
310: 40130 IF (R2E(2) + 0.16500E+02) 10130, 10130, 20130 03050820
311: 10130 IVPASS = IVPASS + 1 03060820
312: WRITE (NUVI, 80002) IVTNUM 03070820
313: GO TO 0131 03080820
314: 20130 IVFAIL = IVFAIL + 1 03090820
315: ZVCORR = (1.1723152409601, -16.501187784675) 03100820
316: WRITE (NUVI, 80045) IVTNUM, AVC, ZVCORR 03110820
317: 0131 CONTINUE 03120820
318: CT014* TEST 14 VARIABLE WITHIN AN EXPRESSION 03130820
319: IVTNUM = 14 03140820
320: BVC = ( 4.75, 1.25) 03150820
321: AVC = CCOS(BVC - (9.50, 0.0)) 03160820
322: IF (R2E(1) - 0.71005E-01) 20140, 40142, 40141 03170820
323: 40141 IF (R2E(1) - 0.71013E-01) 40142, 40142, 20140 03180820
324: 40142 IF (R2E(2) + 0.16009E+01) 20140, 10140, 40140 03190820
325: 40140 IF (R2E(2) + 0.16007E+01) 10140, 10140, 20140 03200820
326: 10140 IVPASS = IVPASS + 1 03210820
327: WRITE (NUVI, 80002) IVTNUM 03220820
328: GO TO 0141 03230820
329: 20140 IVFAIL = IVFAIL + 1 03240820
330: ZVCORR = (0.071008803346314, -1.6007861854666) 03250820
331: WRITE (NUVI, 80045) IVTNUM, AVC, ZVCORR 03260820
332: 0141 CONTINUE 03270820
333: CT015* TEST 15 VARIABLE WITHIN AN EXPRESSION 03280820
334: IVTNUM = 15 03290820
335: BVC = ( 1.00, 10.0) 03300820
336: AVC = CCOS(BVC + ( 0.25, 10.0)) 03310820
337: IF (R2E(1) - 0.76487E+08) 20150, 40152, 40151 03320820
338: 40151 IF (R2E(1) - 0.76496E+08) 40152, 40152, 20150 03330820
339: 40152 IF (R2E(2) + 0.23022E+09) 20150, 10150, 40150 03340820
340: 40150 IF (R2E(2) + 0.23019E+09) 10150, 10150, 20150 03350820
341: 10150 IVPASS = IVPASS + 1 03360820
342: WRITE (NUVI, 80002) IVTNUM 03370820
343: GO TO 0151 03380820
344: 20150 IVFAIL = IVFAIL + 1 03390820
345: ZVCORR = (76491717.784289, -230207154.14527) 03400820
346: WRITE (NUVI, 80145) IVTNUM, AVC, ZVCORR 03410820
347: 0151 CONTINUE 03420820
348: CT016* TEST 16 TEST WITH ZERO REAL PART 03430820
349: IVTNUM = 16 03440820
350: BVC = ( 0.0, 1.0) 03450820
351: AVC = CCOS(BVC) 03460820
352: IF (R2E(1) - 0.15430E+01) 20160, 40162, 40161 03470820
353: 40161 IF (R2E(1) - 0.15432E+01) 40162, 40162, 20160 03480820
354: 40162 IF (R2E(2) + 0.50000E-04) 20160, 10160, 40160 03490820
355: 40160 IF (R2E(2) - 0.50000E-04) 10160, 10160, 20160 03500820
356: 10160 IVPASS = IVPASS + 1 03510820
357: WRITE (NUVI, 80002) IVTNUM 03520820
358: GO TO 0161 03530820
359: 20160 IVFAIL = IVFAIL + 1 03540820
360: ZVCORR = (1.5430806348152, 0.00000000000000) 03550820
361: WRITE (NUVI, 80045) IVTNUM, AVC, ZVCORR 03560820
362: 0161 CONTINUE 03570820
363: CT017* TEST 17 TEST WITH ZERO REAL PART 03580820
364: IVTNUM = 17 03590820
365: BVC = ( 0.0, -4.75) 03600820
366: AVC = CCOS(BVC) 03610820
367: IF (R2E(1) - 0.57793E+02) 20170, 40172, 40171 03620820
368: 40171 IF (R2E(1) - 0.57800E+02) 40172, 40172, 20170 03630820
369: 40172 IF (R2E(2) + 0.50000E-04) 20170, 10170, 40170 03640820
370: 40170 IF (R2E(2) - 0.50000E-04) 10170, 10170, 20170 03650820
371: 10170 IVPASS = IVPASS + 1 03660820
372: WRITE (NUVI, 80002) IVTNUM 03670820
373: GO TO 0171 03680820
374: 20170 IVFAIL = IVFAIL + 1 03690820
375: ZVCORR = (57.796468111195, 0.00000000000000) 03700820
376: WRITE (NUVI, 80045) IVTNUM, AVC, ZVCORR 03710820
377: 0171 CONTINUE 03720820
378: CT018* TEST 18 TEST WITH ZERO REAL PART 03730820
379: IVTNUM = 18 03740820
380: AVC = CCOS(( 0.0, -10.0)) 03750820
381: IF (R2E(1) - 0.11012E+05) 20180, 40182, 40181 03760820
382: 40181 IF (R2E(1) - 0.11014E+05) 40182, 40182, 20180 03770820
383: 40182 IF (R2E(2) + 0.50000E-04) 20180, 10180, 40180 03780820
384: 40180 IF (R2E(2) - 0.50000E-04) 10180, 10180, 20180 03790820
385: 10180 IVPASS = IVPASS + 1 03800820
386: WRITE (NUVI, 80002) IVTNUM 03810820
387: GO TO 0181 03820820
388: 20180 IVFAIL = IVFAIL + 1 03830820
389: ZVCORR = (11013.232920103, 0.00000000000000) 03840820
390: WRITE (NUVI, 80045) IVTNUM, AVC, ZVCORR 03850820
391: 0181 CONTINUE 03860820
392: CT019* TEST 19 THE FUNCTION TOGETHER WITH CSIN AND CABS 03870820
393: IVTNUM = 19 03880820
394: DVS = (CABS(CCOS((-2.25, 0.0))) ** 2) + 03890820
395: 1 (CABS(CSIN((-2.25, 0.0))) ** 2) 03900820
396: IF (DVS - 0.99995E+00) 20190, 10190, 40190 03910820
397: 40190 IF (DVS - 0.10001E+01) 10190, 10190, 20190 03920820
398: 10190 IVPASS = IVPASS + 1 03930820
399: WRITE (NUVI, 80002) IVTNUM 03940820
400: GO TO 0191 03950820
401: 20190 IVFAIL = IVFAIL + 1 03960820
402: RVCORR = 1.00000000000000 03970820
403: WRITE (NUVI, 80012) IVTNUM, DVS, RVCORR 03980820
404: 0191 CONTINUE 03990820
405: C***** 04000820
406: CBB** ********************** BBCSUM0 **********************************04010820
407: C**** WRITE OUT TEST SUMMARY 04020820
408: C**** 04030820
409: IVTOTN = IVPASS + IVFAIL + IVDELE + IVINSP 04040820
410: WRITE (I02, 90004) 04050820
411: WRITE (I02, 90014) 04060820
412: WRITE (I02, 90004) 04070820
413: WRITE (I02, 90020) IVPASS 04080820
414: WRITE (I02, 90022) IVFAIL 04090820
415: WRITE (I02, 90024) IVDELE 04100820
416: WRITE (I02, 90026) IVINSP 04110820
417: WRITE (I02, 90028) IVTOTN, IVTOTL 04120820
418: CBE** ********************** BBCSUM0 **********************************04130820
419: CBB** ********************** BBCFOOT0 **********************************04140820
420: C**** WRITE OUT REPORT FOOTINGS 04150820
421: C**** 04160820
422: WRITE (I02,90016) ZPROG, ZPROG 04170820
423: WRITE (I02,90018) ZPROJ, ZNAME, ZTAPE, ZTAPED 04180820
424: WRITE (I02,90019) 04190820
425: CBE** ********************** BBCFOOT0 **********************************04200820
426: CBB** ********************** BBCFMT0A **********************************04210820
427: C**** FORMATS FOR TEST DETAIL LINES 04220820
428: C**** 04230820
429: 80000 FORMAT (1H ,2X,I3,4X,7HDELETED,32X,A31) 04240820
430: 80002 FORMAT (1H ,2X,I3,4X,7H PASS ,32X,A31) 04250820
431: 80004 FORMAT (1H ,2X,I3,4X,7HINSPECT,32X,A31) 04260820
432: 80008 FORMAT (1H ,2X,I3,4X,7H FAIL ,32X,A31) 04270820
433: 80010 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,15X,10HCOMPUTED= , 04280820
434: 1I6,/,1H ,15X,10HCORRECT= ,I6) 04290820
435: 80012 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 04300820
436: 1E12.5,/,1H ,16X,10HCORRECT= ,E12.5) 04310820
437: 80018 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 04320820
438: 1A21,/,1H ,16X,10HCORRECT= ,A21) 04330820
439: 80020 FORMAT (1H ,16X,10HCOMPUTED= ,A21,1X,A31) 04340820
440: 80022 FORMAT (1H ,16X,10HCORRECT= ,A21,1X,A31) 04350820
441: 80024 FORMAT (1H ,16X,10HCOMPUTED= ,I6,16X,A31) 04360820
442: 80026 FORMAT (1H ,16X,10HCORRECT= ,I6,16X,A31) 04370820
443: 80028 FORMAT (1H ,16X,10HCOMPUTED= ,E12.5,10X,A31) 04380820
444: 80030 FORMAT (1H ,16X,10HCORRECT= ,E12.5,10X,A31) 04390820
445: 80050 FORMAT (1H ,48X,A31) 04400820
446: CBE** ********************** BBCFMT0A **********************************04410820
447: CBB** ********************** BBCFMAT1 **********************************04420820
448: C**** FORMATS FOR TEST DETAIL LINES - FULL LANGUAGE 04430820
449: C**** 04440820
450: 80031 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 04450820
451: 1D17.10,/,1H ,16X,10HCORRECT= ,D17.10) 04460820
452: 80033 FORMAT (1H ,16X,10HCOMPUTED= ,D17.10,10X,A31) 04470820
453: 80035 FORMAT (1H ,16X,10HCORRECT= ,D17.10,10X,A31) 04480820
454: 80037 FORMAT (1H ,16X,10HCOMPUTED= ,1H(,E12.5,2H, ,E12.5,1H),6X,A31) 04490820
455: 80039 FORMAT (1H ,16X,10HCORRECT= ,1H(,E12.5,2H, ,E12.5,1H),6X,A31) 04500820
456: 80041 FORMAT (1H ,16X,10HCOMPUTED= ,1H(,F12.5,2H, ,F12.5,1H),6X,A31) 04510820
457: 80043 FORMAT (1H ,16X,10HCORRECT= ,1H(,F12.5,2H, ,F12.5,1H),6X,A31) 04520820
458: 80045 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 04530820
459: 11H(,F12.5,2H, ,F12.5,1H)/,1H ,16X,10HCORRECT= , 04540820
460: 21H(,F12.5,2H, ,F12.5,1H)) 04550820
461: CBE** ********************** BBCFMAT1 **********************************04560820
462: CBB** ********************** BBCFMT0B **********************************04570820
463: C**** FORMAT STATEMENTS FOR PAGE HEADERS 04580820
464: C**** 04590820
465: 90002 FORMAT (1H1) 04600820
466: 90004 FORMAT (1H ) 04610820
467: 90006 FORMAT (1H ,20X,31HFEDERAL SOFTWARE TESTING CENTER) 04620820
468: 90007 FORMAT (1H ,19X,34HFORTRAN COMPILER VALIDATION SYSTEM) 04630820
469: 90008 FORMAT (1H ,21X,A13,A17) 04640820
470: 90009 FORMAT (1H ,/,2H *,A5,6HBEGIN*,12X,15HTEST RESULTS - ,A5,/) 04650820
471: 90010 FORMAT (1H ,8X,16HTEST DATE*TIME= ,A17,15H - COMPILER= ,A20) 04660820
472: 90013 FORMAT (1H ,8H TEST ,10HPASS/FAIL ,6X,17HDISPLAYED RESULTS, 04670820
473: 1 7X,7HREMARKS,24X) 04680820
474: 90014 FORMAT (1H ,46H----------------------------------------------, 04690820
475: 1 33H---------------------------------) 04700820
476: 90015 FORMAT (1H ,48X,17HTHIS PROGRAM HAS ,I3,6H TESTS,/) 04710820
477: C**** 04720820
478: C**** FORMAT STATEMENTS FOR REPORT FOOTINGS 04730820
479: C**** 04740820
480: 90016 FORMAT (1H ,/,2H *,A5,4HEND*,14X,14HEND OF TEST - ,A5,/) 04750820
481: 90018 FORMAT (1H ,A13,13X,A20,7H * ,A10,1H/, 04760820
482: 1 A13) 04770820
483: 90019 FORMAT (1H ,26HFOR OFFICIAL USE ONLY ,35X,15HCOPYRIGHT 1982) 04780820
484: C**** 04790820
485: C**** FORMAT STATEMENTS FOR RUN SUMMARY 04800820
486: C**** 04810820
487: 90020 FORMAT (1H ,21X,I5,13H TESTS PASSED) 04820820
488: 90022 FORMAT (1H ,21X,I5,13H TESTS FAILED) 04830820
489: 90024 FORMAT (1H ,21X,I5,14H TESTS DELETED) 04840820
490: 90026 FORMAT (1H ,21X,I5,25H TESTS REQUIRE INSPECTION) 04850820
491: 90028 FORMAT (1H ,21X,I5,4H OF ,I3,15H TESTS EXECUTED) 04860820
492: CBE** ********************** BBCFMT0B **********************************04870820
493: C***** 04880820
494: C***** END OF TEST SEGMENT 188 04890820
495: STOP 04900820
496: END 04910820
497: 04920820
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.