![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to FM044.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 FM044.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 00010044
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 00020044
6: C FM044 00030044
7: C 00040044
8: C THIS ROUTINE TESTS ARITHMETIC ASSIGNMENTS OF THE FORM 00050044
9: C INTEGER VAR. = INTEGER VAR. <OP1> INTEGER VAR. <OP2> INTEGER VAR. 00060044
10: C 00070044
11: C WHERE <OP1> AND <OP2> ARE ARITHMETIC OPERATORS. 00080044
12: C 00090044
13: C REFERENCES 00100044
14: C AMERICAN NATIONAL STANDARD PROGRAMMING LANGUAGE FORTRAN, 00110044
15: C X3.9-1978 00120044
16: C 00130044
17: C SECTION 4.3, INTEGER TYPE 00140044
18: C SECTION 4.3.1, INTEGER CONSTANT 00150044
19: C SECTION 6.1, ARITHMETIC EXPRESSIONS 00160044
20: C SECTION 6.6, EVALUATION OF EXPRESSIONS 00170044
21: C SECTION 10.1, ARITHMETIC ASSIGNMENT STATEMENT 00180044
22: C 00190044
23: C 00200044
24: C ********************************************************** 00210044
25: C 00220044
26: C A COMPILER VALIDATION SYSTEM FOR THE FORTRAN LANGUAGE 00230044
27: C BASED ON SPECIFICATIONS AS DEFINED IN AMERICAN NATIONAL STANDARD 00240044
28: C PROGRAMMING LANGUAGE FORTRAN X3.9-1978, HAS BEEN DEVELOPED BY THE 00250044
29: C FEDERAL COBOL COMPILER TESTING SERVICE. THE FORTRAN COMPILER 00260044
30: C VALIDATION SYSTEM (FCVS) CONSISTS OF AUDIT ROUTINES, THEIR RELATED00270044
31: C DATA, AND AN EXECUTIVE SYSTEM. EACH AUDIT ROUTINE IS A FORTRAN 00280044
32: C PROGRAM, SUBPROGRAM OR FUNCTION WHICH INCLUDES TESTS OF SPECIFIC 00290044
33: C LANGUAGE ELEMENTS AND SUPPORTING PROCEDURES INDICATING THE RESULT 00300044
34: C OF EXECUTING THESE TESTS. 00310044
35: C 00320044
36: C THIS PARTICULAR PROGRAM/SUBPROGRAM/FUNCTION CONTAINS FEATURES 00330044
37: C FOUND ONLY IN THE SUBSET AS DEFINED IN X3.9-1978. 00340044
38: C 00350044
39: C SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO - 00360044
40: C 00370044
41: C DEPARTMENT OF THE NAVY 00380044
42: C FEDERAL COBOL COMPILER TESTING SERVICE 00390044
43: C WASHINGTON, D.C. 20376 00400044
44: C 00410044
45: C ********************************************************** 00420044
46: C 00430044
47: C 00440044
48: C 00450044
49: C INITIALIZATION SECTION 00460044
50: C 00470044
51: C INITIALIZE CONSTANTS 00480044
52: C ************** 00490044
53: C I01 CONTAINS THE LOGICAL UNIT NUMBER FOR THE CARD READER. 00500044
54: I01 = 5 00510044
55: C I02 CONTAINS THE LOGICAL UNIT NUMBER FOR THE PRINTER. 00520044
56: I02 = 6 00530044
57: C SYSTEM ENVIRONMENT SECTION 00540044
58: C 00550044
59: I01 = 5 00560044
60: C THE CX010 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I01 = 5 00570044
61: C (UNIT NUMBER FOR CARD READER). 00580044
62: CX011 THIS CARD IS REPLACED BY CONTENTS OF FEXEC X-011 CONTROL CARD. 00590044
63: C THE CX011 CARD IS FOR SYSTEMS WHICH REQUIRE ADDITIONAL 00600044
64: C FORTRAN STATEMENTS FOR FILES ASSOCIATED WITH CX010 ABOVE. 00610044
65: C 00620044
66: I02 = 6 00630044
67: C THE CX020 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I02 = 6 00640044
68: C (UNIT NUMBER FOR PRINTER). 00650044
69: CX021 THIS CARD IS REPLACED BY CONTENTS OF FEXEC X-021 CONTROL CARD. 00660044
70: C THE CX021 CARD IS FOR SYSTEMS WHICH REQUIRE ADDITIONAL 00670044
71: C FORTRAN STATEMENTS FOR FILES ASSOCIATED WITH CX020 ABOVE. 00680044
72: C 00690044
73: IVPASS=0 00700044
74: IVFAIL=0 00710044
75: IVDELE=0 00720044
76: ICZERO=0 00730044
77: C 00740044
78: C WRITE PAGE HEADERS 00750044
79: WRITE (I02,90000) 00760044
80: WRITE (I02,90001) 00770044
81: WRITE (I02,90002) 00780044
82: WRITE (I02, 90002) 00790044
83: WRITE (I02,90003) 00800044
84: WRITE (I02,90002) 00810044
85: WRITE (I02,90004) 00820044
86: WRITE (I02,90002) 00830044
87: WRITE (I02,90011) 00840044
88: WRITE (I02,90002) 00850044
89: WRITE (I02,90002) 00860044
90: WRITE (I02,90005) 00870044
91: WRITE (I02,90006) 00880044
92: WRITE (I02,90002) 00890044
93: C 00900044
94: C TEST SECTION 00910044
95: C 00920044
96: C ARITHMETIC ASSIGNMENT STATEMENT 00930044
97: C 00940044
98: C TESTS 719 THROUGH 730 TEST STATEMENTS WHERE <OP1> IS '/' AND 00950044
99: C <OP2> VARIES. 00960044
100: C 00970044
101: C TESTS 731 THROUGH 746 TEST STATEMENTS WHERE <OP1> IS '**' AND 00980044
102: C <OP2> VARIES. 00990044
103: C 01000044
104: C 01010044
105: C TEST 719 THROUGH 721 TEST '/' FOLLOWED BY '+'. 01020044
106: C 01030044
107: IVTNUM = 719 01040044
108: C 01050044
109: C **** TEST 719 **** 01060044
110: C 01070044
111: IF (ICZERO) 37190, 7190, 37190 01080044
112: 7190 CONTINUE 01090044
113: IVON01 = 108 01100044
114: IVON02 = 9 01110044
115: IVON03 = 3 01120044
116: IVCOMP = IVON01 / IVON02 + IVON03 01130044
117: GO TO 47190 01140044
118: 37190 IVDELE = IVDELE + 1 01150044
119: WRITE (I02,80003) IVTNUM 01160044
120: IF (ICZERO) 47190, 7201, 47190 01170044
121: 47190 IF (IVCOMP - 15) 27190,17190,27190 01180044
122: 17190 IVPASS = IVPASS + 1 01190044
123: WRITE (I02,80001) IVTNUM 01200044
124: GO TO 7201 01210044
125: 27190 IVFAIL = IVFAIL + 1 01220044
126: IVCORR = 15 01230044
127: WRITE (I02,80004) IVTNUM, IVCOMP, IVCORR 01240044
128: 7201 CONTINUE 01250044
129: IVTNUM = 720 01260044
130: C 01270044
131: C **** TEST 720 **** 01280044
132: C 01290044
133: IF (ICZERO) 37200, 7200, 37200 01300044
134: 7200 CONTINUE 01310044
135: IVON01 = 108 01320044
136: IVON02 = 9 01330044
137: IVON03 = 3 01340044
138: IVCOMP = (IVON01 / IVON02) + IVON03 01350044
139: GO TO 47200 01360044
140: 37200 IVDELE = IVDELE + 1 01370044
141: WRITE (I02,80003) IVTNUM 01380044
142: IF (ICZERO) 47200, 7211, 47200 01390044
143: 47200 IF (IVCOMP - 15) 27200,17200,27200 01400044
144: 17200 IVPASS = IVPASS + 1 01410044
145: WRITE (I02,80001) IVTNUM 01420044
146: GO TO 7211 01430044
147: 27200 IVFAIL = IVFAIL + 1 01440044
148: IVCORR = 15 01450044
149: WRITE (I02,80004) IVTNUM, IVCOMP, IVCORR 01460044
150: 7211 CONTINUE 01470044
151: IVTNUM = 721 01480044
152: C 01490044
153: C **** TEST 721 **** 01500044
154: C 01510044
155: IF (ICZERO) 37210, 7210, 37210 01520044
156: 7210 CONTINUE 01530044
157: IVON01 = 108 01540044
158: IVON02 = 9 01550044
159: IVON03 = 3 01560044
160: IVCOMP = IVON01 / (IVON02 + IVON03) 01570044
161: GO TO 47210 01580044
162: 37210 IVDELE = IVDELE + 1 01590044
163: WRITE (I02,80003) IVTNUM 01600044
164: IF (ICZERO) 47210, 7221, 47210 01610044
165: 47210 IF (IVCOMP - 9) 27210,17210,27210 01620044
166: 17210 IVPASS = IVPASS + 1 01630044
167: WRITE (I02,80001) IVTNUM 01640044
168: GO TO 7221 01650044
169: 27210 IVFAIL = IVFAIL + 1 01660044
170: IVCORR = 9 01670044
171: WRITE (I02,80004) IVTNUM, IVCOMP, IVCORR 01680044
172: 7221 CONTINUE 01690044
173: C 01700044
174: C TEST 722 THROUGH 724 TEST '/' FOLLOWED BY '-'. 01710044
175: C 01720044
176: IVTNUM = 722 01730044
177: C 01740044
178: C **** TEST 722 **** 01750044
179: C 01760044
180: IF (ICZERO) 37220, 7220, 37220 01770044
181: 7220 CONTINUE 01780044
182: IVON01 = 108 01790044
183: IVON02 = 9 01800044
184: IVON03 = 3 01810044
185: IVCOMP = IVON01 / IVON02 - IVON03 01820044
186: GO TO 47220 01830044
187: 37220 IVDELE = IVDELE + 1 01840044
188: WRITE (I02,80003) IVTNUM 01850044
189: IF (ICZERO) 47220, 7231, 47220 01860044
190: 47220 IF (IVCOMP - 9) 27220,17220,27220 01870044
191: 17220 IVPASS = IVPASS + 1 01880044
192: WRITE (I02,80001) IVTNUM 01890044
193: GO TO 7231 01900044
194: 27220 IVFAIL = IVFAIL + 1 01910044
195: IVCORR = 9 01920044
196: WRITE (I02,80004) IVTNUM, IVCOMP, IVCORR 01930044
197: 7231 CONTINUE 01940044
198: IVTNUM = 723 01950044
199: C 01960044
200: C **** TEST 723 **** 01970044
201: C 01980044
202: IF (ICZERO) 37230, 7230, 37230 01990044
203: 7230 CONTINUE 02000044
204: IVON01 = 108 02010044
205: IVON02 = 9 02020044
206: IVON03 = 3 02030044
207: IVCOMP = (IVON01 / IVON02) - IVON03 02040044
208: GO TO 47230 02050044
209: 37230 IVDELE = IVDELE + 1 02060044
210: WRITE (I02,80003) IVTNUM 02070044
211: IF (ICZERO) 47230, 7241, 47230 02080044
212: 47230 IF (IVCOMP - 9) 27230,17230,27230 02090044
213: 17230 IVPASS = IVPASS + 1 02100044
214: WRITE (I02,80001) IVTNUM 02110044
215: GO TO 7241 02120044
216: 27230 IVFAIL = IVFAIL + 1 02130044
217: IVCORR = 9 02140044
218: WRITE (I02,80004) IVTNUM, IVCOMP, IVCORR 02150044
219: 7241 CONTINUE 02160044
220: IVTNUM = 724 02170044
221: C 02180044
222: C **** TEST 724 **** 02190044
223: C 02200044
224: IF (ICZERO) 37240, 7240, 37240 02210044
225: 7240 CONTINUE 02220044
226: IVON01 = 108 02230044
227: IVON02 = 9 02240044
228: IVON03 = 3 02250044
229: IVCOMP = IVON01 / (IVON02 - IVON03) 02260044
230: GO TO 47240 02270044
231: 37240 IVDELE = IVDELE + 1 02280044
232: WRITE (I02,80003) IVTNUM 02290044
233: IF (ICZERO) 47240, 7251, 47240 02300044
234: 47240 IF (IVCOMP - 18) 27240,17240,27240 02310044
235: 17240 IVPASS = IVPASS + 1 02320044
236: WRITE (I02,80001) IVTNUM 02330044
237: GO TO 7251 02340044
238: 27240 IVFAIL = IVFAIL + 1 02350044
239: IVCORR = 18 02360044
240: WRITE (I02,80004) IVTNUM, IVCOMP, IVCORR 02370044
241: 7251 CONTINUE 02380044
242: C 02390044
243: C TEST 725 THROUGH 727 TEST '/' FOLLOWED BY '*'. 02400044
244: C 02410044
245: IVTNUM = 725 02420044
246: C 02430044
247: C **** TEST 725 **** 02440044
248: C 02450044
249: IF (ICZERO) 37250, 7250, 37250 02460044
250: 7250 CONTINUE 02470044
251: IVON01 = 108 02480044
252: IVON02 = 9 02490044
253: IVON03 = 3 02500044
254: IVCOMP = IVON01 / IVON02 * IVON03 02510044
255: GO TO 47250 02520044
256: 37250 IVDELE = IVDELE + 1 02530044
257: WRITE (I02,80003) IVTNUM 02540044
258: IF (ICZERO) 47250, 7261, 47250 02550044
259: 47250 IF (IVCOMP - 36) 27250,17250,27250 02560044
260: 17250 IVPASS = IVPASS + 1 02570044
261: WRITE (I02,80001) IVTNUM 02580044
262: GO TO 7261 02590044
263: 27250 IVFAIL = IVFAIL + 1 02600044
264: IVCORR = 36 02610044
265: WRITE (I02,80004) IVTNUM, IVCOMP, IVCORR 02620044
266: 7261 CONTINUE 02630044
267: IVTNUM = 726 02640044
268: C 02650044
269: C **** TEST 726 **** 02660044
270: C 02670044
271: IF (ICZERO) 37260, 7260, 37260 02680044
272: 7260 CONTINUE 02690044
273: IVON01 = 108 02700044
274: IVON02 = 9 02710044
275: IVON03 = 3 02720044
276: IVCOMP = (IVON01 / IVON02) * IVON03 02730044
277: GO TO 47260 02740044
278: 37260 IVDELE = IVDELE + 1 02750044
279: WRITE (I02,80003) IVTNUM 02760044
280: IF (ICZERO) 47260, 7271, 47260 02770044
281: 47260 IF (IVCOMP - 36) 27260,17260,27260 02780044
282: 17260 IVPASS = IVPASS + 1 02790044
283: WRITE (I02,80001) IVTNUM 02800044
284: GO TO 7271 02810044
285: 27260 IVFAIL = IVFAIL + 1 02820044
286: IVCORR = 36 02830044
287: WRITE (I02,80004) IVTNUM, IVCOMP, IVCORR 02840044
288: 7271 CONTINUE 02850044
289: IVTNUM = 727 02860044
290: C 02870044
291: C **** TEST 727 **** 02880044
292: C 02890044
293: IF (ICZERO) 37270, 7270, 37270 02900044
294: 7270 CONTINUE 02910044
295: IVON01 = 108 02920044
296: IVON02 = 9 02930044
297: IVON03 = 3 02940044
298: IVCOMP = IVON01 / (IVON02 * IVON03) 02950044
299: GO TO 47270 02960044
300: 37270 IVDELE = IVDELE + 1 02970044
301: WRITE (I02,80003) IVTNUM 02980044
302: IF (ICZERO) 47270, 7281, 47270 02990044
303: 47270 IF (IVCOMP - 4) 27270,17270,27270 03000044
304: 17270 IVPASS = IVPASS + 1 03010044
305: WRITE (I02,80001) IVTNUM 03020044
306: GO TO 7281 03030044
307: 27270 IVFAIL = IVFAIL + 1 03040044
308: IVCORR = 4 03050044
309: WRITE (I02,80004) IVTNUM, IVCOMP, IVCORR 03060044
310: 7281 CONTINUE 03070044
311: C 03080044
312: C TEST 728 THROUGH 730 TEST '/' FOLLOWED BY '**'. 03090044
313: C 03100044
314: IVTNUM = 728 03110044
315: C 03120044
316: C **** TEST 728 **** 03130044
317: C 03140044
318: IF (ICZERO) 37280, 7280, 37280 03150044
319: 7280 CONTINUE 03160044
320: IVON01 = 108 03170044
321: IVON02 = 3 03180044
322: IVON03 = 2 03190044
323: IVCOMP = IVON01 / IVON02 ** IVON03 03200044
324: GO TO 47280 03210044
325: 37280 IVDELE = IVDELE + 1 03220044
326: WRITE (I02,80003) IVTNUM 03230044
327: IF (ICZERO) 47280, 7291, 47280 03240044
328: 47280 IF (IVCOMP - 12) 27280,17280,27280 03250044
329: 17280 IVPASS = IVPASS + 1 03260044
330: WRITE (I02,80001) IVTNUM 03270044
331: GO TO 7291 03280044
332: 27280 IVFAIL = IVFAIL + 1 03290044
333: IVCORR = 12 03300044
334: WRITE (I02,80004) IVTNUM, IVCOMP, IVCORR 03310044
335: 7291 CONTINUE 03320044
336: IVTNUM = 729 03330044
337: C 03340044
338: C **** TEST 729 **** 03350044
339: C 03360044
340: IF (ICZERO) 37290, 7290, 37290 03370044
341: 7290 CONTINUE 03380044
342: IVON01 = 108 03390044
343: IVON02 = 3 03400044
344: IVON03 = 2 03410044
345: IVCOMP = (IVON01 / IVON02) ** IVON03 03420044
346: GO TO 47290 03430044
347: 37290 IVDELE = IVDELE + 1 03440044
348: WRITE (I02,80003) IVTNUM 03450044
349: IF (ICZERO) 47290, 7301, 47290 03460044
350: 47290 IF (IVCOMP - 1296) 27290,17290,27290 03470044
351: 17290 IVPASS = IVPASS + 1 03480044
352: WRITE (I02,80001) IVTNUM 03490044
353: GO TO 7301 03500044
354: 27290 IVFAIL = IVFAIL + 1 03510044
355: IVCORR = 1296 03520044
356: WRITE (I02,80004) IVTNUM, IVCOMP, IVCORR 03530044
357: 7301 CONTINUE 03540044
358: IVTNUM = 730 03550044
359: C 03560044
360: C **** TEST 730 **** 03570044
361: C 03580044
362: IF (ICZERO) 37300, 7300, 37300 03590044
363: 7300 CONTINUE 03600044
364: IVON01 = 108 03610044
365: IVON02 = 3 03620044
366: IVON03 = 2 03630044
367: IVCOMP = IVON01 / (IVON02 ** IVON03) 03640044
368: GO TO 47300 03650044
369: 37300 IVDELE = IVDELE + 1 03660044
370: WRITE (I02,80003) IVTNUM 03670044
371: IF (ICZERO) 47300, 7311, 47300 03680044
372: 47300 IF (IVCOMP - 12) 27300,17300,27300 03690044
373: 17300 IVPASS = IVPASS + 1 03700044
374: WRITE (I02,80001) IVTNUM 03710044
375: GO TO 7311 03720044
376: 27300 IVFAIL = IVFAIL + 1 03730044
377: IVCORR = 12 03740044
378: WRITE (I02,80004) IVTNUM, IVCOMP, IVCORR 03750044
379: 7311 CONTINUE 03760044
380: C 03770044
381: C TEST 731 THROUGH 733 TEST '**' FOLLOWED BY '+'. 03780044
382: C 03790044
383: IVTNUM = 731 03800044
384: C 03810044
385: C **** TEST 731 **** 03820044
386: C 03830044
387: IF (ICZERO) 37310, 7310, 37310 03840044
388: 7310 CONTINUE 03850044
389: IVON01 = 3 03860044
390: IVON02 = 5 03870044
391: IVON03 = 4 03880044
392: IVCOMP = IVON01 ** IVON02 + IVON03 03890044
393: GO TO 47310 03900044
394: 37310 IVDELE = IVDELE + 1 03910044
395: WRITE (I02,80003) IVTNUM 03920044
396: IF (ICZERO) 47310, 7321, 47310 03930044
397: 47310 IF (IVCOMP - 247) 27310,17310,27310 03940044
398: 17310 IVPASS = IVPASS + 1 03950044
399: WRITE (I02,80001) IVTNUM 03960044
400: GO TO 7321 03970044
401: 27310 IVFAIL = IVFAIL + 1 03980044
402: IVCORR = 247 03990044
403: WRITE (I02,80004) IVTNUM, IVCOMP, IVCORR 04000044
404: 7321 CONTINUE 04010044
405: IVTNUM = 732 04020044
406: C 04030044
407: C **** TEST 732 **** 04040044
408: C 04050044
409: IF (ICZERO) 37320, 7320, 37320 04060044
410: 7320 CONTINUE 04070044
411: IVON01 = 3 04080044
412: IVON02 = 5 04090044
413: IVON03 = 4 04100044
414: IVCOMP = (IVON01 ** IVON02) + IVON03 04110044
415: GO TO 47320 04120044
416: 37320 IVDELE = IVDELE + 1 04130044
417: WRITE (I02,80003) IVTNUM 04140044
418: IF (ICZERO) 47320, 7331, 47320 04150044
419: 47320 IF (IVCOMP - 247) 27320,17320,27320 04160044
420: 17320 IVPASS = IVPASS + 1 04170044
421: WRITE (I02,80001) IVTNUM 04180044
422: GO TO 7331 04190044
423: 27320 IVFAIL = IVFAIL + 1 04200044
424: IVCORR = 247 04210044
425: WRITE (I02,80004) IVTNUM, IVCOMP, IVCORR 04220044
426: 7331 CONTINUE 04230044
427: IVTNUM = 733 04240044
428: C 04250044
429: C **** TEST 733 **** 04260044
430: C 04270044
431: IF (ICZERO) 37330, 7330, 37330 04280044
432: 7330 CONTINUE 04290044
433: IVON01 = 3 04300044
434: IVON02 = 5 04310044
435: IVON03 = 4 04320044
436: IVCOMP = IVON01 ** (IVON02 + IVON03) 04330044
437: GO TO 47330 04340044
438: 37330 IVDELE = IVDELE + 1 04350044
439: WRITE (I02,80003) IVTNUM 04360044
440: IF (ICZERO) 47330, 7341, 47330 04370044
441: 47330 IF (IVCOMP - 19683) 27330,17330,27330 04380044
442: 17330 IVPASS = IVPASS + 1 04390044
443: WRITE (I02,80001) IVTNUM 04400044
444: GO TO 7341 04410044
445: 27330 IVFAIL = IVFAIL + 1 04420044
446: IVCORR = 19683 04430044
447: WRITE (I02,80004) IVTNUM, IVCOMP, IVCORR 04440044
448: 7341 CONTINUE 04450044
449: C 04460044
450: C TEST 734 THROUGH 736 TEST '**' FOLLOWED BY '-'. 04470044
451: C 04480044
452: IVTNUM = 734 04490044
453: C 04500044
454: C **** TEST 734 **** 04510044
455: C 04520044
456: IF (ICZERO) 37340, 7340, 37340 04530044
457: 7340 CONTINUE 04540044
458: IVON01 = 3 04550044
459: IVON02 = 7 04560044
460: IVON03 = 4 04570044
461: IVCOMP = IVON01 ** IVON02 - IVON03 04580044
462: GO TO 47340 04590044
463: 37340 IVDELE = IVDELE + 1 04600044
464: WRITE (I02,80003) IVTNUM 04610044
465: IF (ICZERO) 47340, 7351, 47340 04620044
466: 47340 IF (IVCOMP - 2183) 27340,17340,27340 04630044
467: 17340 IVPASS = IVPASS + 1 04640044
468: WRITE (I02,80001) IVTNUM 04650044
469: GO TO 7351 04660044
470: 27340 IVFAIL = IVFAIL + 1 04670044
471: IVCORR = 2183 04680044
472: WRITE (I02,80004) IVTNUM, IVCOMP, IVCORR 04690044
473: 7351 CONTINUE 04700044
474: IVTNUM = 735 04710044
475: C 04720044
476: C **** TEST 735 **** 04730044
477: C 04740044
478: IF (ICZERO) 37350, 7350, 37350 04750044
479: 7350 CONTINUE 04760044
480: IVON01 = 3 04770044
481: IVON02 = 7 04780044
482: IVON03 = 4 04790044
483: IVCOMP = (IVON01 ** IVON02) - IVON03 04800044
484: GO TO 47350 04810044
485: 37350 IVDELE = IVDELE + 1 04820044
486: WRITE (I02,80003) IVTNUM 04830044
487: IF (ICZERO) 47350, 7361, 47350 04840044
488: 47350 IF (IVCOMP - 2183) 27350,17350,27350 04850044
489: 17350 IVPASS = IVPASS + 1 04860044
490: WRITE (I02,80001) IVTNUM 04870044
491: GO TO 7361 04880044
492: 27350 IVFAIL = IVFAIL + 1 04890044
493: IVCORR = 2183 04900044
494: WRITE (I02,80004) IVTNUM, IVCOMP, IVCORR 04910044
495: 7361 CONTINUE 04920044
496: IVTNUM = 736 04930044
497: C 04940044
498: C **** TEST 736 **** 04950044
499: C 04960044
500: IF (ICZERO) 37360, 7360, 37360 04970044
501: 7360 CONTINUE 04980044
502: IVON01 = 3 04990044
503: IVON02 = 7 05000044
504: IVON03 = 4 05010044
505: IVCOMP = IVON01 ** (IVON02 - IVON03) 05020044
506: GO TO 47360 05030044
507: 37360 IVDELE = IVDELE + 1 05040044
508: WRITE (I02,80003) IVTNUM 05050044
509: IF (ICZERO) 47360, 7371, 47360 05060044
510: 47360 IF (IVCOMP - 27) 27360,17360,27360 05070044
511: 17360 IVPASS = IVPASS + 1 05080044
512: WRITE (I02,80001) IVTNUM 05090044
513: GO TO 7371 05100044
514: 27360 IVFAIL = IVFAIL + 1 05110044
515: IVCORR = 27 05120044
516: WRITE (I02,80004) IVTNUM, IVCOMP, IVCORR 05130044
517: 7371 CONTINUE 05140044
518: C 05150044
519: C TEST 737 THROUGH 739 TEST '**' FOLLOWED BY '*'. 05160044
520: C 05170044
521: IVTNUM = 737 05180044
522: C 05190044
523: C **** TEST 737 **** 05200044
524: C 05210044
525: IF (ICZERO) 37370, 7370, 37370 05220044
526: 7370 CONTINUE 05230044
527: IVON01 = 3 05240044
528: IVON02 = 3 05250044
529: IVON03 = 3 05260044
530: IVCOMP = IVON01 ** IVON02 * IVON03 05270044
531: GO TO 47370 05280044
532: 37370 IVDELE = IVDELE + 1 05290044
533: WRITE (I02,80003) IVTNUM 05300044
534: IF (ICZERO) 47370, 7381, 47370 05310044
535: 47370 IF (IVCOMP - 81) 27370,17370,27370 05320044
536: 17370 IVPASS = IVPASS + 1 05330044
537: WRITE (I02,80001) IVTNUM 05340044
538: GO TO 7381 05350044
539: 27370 IVFAIL = IVFAIL + 1 05360044
540: IVCORR = 81 05370044
541: WRITE (I02,80004) IVTNUM, IVCOMP, IVCORR 05380044
542: 7381 CONTINUE 05390044
543: IVTNUM = 738 05400044
544: C 05410044
545: C **** TEST 738 **** 05420044
546: C 05430044
547: IF (ICZERO) 37380, 7380, 37380 05440044
548: 7380 CONTINUE 05450044
549: IVON01 = 3 05460044
550: IVON02 = 3 05470044
551: IVON03 = 3 05480044
552: IVCOMP = (IVON01 ** IVON02) * IVON03 05490044
553: GO TO 47380 05500044
554: 37380 IVDELE = IVDELE + 1 05510044
555: WRITE (I02,80003) IVTNUM 05520044
556: IF (ICZERO) 47380, 7391, 47380 05530044
557: 47380 IF (IVCOMP - 81) 27380,17380,27380 05540044
558: 17380 IVPASS = IVPASS + 1 05550044
559: WRITE (I02,80001) IVTNUM 05560044
560: GO TO 7391 05570044
561: 27380 IVFAIL = IVFAIL + 1 05580044
562: IVCORR = 81 05590044
563: WRITE (I02,80004) IVTNUM, IVCOMP, IVCORR 05600044
564: 7391 CONTINUE 05610044
565: IVTNUM = 739 05620044
566: C 05630044
567: C **** TEST 739 **** 05640044
568: C 05650044
569: IF (ICZERO) 37390, 7390, 37390 05660044
570: 7390 CONTINUE 05670044
571: IVON01 = 3 05680044
572: IVON02 = 3 05690044
573: IVON03 = 3 05700044
574: IVCOMP = IVON01 ** (IVON02 * IVON03) 05710044
575: GO TO 47390 05720044
576: 37390 IVDELE = IVDELE + 1 05730044
577: WRITE (I02,80003) IVTNUM 05740044
578: IF (ICZERO) 47390, 7401, 47390 05750044
579: 47390 IF (IVCOMP - 19683) 27390,17390,27390 05760044
580: 17390 IVPASS = IVPASS + 1 05770044
581: WRITE (I02,80001) IVTNUM 05780044
582: GO TO 7401 05790044
583: 27390 IVFAIL = IVFAIL + 1 05800044
584: IVCORR = 19683 05810044
585: WRITE (I02,80004) IVTNUM, IVCOMP, IVCORR 05820044
586: 7401 CONTINUE 05830044
587: C 05840044
588: C TEST 740 THROUGH 742 TEST '**' FOLLOWED BY '/'. 05850044
589: C 05860044
590: IVTNUM = 740 05870044
591: C 05880044
592: C **** TEST 740 **** 05890044
593: C 05900044
594: IF (ICZERO) 37400, 7400, 37400 05910044
595: 7400 CONTINUE 05920044
596: IVON01 = 3 05930044
597: IVON02 = 9 05940044
598: IVON03 = 3 05950044
599: IVCOMP = IVON01 ** IVON02 / IVON03 05960044
600: GO TO 47400 05970044
601: 37400 IVDELE = IVDELE + 1 05980044
602: WRITE (I02,80003) IVTNUM 05990044
603: IF (ICZERO) 47400, 7411, 47400 06000044
604: 47400 IF (IVCOMP - 6561) 27400,17400,27400 06010044
605: 17400 IVPASS = IVPASS + 1 06020044
606: WRITE (I02,80001) IVTNUM 06030044
607: GO TO 7411 06040044
608: 27400 IVFAIL = IVFAIL + 1 06050044
609: IVCORR = 6561 06060044
610: WRITE (I02,80004) IVTNUM, IVCOMP, IVCORR 06070044
611: 7411 CONTINUE 06080044
612: IVTNUM = 741 06090044
613: C 06100044
614: C **** TEST 741 **** 06110044
615: C 06120044
616: IF (ICZERO) 37410, 7410, 37410 06130044
617: 7410 CONTINUE 06140044
618: IVON01 = 3 06150044
619: IVON02 = 9 06160044
620: IVON03 = 3 06170044
621: IVCOMP = (IVON01 ** IVON02) / IVON03 06180044
622: GO TO 47410 06190044
623: 37410 IVDELE = IVDELE + 1 06200044
624: WRITE (I02,80003) IVTNUM 06210044
625: IF (ICZERO) 47410, 7421, 47410 06220044
626: 47410 IF (IVCOMP - 6561) 27410,17410,27410 06230044
627: 17410 IVPASS = IVPASS + 1 06240044
628: WRITE (I02,80001) IVTNUM 06250044
629: GO TO 7421 06260044
630: 27410 IVFAIL = IVFAIL + 1 06270044
631: IVCORR = 6561 06280044
632: WRITE (I02,80004) IVTNUM, IVCOMP, IVCORR 06290044
633: 7421 CONTINUE 06300044
634: IVTNUM = 742 06310044
635: C **** TEST 742 **** 06320044
636: C 06330044
637: IF (ICZERO) 37420, 7420, 37420 06340044
638: 7420 CONTINUE 06350044
639: IVON01 = 3 06360044
640: IVON02 = 9 06370044
641: IVON03 = 3 06380044
642: IVCOMP = IVON01 ** (IVON02 / IVON03) 06390044
643: GO TO 47420 06400044
644: 37420 IVDELE = IVDELE + 1 06410044
645: WRITE (I02,80003) IVTNUM 06420044
646: IF (ICZERO) 47420, 7431, 47420 06430044
647: 47420 IF (IVCOMP - 27) 27420,17420,27420 06440044
648: 17420 IVPASS = IVPASS + 1 06450044
649: WRITE (I02,80001) IVTNUM 06460044
650: GO TO 7431 06470044
651: 27420 IVFAIL = IVFAIL + 1 06480044
652: IVCORR = 27 06490044
653: WRITE (I02,80004) IVTNUM, IVCOMP, IVCORR 06500044
654: 7431 CONTINUE 06510044
655: C 06520044
656: C TEST 743 THROUGH 746 TEST '**' FOLLOWED BY '**'. 06530044
657: C 06540044
658: IVTNUM = 743 06550044
659: C 06560044
660: C **** TEST 743 **** 06570044
661: C 06580044
662: IF (ICZERO) 37430, 7430, 37430 06590044
663: 7430 CONTINUE 06600044
664: IVON01 = 3 06610044
665: IVON02 = 3 06620044
666: IVON03 = 2 06630044
667: IVCOMP = (IVON01 ** IVON02) ** IVON03 06640044
668: GO TO 47430 06650044
669: 37430 IVDELE = IVDELE + 1 06660044
670: WRITE (I02,80003) IVTNUM 06670044
671: IF (ICZERO) 47430, 7441, 47430 06680044
672: 47430 IF (IVCOMP - 729) 27430,17430,27430 06690044
673: 17430 IVPASS = IVPASS + 1 06700044
674: WRITE (I02,80001) IVTNUM 06710044
675: GO TO 7441 06720044
676: 27430 IVFAIL = IVFAIL + 1 06730044
677: IVCORR = 729 06740044
678: WRITE (I02,80004) IVTNUM, IVCOMP, IVCORR 06750044
679: 7441 CONTINUE 06760044
680: IVTNUM = 744 06770044
681: C 06780044
682: C **** TEST 744 **** 06790044
683: C 06800044
684: IF (ICZERO) 37440, 7440, 37440 06810044
685: 7440 CONTINUE 06820044
686: IVON01 = 3 06830044
687: IVON02 = 3 06840044
688: IVON03 = 2 06850044
689: IVCOMP = IVON01 ** (IVON02 ** IVON03) 06860044
690: GO TO 47440 06870044
691: 37440 IVDELE = IVDELE + 1 06880044
692: WRITE (I02,80003) IVTNUM 06890044
693: IF (ICZERO) 47440, 7451, 47440 06900044
694: 47440 IF (IVCOMP - 19683) 27440,17440,27440 06910044
695: 17440 IVPASS = IVPASS + 1 06920044
696: WRITE (I02,80001) IVTNUM 06930044
697: GO TO 7451 06940044
698: 27440 IVFAIL = IVFAIL + 1 06950044
699: IVCORR = 19683 06960044
700: WRITE (I02,80004) IVTNUM, IVCOMP, IVCORR 06970044
701: 7451 CONTINUE 06980044
702: IVTNUM = 745 06990044
703: C 07000044
704: C **** TEST 745 **** 07010044
705: C 07020044
706: IF (ICZERO) 37450, 7450, 37450 07030044
707: 7450 CONTINUE 07040044
708: IVON01 = -3 07050044
709: IVON02 = 3 07060044
710: IVON03 = 2 07070044
711: IVCOMP = (IVON01 ** IVON02) ** IVON03 07080044
712: GO TO 47450 07090044
713: 37450 IVDELE = IVDELE + 1 07100044
714: WRITE (I02,80003) IVTNUM 07110044
715: IF (ICZERO) 47450, 7461, 47450 07120044
716: 47450 IF (IVCOMP - 729) 27450,17450,27450 07130044
717: 17450 IVPASS = IVPASS + 1 07140044
718: WRITE (I02,80001) IVTNUM 07150044
719: GO TO 7461 07160044
720: 27450 IVFAIL = IVFAIL + 1 07170044
721: IVCORR = 729 07180044
722: WRITE (I02,80004) IVTNUM, IVCOMP, IVCORR 07190044
723: 7461 CONTINUE 07200044
724: IVTNUM = 746 07210044
725: C 07220044
726: C **** TEST 746 **** 07230044
727: C 07240044
728: IF (ICZERO) 37460, 7460, 37460 07250044
729: 7460 CONTINUE 07260044
730: IVON01 = -3 07270044
731: IVON02 = 3 07280044
732: IVON03 = 2 07290044
733: IVCOMP = IVON01 ** (IVON02 ** IVON03) 07300044
734: GO TO 47460 07310044
735: 37460 IVDELE = IVDELE + 1 07320044
736: WRITE (I02,80003) IVTNUM 07330044
737: IF (ICZERO) 47460, 7471, 47460 07340044
738: 47460 IF (IVCOMP + 19683) 27460,17460,27460 07350044
739: 17460 IVPASS = IVPASS + 1 07360044
740: WRITE (I02,80001) IVTNUM 07370044
741: GO TO 7471 07380044
742: 27460 IVFAIL = IVFAIL + 1 07390044
743: IVCORR = -19683 07400044
744: WRITE (I02,80004) IVTNUM, IVCOMP, IVCORR 07410044
745: 7471 CONTINUE 07420044
746: C 07430044
747: C 07440044
748: C WRITE PAGE FOOTINGS AND RUN SUMMARIES 07450044
749: 99999 CONTINUE 07460044
750: WRITE (I02,90002) 07470044
751: WRITE (I02,90006) 07480044
752: WRITE (I02,90002) 07490044
753: WRITE (I02,90002) 07500044
754: WRITE (I02,90007) 07510044
755: WRITE (I02,90002) 07520044
756: WRITE (I02,90008) IVFAIL 07530044
757: WRITE (I02,90009) IVPASS 07540044
758: WRITE (I02,90010) IVDELE 07550044
759: C 07560044
760: C 07570044
761: C TERMINATE ROUTINE EXECUTION 07580044
762: STOP 07590044
763: C 07600044
764: C FORMAT STATEMENTS FOR PAGE HEADERS 07610044
765: 90000 FORMAT (1H1) 07620044
766: 90002 FORMAT (1H ) 07630044
767: 90001 FORMAT (1H ,10X,34HFORTRAN COMPILER VALIDATION SYSTEM) 07640044
768: 90003 FORMAT (1H ,21X,11HVERSION 1.0) 07650044
769: 90004 FORMAT (1H ,10X,38HFOR OFFICIAL USE ONLY - COPYRIGHT 1978) 07660044
770: 90005 FORMAT (1H ,5X,4HTEST,5X,9HPASS/FAIL, 5X,8HCOMPUTED,8X,7HCORRECT) 07670044
771: 90006 FORMAT (1H ,5X,46H----------------------------------------------) 07680044
772: 90011 FORMAT (1H ,18X,17HSUBSET LEVEL TEST) 07690044
773: C 07700044
774: C FORMAT STATEMENTS FOR RUN SUMMARIES 07710044
775: 90008 FORMAT (1H ,15X,I5,19H ERRORS ENCOUNTERED) 07720044
776: 90009 FORMAT (1H ,15X,I5,13H TESTS PASSED) 07730044
777: 90010 FORMAT (1H ,15X,I5,14H TESTS DELETED) 07740044
778: C 07750044
779: C FORMAT STATEMENTS FOR TEST RESULTS 07760044
780: 80001 FORMAT (1H ,4X,I5,7X,4HPASS) 07770044
781: 80002 FORMAT (1H ,4X,I5,7X,4HFAIL) 07780044
782: 80003 FORMAT (1H ,4X,I5,7X,7HDELETED) 07790044
783: 80004 FORMAT (1H ,4X,I5,7X,4HFAIL,10X,I6,9X,I6) 07800044
784: 80005 FORMAT (1H ,4X,I5,7X,4HFAIL,4X,E12.5,3X,E12.5) 07810044
785: C 07820044
786: 90007 FORMAT (1H ,20X,20HEND OF PROGRAM FM044) 07830044
787: END 07840044
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.