![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to FM041.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 FM041.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 COMMENT SECTION 00010041
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 00020041
6: C FM041 00030041
7: C 00040041
8: C THIS ROUTINE TESTS ARITHMETIC ASSIGNMENTS OF THE 00050041
9: C FORM INTEGER VARIABLE = PRIMARY ** PRIMARY 00060041
10: C WHERE THE FIRST OF TWO PRIMARIES IS AN INTEGER VARIABLE OR AN 00070041
11: C INTEGER CONSTANT AND THE SECOND PRIMARY IS AN INTEGER CONSTANT. 00080041
12: C 00090041
13: C REFERENCES 00100041
14: C AMERICAN NATIONAL STANDARD PROGRAMMING LANGUAGE FORTRAN, 00110041
15: C X3.9-1978 00120041
16: C 00130041
17: C SECTION 4.3, INTEGER TYPE 00140041
18: C SECTION 4.3.1, INTEGER CONSTANT 00150041
19: C SECTION 6.1, ARITHMETIC EXPRESSIONS 00160041
20: C SECTION 10.1, ARITHMETIC ASSIGNMENT STATEMENT 00170041
21: C 00180041
22: C 00190041
23: C ********************************************************** 00200041
24: C 00210041
25: C A COMPILER VALIDATION SYSTEM FOR THE FORTRAN LANGUAGE 00220041
26: C BASED ON SPECIFICATIONS AS DEFINED IN AMERICAN NATIONAL STANDARD 00230041
27: C PROGRAMMING LANGUAGE FORTRAN X3.9-1978, HAS BEEN DEVELOPED BY THE 00240041
28: C FEDERAL COBOL COMPILER TESTING SERVICE. THE FORTRAN COMPILER 00250041
29: C VALIDATION SYSTEM (FCVS) CONSISTS OF AUDIT ROUTINES, THEIR RELATED00260041
30: C DATA, AND AN EXECUTIVE SYSTEM. EACH AUDIT ROUTINE IS A FORTRAN 00270041
31: C PROGRAM, SUBPROGRAM OR FUNCTION WHICH INCLUDES TESTS OF SPECIFIC 00280041
32: C LANGUAGE ELEMENTS AND SUPPORTING PROCEDURES INDICATING THE RESULT 00290041
33: C OF EXECUTING THESE TESTS. 00300041
34: C 00310041
35: C THIS PARTICULAR PROGRAM/SUBPROGRAM/FUNCTION CONTAINS FEATURES 00320041
36: C FOUND ONLY IN THE SUBSET AS DEFINED IN X3.9-1978. 00330041
37: C 00340041
38: C SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO - 00350041
39: C 00360041
40: C DEPARTMENT OF THE NAVY 00370041
41: C FEDERAL COBOL COMPILER TESTING SERVICE 00380041
42: C WASHINGTON, D.C. 20376 00390041
43: C 00400041
44: C ********************************************************** 00410041
45: C 00420041
46: C 00430041
47: C 00440041
48: C INITIALIZATION SECTION 00450041
49: C 00460041
50: C INITIALIZE CONSTANTS 00470041
51: C ************** 00480041
52: C I01 CONTAINS THE LOGICAL UNIT NUMBER FOR THE CARD READER. 00490041
53: I01 = 5 00500041
54: C I02 CONTAINS THE LOGICAL UNIT NUMBER FOR THE PRINTER. 00510041
55: I02 = 6 00520041
56: C SYSTEM ENVIRONMENT SECTION 00530041
57: C 00540041
58: I01 = 5 00550041
59: C THE CX010 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I01 = 5 00560041
60: C (UNIT NUMBER FOR CARD READER). 00570041
61: CX011 THIS CARD IS REPLACED BY CONTENTS OF FEXEC X-011 CONTROL CARD. 00580041
62: C THE CX011 CARD IS FOR SYSTEMS WHICH REQUIRE ADDITIONAL 00590041
63: C FORTRAN STATEMENTS FOR FILES ASSOCIATED WITH CX010 ABOVE. 00600041
64: C 00610041
65: I02 = 6 00620041
66: C THE CX020 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I02 = 6 00630041
67: C (UNIT NUMBER FOR PRINTER). 00640041
68: CX021 THIS CARD IS REPLACED BY CONTENTS OF FEXEC X-021 CONTROL CARD. 00650041
69: C THE CX021 CARD IS FOR SYSTEMS WHICH REQUIRE ADDITIONAL 00660041
70: C FORTRAN STATEMENTS FOR FILES ASSOCIATED WITH CX020 ABOVE. 00670041
71: C 00680041
72: IVPASS=0 00690041
73: IVFAIL=0 00700041
74: IVDELE=0 00710041
75: ICZERO=0 00720041
76: C 00730041
77: C WRITE PAGE HEADERS 00740041
78: WRITE (I02,90000) 00750041
79: WRITE (I02,90001) 00760041
80: WRITE (I02,90002) 00770041
81: WRITE (I02, 90002) 00780041
82: WRITE (I02,90003) 00790041
83: WRITE (I02,90002) 00800041
84: WRITE (I02,90004) 00810041
85: WRITE (I02,90002) 00820041
86: WRITE (I02,90011) 00830041
87: WRITE (I02,90002) 00840041
88: WRITE (I02,90002) 00850041
89: WRITE (I02,90005) 00860041
90: WRITE (I02,90006) 00870041
91: WRITE (I02,90002) 00880041
92: C 00890041
93: C TEST SECTION 00900041
94: C 00910041
95: C ARITHMETIC ASSIGNMENT STATEMENT 00920041
96: C 00930041
97: C TEST 615 THROUGH TEST 631 CONTAIN ARITHMETIC ASSIGNMENT STATEMENTS00940041
98: C OF THE FORM INTEGER VARIABLE = INTEGER CONSTANT ** INTEGER CON.00950041
99: C 00960041
100: C TEST 632 THROUGH TEST 648 CONTAIN ARITHMETIC ASSIGNMENT STATEMENTS00970041
101: C OF THE FORM INTEGER VARIABLE = INTEGER VARIABLE ** INTEGER CON.00980041
102: C 00990041
103: C 01000041
104: IVTNUM = 615 01010041
105: C 01020041
106: C **** TEST 615 **** 01030041
107: C TEST 615 - SMALL NUMBER BASE; ZERO EXPONENT 01040041
108: C 01050041
109: IF (ICZERO) 36150, 6150, 36150 01060041
110: 6150 CONTINUE 01070041
111: IVCOMP = 1 ** 0 01080041
112: GO TO 46150 01090041
113: 36150 IVDELE = IVDELE + 1 01100041
114: WRITE (I02,80003) IVTNUM 01110041
115: IF (ICZERO) 46150, 6161, 46150 01120041
116: 46150 IF (IVCOMP - 1) 26150,16150,26150 01130041
117: 16150 IVPASS = IVPASS + 1 01140041
118: WRITE (I02,80001) IVTNUM 01150041
119: GO TO 6161 01160041
120: 26150 IVFAIL = IVFAIL + 1 01170041
121: IVCORR = 1 01180041
122: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 01190041
123: 6161 CONTINUE 01200041
124: IVTNUM = 616 01210041
125: C 01220041
126: C **** TEST 616 **** 01230041
127: C TEST 616 - ZERO BASE TO FIRST POWER 01240041
128: C 01250041
129: IF (ICZERO) 36160, 6160, 36160 01260041
130: 6160 CONTINUE 01270041
131: IVCOMP = 0 ** 1 01280041
132: GO TO 46160 01290041
133: 36160 IVDELE = IVDELE + 1 01300041
134: WRITE (I02,80003) IVTNUM 01310041
135: IF (ICZERO) 46160, 6171, 46160 01320041
136: 46160 IF (IVCOMP) 26160,16160,26160 01330041
137: 16160 IVPASS = IVPASS + 1 01340041
138: WRITE (I02,80001) IVTNUM 01350041
139: GO TO 6171 01360041
140: 26160 IVFAIL = IVFAIL + 1 01370041
141: IVCORR = 0 01380041
142: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 01390041
143: 6171 CONTINUE 01400041
144: IVTNUM = 617 01410041
145: C 01420041
146: C **** TEST 617 **** 01430041
147: C TEST 617 - BASE =1; EXPONENT = 1 01440041
148: C 01450041
149: IF (ICZERO) 36170, 6170, 36170 01460041
150: 6170 CONTINUE 01470041
151: IVCOMP = 1 ** 1 01480041
152: GO TO 46170 01490041
153: 36170 IVDELE = IVDELE + 1 01500041
154: WRITE (I02,80003) IVTNUM 01510041
155: IF (ICZERO) 46170, 6181, 46170 01520041
156: 46170 IF (IVCOMP - 1) 26170,16170,26170 01530041
157: 16170 IVPASS = IVPASS + 1 01540041
158: WRITE (I02,80001) IVTNUM 01550041
159: GO TO 6181 01560041
160: 26170 IVFAIL = IVFAIL + 1 01570041
161: IVCORR = 1 01580041
162: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 01590041
163: 6181 CONTINUE 01600041
164: IVTNUM = 618 01610041
165: C 01620041
166: C **** TEST 618 **** 01630041
167: C TEST 618 - LARGE NUMBER BASE; EXPONENT = 1 01640041
168: C 01650041
169: IF (ICZERO) 36180, 6180, 36180 01660041
170: 6180 CONTINUE 01670041
171: IVCOMP = 32767 ** 1 01680041
172: GO TO 46180 01690041
173: 36180 IVDELE = IVDELE + 1 01700041
174: WRITE (I02,80003) IVTNUM 01710041
175: IF (ICZERO) 46180, 6191, 46180 01720041
176: 46180 IF (IVCOMP - 32767) 26180,16180,26180 01730041
177: 16180 IVPASS = IVPASS + 1 01740041
178: WRITE (I02,80001) IVTNUM 01750041
179: GO TO 6191 01760041
180: 26180 IVFAIL = IVFAIL + 1 01770041
181: IVCORR = 32767 01780041
182: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 01790041
183: 6191 CONTINUE 01800041
184: IVTNUM = 619 01810041
185: C 01820041
186: C **** TEST 619 **** 01830041
187: C TEST 619 - LARGE EXPONENT 01840041
188: C 01850041
189: IF (ICZERO) 36190, 6190, 36190 01860041
190: 6190 CONTINUE 01870041
191: IVCOMP = 1 ** 32767 01880041
192: GO TO 46190 01890041
193: 36190 IVDELE = IVDELE + 1 01900041
194: WRITE (I02,80003) IVTNUM 01910041
195: IF (ICZERO) 46190, 6201, 46190 01920041
196: 46190 IF (IVCOMP - 1) 26190,16190,26190 01930041
197: 16190 IVPASS = IVPASS + 1 01940041
198: WRITE (I02,80001) IVTNUM 01950041
199: GO TO 6201 01960041
200: 26190 IVFAIL = IVFAIL + 1 01970041
201: IVCORR = 1 01980041
202: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 01990041
203: 6201 CONTINUE 02000041
204: IVTNUM = 620 02010041
205: C 02020041
206: C **** TEST 620 **** 02030041
207: C TEST 620 - ZERO BASE; LARGE NUMBER EXPONENT 02040041
208: C 02050041
209: IF (ICZERO) 36200, 6200, 36200 02060041
210: 6200 CONTINUE 02070041
211: IVCOMP = 0 ** 32767 02080041
212: GO TO 46200 02090041
213: 36200 IVDELE = IVDELE + 1 02100041
214: WRITE (I02,80003) IVTNUM 02110041
215: IF (ICZERO) 46200, 6211, 46200 02120041
216: 46200 IF (IVCOMP) 26200,16200,26200 02130041
217: 16200 IVPASS = IVPASS + 1 02140041
218: WRITE (I02,80001) IVTNUM 02150041
219: GO TO 6211 02160041
220: 26200 IVFAIL = IVFAIL + 1 02170041
221: IVCORR = 0 02180041
222: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 02190041
223: 6211 CONTINUE 02200041
224: IVTNUM = 621 02210041
225: C 02220041
226: C **** TEST 621 **** 02230041
227: C TEST 621 -LARGE NUMBER BASE; ZERO EXPONENT 02240041
228: C 02250041
229: IF (ICZERO) 36210, 6210, 36210 02260041
230: 6210 CONTINUE 02270041
231: IVCOMP = 32767 ** 0 02280041
232: GO TO 46210 02290041
233: 36210 IVDELE = IVDELE + 1 02300041
234: WRITE (I02,80003) IVTNUM 02310041
235: IF (ICZERO) 46210, 6221, 46210 02320041
236: 46210 IF (IVCOMP - 1) 26210,16210,26210 02330041
237: 16210 IVPASS = IVPASS + 1 02340041
238: WRITE (I02,80001) IVTNUM 02350041
239: GO TO 6221 02360041
240: 26210 IVFAIL = IVFAIL + 1 02370041
241: IVCORR = 1 02380041
242: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 02390041
243: 6221 CONTINUE 02400041
244: IVTNUM = 622 02410041
245: C 02420041
246: C **** TEST 622 **** 02430041
247: C TEST 622 -EXPONENT IS POWER OF TWO 02440041
248: C 02450041
249: IF (ICZERO) 36220, 6220, 36220 02460041
250: 6220 CONTINUE 02470041
251: IVCOMP = 181 ** 2 02480041
252: GO TO 46220 02490041
253: 36220 IVDELE = IVDELE + 1 02500041
254: WRITE (I02,80003) IVTNUM 02510041
255: IF (ICZERO) 46220, 6231, 46220 02520041
256: 46220 IF (IVCOMP - 32761) 26220,16220,26220 02530041
257: 16220 IVPASS = IVPASS + 1 02540041
258: WRITE (I02,80001) IVTNUM 02550041
259: GO TO 6231 02560041
260: 26220 IVFAIL = IVFAIL + 1 02570041
261: IVCORR = 32761 02580041
262: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 02590041
263: 6231 CONTINUE 02600041
264: IVTNUM = 623 02610041
265: C 02620041
266: C **** TEST 623 **** 02630041
267: C TEST 623 - BASE AND EXPONENT ARE BOTH POWERS OF TWO 02640041
268: C 02650041
269: IF (ICZERO) 36230, 6230, 36230 02660041
270: 6230 CONTINUE 02670041
271: IVCOMP = 2 ** 8 02680041
272: GO TO 46230 02690041
273: 36230 IVDELE = IVDELE + 1 02700041
274: WRITE (I02,80003) IVTNUM 02710041
275: IF (ICZERO) 46230, 6241, 46230 02720041
276: 46230 IF (IVCOMP - 256) 26230,16230,26230 02730041
277: 16230 IVPASS = IVPASS + 1 02740041
278: WRITE (I02,80001) IVTNUM 02750041
279: GO TO 6241 02760041
280: 26230 IVFAIL = IVFAIL + 1 02770041
281: IVCORR = 256 02780041
282: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 02790041
283: 6241 CONTINUE 02800041
284: C 02810041
285: C TESTS 624 AND 625 TEST TO ENSURE EXPONENTIATION OPERATOR IS 02820041
286: C NOT COMMUTATIVE 02830041
287: C 02840041
288: IVTNUM = 624 02850041
289: C 02860041
290: C **** TEST 624 **** 02870041
291: C 02880041
292: IF (ICZERO) 36240, 6240, 36240 02890041
293: 6240 CONTINUE 02900041
294: IVCOMP = 3 ** 9 02910041
295: GO TO 46240 02920041
296: 36240 IVDELE = IVDELE + 1 02930041
297: WRITE (I02,80003) IVTNUM 02940041
298: IF (ICZERO) 46240, 6251, 46240 02950041
299: 46240 IF (IVCOMP - 19683) 26240,16240,26240 02960041
300: 16240 IVPASS = IVPASS + 1 02970041
301: WRITE (I02,80001) IVTNUM 02980041
302: GO TO 6251 02990041
303: 26240 IVFAIL = IVFAIL + 1 03000041
304: IVCORR = 19683 03010041
305: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 03020041
306: 6251 CONTINUE 03030041
307: IVTNUM = 625 03040041
308: C 03050041
309: C **** TEST 625 **** 03060041
310: C 03070041
311: IF (ICZERO) 36250, 6250, 36250 03080041
312: 6250 CONTINUE 03090041
313: IVCOMP = 9 ** 3 03100041
314: GO TO 46250 03110041
315: 36250 IVDELE = IVDELE + 1 03120041
316: WRITE (I02,80003) IVTNUM 03130041
317: IF (ICZERO) 46250, 6261, 46250 03140041
318: 46250 IF (IVCOMP - 729) 26250,16250,26250 03150041
319: 16250 IVPASS = IVPASS + 1 03160041
320: WRITE (I02,80001) IVTNUM 03170041
321: GO TO 6261 03180041
322: 26250 IVFAIL = IVFAIL + 1 03190041
323: IVCORR = 729 03200041
324: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 03210041
325: 6261 CONTINUE 03220041
326: C 03230041
327: C TESTS 626 THROUGH 631 TEST POSITIVE AND NEGATIVE BASES TO POSITIVE03240041
328: C ODD AND EVEN NUMBER POWERS CHECKING THE SIGN03250041
329: C OF THE RESULTS 03260041
330: C 03270041
331: IVTNUM = 626 03280041
332: C 03290041
333: C **** TEST 626 **** 03300041
334: C 03310041
335: IF (ICZERO) 36260, 6260, 36260 03320041
336: 6260 CONTINUE 03330041
337: IVCOMP = 1 ** 2 03340041
338: GO TO 46260 03350041
339: 36260 IVDELE = IVDELE + 1 03360041
340: WRITE (I02,80003) IVTNUM 03370041
341: IF (ICZERO) 46260, 6271, 46260 03380041
342: 46260 IF (IVCOMP - 1) 26260,16260,26260 03390041
343: 16260 IVPASS = IVPASS + 1 03400041
344: WRITE (I02,80001) IVTNUM 03410041
345: GO TO 6271 03420041
346: 26260 IVFAIL = IVFAIL + 1 03430041
347: IVCORR = 1 03440041
348: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 03450041
349: 6271 CONTINUE 03460041
350: IVTNUM = 627 03470041
351: C 03480041
352: C **** TEST 627 **** 03490041
353: C 03500041
354: IF (ICZERO) 36270, 6270, 36270 03510041
355: 6270 CONTINUE 03520041
356: IVCOMP= (-1) ** 2 03530041
357: GO TO 46270 03540041
358: 36270 IVDELE = IVDELE + 1 03550041
359: WRITE (I02,80003) IVTNUM 03560041
360: IF (ICZERO) 46270, 6281, 46270 03570041
361: 46270 IF (IVCOMP - 1) 26270,16270,26270 03580041
362: 16270 IVPASS = IVPASS + 1 03590041
363: WRITE (I02,80001) IVTNUM 03600041
364: GO TO 6281 03610041
365: 26270 IVFAIL = IVFAIL + 1 03620041
366: IVCORR = 1 03630041
367: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 03640041
368: 6281 CONTINUE 03650041
369: IVTNUM = 628 03660041
370: C 03670041
371: C **** TEST 628 **** 03680041
372: C 03690041
373: IF (ICZERO) 36280, 6280, 36280 03700041
374: 6280 CONTINUE 03710041
375: IVCOMP = 7 ** 3 03720041
376: GO TO 46280 03730041
377: 36280 IVDELE = IVDELE + 1 03740041
378: WRITE (I02,80003) IVTNUM 03750041
379: IF (ICZERO) 46280, 6291, 46280 03760041
380: 46280 IF (IVCOMP - 343) 26280,16280,26280 03770041
381: 16280 IVPASS = IVPASS + 1 03780041
382: WRITE (I02,80001) IVTNUM 03790041
383: GO TO 6291 03800041
384: 26280 IVFAIL = IVFAIL + 1 03810041
385: IVCORR = 343 03820041
386: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 03830041
387: 6291 CONTINUE 03840041
388: IVTNUM = 629 03850041
389: C 03860041
390: C **** TEST 629 **** 03870041
391: C 03880041
392: IF (ICZERO) 36290, 6290, 36290 03890041
393: 6290 CONTINUE 03900041
394: IVCOMP = (-7) ** 3 03910041
395: GO TO 46290 03920041
396: 36290 IVDELE = IVDELE + 1 03930041
397: WRITE (I02,80003) IVTNUM 03940041
398: IF (ICZERO) 46290, 6301, 46290 03950041
399: 46290 IF (IVCOMP + 343) 26290,16290,26290 03960041
400: 16290 IVPASS = IVPASS + 1 03970041
401: WRITE (I02,80001) IVTNUM 03980041
402: GO TO 6301 03990041
403: 26290 IVFAIL = IVFAIL + 1 04000041
404: IVCORR = -343 04010041
405: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 04020041
406: 6301 CONTINUE 04030041
407: IVTNUM = 630 04040041
408: C 04050041
409: C **** TEST 630 **** 04060041
410: C 04070041
411: IF (ICZERO) 36300, 6300, 36300 04080041
412: 6300 CONTINUE 04090041
413: IVCOMP = 7 ** 4 04100041
414: GO TO 46300 04110041
415: 36300 IVDELE = IVDELE + 1 04120041
416: WRITE (I02,80003) IVTNUM 04130041
417: IF (ICZERO) 46300, 6311, 46300 04140041
418: 46300 IF (IVCOMP - 2401) 26300,16300,26300 04150041
419: 16300 IVPASS = IVPASS + 1 04160041
420: WRITE (I02,80001) IVTNUM 04170041
421: GO TO 6311 04180041
422: 26300 IVFAIL = IVFAIL + 1 04190041
423: IVCORR = 2401 04200041
424: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 04210041
425: 6311 CONTINUE 04220041
426: IVTNUM = 631 04230041
427: C 04240041
428: C **** TEST 631 **** 04250041
429: C 04260041
430: IF (ICZERO) 36310, 6310, 36310 04270041
431: 6310 CONTINUE 04280041
432: IVCOMP = (-7) ** 4 04290041
433: GO TO 46310 04300041
434: 36310 IVDELE = IVDELE + 1 04310041
435: WRITE (I02,80003) IVTNUM 04320041
436: IF (ICZERO) 46310, 6321, 46310 04330041
437: 46310 IF (IVCOMP - 2401) 26310,16310,26310 04340041
438: 16310 IVPASS = IVPASS + 1 04350041
439: WRITE (I02,80001) IVTNUM 04360041
440: GO TO 6321 04370041
441: 26310 IVFAIL = IVFAIL + 1 04380041
442: IVCORR = 2401 04390041
443: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 04400041
444: 6321 CONTINUE 04410041
445: IVTNUM = 632 04420041
446: C 04430041
447: C **** TEST 632 **** 04440041
448: C TEST 632 - SMALL NUMBER BASE; ZERO EXPONENT 04450041
449: C 04460041
450: IF (ICZERO) 36320, 6320, 36320 04470041
451: 6320 CONTINUE 04480041
452: IVON01 = 1 04490041
453: IVCOMP = IVON01 ** 1 04500041
454: GO TO 46320 04510041
455: 36320 IVDELE = IVDELE + 1 04520041
456: WRITE (I02,80003) IVTNUM 04530041
457: IF (ICZERO) 46320, 6331, 46320 04540041
458: 46320 IF (IVCOMP - 1) 26320,16320,26320 04550041
459: 16320 IVPASS = IVPASS + 1 04560041
460: WRITE (I02,80001) IVTNUM 04570041
461: GO TO 6331 04580041
462: 26320 IVFAIL = IVFAIL + 1 04590041
463: IVCORR = 1 04600041
464: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 04610041
465: 6331 CONTINUE 04620041
466: IVTNUM = 633 04630041
467: C 04640041
468: C **** TEST 633 **** 04650041
469: C TEST 633 - ZERO BASE TO FIRST POWER 04660041
470: C 04670041
471: IF (ICZERO) 36330, 6330, 36330 04680041
472: 6330 CONTINUE 04690041
473: IVON01 = 0 04700041
474: IVCOMP = IVON01 ** 1 04710041
475: GO TO 46330 04720041
476: 36330 IVDELE = IVDELE + 1 04730041
477: WRITE (I02,80003) IVTNUM 04740041
478: IF (ICZERO) 46330, 6341, 46330 04750041
479: 46330 IF (IVCOMP) 26330,16330,26330 04760041
480: 16330 IVPASS = IVPASS + 1 04770041
481: WRITE (I02,80001) IVTNUM 04780041
482: GO TO 6341 04790041
483: 26330 IVFAIL = IVFAIL + 1 04800041
484: IVCORR = 0 04810041
485: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 04820041
486: 6341 CONTINUE 04830041
487: IVTNUM = 634 04840041
488: C 04850041
489: C **** TEST 634 **** 04860041
490: C TEST 634 - BASE =1; EXPONENT = 1 04870041
491: C 04880041
492: IF (ICZERO) 36340, 6340, 36340 04890041
493: 6340 CONTINUE 04900041
494: IVON01 = 1 04910041
495: IVCOMP = IVON01 ** 1 04920041
496: GO TO 46340 04930041
497: 36340 IVDELE = IVDELE + 1 04940041
498: WRITE (I02,80003) IVTNUM 04950041
499: IF (ICZERO) 46340, 6351, 46340 04960041
500: 46340 IF (IVCOMP - 1) 26340,16340,26340 04970041
501: 16340 IVPASS = IVPASS + 1 04980041
502: WRITE (I02,80001) IVTNUM 04990041
503: GO TO 6351 05000041
504: 26340 IVFAIL = IVFAIL + 1 05010041
505: IVCORR = 1 05020041
506: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 05030041
507: 6351 CONTINUE 05040041
508: IVTNUM = 635 05050041
509: C 05060041
510: C **** TEST 635 **** 05070041
511: C TEST 635 - LARGE EXPONENT 05080041
512: C 05090041
513: IF (ICZERO) 36350, 6350, 36350 05100041
514: 6350 CONTINUE 05110041
515: IVON01 = 1 05120041
516: IVCOMP = IVON01 ** 32767 05130041
517: GO TO 46350 05140041
518: 36350 IVDELE = IVDELE + 1 05150041
519: WRITE (I02,80003) IVTNUM 05160041
520: IF (ICZERO) 46350, 6361, 46350 05170041
521: 46350 IF (IVCOMP - 1) 26350,16350,26350 05180041
522: 16350 IVPASS = IVPASS + 1 05190041
523: WRITE (I02,80001) IVTNUM 05200041
524: GO TO 6361 05210041
525: 26350 IVFAIL = IVFAIL + 1 05220041
526: IVCORR = 1 05230041
527: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 05240041
528: 6361 CONTINUE 05250041
529: IVTNUM = 636 05260041
530: C 05270041
531: C **** TEST 636 **** 05280041
532: C TEST 636 - LARGE NUMBER BASE; EXPONENT = 1 05290041
533: C 05300041
534: IF (ICZERO) 36360, 6360, 36360 05310041
535: 6360 CONTINUE 05320041
536: IVON01 = 32767 05330041
537: IVCOMP = IVON01 ** 1 05340041
538: GO TO 46360 05350041
539: 36360 IVDELE = IVDELE + 1 05360041
540: WRITE (I02,80003) IVTNUM 05370041
541: IF (ICZERO) 46360, 6371, 46360 05380041
542: 46360 IF (IVCOMP - 32767) 26360,16360,26360 05390041
543: 16360 IVPASS = IVPASS + 1 05400041
544: WRITE (I02,80001) IVTNUM 05410041
545: GO TO 6371 05420041
546: 26360 IVFAIL = IVFAIL + 1 05430041
547: IVCORR = 32767 05440041
548: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 05450041
549: 6371 CONTINUE 05460041
550: IVTNUM = 637 05470041
551: C 05480041
552: C **** TEST 637 **** 05490041
553: C TEST 637 - ZERO BASE; LARGE NUMBER EXPONENT 05500041
554: C 05510041
555: IF (ICZERO) 36370, 6370, 36370 05520041
556: 6370 CONTINUE 05530041
557: IVON01 = 0 05540041
558: IVCOMP = IVON01 ** 32767 05550041
559: GO TO 46370 05560041
560: 36370 IVDELE = IVDELE + 1 05570041
561: WRITE (I02,80003) IVTNUM 05580041
562: IF (ICZERO) 46370, 6381, 46370 05590041
563: 46370 IF (IVCOMP) 26370,16370,26370 05600041
564: 16370 IVPASS = IVPASS + 1 05610041
565: WRITE (I02,80001) IVTNUM 05620041
566: GO TO 6381 05630041
567: 26370 IVFAIL = IVFAIL +1 05640041
568: IVCORR = 0 05650041
569: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 05660041
570: 6381 CONTINUE 05670041
571: IVTNUM = 638 05680041
572: C 05690041
573: C **** TEST 638 **** 05700041
574: C TEST 638 -LARGE NUMBER BASE; ZERO EXPONENT 05710041
575: C 05720041
576: IF (ICZERO) 36380, 6380, 36380 05730041
577: 6380 CONTINUE 05740041
578: IVON01 = 32767 05750041
579: IVCOMP = IVON01 ** 0 05760041
580: GO TO 46380 05770041
581: 36380 IVDELE = IVDELE + 1 05780041
582: WRITE (I02,80003) IVTNUM 05790041
583: IF (ICZERO) 46380, 6391, 46380 05800041
584: 46380 IF (IVCOMP - 1) 26380,16380,26380 05810041
585: 16380 IVPASS = IVPASS + 1 05820041
586: WRITE (I02,80001) IVTNUM 05830041
587: GO TO 6391 05840041
588: 26380 IVFAIL = IVFAIL + 1 05850041
589: IVCORR = 1 05860041
590: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 05870041
591: 6391 CONTINUE 05880041
592: IVTNUM = 639 05890041
593: C 05900041
594: C **** TEST 639 **** 05910041
595: C TEST 639 -EXPONENT IS POWER OF TWO 05920041
596: C 05930041
597: IF (ICZERO) 36390, 6390, 36390 05940041
598: 6390 CONTINUE 05950041
599: IVON01 = 181 05960041
600: IVCOMP = IVON01 ** 2 05970041
601: GO TO 46390 05980041
602: 36390 IVDELE = IVDELE + 1 05990041
603: WRITE (I02,80003) IVTNUM 06000041
604: IF (ICZERO) 46390, 6401, 46390 06010041
605: 46390 IF (IVCOMP - 32761) 26390,16390,26390 06020041
606: 16390 IVPASS = IVPASS + 1 06030041
607: WRITE (I02,80001) IVTNUM 06040041
608: GO TO 6401 06050041
609: 26390 IVFAIL = IVFAIL + 1 06060041
610: IVCORR = 32761 06070041
611: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 06080041
612: 6401 CONTINUE 06090041
613: IVTNUM = 640 06100041
614: C 06110041
615: C **** TEST 640 **** 06120041
616: C TEST 640 - BASE AND EXPONENT ARE BOTH POWERS OF TWO 06130041
617: C 06140041
618: IF (ICZERO) 36400, 6400, 36400 06150041
619: 6400 CONTINUE 06160041
620: IVON01 = 2 06170041
621: IVCOMP = IVON01 ** 8 06180041
622: GO TO 46400 06190041
623: 36400 IVDELE = IVDELE + 1 06200041
624: WRITE (I02,80003) IVTNUM 06210041
625: IF (ICZERO) 46400, 6411, 46400 06220041
626: 46400 IF (IVCOMP - 256) 26400,16400,26400 06230041
627: 16400 IVPASS = IVPASS + 1 06240041
628: WRITE (I02,80001) IVTNUM 06250041
629: GO TO 6411 06260041
630: 26400 IVFAIL = IVFAIL + 1 06270041
631: IVCORR = 256 06280041
632: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 06290041
633: 6411 CONTINUE 06300041
634: C 06310041
635: C TESTS 641 AND 642 TEST TO ENSURE EXPONENTIATION OPERATOR IS 06320041
636: C NOT COMMUTATIVE 06330041
637: C 06340041
638: IVTNUM = 641 06350041
639: C 06360041
640: C **** TEST 641 **** 06370041
641: C 06380041
642: IF (ICZERO) 36410, 6410, 36410 06390041
643: 6410 CONTINUE 06400041
644: IVON01 = 3 06410041
645: IVCOMP = IVON01 ** 9 06420041
646: GO TO 46410 06430041
647: 36410 IVDELE = IVDELE + 1 06440041
648: WRITE (I02,80003) IVTNUM 06450041
649: IF (ICZERO) 46410, 6421, 46410 06460041
650: 46410 IF (IVCOMP - 19683) 26410,16410,26410 06470041
651: 16410 IVPASS = IVPASS + 1 06480041
652: WRITE (I02,80001) IVTNUM 06490041
653: GO TO 6421 06500041
654: 26410 IVFAIL = IVFAIL + 1 06510041
655: IVCORR = 19683 06520041
656: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 06530041
657: 6421 CONTINUE 06540041
658: IVTNUM = 642 06550041
659: C 06560041
660: C **** TEST 642 **** 06570041
661: C 06580041
662: IF (ICZERO) 36420, 6420, 36420 06590041
663: 6420 CONTINUE 06600041
664: IVON01 = 9 06610041
665: IVCOMP = IVON01 ** 3 06620041
666: GO TO 46420 06630041
667: 36420 IVDELE = IVDELE + 1 06640041
668: WRITE (I02,80003) IVTNUM 06650041
669: IF (ICZERO) 46420, 6431, 46420 06660041
670: 46420 IF (IVCOMP - 729) 26420,16420,26420 06670041
671: 16420 IVPASS = IVPASS + 1 06680041
672: WRITE (I02,80001) IVTNUM 06690041
673: GO TO 6431 06700041
674: 26420 IVFAIL = IVFAIL + 1 06710041
675: IVCORR = 729 06720041
676: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 06730041
677: 6431 CONTINUE 06740041
678: C 06750041
679: C TESTS 643 THROUGH 648 TEST POSITIVE AND NEGATIVE BASES TO POSITIVE06760041
680: C ODD AND EVEN NUMBER POWERS CHECKING THE SIGN06770041
681: C OF THE RESULTS 06780041
682: C 06790041
683: IVTNUM = 643 06800041
684: C 06810041
685: C **** TEST 643 **** 06820041
686: C 06830041
687: IF (ICZERO) 36430, 6430, 36430 06840041
688: 6430 CONTINUE 06850041
689: IVON01 = 1 06860041
690: IVCOMP = IVON01 ** 2 06870041
691: GO TO 46430 06880041
692: 36430 IVDELE = IVDELE + 1 06890041
693: WRITE (I02,80003) IVTNUM 06900041
694: IF (ICZERO) 46430, 6441, 46430 06910041
695: 46430 IF (IVCOMP - 1) 26430,16430,26430 06920041
696: 16430 IVPASS = IVPASS + 1 06930041
697: WRITE (I02,80001) IVTNUM 06940041
698: GO TO 6441 06950041
699: 26430 IVFAIL = IVFAIL + 1 06960041
700: IVCORR = 1 06970041
701: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 06980041
702: 6441 CONTINUE 06990041
703: IVTNUM = 644 07000041
704: C 07010041
705: C **** TEST 644 **** 07020041
706: C 07030041
707: IF (ICZERO) 36440, 6440, 36440 07040041
708: 6440 CONTINUE 07050041
709: IVON01 = -1 07060041
710: IVCOMP = IVON01 ** 2 07070041
711: GO TO 46440 07080041
712: 36440 IVDELE = IVDELE + 1 07090041
713: WRITE (I02,80003) IVTNUM 07100041
714: IF (ICZERO) 46440, 6451, 46440 07110041
715: 46440 IF (IVCOMP - 1) 26440,16440,26440 07120041
716: 16440 IVPASS = IVPASS + 1 07130041
717: WRITE (I02,80001) IVTNUM 07140041
718: GO TO 6451 07150041
719: 26440 IVFAIL = IVFAIL + 1 07160041
720: IVCORR = 1 07170041
721: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 07180041
722: 6451 CONTINUE 07190041
723: IVTNUM = 645 07200041
724: C 07210041
725: C **** TEST 645 **** 07220041
726: C 07230041
727: IF (ICZERO) 36450, 6450, 36450 07240041
728: 6450 CONTINUE 07250041
729: IVON01 = 7 07260041
730: IVCOMP = IVON01 ** 3 07270041
731: GO TO 46450 07280041
732: 36450 IVDELE = IVDELE + 1 07290041
733: WRITE (I02,80003) IVTNUM 07300041
734: IF (ICZERO) 46450, 6461, 46450 07310041
735: 46450 IF (IVCOMP - 343) 26450,16450,26450 07320041
736: 16450 IVPASS = IVPASS + 1 07330041
737: WRITE (I02,80001) IVTNUM 07340041
738: GO TO 6461 07350041
739: 26450 IVFAIL = IVFAIL + 1 07360041
740: IVCORR = 343 07370041
741: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 07380041
742: 6461 CONTINUE 07390041
743: IVTNUM = 646 07400041
744: C 07410041
745: C **** TEST 646 **** 07420041
746: C 07430041
747: IF (ICZERO) 36460, 6460, 36460 07440041
748: 6460 CONTINUE 07450041
749: IVON01 = -7 07460041
750: IVCOMP = IVON01 ** 3 07470041
751: GO TO 46460 07480041
752: 36460 IVDELE = IVDELE + 1 07490041
753: WRITE (I02,80003) IVTNUM 07500041
754: IF (ICZERO) 46460, 6471, 46460 07510041
755: 46460 IF (IVCOMP + 343) 26460,16460,26460 07520041
756: 16460 IVPASS = IVPASS + 1 07530041
757: WRITE (I02,80001) IVTNUM 07540041
758: GO TO 6471 07550041
759: 26460 IVFAIL = IVFAIL + 1 07560041
760: IVCORR = -343 07570041
761: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 07580041
762: 6471 CONTINUE 07590041
763: IVTNUM = 647 07600041
764: C 07610041
765: C **** TEST 647 **** 07620041
766: C 07630041
767: IF (ICZERO) 36470, 6470, 36470 07640041
768: 6470 CONTINUE 07650041
769: IVON01 = 7 07660041
770: IVCOMP = IVON01 ** 4 07670041
771: GO TO 46470 07680041
772: 36470 IVDELE = IVDELE + 1 07690041
773: WRITE (I02,80003) IVTNUM 07700041
774: IF (ICZERO) 46470, 6481, 46470 07710041
775: 46470 IF (IVCOMP - 2401) 26470,16470,26470 07720041
776: 16470 IVPASS = IVPASS + 1 07730041
777: WRITE (I02,80001) IVTNUM 07740041
778: GO TO 6481 07750041
779: 26470 IVFAIL = IVFAIL + 1 07760041
780: IVCORR = 2401 07770041
781: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 07780041
782: 6481 CONTINUE 07790041
783: IVTNUM = 648 07800041
784: C 07810041
785: C **** TEST 648 **** 07820041
786: C 07830041
787: IF (ICZERO) 36480, 6480, 36480 07840041
788: 6480 CONTINUE 07850041
789: IVON01 = -7 07860041
790: IVCOMP = IVON01 ** 4 07870041
791: GO TO 46480 07880041
792: 36480 IVDELE = IVDELE + 1 07890041
793: WRITE (I02,80003) IVTNUM 07900041
794: IF (ICZERO) 46480, 6491, 46480 07910041
795: 46480 IF (IVCOMP - 2401) 26480,16480,26480 07920041
796: 16480 IVPASS = IVPASS + 1 07930041
797: WRITE (I02,80001) IVTNUM 07940041
798: GO TO 6491 07950041
799: 26480 IVFAIL = IVFAIL + 1 07960041
800: IVCORR = 2401 07970041
801: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 07980041
802: 6491 CONTINUE 07990041
803: C *** END OF TESTS *** 08000041
804: C 08010041
805: C WRITE PAGE FOOTINGS AND RUN SUMMARIES 08020041
806: 99999 CONTINUE 08030041
807: WRITE (I02,90002) 08040041
808: WRITE (I02,90006) 08050041
809: WRITE (I02,90002) 08060041
810: WRITE (I02,90002) 08070041
811: WRITE (I02,90007) 08080041
812: WRITE (I02,90002) 08090041
813: WRITE (I02,90008) IVFAIL 08100041
814: WRITE (I02,90009) IVPASS 08110041
815: WRITE (I02,90010) IVDELE 08120041
816: C 08130041
817: C 08140041
818: C TERMINATE ROUTINE EXECUTION 08150041
819: STOP 08160041
820: C 08170041
821: C FORMAT STATEMENTS FOR PAGE HEADERS 08180041
822: 90000 FORMAT (1H1) 08190041
823: 90002 FORMAT (1H ) 08200041
824: 90001 FORMAT (1H ,10X,34HFORTRAN COMPILER VALIDATION SYSTEM) 08210041
825: 90003 FORMAT (1H ,21X,11HVERSION 1.0) 08220041
826: 90004 FORMAT (1H ,10X,38HFOR OFFICIAL USE ONLY - COPYRIGHT 1978) 08230041
827: 90005 FORMAT (1H ,5X,4HTEST,5X,9HPASS/FAIL, 5X,8HCOMPUTED,8X,7HCORRECT) 08240041
828: 90006 FORMAT (1H ,5X,46H----------------------------------------------) 08250041
829: 90011 FORMAT (1H ,18X,17HSUBSET LEVEL TEST) 08260041
830: C 08270041
831: C FORMAT STATEMENTS FOR RUN SUMMARIES 08280041
832: 90008 FORMAT (1H ,15X,I5,19H ERRORS ENCOUNTERED) 08290041
833: 90009 FORMAT (1H ,15X,I5,13H TESTS PASSED) 08300041
834: 90010 FORMAT (1H ,15X,I5,14H TESTS DELETED) 08310041
835: C 08320041
836: C FORMAT STATEMENTS FOR TEST RESULTS 08330041
837: 80001 FORMAT (1H ,4X,I5,7X,4HPASS) 08340041
838: 80002 FORMAT (1H ,4X,I5,7X,4HFAIL) 08350041
839: 80003 FORMAT (1H ,4X,I5,7X,7HDELETED) 08360041
840: 80004 FORMAT (1H ,4X,I5,7X,4HFAIL,10X,I6,9X,I6) 08370041
841: 80005 FORMAT (1H ,4X,I5,7X,4HFAIL,4X,E12.5,3X,E12.5) 08380041
842: C 08390041
843: 90007 FORMAT (1H ,20X,20HEND OF PROGRAM FM041) 08400041
844: END 08410041
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.