![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to FM829.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 FM829.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***********************************************************************00010829
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 00020829
6: C***** FM829 00030829
7: C***** YGEN1 - (206) 00040829
8: C***** 00050829
9: C***********************************************************************00060829
10: C***** TESTING OF GENERIC FUNCTIONS ANS REF 00070829
11: C***** INT, REAL, DBLE, CMPLX 15.3 00080829
12: C***** TABLE 5 00090829
13: CBB** ********************** BBCCOMNT **********************************00100829
14: C**** 00110829
15: C**** 1978 FORTRAN COMPILER VALIDATION SYSTEM 00120829
16: C**** VERSION 2.0 00130829
17: C**** 00140829
18: C**** 00150829
19: C**** SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00160829
20: C**** GENERAL SERVICES ADMINISTRATION 00170829
21: C**** FEDERAL SOFTWARE TESTING CENTER 00180829
22: C**** 5203 LEESBURG PIKE, SUITE 1100 00190829
23: C**** FALLS CHURCH, VA. 22041 00200829
24: C**** 00210829
25: C**** (703) 756-6153 00220829
26: C**** 00230829
27: CBE** ********************** BBCCOMNT **********************************00240829
28: C***** 00250829
29: C***** S P E C I F I C A T I O N S SEGMENT 206 00260829
30: DOUBLE PRECISION AVD, BVD, CVD, DVCORR 00270829
31: COMPLEX AVC, BVC, CVC, ZVCORR 00280829
32: REAL R2E(2) 00290829
33: EQUIVALENCE (BVC, R2E) 00300829
34: C***** 00310829
35: CBB** ********************** BBCINITA **********************************00320829
36: C**** SPECIFICATION STATEMENTS 00330829
37: C**** 00340829
38: CHARACTER ZVERS*13, ZVERSD*17, ZDATE*17, ZPROG*5, ZCOMPL*20, 00350829
39: 1 ZNAME*20, ZTAPE*10, ZPROJ*13, REMRKS*31, ZTAPED*13 00360829
40: CBE** ********************** BBCINITA **********************************00370829
41: CBB** ********************** BBCINITB **********************************00380829
42: C**** INITIALIZE SECTION 00390829
43: DATA ZVERS, ZVERSD, ZDATE 00400829
44: 1 /'VERSION 2.0 ', '82/08/02*18.33.46', '*NO DATE*TIME'/ 00410829
45: DATA ZCOMPL, ZNAME, ZTAPE 00420829
46: 1 /'*NONE SPECIFIED*', '*NO COMPANY NAME*', '*NO TAPE*'/ 00430829
47: DATA ZPROJ, ZTAPED, ZPROG 00440829
48: 1 /'*NO PROJECT*', '*NO TAPE DATE', 'XXXXX'/ 00450829
49: DATA REMRKS /' '/ 00460829
50: C**** THE FOLLOWING 9 COMMENT LINES (CZ01, CZ02, ...) CAN BE REPLACED 00470829
51: C**** FOR IDENTIFYING THE TEST ENVIRONMENT 00480829
52: C**** 00490829
53: CZ01 ZVERS = 'VERSION OF THE COMPILER VALIDATION SYSTEM' 00500829
54: CZ02 ZVERSD = 'CREATION DATE/TIME OF THE COMPILER VALIDATION SYSTEM' 00510829
55: CZ03 ZPROG = 'PROGRAM NAME' 00520829
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 00590829
63: IVPASS = 0 00600829
64: IVFAIL = 0 00610829
65: IVDELE = 0 00620829
66: IVINSP = 0 00630829
67: IVTOTL = 0 00640829
68: IVTOTN = 0 00650829
69: ICZERO = 0 00660829
70: C 00670829
71: C I01 CONTAINS THE LOGICAL UNIT NUMBER FOR THE CARD READER. 00680829
72: I01 = 05 00690829
73: C I02 CONTAINS THE LOGICAL UNIT NUMBER FOR THE PRINTER. 00700829
74: I02 = 06 00710829
75: C 00720829
76: I01 = 5 00730829
77: C THE CX010 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I01 = 5 00740829
78: CX011 REPLACED BY FEXEC X-011 CONTROL CARD. CX011 IS FOR SYSTEMS 00750829
79: C REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX010. 00760829
80: C 00770829
81: I02 = 6 00780829
82: C THE CX020 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I02= 6 00790829
83: CX021 REPLACED BY FEXEC X-021 CONTROL CARD. CX021 IS FOR SYSTEMS 00800829
84: C REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX020. 00810829
85: C 00820829
86: CBE** ********************** BBCINITB **********************************00830829
87: NUVI = I02 00840829
88: IVTOTL = 35 00850829
89: ZPROG = 'FM829' 00860829
90: CBB** ********************** BBCHED0A **********************************00870829
91: C**** 00880829
92: C**** WRITE REPORT TITLE 00890829
93: C**** 00900829
94: WRITE (I02, 90002) 00910829
95: WRITE (I02, 90006) 00920829
96: WRITE (I02, 90007) 00930829
97: WRITE (I02, 90008) ZVERS, ZVERSD 00940829
98: WRITE (I02, 90009) ZPROG, ZPROG 00950829
99: WRITE (I02, 90010) ZDATE, ZCOMPL 00960829
100: CBE** ********************** BBCHED0A **********************************00970829
101: C***** 00980829
102: C***** HEADER FOR SEGMENT 206 00990829
103: WRITE(NUVI,20600) 01000829
104: 20600 FORMAT( 1H , / 35H YGEN1 - (206) GENERIC FUNCTIONS --// 01010829
105: 1 24H INT, REAL, DBLE, CMPLX// 01020829
106: 2 17H ANS REF. - 15.3) 01030829
107: CBB** ********************** BBCHED0B **********************************01040829
108: C**** WRITE DETAIL REPORT HEADERS 01050829
109: C**** 01060829
110: WRITE (I02,90004) 01070829
111: WRITE (I02,90004) 01080829
112: WRITE (I02,90013) 01090829
113: WRITE (I02,90014) 01100829
114: WRITE (I02,90015) IVTOTL 01110829
115: CBE** ********************** BBCHED0B **********************************01120829
116: C***** 01130829
117: CT001* TEST 1 TEST OF INT 01140829
118: C***** WITH INTEGER ARG 01150829
119: IVTNUM = 1 01160829
120: LVI = INT(485) 01170829
121: IF (LVI - 485) 20010, 10010, 20010 01180829
122: 10010 IVPASS = IVPASS + 1 01190829
123: WRITE (NUVI, 80002) IVTNUM 01200829
124: GO TO 0011 01210829
125: 20010 IVFAIL = IVFAIL + 1 01220829
126: IVCORR = 485 01230829
127: WRITE (NUVI, 80010) IVTNUM, LVI, IVCORR 01240829
128: 0011 CONTINUE 01250829
129: CT002* TEST 2 WITH DOUBLE PREC ARG 01260829
130: IVTNUM = 2 01270829
131: LVI = INT(1.375D0) 01280829
132: IF (LVI - 1) 20020, 10020, 20020 01290829
133: 10020 IVPASS = IVPASS + 1 01300829
134: WRITE (NUVI, 80002) IVTNUM 01310829
135: GO TO 0021 01320829
136: 20020 IVFAIL = IVFAIL + 1 01330829
137: IVCORR = 1 01340829
138: WRITE (NUVI, 80010) IVTNUM, LVI, IVCORR 01350829
139: 0021 CONTINUE 01360829
140: CT003* TEST 3 WITH COMPLEX ARG 01370829
141: IVTNUM = 3 01380829
142: LVI = INT((1.24, 5.67)) 01390829
143: IF (LVI - 1) 20030, 10030, 20030 01400829
144: 10030 IVPASS = IVPASS + 1 01410829
145: WRITE (NUVI, 80002) IVTNUM 01420829
146: GO TO 0031 01430829
147: 20030 IVFAIL = IVFAIL + 1 01440829
148: IVCORR = 1 01450829
149: WRITE (NUVI, 80010) IVTNUM, LVI, IVCORR 01460829
150: 0031 CONTINUE 01470829
151: CT004* TEST 4 TEST OF INT AND IFIX 01480829
152: C***** WITH REAL ARGS 01490829
153: IVTNUM = 4 01500829
154: LVI = INT(6.0001) + IFIX(-1.750) 01510829
155: IF (LVI - 5) 20040, 10040, 20040 01520829
156: 10040 IVPASS = IVPASS + 1 01530829
157: WRITE (NUVI, 80002) IVTNUM 01540829
158: GO TO 0041 01550829
159: 20040 IVFAIL = IVFAIL + 1 01560829
160: IVCORR = 5 01570829
161: WRITE (NUVI, 80010) IVTNUM, LVI, IVCORR 01580829
162: 0041 CONTINUE 01590829
163: CT005* TEST 5 TEST OF INT AND IDINT 01600829
164: C***** WITH DOUBLE PREC ARGS 01610829
165: IVTNUM = 5 01620829
166: AVD = -1.11D1 01630829
167: LVI = INT(AVD) * IDINT(3.5D0) 01640829
168: IF (LVI + 33) 20050, 10050, 20050 01650829
169: 10050 IVPASS = IVPASS + 1 01660829
170: WRITE (NUVI, 80002) IVTNUM 01670829
171: GO TO 0051 01680829
172: 20050 IVFAIL = IVFAIL + 1 01690829
173: IVCORR = -33 01700829
174: WRITE (NUVI, 80010) IVTNUM, LVI, IVCORR 01710829
175: 0051 CONTINUE 01720829
176: CT006* TEST 6 INTEGER, REAL, DOUBLE PRECISION, AND COMPLEX 01730829
177: C***** ARGUMENTS 01740829
178: IVTNUM = 6 01750829
179: LVI = INT(-327) + INT(6.75) * INT(123) - INT(6.0001D0) 01760829
180: 1 / IFIX(13.3) + INT((2.4, 3.5)) + IDINT(-3.375D0) 01770829
181: IF (LVI - 410) 20060, 10060, 20060 01780829
182: 10060 IVPASS = IVPASS + 1 01790829
183: WRITE (NUVI, 80002) IVTNUM 01800829
184: GO TO 0061 01810829
185: 20060 IVFAIL = IVFAIL + 1 01820829
186: IVCORR = 410 01830829
187: WRITE (NUVI, 80010) IVTNUM, LVI, IVCORR 01840829
188: 0061 CONTINUE 01850829
189: CT007* TEST 7 TEST OF REAL 01860829
190: C***** WITH REAL ARG 01870829
191: IVTNUM = 7 01880829
192: AVS = -3.0 01890829
193: BVS = REAL(AVS) 01900829
194: IF (BVS + 0.30002E+01) 20070, 10070, 40070 01910829
195: 40070 IF (BVS + 0.29998E+01) 10070, 10070, 20070 01920829
196: 10070 IVPASS = IVPASS + 1 01930829
197: WRITE (NUVI, 80002) IVTNUM 01940829
198: GO TO 0071 01950829
199: 20070 IVFAIL = IVFAIL + 1 01960829
200: RVCORR = -3.0 01970829
201: WRITE (NUVI, 80012) IVTNUM, BVS, RVCORR 01980829
202: 0071 CONTINUE 01990829
203: CT008* TEST 8 WITH DOUBLE PRECISION 02000829
204: IVTNUM = 8 02010829
205: AVD = 0.96875D0 02020829
206: BVS = REAL(AVD) 02030829
207: IF (BVS - 0.96870E+00) 20080, 10080, 40080 02040829
208: 40080 IF (BVS - 0.96880E+00) 10080, 10080, 20080 02050829
209: 10080 IVPASS = IVPASS + 1 02060829
210: WRITE (NUVI, 80002) IVTNUM 02070829
211: GO TO 0081 02080829
212: 20080 IVFAIL = IVFAIL + 1 02090829
213: RVCORR = 0.96875 02100829
214: WRITE (NUVI, 80012) IVTNUM, BVS, RVCORR 02110829
215: 0081 CONTINUE 02120829
216: CT009* TEST 9 WITH COMPLEX 02130829
217: IVTNUM = 9 02140829
218: BVS = REAL((2.5, -3.0)) 02150829
219: IF (BVS - 0.24998E+01) 20090, 10090, 40090 02160829
220: 40090 IF (BVS - 0.25002E+01) 10090, 10090, 20090 02170829
221: 10090 IVPASS = IVPASS + 1 02180829
222: WRITE (NUVI, 80002) IVTNUM 02190829
223: GO TO 0091 02200829
224: 20090 IVFAIL = IVFAIL + 1 02210829
225: RVCORR = 2.5 02220829
226: WRITE (NUVI, 80012) IVTNUM, BVS, RVCORR 02230829
227: 0091 CONTINUE 02240829
228: CT010* TEST 10 TEST OF REAL AND FLOAT 02250829
229: IVTNUM = 10 02260829
230: BVS = REAL(6) + FLOAT(8) 02270829
231: IF (BVS - 0.13999E+02) 20100, 10100, 40100 02280829
232: 40100 IF (BVS - 0.14001E+02) 10100, 10100, 20100 02290829
233: 10100 IVPASS = IVPASS + 1 02300829
234: WRITE (NUVI, 80002) IVTNUM 02310829
235: GO TO 0101 02320829
236: 20100 IVFAIL = IVFAIL + 1 02330829
237: RVCORR = 14.0 02340829
238: WRITE (NUVI, 80012) IVTNUM, BVS, RVCORR 02350829
239: 0101 CONTINUE 02360829
240: CT011* TEST 11 TEST OF REAL AND SNGL 02370829
241: IVTNUM = 11 02380829
242: AVD = 2.5D0 02390829
243: BVS = REAL(AVD) + SNGL(0.35875D2) 02400829
244: IF (BVS - 0.38373E+02) 20110, 10110, 40110 02410829
245: 40110 IF (BVS - 0.38377E+02) 10110, 10110, 20110 02420829
246: 10110 IVPASS = IVPASS + 1 02430829
247: WRITE (NUVI, 80002) IVTNUM 02440829
248: GO TO 0111 02450829
249: 20110 IVFAIL = IVFAIL + 1 02460829
250: RVCORR = 38.375 02470829
251: WRITE (NUVI, 80012) IVTNUM, BVS, RVCORR 02480829
252: 0111 CONTINUE 02490829
253: CT012* TEST 12 TEST OF REAL, FLOAT, AND SNGL 02500829
254: IVTNUM = 12 02510829
255: BVS = REAL(13) + FLOAT(9) * SNGL(0.7625D1) - REAL(2.625D0) + 02520829
256: 1 REAL(3.5) / REAL((2.0, 4.0)) 02530829
257: IF (BVS - 0.80746E+02) 20120, 10120, 40120 02540829
258: 40120 IF (BVS - 0.80754E+02) 10120, 10120, 20120 02550829
259: 10120 IVPASS = IVPASS + 1 02560829
260: WRITE (NUVI, 80002) IVTNUM 02570829
261: GO TO 0121 02580829
262: 20120 IVFAIL = IVFAIL + 1 02590829
263: RVCORR = 80.75 02600829
264: WRITE (NUVI, 80012) IVTNUM, BVS, RVCORR 02610829
265: 0121 CONTINUE 02620829
266: CT013* TEST 13 TEST OF DBLE 02630829
267: C***** WITH INTEGER ARG 02640829
268: IVTNUM = 13 02650829
269: LVI = 9 02660829
270: BVD = DBLE(LVI) 02670829
271: IF (BVD - 0.89995D+01) 20130, 10130, 40130 02680829
272: 40130 IF (BVD - 0.90005D+01) 10130, 10130, 20130 02690829
273: 10130 IVPASS = IVPASS + 1 02700829
274: WRITE (NUVI, 80002) IVTNUM 02710829
275: GO TO 0131 02720829
276: 20130 IVFAIL = IVFAIL + 1 02730829
277: DVCORR = 9.0D0 02740829
278: WRITE (NUVI, 80031) IVTNUM, BVD, DVCORR 02750829
279: 0131 CONTINUE 02760829
280: CT014* TEST 14 WITH REAL ARG 02770829
281: IVTNUM = 14 02780829
282: AVS = 10.5 02790829
283: BVD = DBLE(AVS) 02800829
284: IF (BVD - 0.10499D+02) 20140, 10140, 40140 02810829
285: 40140 IF (BVD - 0.10501D+02) 10140, 10140, 20140 02820829
286: 10140 IVPASS = IVPASS + 1 02830829
287: WRITE (NUVI, 80002) IVTNUM 02840829
288: GO TO 0141 02850829
289: 20140 IVFAIL = IVFAIL + 1 02860829
290: DVCORR = 10.5D0 02870829
291: WRITE (NUVI, 80031) IVTNUM, BVD, DVCORR 02880829
292: 0141 CONTINUE 02890829
293: CT015* TEST 15 WITH DOUBLE PREC ARG 02900829
294: IVTNUM = 15 02910829
295: AVD = 9.9D0 02920829
296: BVD = DBLE(AVD) 02930829
297: IF (BVD - 0.9899999995D+01) 20150, 10150, 40150 02940829
298: 40150 IF (BVD - 0.9900000005D+01) 10150, 10150, 20150 02950829
299: 10150 IVPASS = IVPASS + 1 02960829
300: WRITE (NUVI, 80002) IVTNUM 02970829
301: GO TO 0151 02980829
302: 20150 IVFAIL = IVFAIL + 1 02990829
303: DVCORR = 9.9D0 03000829
304: WRITE (NUVI, 80031) IVTNUM, BVD, DVCORR 03010829
305: 0151 CONTINUE 03020829
306: CT016* TEST 16 WITH COMPLEX ARG 03030829
307: IVTNUM = 16 03040829
308: AVC = (2.5, 5.5) 03050829
309: BVD = DBLE(AVC) 03060829
310: IF (BVD - 0.24998D+01) 20160, 10160, 40160 03070829
311: 40160 IF (BVD - 0.25002D+01) 10160, 10160, 20160 03080829
312: 10160 IVPASS = IVPASS + 1 03090829
313: WRITE (NUVI, 80002) IVTNUM 03100829
314: GO TO 0161 03110829
315: 20160 IVFAIL = IVFAIL + 1 03120829
316: DVCORR = 2.5D0 03130829
317: WRITE (NUVI, 80031) IVTNUM, BVD, DVCORR 03140829
318: 0161 CONTINUE 03150829
319: CT017* TEST 17 TEST OF CMPLX WITH ONE ARG 03160829
320: C***** WITH INTEGER ARG 03170829
321: IVTNUM = 17 03180829
322: BVC = CMPLX(9) 03190829
323: IF (R2E(1) - 0.89995E+01) 20170, 40172, 40171 03200829
324: 40171 IF (R2E(1) - 0.90005E+01) 40172, 40172, 20170 03210829
325: 40172 IF (R2E(2) + 0.50000E-04) 20170, 10170, 40170 03220829
326: 40170 IF (R2E(2) - 0.50000E-04) 10170, 10170, 20170 03230829
327: 10170 IVPASS = IVPASS + 1 03240829
328: WRITE (NUVI, 80002) IVTNUM 03250829
329: GO TO 0171 03260829
330: 20170 IVFAIL = IVFAIL + 1 03270829
331: ZVCORR = (9,0) 03280829
332: WRITE (NUVI, 80045) IVTNUM, BVC, ZVCORR 03290829
333: 0171 CONTINUE 03300829
334: CT018* TEST 18 WITH REAL 03310829
335: IVTNUM = 18 03320829
336: BVC = CMPLX(4.093) 03330829
337: IF (R2E(1) - 0.40928E+01) 20180, 40182, 40181 03340829
338: 40181 IF (R2E(1) - 0.40932E+01) 40182, 40182, 20180 03350829
339: 40182 IF (R2E(2) + 0.50000E-04) 20180, 10180, 40180 03360829
340: 40180 IF (R2E(2) - 0.50000E-04) 10180, 10180, 20180 03370829
341: 10180 IVPASS = IVPASS + 1 03380829
342: WRITE (NUVI, 80002) IVTNUM 03390829
343: GO TO 0181 03400829
344: 20180 IVFAIL = IVFAIL + 1 03410829
345: ZVCORR = (4.093,0.0) 03420829
346: WRITE (NUVI, 80045) IVTNUM, BVC, ZVCORR 03430829
347: 0181 CONTINUE 03440829
348: CT019* TEST 19 WITH DOUBLE PREC ARG 03450829
349: IVTNUM = 19 03460829
350: AVD = 0.375D-3 03470829
351: BVC = CMPLX(AVD) 03480829
352: IF (R2E(1) - 0.37498E-03) 20190, 40192, 40191 03490829
353: 40191 IF (R2E(1) - 0.37502E-03) 40192, 40192, 20190 03500829
354: 40192 IF (R2E(2) + 0.50000E-04) 20190, 10190, 40190 03510829
355: 40190 IF (R2E(2) - 0.50000E-04) 10190, 10190, 20190 03520829
356: 10190 IVPASS = IVPASS + 1 03530829
357: WRITE (NUVI, 80002) IVTNUM 03540829
358: GO TO 0191 03550829
359: 20190 IVFAIL = IVFAIL + 1 03560829
360: ZVCORR = (0.375E-3, 0.0E0) 03570829
361: WRITE (NUVI, 80045) IVTNUM, BVC, ZVCORR 03580829
362: 0191 CONTINUE 03590829
363: CT020* TEST 20 WITH COMPLEX 03600829
364: IVTNUM = 20 03610829
365: AVC = (4.5, 1.2) 03620829
366: BVC = CMPLX(AVC) 03630829
367: IF (R2E(1) - 0.44997E+01) 20200, 40202, 40201 03640829
368: 40201 IF (R2E(1) - 0.45003E+01) 40202, 40202, 20200 03650829
369: 40202 IF (R2E(2) - 0.11999E+01) 20200, 10200, 40200 03660829
370: 40200 IF (R2E(2) - 0.12001E+01) 10200, 10200, 20200 03670829
371: 10200 IVPASS = IVPASS + 1 03680829
372: WRITE (NUVI, 80002) IVTNUM 03690829
373: GO TO 0201 03700829
374: 20200 IVFAIL = IVFAIL + 1 03710829
375: ZVCORR = (4.5, 1.2) 03720829
376: WRITE (NUVI, 80045) IVTNUM, BVC, ZVCORR 03730829
377: 0201 CONTINUE 03740829
378: CT021* TEST 21 TEST OF CMPLX WITH TWO ARGS 03750829
379: C***** WITH INTEGER ARGS 03760829
380: IVTNUM = 21 03770829
381: BVC = CMPLX(3, 1) 03780829
382: IF (R2E(1) - 0.29998E+01) 20210, 40212, 40211 03790829
383: 40211 IF (R2E(1) - 0.30002E+01) 40212, 40212, 20210 03800829
384: 40212 IF (R2E(2) - 0.99995E+00) 20210, 10210, 40210 03810829
385: 40210 IF (R2E(2) - 0.10001E+01) 10210, 10210, 20210 03820829
386: 10210 IVPASS = IVPASS + 1 03830829
387: WRITE (NUVI, 80002) IVTNUM 03840829
388: GO TO 0211 03850829
389: 20210 IVFAIL = IVFAIL + 1 03860829
390: ZVCORR = (3.0, 1.0) 03870829
391: WRITE (NUVI, 80045) IVTNUM, BVC, ZVCORR 03880829
392: 0211 CONTINUE 03890829
393: CT022* TEST 22 WITH REAL ARGS 03900829
394: IVTNUM = 22 03910829
395: BVC = CMPLX(8.34, 634.3) 03920829
396: IF (R2E(1) - 0.83395E+01) 20220, 40222, 40221 03930829
397: 40221 IF (R2E(1) - 0.83405E+01) 40222, 40222, 20220 03940829
398: 40222 IF (R2E(2) - 0.63426E+03) 20220, 10220, 40220 03950829
399: 40220 IF (R2E(2) - 0.63434E+03) 10220, 10220, 20220 03960829
400: 10220 IVPASS = IVPASS + 1 03970829
401: WRITE (NUVI, 80002) IVTNUM 03980829
402: GO TO 0221 03990829
403: 20220 IVFAIL = IVFAIL + 1 04000829
404: ZVCORR = (8.34, 634.3) 04010829
405: WRITE (NUVI, 80045) IVTNUM, BVC, ZVCORR 04020829
406: 0221 CONTINUE 04030829
407: CT023* TEST 23 WITH DOUBLE PREC ARGS 04040829
408: IVTNUM = 23 04050829
409: AVD = 0.96875D0 04060829
410: BVD = 3.5D-1 04070829
411: BVC = CMPLX(AVD, BVD) 04080829
412: IF (R2E(1) - 0.96870E+00) 20230, 40232, 40231 04090829
413: 40231 IF (R2E(1) - 0.96880E+00) 40232, 40232, 20230 04100829
414: 40232 IF (R2E(2) - 0.34998E+00) 20230, 10230, 40230 04110829
415: 40230 IF (R2E(2) - 0.35002E+00) 10230, 10230, 20230 04120829
416: 10230 IVPASS = IVPASS + 1 04130829
417: WRITE (NUVI, 80002) IVTNUM 04140829
418: GO TO 0231 04150829
419: 20230 IVFAIL = IVFAIL + 1 04160829
420: ZVCORR = (0.96875, 0.35) 04170829
421: WRITE (NUVI, 80045) IVTNUM, BVC, ZVCORR 04180829
422: 0231 CONTINUE 04190829
423: CT024* TEST 24 TEST OF INT AND = 04200829
424: C***** WITH REAL EXPR 04210829
425: IVTNUM = 24 04220829
426: CVS = 0.0 04230829
427: CVD = 0.0D0 04240829
428: CVC = (0.0,0.0) 04250829
429: LVI = 0 04260829
430: AVS = 5.0 04270829
431: IVI = 1.0 * 5.0 + 6.0 04280829
432: KVI = LVI + INT(1.0 * AVS + 6.0) 04290829
433: IF (KVI - 11) 20240, 10240, 20240 04300829
434: 10240 IVPASS = IVPASS + 1 04310829
435: WRITE (NUVI, 80002) IVTNUM 04320829
436: GO TO 0241 04330829
437: 20240 IVFAIL = IVFAIL + 1 04340829
438: IVCORR = 11 04350829
439: WRITE (NUVI, 80010) IVTNUM, KVI, IVCORR 04360829
440: 0241 CONTINUE 04370829
441: CT025* TEST 25 WITH DOUBLE PREC EXPR 04380829
442: IVTNUM = 25 04390829
443: AVD = 3.48D0 04400829
444: IVI = 3.48D0 * 47.98D0 04410829
445: KVI = LVI + INT(AVD * 47.98D0) 04420829
446: IF (KVI - 166) 20250, 10250, 20250 04430829
447: 10250 IVPASS = IVPASS + 1 04440829
448: WRITE (NUVI, 80002) IVTNUM 04450829
449: GO TO 0251 04460829
450: 20250 IVFAIL = IVFAIL + 1 04470829
451: IVCORR = 166 04480829
452: WRITE (NUVI, 80010) IVTNUM, KVI, IVCORR 04490829
453: 0251 CONTINUE 04500829
454: CT026* TEST 26 WITH COMPLEX EXPR 04510829
455: IVTNUM = 26 04520829
456: AVC = (3.9, 5.0) 04530829
457: IVI = (3.4, 4.5) + (3.9, 5.0) 04540829
458: KVI = LVI + INT((3.4, 4.5) + AVC) 04550829
459: IF (KVI - 7) 20260, 10260, 20260 04560829
460: 10260 IVPASS = IVPASS + 1 04570829
461: WRITE (NUVI, 80002) IVTNUM 04580829
462: GO TO 0261 04590829
463: 20260 IVFAIL = IVFAIL + 1 04600829
464: IVCORR = 7 04610829
465: WRITE (NUVI, 80010) IVTNUM, KVI, IVCORR 04620829
466: 0261 CONTINUE 04630829
467: CT027* TEST 27 TEST OF REAL AND = 04640829
468: C***** WITH INT EXPR 04650829
469: IVTNUM = 27 04660829
470: IVI = 20 04670829
471: AVS = 20 + 34 / 20 04680829
472: BVS = CVS + REAL(IVI + 34 / IVI) 04690829
473: IF (BVS - 0.20999E+02) 20270, 10270, 40270 04700829
474: 40270 IF (BVS - 0.21001E+02) 10270, 10270, 20270 04710829
475: 10270 IVPASS = IVPASS + 1 04720829
476: WRITE (NUVI, 80002) IVTNUM 04730829
477: GO TO 0271 04740829
478: 20270 IVFAIL = IVFAIL + 1 04750829
479: RVCORR = 21.0 04760829
480: WRITE (NUVI, 80012) IVTNUM, BVS, RVCORR 04770829
481: 0271 CONTINUE 04780829
482: CT028* TEST 28 WITH DOUBLE PREC EXPR 04790829
483: IVTNUM = 28 04800829
484: JVI = 28 04810829
485: AVD = 0.9834D0 04820829
486: AVS = 3.0748D0 / 0.9834D0 04830829
487: BVS = CVS + REAL(3.0748D0 / AVD) 04840829
488: IF (BVS - 0.31265E+01) 20280, 10280, 40280 04850829
489: 40280 IF (BVS - 0.31269E+01) 10280, 10280, 20280 04860829
490: 10280 IVPASS = IVPASS + 1 04870829
491: WRITE (NUVI, 80002) IVTNUM 04880829
492: GO TO 0281 04890829
493: 20280 IVFAIL = IVFAIL + 1 04900829
494: RVCORR = 3.1267033 04910829
495: WRITE (NUVI, 80012) IVTNUM, BVS, RVCORR 04920829
496: 0281 CONTINUE 04930829
497: CT029* TEST 29 WITH COMPLEX 04940829
498: IVTNUM = 29 04950829
499: JVI = 29 04960829
500: AVC = (1.0, 384.9) 04970829
501: AVS = (3.495, 98.734) * (1.0, 384.9) 04980829
502: BVS = CVS + REAL((3.495, 98.734) * AVC) 04990829
503: IF (BVS + 0.38001E+05) 20290, 10290, 40290 05000829
504: 40290 IF (BVS + 0.37997E+05) 10290, 10290, 20290 05010829
505: 10290 IVPASS = IVPASS + 1 05020829
506: WRITE (NUVI, 80002) IVTNUM 05030829
507: GO TO 0291 05040829
508: 20290 IVFAIL = IVFAIL + 1 05050829
509: RVCORR = -37999.222 05060829
510: WRITE (NUVI, 80012) IVTNUM, BVS, RVCORR 05070829
511: 0291 CONTINUE 05080829
512: CT030* TEST 30 TEST OF DBLE AND = 05090829
513: C***** WITH INTEGER EXPR 05100829
514: IVTNUM = 30 05110829
515: JVI = 30 05120829
516: IVI = 5 05130829
517: AVD = 1 * 5 + 6 05140829
518: BVD = CVD + DBLE(1 * IVI + 6) 05150829
519: IF (BVD - 0.10999D+02) 20300, 10300, 40300 05160829
520: 40300 IF (BVD - 0.11001D+02) 10300, 10300, 20300 05170829
521: 10300 IVPASS = IVPASS + 1 05180829
522: WRITE (NUVI, 80002) IVTNUM 05190829
523: GO TO 0301 05200829
524: 20300 IVFAIL = IVFAIL + 1 05210829
525: DVCORR = .11000000D+02 05220829
526: WRITE (NUVI, 80031) IVTNUM, BVD, DVCORR 05230829
527: 0301 CONTINUE 05240829
528: CT031* TEST 31 WITH REAL EXPR 05250829
529: IVTNUM = 31 05260829
530: JVI = 31 05270829
531: AVS = -4.5 05280829
532: AVD = 1.3 / (-4.5) 05290829
533: BVD = CVD + DBLE(1.3 / AVS) 05300829
534: IF (BVD + 0.28891D+00) 20310, 10310, 40310 05310829
535: 40310 IF (BVD + 0.28887D+00) 10310, 10310, 20310 05320829
536: 10310 IVPASS = IVPASS + 1 05330829
537: WRITE (NUVI, 80002) IVTNUM 05340829
538: GO TO 0311 05350829
539: 20310 IVFAIL = IVFAIL + 1 05360829
540: DVCORR = -0.288888888888888889D+00 05370829
541: WRITE (NUVI, 80031) IVTNUM, BVD, DVCORR 05380829
542: 0311 CONTINUE 05390829
543: CT032* TEST 32 WITH COMPLEX EXPR 05400829
544: IVTNUM = 32 05410829
545: JVI = 32 05420829
546: AVC = (3.9, 5.0) 05430829
547: AVD = (3.4, 4.5) + (3.9, 5.0) 05440829
548: BVD = CVD + DBLE((3.4, 4.5) + AVC) 05450829
549: IF (BVD - 0.72996D+01) 20320, 10320, 40320 05460829
550: 40320 IF (BVD - 0.73004D+01) 10320, 10320, 20320 05470829
551: 10320 IVPASS = IVPASS + 1 05480829
552: WRITE (NUVI, 80002) IVTNUM 05490829
553: GO TO 0321 05500829
554: 20320 IVFAIL = IVFAIL + 1 05510829
555: DVCORR = .73000000D+01 05520829
556: WRITE (NUVI, 80031) IVTNUM, BVD, DVCORR 05530829
557: 0321 CONTINUE 05540829
558: CT033* TEST 33 TEST OF CMPLX AND = 05550829
559: C***** WITH INTEGER EXPR 05560829
560: IVTNUM = 33 05570829
561: JVI = 33 05580829
562: IVI = 673 05590829
563: AVC = 394 - 673 05600829
564: BVC = CVC + CMPLX(394 - IVI) 05610829
565: IF (R2E(1) + 0.27902E+03) 20330, 40332, 40331 05620829
566: 40331 IF (R2E(1) + 0.27898E+03) 40332, 40332, 20330 05630829
567: 40332 IF (R2E(2) + 0.50000E-04) 20330, 10330, 40330 05640829
568: 40330 IF (R2E(2) - 0.50000E-04) 10330, 10330, 20330 05650829
569: 10330 IVPASS = IVPASS + 1 05660829
570: WRITE (NUVI, 80002) IVTNUM 05670829
571: GO TO 0331 05680829
572: 20330 IVFAIL = IVFAIL + 1 05690829
573: ZVCORR = (-279.00000, .00000000) 05700829
574: WRITE (NUVI, 80045) IVTNUM, BVC, ZVCORR 05710829
575: 0331 CONTINUE 05720829
576: CT034* TEST 34 WITH REAL EXPR 05730829
577: IVTNUM = 34 05740829
578: JVI = 34 05750829
579: AVS = 3.48 05760829
580: AVC = 3.48 * 47.98 05770829
581: BVC = CVC + CMPLX(AVS * 47.98) 05780829
582: IF (R2E(1) - 0.16696E+03) 20340, 40342, 40341 05790829
583: 40341 IF (R2E(1) - 0.16698E+03) 40342, 40342, 20340 05800829
584: 40342 IF (R2E(2) + 0.50000E-04) 20340, 10340, 40340 05810829
585: 40340 IF (R2E(2) - 0.50000E-04) 10340, 10340, 20340 05820829
586: 10340 IVPASS = IVPASS + 1 05830829
587: WRITE (NUVI, 80002) IVTNUM 05840829
588: GO TO 0341 05850829
589: 20340 IVFAIL = IVFAIL + 1 05860829
590: ZVCORR = (166.97040, .00000000) 05870829
591: WRITE (NUVI, 80045) IVTNUM, BVC, ZVCORR 05880829
592: 0341 CONTINUE 05890829
593: CT035* TEST 35 05900829
594: IVTNUM = 35 05910829
595: JVI = 35 05920829
596: AVD = 0.94D1 05930829
597: AVC = 3.0283D3 / 0.94D1 05940829
598: BVC = CVC + CMPLX(3.0283D3 / AVD) 05950829
599: IF (R2E(1) - 0.32214E+03) 20350, 40352, 40351 05960829
600: 40351 IF (R2E(1) - 0.32218E+03) 40352, 40352, 20350 05970829
601: 40352 IF (R2E(2) + 0.50000E-04) 20350, 10350, 40350 05980829
602: 40350 IF (R2E(2) - 0.50000E-04) 10350, 10350, 20350 05990829
603: 10350 IVPASS = IVPASS + 1 06000829
604: WRITE (NUVI, 80002) IVTNUM 06010829
605: GO TO 0351 06020829
606: 20350 IVFAIL = IVFAIL + 1 06030829
607: ZVCORR = (322.15957, .000000000) 06040829
608: WRITE (NUVI, 80045) IVTNUM, BVC, ZVCORR 06050829
609: 0351 CONTINUE 06060829
610: C***** 06070829
611: CBB** ********************** BBCSUM0 **********************************06080829
612: C**** WRITE OUT TEST SUMMARY 06090829
613: C**** 06100829
614: IVTOTN = IVPASS + IVFAIL + IVDELE + IVINSP 06110829
615: WRITE (I02, 90004) 06120829
616: WRITE (I02, 90014) 06130829
617: WRITE (I02, 90004) 06140829
618: WRITE (I02, 90020) IVPASS 06150829
619: WRITE (I02, 90022) IVFAIL 06160829
620: WRITE (I02, 90024) IVDELE 06170829
621: WRITE (I02, 90026) IVINSP 06180829
622: WRITE (I02, 90028) IVTOTN, IVTOTL 06190829
623: CBE** ********************** BBCSUM0 **********************************06200829
624: CBB** ********************** BBCFOOT0 **********************************06210829
625: C**** WRITE OUT REPORT FOOTINGS 06220829
626: C**** 06230829
627: WRITE (I02,90016) ZPROG, ZPROG 06240829
628: WRITE (I02,90018) ZPROJ, ZNAME, ZTAPE, ZTAPED 06250829
629: WRITE (I02,90019) 06260829
630: CBE** ********************** BBCFOOT0 **********************************06270829
631: CBB** ********************** BBCFMT0A **********************************06280829
632: C**** FORMATS FOR TEST DETAIL LINES 06290829
633: C**** 06300829
634: 80000 FORMAT (1H ,2X,I3,4X,7HDELETED,32X,A31) 06310829
635: 80002 FORMAT (1H ,2X,I3,4X,7H PASS ,32X,A31) 06320829
636: 80004 FORMAT (1H ,2X,I3,4X,7HINSPECT,32X,A31) 06330829
637: 80008 FORMAT (1H ,2X,I3,4X,7H FAIL ,32X,A31) 06340829
638: 80010 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,15X,10HCOMPUTED= , 06350829
639: 1I6,/,1H ,15X,10HCORRECT= ,I6) 06360829
640: 80012 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 06370829
641: 1E12.5,/,1H ,16X,10HCORRECT= ,E12.5) 06380829
642: 80018 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 06390829
643: 1A21,/,1H ,16X,10HCORRECT= ,A21) 06400829
644: 80020 FORMAT (1H ,16X,10HCOMPUTED= ,A21,1X,A31) 06410829
645: 80022 FORMAT (1H ,16X,10HCORRECT= ,A21,1X,A31) 06420829
646: 80024 FORMAT (1H ,16X,10HCOMPUTED= ,I6,16X,A31) 06430829
647: 80026 FORMAT (1H ,16X,10HCORRECT= ,I6,16X,A31) 06440829
648: 80028 FORMAT (1H ,16X,10HCOMPUTED= ,E12.5,10X,A31) 06450829
649: 80030 FORMAT (1H ,16X,10HCORRECT= ,E12.5,10X,A31) 06460829
650: 80050 FORMAT (1H ,48X,A31) 06470829
651: CBE** ********************** BBCFMT0A **********************************06480829
652: CBB** ********************** BBCFMAT1 **********************************06490829
653: C**** FORMATS FOR TEST DETAIL LINES - FULL LANGUAGE 06500829
654: C**** 06510829
655: 80031 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 06520829
656: 1D17.10,/,1H ,16X,10HCORRECT= ,D17.10) 06530829
657: 80033 FORMAT (1H ,16X,10HCOMPUTED= ,D17.10,10X,A31) 06540829
658: 80035 FORMAT (1H ,16X,10HCORRECT= ,D17.10,10X,A31) 06550829
659: 80037 FORMAT (1H ,16X,10HCOMPUTED= ,1H(,E12.5,2H, ,E12.5,1H),6X,A31) 06560829
660: 80039 FORMAT (1H ,16X,10HCORRECT= ,1H(,E12.5,2H, ,E12.5,1H),6X,A31) 06570829
661: 80041 FORMAT (1H ,16X,10HCOMPUTED= ,1H(,F12.5,2H, ,F12.5,1H),6X,A31) 06580829
662: 80043 FORMAT (1H ,16X,10HCORRECT= ,1H(,F12.5,2H, ,F12.5,1H),6X,A31) 06590829
663: 80045 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 06600829
664: 11H(,F12.5,2H, ,F12.5,1H)/,1H ,16X,10HCORRECT= , 06610829
665: 21H(,F12.5,2H, ,F12.5,1H)) 06620829
666: CBE** ********************** BBCFMAT1 **********************************06630829
667: CBB** ********************** BBCFMT0B **********************************06640829
668: C**** FORMAT STATEMENTS FOR PAGE HEADERS 06650829
669: C**** 06660829
670: 90002 FORMAT (1H1) 06670829
671: 90004 FORMAT (1H ) 06680829
672: 90006 FORMAT (1H ,20X,31HFEDERAL SOFTWARE TESTING CENTER) 06690829
673: 90007 FORMAT (1H ,19X,34HFORTRAN COMPILER VALIDATION SYSTEM) 06700829
674: 90008 FORMAT (1H ,21X,A13,A17) 06710829
675: 90009 FORMAT (1H ,/,2H *,A5,6HBEGIN*,12X,15HTEST RESULTS - ,A5,/) 06720829
676: 90010 FORMAT (1H ,8X,16HTEST DATE*TIME= ,A17,15H - COMPILER= ,A20) 06730829
677: 90013 FORMAT (1H ,8H TEST ,10HPASS/FAIL ,6X,17HDISPLAYED RESULTS, 06740829
678: 1 7X,7HREMARKS,24X) 06750829
679: 90014 FORMAT (1H ,46H----------------------------------------------, 06760829
680: 1 33H---------------------------------) 06770829
681: 90015 FORMAT (1H ,48X,17HTHIS PROGRAM HAS ,I3,6H TESTS,/) 06780829
682: C**** 06790829
683: C**** FORMAT STATEMENTS FOR REPORT FOOTINGS 06800829
684: C**** 06810829
685: 90016 FORMAT (1H ,/,2H *,A5,4HEND*,14X,14HEND OF TEST - ,A5,/) 06820829
686: 90018 FORMAT (1H ,A13,13X,A20,7H * ,A10,1H/, 06830829
687: 1 A13) 06840829
688: 90019 FORMAT (1H ,26HFOR OFFICIAL USE ONLY ,35X,15HCOPYRIGHT 1982) 06850829
689: C**** 06860829
690: C**** FORMAT STATEMENTS FOR RUN SUMMARY 06870829
691: C**** 06880829
692: 90020 FORMAT (1H ,21X,I5,13H TESTS PASSED) 06890829
693: 90022 FORMAT (1H ,21X,I5,13H TESTS FAILED) 06900829
694: 90024 FORMAT (1H ,21X,I5,14H TESTS DELETED) 06910829
695: 90026 FORMAT (1H ,21X,I5,25H TESTS REQUIRE INSPECTION) 06920829
696: 90028 FORMAT (1H ,21X,I5,4H OF ,I3,15H TESTS EXECUTED) 06930829
697: CBE** ********************** BBCFMT0B **********************************06940829
698: C***** 06950829
699: C***** END OF TEST SEGMENT 206 06960829
700: STOP 06970829
701: END 06980829
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.