![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to FM009.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 FM009.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. 00010009
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 00020009
6: C FM009 00030009
7: C 00040009
8: C THIS ROUTINE TESTS ARITHMETIC ASSIGNMENT STATEMENTS OF THE 00050009
9: C FORM 00060009
10: C INTEGER VARIABLE = ARITHMETIC EXPRESSION 00070009
11: C WHERE THE ARITHMETIC EXPRESSION IS FORMED WITH THE ARITHMETIC 00080009
12: C OPERATOR +, INTEGER CONSTANTS AND POSITIVE INTEGER VARIABLES. 00090009
13: C SOME OF THE TESTS USE PARENTHESES TO GROUP ELEMENTS IN THE 00100009
14: C ARITHMETIC EXPRESSION. 00110009
15: C 00120009
16: C THERE ARE TESTS WHERE THE ARITHMETIC EXPRESSION CONTAINS 00130009
17: C (1) TWO INTEGER VARIABLES, 00140009
18: C (2) TWO INTEGER VARIABLES AND ONE INTEGER CONSTANT, 00150009
19: C (3) TWO INTEGER VARIABLES AND ONE INTEGER CONSTANT WITH 00160009
20: C PARENTHESES TO GROUP ELEMENTS. 00170009
21: C 00180009
22: C REFERENCES 00190009
23: C AMERICAN NATIONAL STANDARD PROGRAMMING LANGUAGE FORTRAN, 00200009
24: C X3.9-1978 00210009
25: C 00220009
26: C SECTION 4.3, INTEGER TYPE 00230009
27: C SECTION 4.3.1, INTEGER CONSTANT 00240009
28: C SECTION 6.1, ARITHMETIC EXPRESSIONS 00250009
29: C SECTION 10.1, ARITHMETIC ASSIGNMENT STATEMENTS 00260009
30: C 00270009
31: C ********************************************************** 00280009
32: C 00290009
33: C A COMPILER VALIDATION SYSTEM FOR THE FORTRAN LANGUAGE 00300009
34: C BASED ON SPECIFICATIONS AS DEFINED IN AMERICAN NATIONAL STANDARD 00310009
35: C PROGRAMMING LANGUAGE FORTRAN X3.9-1978, HAS BEEN DEVELOPED BY THE 00320009
36: C FEDERAL COBOL COMPILER TESTING SERVICE. THE FORTRAN COMPILER 00330009
37: C VALIDATION SYSTEM (FCVS) CONSISTS OF AUDIT ROUTINES, THEIR RELATED00340009
38: C DATA, AND AN EXECUTIVE SYSTEM. EACH AUDIT ROUTINE IS A FORTRAN 00350009
39: C PROGRAM, SUBPROGRAM OR FUNCTION WHICH INCLUDES TESTS OF SPECIFIC 00360009
40: C LANGUAGE ELEMENTS AND SUPPORTING PROCEDURES INDICATING THE RESULT 00370009
41: C OF EXECUTING THESE TESTS. 00380009
42: C 00390009
43: C THIS PARTICULAR PROGRAM/SUBPROGRAM/FUNCTION CONTAINS FEATURES 00400009
44: C FOUND ONLY IN THE SUBSET AS DEFINED IN X3.9-1978. 00410009
45: C 00420009
46: C SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO - 00430009
47: C 00440009
48: C DEPARTMENT OF THE NAVY 00450009
49: C FEDERAL COBOL COMPILER TESTING SERVICE 00460009
50: C WASHINGTON, D.C. 20376 00470009
51: C 00480009
52: C ********************************************************** 00490009
53: C 00500009
54: C 00510009
55: C 00520009
56: C INITIALIZATION SECTION 00530009
57: C 00540009
58: C INITIALIZE CONSTANTS 00550009
59: C ************** 00560009
60: C I01 CONTAINS THE LOGICAL UNIT NUMBER FOR THE CARD READER. 00570009
61: I01 = 5 00580009
62: C I02 CONTAINS THE LOGICAL UNIT NUMBER FOR THE PRINTER. 00590009
63: I02 = 6 00600009
64: C SYSTEM ENVIRONMENT SECTION 00610009
65: C 00620009
66: I01 = 5 00630009
67: C THE CX010 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I01 = 5 00640009
68: C (UNIT NUMBER FOR CARD READER). 00650009
69: CX011 THIS CARD IS REPLACED BY CONTENTS OF FEXEC X-011 CONTROL CARD. 00660009
70: C THE CX011 CARD IS FOR SYSTEMS WHICH REQUIRE ADDITIONAL 00670009
71: C FORTRAN STATEMENTS FOR FILES ASSOCIATED WITH CX010 ABOVE. 00680009
72: C 00690009
73: I02 = 6 00700009
74: C THE CX020 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I02 = 6 00710009
75: C (UNIT NUMBER FOR PRINTER). 00720009
76: CX021 THIS CARD IS REPLACED BY CONTENTS OF FEXEC X-021 CONTROL CARD. 00730009
77: C THE CX021 CARD IS FOR SYSTEMS WHICH REQUIRE ADDITIONAL 00740009
78: C FORTRAN STATEMENTS FOR FILES ASSOCIATED WITH CX020 ABOVE. 00750009
79: C 00760009
80: IVPASS=0 00770009
81: IVFAIL=0 00780009
82: IVDELE=0 00790009
83: ICZERO=0 00800009
84: C 00810009
85: C WRITE PAGE HEADERS 00820009
86: WRITE (I02,90000) 00830009
87: WRITE (I02,90001) 00840009
88: WRITE (I02,90002) 00850009
89: WRITE (I02, 90002) 00860009
90: WRITE (I02,90003) 00870009
91: WRITE (I02,90002) 00880009
92: WRITE (I02,90004) 00890009
93: WRITE (I02,90002) 00900009
94: WRITE (I02,90011) 00910009
95: WRITE (I02,90002) 00920009
96: WRITE (I02,90002) 00930009
97: WRITE (I02,90005) 00940009
98: WRITE (I02,90006) 00950009
99: WRITE (I02,90002) 00960009
100: C 00970009
101: C TEST SECTION 00980009
102: C 00990009
103: C ARITHMETIC ASSIGNMENT STATEMENT 01000009
104: C 01010009
105: C TEST 235 THROUGH TEST 243 CONTAIN TWO POSITIVE INTEGER VARIABLES 01020009
106: C AND OPERATOR + IN ARITHMETIC EXPRESSION. 01030009
107: C 01040009
108: 2351 CONTINUE 01050009
109: IVTNUM = 235 01060009
110: C 01070009
111: C **** TEST 235 **** 01080009
112: C 01090009
113: IF (ICZERO) 32350, 2350, 32350 01100009
114: 2350 CONTINUE 01110009
115: IVON01 = 2 01120009
116: IVON02 = 3 01130009
117: IVCOMP = IVON01 + IVON02 01140009
118: GO TO 42350 01150009
119: 32350 IVDELE = IVDELE + 1 01160009
120: WRITE (I02,80003) IVTNUM 01170009
121: IF (ICZERO) 42350, 2361, 42350 01180009
122: 42350 IF (IVCOMP - 5) 22350,12350,22350 01190009
123: 12350 IVPASS = IVPASS + 1 01200009
124: WRITE (I02,80001) IVTNUM 01210009
125: GO TO 2361 01220009
126: 22350 IVFAIL = IVFAIL + 1 01230009
127: IVCORR = 5 01240009
128: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 01250009
129: 2361 CONTINUE 01260009
130: IVTNUM = 236 01270009
131: C 01280009
132: C **** TEST 236 **** 01290009
133: C 01300009
134: IF (ICZERO) 32360, 2360, 32360 01310009
135: 2360 CONTINUE 01320009
136: IVON01 = 2 01330009
137: IVON02 = 3 01340009
138: IVCOMP = IVON02 + IVON01 01350009
139: GO TO 42360 01360009
140: 32360 IVDELE = IVDELE + 1 01370009
141: WRITE (I02,80003) IVTNUM 01380009
142: IF (ICZERO) 42360, 2371, 42360 01390009
143: 42360 IF (IVCOMP - 5) 22360, 12360, 22360 01400009
144: 12360 IVPASS = IVPASS + 1 01410009
145: WRITE (I02,80001) IVTNUM 01420009
146: GO TO 2371 01430009
147: 22360 IVFAIL = IVFAIL + 1 01440009
148: IVCORR = 5 01450009
149: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 01460009
150: 2371 CONTINUE 01470009
151: IVTNUM = 237 01480009
152: C 01490009
153: C **** TEST 237 **** 01500009
154: C 01510009
155: IF (ICZERO) 32370, 2370, 32370 01520009
156: 2370 CONTINUE 01530009
157: IVON01 = 51 01540009
158: IVON02 = 52 01550009
159: IVCOMP = IVON01 + IVON02 01560009
160: GO TO 42370 01570009
161: 32370 IVDELE = IVDELE + 1 01580009
162: WRITE (I02,80003) IVTNUM 01590009
163: IF (ICZERO) 42370, 2381, 42370 01600009
164: 42370 IF (IVCOMP - 103) 22370, 12370, 22370 01610009
165: 12370 IVPASS = IVPASS + 1 01620009
166: WRITE (I02,80001) IVTNUM 01630009
167: GO TO 2381 01640009
168: 22370 IVFAIL = IVFAIL + 1 01650009
169: IVCORR = 103 01660009
170: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 01670009
171: 2381 CONTINUE 01680009
172: IVTNUM = 238 01690009
173: C 01700009
174: C **** TEST 238 **** 01710009
175: C 01720009
176: IF (ICZERO) 32380, 2380, 32380 01730009
177: 2380 CONTINUE 01740009
178: IVON01 = 189 01750009
179: IVON02 = 676 01760009
180: IVCOMP = IVON01 + IVON02 01770009
181: GO TO 42380 01780009
182: 32380 IVDELE = IVDELE + 1 01790009
183: WRITE (I02,80003) IVTNUM 01800009
184: IF (ICZERO) 42380, 2391, 42380 01810009
185: 42380 IF (IVCOMP - 865) 22380, 12380, 22380 01820009
186: 12380 IVPASS = IVPASS + 1 01830009
187: WRITE (I02,80001) IVTNUM 01840009
188: GO TO 2391 01850009
189: 22380 IVFAIL = IVFAIL + 1 01860009
190: IVCORR = 865 01870009
191: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 01880009
192: 2391 CONTINUE 01890009
193: IVTNUM = 239 01900009
194: C 01910009
195: C **** TEST 239 **** 01920009
196: C 01930009
197: IF (ICZERO) 32390, 2390, 32390 01940009
198: 2390 CONTINUE 01950009
199: IVON01 = 1358 01960009
200: IVON02 = 8001 01970009
201: IVCOMP = IVON01 + IVON02 01980009
202: GO TO 42390 01990009
203: 32390 IVDELE = IVDELE + 1 02000009
204: WRITE (I02,80003) IVTNUM 02010009
205: IF (ICZERO) 42390, 2401, 42390 02020009
206: 42390 IF (IVCOMP - 9359) 22390, 12390, 22390 02030009
207: 12390 IVPASS = IVPASS + 1 02040009
208: WRITE (I02,80001) IVTNUM 02050009
209: GO TO 2401 02060009
210: 22390 IVFAIL = IVFAIL + 1 02070009
211: IVCORR = 9359 02080009
212: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 02090009
213: 2401 CONTINUE 02100009
214: IVTNUM = 240 02110009
215: C 02120009
216: C **** TEST 240 **** 02130009
217: C 02140009
218: IF (ICZERO) 32400, 2400, 32400 02150009
219: 2400 CONTINUE 02160009
220: IVON01 = 1358 02170009
221: IVON02 = 8001 02180009
222: IVCOMP = IVON02 + IVON01 02190009
223: GO TO 42400 02200009
224: 32400 IVDELE = IVDELE + 1 02210009
225: WRITE (I02,80003) IVTNUM 02220009
226: IF (ICZERO) 42400, 2411, 42400 02230009
227: 42400 IF (IVCOMP - 9359) 22400, 12400, 22400 02240009
228: 12400 IVPASS = IVPASS + 1 02250009
229: WRITE (I02,80001) IVTNUM 02260009
230: GO TO 2411 02270009
231: 22400 IVFAIL = IVFAIL + 1 02280009
232: IVCORR = 9359 02290009
233: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 02300009
234: 2411 CONTINUE 02310009
235: IVTNUM = 241 02320009
236: C 02330009
237: C **** TEST 241 **** 02340009
238: C 02350009
239: IF (ICZERO) 32410, 2410, 32410 02360009
240: 2410 CONTINUE 02370009
241: IVON01 = 11112 02380009
242: IVON02 = 10001 02390009
243: IVCOMP = IVON01 + IVON02 02400009
244: GO TO 42410 02410009
245: 32410 IVDELE = IVDELE + 1 02420009
246: WRITE (I02,80003) IVTNUM 02430009
247: IF (ICZERO) 42410, 2421, 42410 02440009
248: 42410 IF (IVCOMP - 21113) 22410, 12410, 22410 02450009
249: 12410 IVPASS = IVPASS + 1 02460009
250: WRITE (I02,80001) IVTNUM 02470009
251: GO TO 2421 02480009
252: 22410 IVFAIL = IVFAIL + 1 02490009
253: IVCORR = 21113 02500009
254: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 02510009
255: 2421 CONTINUE 02520009
256: IVTNUM = 242 02530009
257: C 02540009
258: C **** TEST 242 **** 02550009
259: C 02560009
260: IF (ICZERO) 32420, 2420, 32420 02570009
261: 2420 CONTINUE 02580009
262: IVON01 = 189 02590009
263: IVON02 = 9876 02600009
264: IVCOMP = IVON01 + IVON02 02610009
265: GO TO 42420 02620009
266: 32420 IVDELE = IVDELE + 1 02630009
267: WRITE (I02,80003) IVTNUM 02640009
268: IF (ICZERO) 42420, 2431, 42420 02650009
269: 42420 IF (IVCOMP - 10065) 22420, 12420, 22420 02660009
270: 12420 IVPASS = IVPASS + 1 02670009
271: WRITE (I02,80001) IVTNUM 02680009
272: GO TO 2431 02690009
273: 22420 IVFAIL = IVFAIL + 1 02700009
274: IVCORR = 10065 02710009
275: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 02720009
276: 2431 CONTINUE 02730009
277: IVTNUM = 243 02740009
278: C 02750009
279: C **** TEST 243 **** 02760009
280: C REQUIRES 32767 02770009
281: C 02780009
282: IF (ICZERO) 32430, 2430, 32430 02790009
283: 2430 CONTINUE 02800009
284: IVON01 = 16383 02810009
285: IVON02 = 16384 02820009
286: IVCOMP = IVON01 + IVON02 02830009
287: GO TO 42430 02840009
288: 32430 IVDELE = IVDELE + 1 02850009
289: WRITE (I02,80003) IVTNUM 02860009
290: IF (ICZERO) 42430, 2441, 42430 02870009
291: 42430 IF (IVCOMP - 32767) 22430, 12430, 22430 02880009
292: 12430 IVPASS = IVPASS + 1 02890009
293: WRITE (I02,80001) IVTNUM 02900009
294: GO TO 2441 02910009
295: 22430 IVFAIL = IVFAIL + 1 02920009
296: IVCORR = 32767 02930009
297: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 02940009
298: C 02950009
299: C TEST 244 THROUGH TEST 250 CONTAIN TWO POSITIVE INTEGER VARIABLES, 02960009
300: C ONE INTEGER CONSTANT, AND OPERATOR + IN ARITHMETIC EXPRESSION. 02970009
301: C 02980009
302: 2441 CONTINUE 02990009
303: IVTNUM = 244 03000009
304: C 03010009
305: C **** TEST 244 **** 03020009
306: C 03030009
307: IF (ICZERO) 32440, 2440, 32440 03040009
308: 2440 CONTINUE 03050009
309: IVON01 = 2 03060009
310: IVON02 = 3 03070009
311: IVCOMP = IVON01 + IVON02 + 4 03080009
312: GO TO 42440 03090009
313: 32440 IVDELE = IVDELE + 1 03100009
314: WRITE (I02,80003) IVTNUM 03110009
315: IF (ICZERO) 42440, 2451, 42440 03120009
316: 42440 IF (IVCOMP - 9) 22440, 12440, 22440 03130009
317: 12440 IVPASS = IVPASS + 1 03140009
318: WRITE (I02,80001) IVTNUM 03150009
319: GO TO 2451 03160009
320: 22440 IVFAIL = IVFAIL + 1 03170009
321: IVCORR = 9 03180009
322: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 03190009
323: 2451 CONTINUE 03200009
324: IVTNUM = 245 03210009
325: C 03220009
326: C **** TEST 245 **** 03230009
327: C 03240009
328: IF (ICZERO) 32450, 2450, 32450 03250009
329: 2450 CONTINUE 03260009
330: IVON01 = 2 03270009
331: IVON03 = 4 03280009
332: IVCOMP = IVON01 +3 + IVON03 03290009
333: GO TO 42450 03300009
334: 32450 IVDELE = IVDELE + 1 03310009
335: WRITE (I02,80003) IVTNUM 03320009
336: IF (ICZERO) 42450, 2461, 42450 03330009
337: 42450 IF (IVCOMP - 9) 22450, 12450, 22450 03340009
338: 12450 IVPASS = IVPASS + 1 03350009
339: WRITE (I02,80001) IVTNUM 03360009
340: GO TO 2461 03370009
341: 22450 IVFAIL = IVFAIL + 1 03380009
342: IVCORR = 9 03390009
343: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 03400009
344: 2461 CONTINUE 03410009
345: IVTNUM = 246 03420009
346: C 03430009
347: C **** TEST 246 **** 03440009
348: C 03450009
349: IF (ICZERO) 32460, 2460, 32460 03460009
350: 2460 CONTINUE 03470009
351: IVON02 = 3 03480009
352: IVON03 = 4 03490009
353: IVCOMP = 2 + IVON02 + IVON03 03500009
354: GO TO 42460 03510009
355: 32460 IVDELE = IVDELE + 1 03520009
356: WRITE (I02,80003) IVTNUM 03530009
357: IF (ICZERO) 42460, 2471, 42460 03540009
358: 42460 IF (IVCOMP - 9) 22460, 12460, 22460 03550009
359: 12460 IVPASS = IVPASS + 1 03560009
360: WRITE (I02,80001) IVTNUM 03570009
361: GO TO 2471 03580009
362: 22460 IVFAIL = IVFAIL + 1 03590009
363: IVCORR = 9 03600009
364: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 03610009
365: 2471 CONTINUE 03620009
366: IVTNUM = 247 03630009
367: C 03640009
368: C **** TEST 247 **** 03650009
369: C 03660009
370: IF (ICZERO) 32470, 2470, 32470 03670009
371: 2470 CONTINUE 03680009
372: IVON01 = 51 03690009
373: IVON03 = 53 03700009
374: IVCOMP = IVON01 +52 + IVON03 03710009
375: GO TO 42470 03720009
376: 32470 IVDELE = IVDELE + 1 03730009
377: WRITE (I02,80003) IVTNUM 03740009
378: IF (ICZERO) 42470, 2481, 42470 03750009
379: 42470 IF (IVCOMP - 156) 22470, 12470, 22470 03760009
380: 12470 IVPASS = IVPASS + 1 03770009
381: WRITE (I02,80001) IVTNUM 03780009
382: GO TO 2481 03790009
383: 22470 IVFAIL = IVFAIL + 1 03800009
384: IVCORR = 156 03810009
385: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 03820009
386: 2481 CONTINUE 03830009
387: IVTNUM = 248 03840009
388: C 03850009
389: C **** TEST 248 **** 03860009
390: C 03870009
391: IF (ICZERO) 32480, 2480, 32480 03880009
392: 2480 CONTINUE 03890009
393: IVON02 = 676 03900009
394: IVON03 = 101 03910009
395: IVCOMP = 189 + IVON02 + IVON03 03920009
396: GO TO 42480 03930009
397: 32480 IVDELE = IVDELE + 1 03940009
398: WRITE (I02,80003) IVTNUM 03950009
399: IF (ICZERO) 42480, 2491, 42480 03960009
400: 42480 IF (IVCOMP - 966) 22480, 12480, 22480 03970009
401: 12480 IVPASS = IVPASS + 1 03980009
402: WRITE (I02,80001) IVTNUM 03990009
403: GO TO 2491 04000009
404: 22480 IVFAIL = IVFAIL + 1 04010009
405: IVCORR = 966 04020009
406: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 04030009
407: 2491 CONTINUE 04040009
408: IVTNUM = 249 04050009
409: C 04060009
410: C **** TEST 249 **** 04070009
411: C 04080009
412: IF (ICZERO) 32490, 2490, 32490 04090009
413: 2490 CONTINUE 04100009
414: IVON01 = 1358 04110009
415: IVON02 = 8001 04120009
416: IVCOMP = IVON01 + IVON02 + 2189 04130009
417: GO TO 42490 04140009
418: 32490 IVDELE = IVDELE + 1 04150009
419: WRITE (I02,80003) IVTNUM 04160009
420: IF (ICZERO) 42490, 2501, 42490 04170009
421: 42490 IF (IVCOMP - 11548) 22490, 12490, 22490 04180009
422: 12490 IVPASS = IVPASS + 1 04190009
423: WRITE (I02,80001) IVTNUM 04200009
424: GO TO 2501 04210009
425: 22490 IVFAIL = IVFAIL + 1 04220009
426: IVCORR = 11548 04230009
427: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 04240009
428: 2501 CONTINUE 04250009
429: IVTNUM = 250 04260009
430: C 04270009
431: C **** TEST 250 **** 04280009
432: C REQUIRES 32767 04290009
433: C 04300009
434: IF (ICZERO) 32500, 2500, 32500 04310009
435: 2500 CONTINUE 04320009
436: IVON01 = 16383 04330009
437: IVON03 = 4 04340009
438: IVCOMP = IVON01 + 16380 + IVON03 04350009
439: GO TO 42500 04360009
440: 32500 IVDELE = IVDELE + 1 04370009
441: WRITE (I02,80003) IVTNUM 04380009
442: IF (ICZERO) 42500, 2511, 42500 04390009
443: 42500 IF (IVCOMP - 32767) 22500,12500,22500 04400009
444: 12500 IVPASS = IVPASS + 1 04410009
445: WRITE (I02,80001) IVTNUM 04420009
446: GO TO 2511 04430009
447: 22500 IVFAIL = IVFAIL + 1 04440009
448: IVCORR = 32767 04450009
449: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 04460009
450: C 04470009
451: C TEST 251 THROUGH TEST 264 CONTAIN TWO POSITIVE INTEGER VARIABLES, 04480009
452: C ONE INTEGER CONSTANT, AND OPERATOR + IN ARITHMETIC EXPRESSION. 04490009
453: C PARENTHESES ARE USED TO GROUP ELEMENTS. THE RESULTS ARE THE SAME 04500009
454: C AS TESTS 244 THROUGH 250. 04510009
455: C 04520009
456: 2511 CONTINUE 04530009
457: IVTNUM = 251 04540009
458: C 04550009
459: C **** TEST 251 **** 04560009
460: C 04570009
461: IF (ICZERO) 32510, 2510, 32510 04580009
462: 2510 CONTINUE 04590009
463: IVON01 = 2 04600009
464: IVON02 = 3 04610009
465: IVCOMP = (IVON01 + IVON02) + 4 04620009
466: GO TO 42510 04630009
467: 32510 IVDELE = IVDELE + 1 04640009
468: WRITE (I02,80003) IVTNUM 04650009
469: IF (ICZERO) 42510, 2521, 42510 04660009
470: 42510 IF (IVCOMP - 9) 22510,12510,22510 04670009
471: 12510 IVPASS = IVPASS + 1 04680009
472: WRITE (I02,80001) IVTNUM 04690009
473: GO TO 2521 04700009
474: 22510 IVFAIL = IVFAIL + 1 04710009
475: IVCORR = 9 04720009
476: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 04730009
477: 2521 CONTINUE 04740009
478: IVTNUM = 252 04750009
479: C 04760009
480: C **** TEST 252 **** 04770009
481: C 04780009
482: IF (ICZERO) 32520, 2520, 32520 04790009
483: 2520 CONTINUE 04800009
484: IVON02 = 3 04810009
485: IVON03 = 4 04820009
486: IVCOMP = 2 + (IVON02 + IVON03) 04830009
487: GO TO 42520 04840009
488: 32520 IVDELE = IVDELE + 1 04850009
489: WRITE (I02,80003) IVTNUM 04860009
490: IF (ICZERO) 42520, 2531, 42520 04870009
491: 42520 IF (IVCOMP - 9) 22520,12520,22520 04880009
492: 12520 IVPASS = IVPASS + 1 04890009
493: WRITE (I02,80001) IVTNUM 04900009
494: GO TO 2531 04910009
495: 22520 IVFAIL = IVFAIL + 1 04920009
496: IVCORR = 9 04930009
497: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 04940009
498: 2531 CONTINUE 04950009
499: IVTNUM = 253 04960009
500: C 04970009
501: C **** TEST 253 **** 04980009
502: C 04990009
503: IF (ICZERO) 32530, 2530, 32530 05000009
504: 2530 CONTINUE 05010009
505: IVON02 =3 05020009
506: IVON03 =4 05030009
507: IVCOMP = (2+IVON02)+IVON03 05040009
508: GO TO 42530 05050009
509: 32530 IVDELE = IVDELE + 1 05060009
510: WRITE (I02,80003) IVTNUM 05070009
511: IF (ICZERO) 42530, 2541, 42530 05080009
512: 42530 IF (IVCOMP -9) 22530,12530,22530 05090009
513: 12530 IVPASS = IVPASS + 1 05100009
514: WRITE (I02,80001) IVTNUM 05110009
515: GO TO 2541 05120009
516: 22530 IVFAIL = IVFAIL + 1 05130009
517: IVCORR =9 05140009
518: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 05150009
519: 2541 CONTINUE 05160009
520: IVTNUM = 254 05170009
521: C 05180009
522: C **** TEST 254 **** 05190009
523: C 05200009
524: IF (ICZERO) 32540, 2540, 32540 05210009
525: 2540 CONTINUE 05220009
526: IVON01 = 2 05230009
527: IVON02 = 3 05240009
528: IVCOMP = IVON01 + (IVON02 + 4) 05250009
529: GO TO 42540 05260009
530: 32540 IVDELE = IVDELE + 1 05270009
531: WRITE (I02,80003) IVTNUM 05280009
532: IF (ICZERO) 42540, 2551, 42540 05290009
533: 42540 IF (IVCOMP-9)22540,12540,22540 05300009
534: 12540 IVPASS = IVPASS + 1 05310009
535: WRITE (I02,80001) IVTNUM 05320009
536: GO TO 2551 05330009
537: 22540 IVFAIL = IVFAIL + 1 05340009
538: IVCORR=9 05350009
539: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 05360009
540: 2551 CONTINUE 05370009
541: IVTNUM = 255 05380009
542: C 05390009
543: C **** TEST 255 **** 05400009
544: C 05410009
545: IF (ICZERO) 32550, 2550, 32550 05420009
546: 2550 CONTINUE 05430009
547: IVON01 = 2 05440009
548: IVON03 = 4 05450009
549: IVCOMP = IVON01 +(3+IVON03) 05460009
550: GO TO 42550 05470009
551: 32550 IVDELE = IVDELE + 1 05480009
552: WRITE (I02,80003) IVTNUM 05490009
553: IF (ICZERO) 42550, 2561, 42550 05500009
554: 42550 IF (IVCOMP-9)22550,12550,22550 05510009
555: 12550 IVPASS = IVPASS + 1 05520009
556: WRITE (I02,80001) IVTNUM 05530009
557: GO TO 2561 05540009
558: 22550 IVFAIL = IVFAIL + 1 05550009
559: IVCORR =9 05560009
560: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 05570009
561: 2561 CONTINUE 05580009
562: IVTNUM = 256 05590009
563: C 05600009
564: C **** TEST 256 **** 05610009
565: C 05620009
566: IF (ICZERO) 32560, 2560, 32560 05630009
567: 2560 CONTINUE 05640009
568: IVON01 = 2 05650009
569: IVON03 = 4 05660009
570: IVCOMP =(IVON01+3)+IVON03 05670009
571: GO TO 42560 05680009
572: 32560 IVDELE = IVDELE + 1 05690009
573: WRITE (I02,80003) IVTNUM 05700009
574: IF (ICZERO) 42560, 2571, 42560 05710009
575: 42560 IF (IVCOMP-9) 22560,12560,22560 05720009
576: 12560 IVPASS = IVPASS + 1 05730009
577: WRITE (I02,80001) IVTNUM 05740009
578: GO TO 2571 05750009
579: 22560 IVFAIL = IVFAIL + 1 05760009
580: IVCORR =9 05770009
581: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 05780009
582: 2571 CONTINUE 05790009
583: IVTNUM = 257 05800009
584: C 05810009
585: C **** TEST 257 **** 05820009
586: C 05830009
587: IF (ICZERO) 32570, 2570, 32570 05840009
588: 2570 CONTINUE 05850009
589: IVON01 = 51 05860009
590: IVON03 = 53 05870009
591: IVCOMP=IVON01+(52+IVON03) 05880009
592: GO TO 42570 05890009
593: 32570 IVDELE = IVDELE + 1 05900009
594: WRITE (I02,80003) IVTNUM 05910009
595: IF (ICZERO) 42570, 2581, 42570 05920009
596: 42570 IF (IVCOMP -156) 22570,12570,22570 05930009
597: 12570 IVPASS = IVPASS + 1 05940009
598: WRITE (I02,80001) IVTNUM 05950009
599: GO TO 2581 05960009
600: 22570 IVFAIL = IVFAIL + 1 05970009
601: IVCORR = 156 05980009
602: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 05990009
603: 2581 CONTINUE 06000009
604: IVTNUM = 258 06010009
605: C 06020009
606: C **** TEST 258 **** 06030009
607: C 06040009
608: IF (ICZERO) 32580, 2580, 32580 06050009
609: 2580 CONTINUE 06060009
610: IVON01 = 51 06070009
611: IVON03 = 53 06080009
612: IVCOMP =(IVON01+52)+IVON03 06090009
613: GO TO 42580 06100009
614: 32580 IVDELE = IVDELE + 1 06110009
615: WRITE (I02,80003) IVTNUM 06120009
616: IF (ICZERO) 42580, 2591, 42580 06130009
617: 42580 IF (IVCOMP-156) 22580,12580,22580 06140009
618: 12580 IVPASS = IVPASS + 1 06150009
619: WRITE (I02,80001) IVTNUM 06160009
620: GO TO 2591 06170009
621: 22580 IVFAIL = IVFAIL + 1 06180009
622: IVCORR = 156 06190009
623: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 06200009
624: 2591 CONTINUE 06210009
625: IVTNUM = 259 06220009
626: C 06230009
627: C **** TEST 259 **** 06240009
628: C 06250009
629: IF (ICZERO) 32590, 2590, 32590 06260009
630: 2590 CONTINUE 06270009
631: IVON02 = 676 06280009
632: IVON03 = 101 06290009
633: IVCOMP = 189+(IVON02+IVON03) 06300009
634: GO TO 42590 06310009
635: 32590 IVDELE = IVDELE + 1 06320009
636: WRITE (I02,80003) IVTNUM 06330009
637: IF (ICZERO) 42590, 2601, 42590 06340009
638: 42590 IF (IVCOMP -966) 22590,12590,22590 06350009
639: 12590 IVPASS = IVPASS + 1 06360009
640: WRITE (I02,80001) IVTNUM 06370009
641: GO TO 2601 06380009
642: 22590 IVFAIL = IVFAIL + 1 06390009
643: IVCORR =966 06400009
644: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 06410009
645: 2601 CONTINUE 06420009
646: IVTNUM = 260 06430009
647: C 06440009
648: C **** TEST 260 **** 06450009
649: C 06460009
650: IF (ICZERO) 32600, 2600, 32600 06470009
651: 2600 CONTINUE 06480009
652: IVON02 = 676 06490009
653: IVON03 = 101 06500009
654: IVCOMP = (189 + IVON02) + IVON03 06510009
655: GO TO 42600 06520009
656: 32600 IVDELE = IVDELE + 1 06530009
657: WRITE (I02,80003) IVTNUM 06540009
658: IF (ICZERO) 42600, 2611, 42600 06550009
659: 42600 IF (IVCOMP-966) 22600,12600,22600 06560009
660: 12600 IVPASS = IVPASS + 1 06570009
661: WRITE (I02,80001) IVTNUM 06580009
662: GO TO 2611 06590009
663: 22600 IVFAIL = IVFAIL + 1 06600009
664: IVCORR=966 06610009
665: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 06620009
666: 2611 CONTINUE 06630009
667: IVTNUM = 261 06640009
668: C 06650009
669: C **** TEST 261 **** 06660009
670: C 06670009
671: IF (ICZERO) 32610, 2610, 32610 06680009
672: 2610 CONTINUE 06690009
673: IVON01 = 1358 06700009
674: IVON02 = 8001 06710009
675: IVCOMP = IVON01 + (IVON02 + 2189) 06720009
676: GO TO 42610 06730009
677: 32610 IVDELE = IVDELE + 1 06740009
678: WRITE (I02,80003) IVTNUM 06750009
679: IF (ICZERO) 42610, 2621, 42610 06760009
680: 42610 IF (IVCOMP-11548) 22610,12610,22610 06770009
681: 12610 IVPASS = IVPASS + 1 06780009
682: WRITE (I02,80001) IVTNUM 06790009
683: GO TO 2621 06800009
684: 22610 IVFAIL = IVFAIL + 1 06810009
685: IVCORR=11548 06820009
686: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 06830009
687: 2621 CONTINUE 06840009
688: IVTNUM = 262 06850009
689: C 06860009
690: C **** TEST 262 **** 06870009
691: C 06880009
692: IF (ICZERO) 32620, 2620, 32620 06890009
693: 2620 CONTINUE 06900009
694: IVON01 = 1358 06910009
695: IVON02 = 8001 06920009
696: IVCOMP =(IVON01+IVON02)+2189 06930009
697: GO TO 42620 06940009
698: 32620 IVDELE = IVDELE + 1 06950009
699: WRITE (I02,80003) IVTNUM 06960009
700: IF (ICZERO) 42620, 2631, 42620 06970009
701: 42620 IF (IVCOMP-11548) 22620,12620,22620 06980009
702: 12620 IVPASS = IVPASS + 1 06990009
703: WRITE (I02,80001) IVTNUM 07000009
704: GO TO 2631 07010009
705: 22620 IVFAIL = IVFAIL + 1 07020009
706: IVCORR=11548 07030009
707: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 07040009
708: 2631 CONTINUE 07050009
709: IVTNUM = 263 07060009
710: C 07070009
711: C **** TEST 263 **** 07080009
712: C REQUIRES 32767 07090009
713: C 07100009
714: IF (ICZERO) 32630, 2630, 32630 07110009
715: 2630 CONTINUE 07120009
716: IVON01 = 16383 07130009
717: IVON03 = 16380 07140009
718: IVCOMP = IVON01 + (4+IVON03) 07150009
719: GO TO 42630 07160009
720: 32630 IVDELE = IVDELE + 1 07170009
721: WRITE (I02,80003) IVTNUM 07180009
722: IF (ICZERO) 42630, 2641, 42630 07190009
723: 42630 IF (IVCOMP-32767) 22630,12630,22630 07200009
724: 12630 IVPASS = IVPASS + 1 07210009
725: WRITE (I02,80001) IVTNUM 07220009
726: GO TO 2641 07230009
727: 22630 IVFAIL = IVFAIL + 1 07240009
728: IVCORR =32767 07250009
729: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 07260009
730: 2641 CONTINUE 07270009
731: IVTNUM = 264 07280009
732: C 07290009
733: C **** TEST 264 **** 07300009
734: C REQUIRES 32767 07310009
735: C 07320009
736: IF (ICZERO) 32640, 2640, 32640 07330009
737: 2640 CONTINUE 07340009
738: IVON01 = 16383 07350009
739: IVON02 = 16380 07360009
740: IVCOMP = (IVON01+IVON02) +4 07370009
741: GO TO 42640 07380009
742: 32640 IVDELE = IVDELE + 1 07390009
743: WRITE (I02,80003) IVTNUM 07400009
744: IF (ICZERO) 42640, 2651, 42640 07410009
745: 42640 IF (IVCOMP - 32767) 22640,12640,22640 07420009
746: 12640 IVPASS = IVPASS + 1 07430009
747: WRITE (I02,80001) IVTNUM 07440009
748: GO TO 2651 07450009
749: 22640 IVFAIL = IVFAIL + 1 07460009
750: IVCORR = 32767 07470009
751: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 07480009
752: 2651 CONTINUE 07490009
753: C 07500009
754: C WRITE PAGE FOOTINGS AND RUN SUMMARIES 07510009
755: 99999 CONTINUE 07520009
756: WRITE (I02,90002) 07530009
757: WRITE (I02,90006) 07540009
758: WRITE (I02,90002) 07550009
759: WRITE (I02,90002) 07560009
760: WRITE (I02,90007) 07570009
761: WRITE (I02,90002) 07580009
762: WRITE (I02,90008) IVFAIL 07590009
763: WRITE (I02,90009) IVPASS 07600009
764: WRITE (I02,90010) IVDELE 07610009
765: C 07620009
766: C 07630009
767: C TERMINATE ROUTINE EXECUTION 07640009
768: STOP 07650009
769: C 07660009
770: C FORMAT STATEMENTS FOR PAGE HEADERS 07670009
771: 90000 FORMAT (1H1) 07680009
772: 90002 FORMAT (1H ) 07690009
773: 90001 FORMAT (1H ,10X,34HFORTRAN COMPILER VALIDATION SYSTEM) 07700009
774: 90003 FORMAT (1H ,21X,11HVERSION 1.0) 07710009
775: 90004 FORMAT (1H ,10X,38HFOR OFFICIAL USE ONLY - COPYRIGHT 1978) 07720009
776: 90005 FORMAT (1H ,5X,4HTEST,5X,9HPASS/FAIL, 5X,8HCOMPUTED,8X,7HCORRECT) 07730009
777: 90006 FORMAT (1H ,5X,46H----------------------------------------------) 07740009
778: 90011 FORMAT (1H ,18X,17HSUBSET LEVEL TEST) 07750009
779: C 07760009
780: C FORMAT STATEMENTS FOR RUN SUMMARIES 07770009
781: 90008 FORMAT (1H ,15X,I5,19H ERRORS ENCOUNTERED) 07780009
782: 90009 FORMAT (1H ,15X,I5,13H TESTS PASSED) 07790009
783: 90010 FORMAT (1H ,15X,I5,14H TESTS DELETED) 07800009
784: C 07810009
785: C FORMAT STATEMENTS FOR TEST RESULTS 07820009
786: 80001 FORMAT (1H ,4X,I5,7X,4HPASS) 07830009
787: 80002 FORMAT (1H ,4X,I5,7X,4HFAIL) 07840009
788: 80003 FORMAT (1H ,4X,I5,7X,7HDELETED) 07850009
789: 80004 FORMAT (1H ,4X,I5,7X,4HFAIL,10X,I6,9X,I6) 07860009
790: 80005 FORMAT (1H ,4X,I5,7X,4HFAIL,4X,E12.5,3X,E12.5) 07870009
791: C 07880009
792: 90007 FORMAT (1H ,20X,20HEND OF PROGRAM FM009) 07890009
793: END 07900009
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.