![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to FM035.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 FM035.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 00010035
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 00020035
6: C FM035 00030035
7: C 00040035
8: C THIS ROUTINE TESTS ARITHMETIC ASSIGNMENT STATEMENTS OF THE 00050035
9: C FORM 00060035
10: C INTEGER VARIABLE = ARITHMETIC EXPRESSION 00070035
11: C WHERE THE ARITHMETIC EXPRESSION IS FORMED WITH THE ARITHMETIC 00080035
12: C OPERATOR *, INTEGER VARIABLES AND INTEGER CONSTANT. SOME OF THE 00090035
13: C TESTS USE PARENTHESES TO GROUP ELEMENTS IN THE EXPRESSION AND TO 00100035
14: C ALLOW THE USE OF NEGATIVE CONSTANTS FOLLOWING THE * OPERATOR. 00110035
15: C THE INTEGER VARIABLES CONTAIN POSITIVE AND NEGATIVE VALUES. 00120035
16: C 00130035
17: C THERE ARE TESTS WHERE THE ARITHMETIC EXPRESSION CONTAINS 00140035
18: C (1) INTEGER VARIABLE * INTEGER VARIABLE 00150035
19: C (2) INTEGER VARIABLE * INTEGER VARIABLE * INTEGER CONSTANT 00160035
20: C INTEGER VARIABLE * INTEGER CONSTANT * INTEGER VARIABLE 00170035
21: C INTEGER CONSTANT * INTEGER VARIABLE * INTEGER VARIABLE 00180035
22: C (3) SAME AS (2) BUT WITH PARENTHESES TO GROUP ELEMENTS. 00190035
23: C 00200035
24: C REFERENCES 00210035
25: C AMERICAN NATIONAL STANDARD PROGRAMMING LANGUAGE FORTRAN, 00220035
26: C X3.9-1978 00230035
27: C 00240035
28: C SECTION 4.3, INTEGER TYPE 00250035
29: C SECTION 4.3.1, INTEGER CONSTANT 00260035
30: C SECTION 6.1, ARITHMETIC EXPRESSIONS 00270035
31: C SECTION 10.1, ARITHMETIC ASSIGNMENT STATEMENT 00280035
32: C 00290035
33: C ********************************************************** 00300035
34: C 00310035
35: C A COMPILER VALIDATION SYSTEM FOR THE FORTRAN LANGUAGE 00320035
36: C BASED ON SPECIFICATIONS AS DEFINED IN AMERICAN NATIONAL STANDARD 00330035
37: C PROGRAMMING LANGUAGE FORTRAN X3.9-1978, HAS BEEN DEVELOPED BY THE 00340035
38: C FEDERAL COBOL COMPILER TESTING SERVICE. THE FORTRAN COMPILER 00350035
39: C VALIDATION SYSTEM (FCVS) CONSISTS OF AUDIT ROUTINES, THEIR RELATED00360035
40: C DATA, AND AN EXECUTIVE SYSTEM. EACH AUDIT ROUTINE IS A FORTRAN 00370035
41: C PROGRAM, SUBPROGRAM OR FUNCTION WHICH INCLUDES TESTS OF SPECIFIC 00380035
42: C LANGUAGE ELEMENTS AND SUPPORTING PROCEDURES INDICATING THE RESULT 00390035
43: C OF EXECUTING THESE TESTS. 00400035
44: C 00410035
45: C THIS PARTICULAR PROGRAM/SUBPROGRAM/FUNCTION CONTAINS FEATURES 00420035
46: C FOUND ONLY IN THE SUBSET AS DEFINED IN X3.9-1978. 00430035
47: C 00440035
48: C SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO - 00450035
49: C 00460035
50: C DEPARTMENT OF THE NAVY 00470035
51: C FEDERAL COBOL COMPILER TESTING SERVICE 00480035
52: C WASHINGTON, D.C. 20376 00490035
53: C 00500035
54: C ********************************************************** 00510035
55: C 00520035
56: C 00530035
57: C 00540035
58: C INITIALIZATION SECTION 00550035
59: C 00560035
60: C INITIALIZE CONSTANTS 00570035
61: C ************** 00580035
62: C I01 CONTAINS THE LOGICAL UNIT NUMBER FOR THE CARD READER. 00590035
63: I01 = 5 00600035
64: C I02 CONTAINS THE LOGICAL UNIT NUMBER FOR THE PRINTER. 00610035
65: I02 = 6 00620035
66: C SYSTEM ENVIRONMENT SECTION 00630035
67: C 00640035
68: I01 = 5 00650035
69: C THE CX010 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I01 = 5 00660035
70: C (UNIT NUMBER FOR CARD READER). 00670035
71: CX011 THIS CARD IS REPLACED BY CONTENTS OF FEXEC X-011 CONTROL CARD. 00680035
72: C THE CX011 CARD IS FOR SYSTEMS WHICH REQUIRE ADDITIONAL 00690035
73: C FORTRAN STATEMENTS FOR FILES ASSOCIATED WITH CX010 ABOVE. 00700035
74: C 00710035
75: I02 = 6 00720035
76: C THE CX020 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I02 = 6 00730035
77: C (UNIT NUMBER FOR PRINTER). 00740035
78: CX021 THIS CARD IS REPLACED BY CONTENTS OF FEXEC X-021 CONTROL CARD. 00750035
79: C THE CX021 CARD IS FOR SYSTEMS WHICH REQUIRE ADDITIONAL 00760035
80: C FORTRAN STATEMENTS FOR FILES ASSOCIATED WITH CX020 ABOVE. 00770035
81: C 00780035
82: IVPASS=0 00790035
83: IVFAIL=0 00800035
84: IVDELE=0 00810035
85: ICZERO=0 00820035
86: C 00830035
87: C WRITE PAGE HEADERS 00840035
88: WRITE (I02,90000) 00850035
89: WRITE (I02,90001) 00860035
90: WRITE (I02,90002) 00870035
91: WRITE (I02, 90002) 00880035
92: WRITE (I02,90003) 00890035
93: WRITE (I02,90002) 00900035
94: WRITE (I02,90004) 00910035
95: WRITE (I02,90002) 00920035
96: WRITE (I02,90011) 00930035
97: WRITE (I02,90002) 00940035
98: WRITE (I02,90002) 00950035
99: WRITE (I02,90005) 00960035
100: WRITE (I02,90006) 00970035
101: WRITE (I02,90002) 00980035
102: C 00990035
103: C TEST SECTION 01000035
104: C 01010035
105: C ARITHMETIC ASSIGNMENT STATEMENT 01020035
106: C 01030035
107: C TEST 430 THROUGH TEST 441 CONTAIN TWO INTEGER VARIABLES AND 01040035
108: C OPERATOR * IN AN ARITHMETIC EXPRESSION. 01050035
109: C THE FORM IS IV = IV * IV 01060035
110: C 01070035
111: C TEST 430 THROUGH TEST 433 - TWO POSITIVE VARIABLES 01080035
112: C 01090035
113: 4301 CONTINUE 01100035
114: IVTNUM = 430 01110035
115: C 01120035
116: C **** TEST 430 **** 01130035
117: C 01140035
118: IF (ICZERO) 34300, 4300, 34300 01150035
119: 4300 CONTINUE 01160035
120: IVON01 = 2 01170035
121: IVON02 = 3 01180035
122: IVCOMP = IVON01 * IVON02 01190035
123: GO TO 44300 01200035
124: 34300 IVDELE = IVDELE + 1 01210035
125: WRITE (I02,80003) IVTNUM 01220035
126: IF (ICZERO) 44300, 4311, 44300 01230035
127: 44300 IF (IVCOMP - 6) 24300,14300,24300 01240035
128: 14300 IVPASS = IVPASS + 1 01250035
129: WRITE (I02,80001) IVTNUM 01260035
130: GO TO 4311 01270035
131: 24300 IVFAIL = IVFAIL + 1 01280035
132: IVCORR = 6 01290035
133: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 01300035
134: 4311 CONTINUE 01310035
135: IVTNUM = 431 01320035
136: C 01330035
137: C **** TEST 431 **** 01340035
138: C 01350035
139: IF (ICZERO) 34310, 4310, 34310 01360035
140: 4310 CONTINUE 01370035
141: IVON01 = 13 01380035
142: IVON02 = 11 01390035
143: IVCOMP = IVON01 * IVON02 01400035
144: GO TO 44310 01410035
145: 34310 IVDELE = IVDELE + 1 01420035
146: WRITE (I02,80003) IVTNUM 01430035
147: IF (ICZERO) 44310, 4321, 44310 01440035
148: 44310 IF (IVCOMP - 143) 24310,14310,24310 01450035
149: 14310 IVPASS = IVPASS + 1 01460035
150: WRITE (I02,80001) IVTNUM 01470035
151: GO TO 4321 01480035
152: 24310 IVFAIL = IVFAIL + 1 01490035
153: IVCORR = 143 01500035
154: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 01510035
155: 4321 CONTINUE 01520035
156: IVTNUM = 432 01530035
157: C 01540035
158: C **** TEST 432 **** 01550035
159: C 01560035
160: IF (ICZERO) 34320, 4320, 34320 01570035
161: 4320 CONTINUE 01580035
162: IVON01 = 223 01590035
163: IVON02 = 99 01600035
164: IVCOMP = IVON01 * IVON02 01610035
165: GO TO 44320 01620035
166: 34320 IVDELE = IVDELE + 1 01630035
167: WRITE (I02,80003) IVTNUM 01640035
168: IF (ICZERO) 44320, 4331, 44320 01650035
169: 44320 IF (IVCOMP - 22077) 24320,14320,24320 01660035
170: 14320 IVPASS = IVPASS + 1 01670035
171: WRITE (I02,80001) IVTNUM 01680035
172: GO TO 4331 01690035
173: 24320 IVFAIL = IVFAIL + 1 01700035
174: IVCORR = 22077 01710035
175: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 01720035
176: 4331 CONTINUE 01730035
177: IVTNUM = 433 01740035
178: C 01750035
179: C **** TEST 433 **** 01760035
180: C 01770035
181: IF (ICZERO) 34330, 4330, 34330 01780035
182: 4330 CONTINUE 01790035
183: IVON01 = 11235 01800035
184: IVON02 = 2 01810035
185: IVCOMP = IVON01*IVON02 01820035
186: GO TO 44330 01830035
187: 34330 IVDELE = IVDELE + 1 01840035
188: WRITE (I02,80003) IVTNUM 01850035
189: IF (ICZERO) 44330, 4341, 44330 01860035
190: 44330 IF (IVCOMP - 22470) 24330,14330,24330 01870035
191: 14330 IVPASS = IVPASS + 1 01880035
192: WRITE (I02,80001) IVTNUM 01890035
193: GO TO 4341 01900035
194: 24330 IVFAIL = IVFAIL + 1 01910035
195: IVCORR = 22470 01920035
196: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 01930035
197: C 01940035
198: C TEST 434 THROUGH TEST 437 01950035
199: C ONE NEGATIVE VARIABLE, ONE POSITIVE VARIABLE 01960035
200: C 01970035
201: 4341 CONTINUE 01980035
202: IVTNUM = 434 01990035
203: C 02000035
204: C **** TEST 434 **** 02010035
205: C 02020035
206: IF (ICZERO) 34340, 4340, 34340 02030035
207: 4340 CONTINUE 02040035
208: IVON01 = -2 02050035
209: IVON02 = 3 02060035
210: IVCOMP = IVON01 * IVON02 02070035
211: GO TO 44340 02080035
212: 34340 IVDELE = IVDELE + 1 02090035
213: WRITE (I02,80003) IVTNUM 02100035
214: IF (ICZERO) 44340, 4351, 44340 02110035
215: 44340 IF (IVCOMP +6) 24340,14340,24340 02120035
216: 14340 IVPASS = IVPASS + 1 02130035
217: WRITE (I02,80001) IVTNUM 02140035
218: GO TO 4351 02150035
219: 24340 IVFAIL = IVFAIL + 1 02160035
220: IVCORR = -6 02170035
221: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 02180035
222: 4351 CONTINUE 02190035
223: IVTNUM = 435 02200035
224: C 02210035
225: C **** TEST 435 **** 02220035
226: C 02230035
227: IF (ICZERO) 34350, 4350, 34350 02240035
228: 4350 CONTINUE 02250035
229: IVON01 = -13 02260035
230: IVON02 = +11 02270035
231: IVCOMP = IVON01*IVON02 02280035
232: GO TO 44350 02290035
233: 34350 IVDELE = IVDELE + 1 02300035
234: WRITE (I02,80003) IVTNUM 02310035
235: IF (ICZERO) 44350, 4361, 44350 02320035
236: 44350 IF (IVCOMP + 143) 24350,14350,24350 02330035
237: 14350 IVPASS = IVPASS + 1 02340035
238: WRITE (I02,80001) IVTNUM 02350035
239: GO TO 4361 02360035
240: 24350 IVFAIL = IVFAIL + 1 02370035
241: IVCORR = -143 02380035
242: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 02390035
243: 4361 CONTINUE 02400035
244: IVTNUM = 436 02410035
245: C 02420035
246: C **** TEST 436 **** 02430035
247: C 02440035
248: IF (ICZERO) 34360, 4360, 34360 02450035
249: 4360 CONTINUE 02460035
250: IVON01 = -223 02470035
251: IVON02 = 99 02480035
252: IVCOMP = IVON01 * IVON02 02490035
253: GO TO 44360 02500035
254: 34360 IVDELE = IVDELE + 1 02510035
255: WRITE (I02,80003) IVTNUM 02520035
256: IF (ICZERO) 44360, 4371, 44360 02530035
257: 44360 IF (IVCOMP + 22077) 24360,14360,24360 02540035
258: 14360 IVPASS = IVPASS + 1 02550035
259: WRITE (I02,80001) IVTNUM 02560035
260: GO TO 4371 02570035
261: 24360 IVFAIL = IVFAIL + 1 02580035
262: IVCORR = -22077 02590035
263: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 02600035
264: 4371 CONTINUE 02610035
265: IVTNUM = 437 02620035
266: C 02630035
267: C **** TEST 437 **** 02640035
268: C 02650035
269: IF (ICZERO) 34370, 4370, 34370 02660035
270: 4370 CONTINUE 02670035
271: IVON01 = -11235 02680035
272: IVON02 = 2 02690035
273: IVCOMP = IVON01 * IVON02 02700035
274: GO TO 44370 02710035
275: 34370 IVDELE = IVDELE + 1 02720035
276: WRITE (I02,80003) IVTNUM 02730035
277: IF (ICZERO) 44370, 4381, 44370 02740035
278: 44370 IF (IVCOMP + 22470) 24370,14370,24370 02750035
279: 14370 IVPASS = IVPASS + 1 02760035
280: WRITE (I02,80001) IVTNUM 02770035
281: GO TO 4381 02780035
282: 24370 IVFAIL = IVFAIL + 1 02790035
283: IVCORR = -22470 02800035
284: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 02810035
285: C 02820035
286: C TEST 438 THROUGH TEST 441 - TWO NEGATIVE VARIABLES 02830035
287: 4381 CONTINUE 02840035
288: IVTNUM = 438 02850035
289: C 02860035
290: C **** TEST 438 **** 02870035
291: C 02880035
292: IF (ICZERO) 34380, 4380, 34380 02890035
293: 4380 CONTINUE 02900035
294: IVON01 = -2 02910035
295: IVON02 = -3 02920035
296: IVCOMP = IVON01 * IVON02 02930035
297: GO TO 44380 02940035
298: 34380 IVDELE = IVDELE + 1 02950035
299: WRITE (I02,80003) IVTNUM 02960035
300: IF (ICZERO) 44380, 4391, 44380 02970035
301: 44380 IF (IVCOMP - 6) 24380,14380,24380 02980035
302: 14380 IVPASS = IVPASS + 1 02990035
303: WRITE (I02,80001) IVTNUM 03000035
304: GO TO 4391 03010035
305: 24380 IVFAIL = IVFAIL + 1 03020035
306: IVCORR = 6 03030035
307: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 03040035
308: 4391 CONTINUE 03050035
309: IVTNUM = 439 03060035
310: C 03070035
311: C **** TEST 439 **** 03080035
312: C 03090035
313: IF (ICZERO) 34390, 4390, 34390 03100035
314: 4390 CONTINUE 03110035
315: IVON01 = -13 03120035
316: IVON02 = -11 03130035
317: IVCOMP = IVON01 * IVON02 03140035
318: GO TO 44390 03150035
319: 34390 IVDELE = IVDELE + 1 03160035
320: WRITE (I02,80003) IVTNUM 03170035
321: IF (ICZERO) 44390, 4401, 44390 03180035
322: 44390 IF (IVCOMP - 143) 24390,14390,24390 03190035
323: 14390 IVPASS = IVPASS + 1 03200035
324: WRITE (I02,80001) IVTNUM 03210035
325: GO TO 4401 03220035
326: 24390 IVFAIL = IVFAIL + 1 03230035
327: IVCORR = 143 03240035
328: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 03250035
329: 4401 CONTINUE 03260035
330: IVTNUM = 440 03270035
331: C 03280035
332: C **** TEST 440 **** 03290035
333: C 03300035
334: IF (ICZERO) 34400, 4400, 34400 03310035
335: 4400 CONTINUE 03320035
336: IVON01 = -223 03330035
337: IVON02 = -99 03340035
338: IVCOMP = IVON01*IVON02 03350035
339: GO TO 44400 03360035
340: 34400 IVDELE = IVDELE + 1 03370035
341: WRITE (I02,80003) IVTNUM 03380035
342: IF (ICZERO) 44400, 4411, 44400 03390035
343: 44400 IF (IVCOMP - 22077) 24400,14400,24400 03400035
344: 14400 IVPASS = IVPASS + 1 03410035
345: WRITE (I02,80001) IVTNUM 03420035
346: GO TO 4411 03430035
347: 24400 IVFAIL = IVFAIL + 1 03440035
348: IVCORR = 22077 03450035
349: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 03460035
350: 4411 CONTINUE 03470035
351: IVTNUM = 441 03480035
352: C 03490035
353: C **** TEST 441 **** 03500035
354: C 03510035
355: IF (ICZERO) 34410, 4410, 34410 03520035
356: 4410 CONTINUE 03530035
357: IVON01 = -5461 03540035
358: IVON02 = -6 03550035
359: IVCOMP = IVON01 * IVON02 03560035
360: GO TO 44410 03570035
361: 34410 IVDELE = IVDELE + 1 03580035
362: WRITE (I02,80003) IVTNUM 03590035
363: IF (ICZERO) 44410, 4421, 44410 03600035
364: 44410 IF (IVCOMP - 32766) 24410, 14410, 24410 03610035
365: 14410 IVPASS = IVPASS + 1 03620035
366: WRITE (I02,80001) IVTNUM 03630035
367: GO TO 4421 03640035
368: 24410 IVFAIL = IVFAIL + 1 03650035
369: IVCORR = 32766 03660035
370: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 03670035
371: C 03680035
372: C TEST 442 THROUGH TEST 445 CONTAIN SIGNED INTEGER VARIABLES AND 03690035
373: C OPERATOR * IN AN ARITHMETIC EXPRESSION. 03700035
374: 4421 CONTINUE 03710035
375: IVTNUM = 442 03720035
376: C 03730035
377: C **** TEST 442 **** 03740035
378: C FORM IS IV = -IV*IV 03750035
379: C 03760035
380: IF (ICZERO) 34420, 4420, 34420 03770035
381: 4420 CONTINUE 03780035
382: IVON01 = 2 03790035
383: IVON02 = 3 03800035
384: IVCOMP = -IVON01 * IVON02 03810035
385: GO TO 44420 03820035
386: 34420 IVDELE = IVDELE + 1 03830035
387: WRITE (I02,80003) IVTNUM 03840035
388: IF (ICZERO) 44420, 4431, 44420 03850035
389: 44420 IF (IVCOMP + 6) 24420,14420,24420 03860035
390: 14420 IVPASS = IVPASS + 1 03870035
391: WRITE (I02,80001) IVTNUM 03880035
392: GO TO 4431 03890035
393: 24420 IVFAIL = IVFAIL + 1 03900035
394: IVCORR = -6 03910035
395: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 03920035
396: 4431 CONTINUE 03930035
397: IVTNUM = 443 03940035
398: C 03950035
399: C **** TEST 443 **** 03960035
400: C FORM IS IV = IV*(-IV) 03970035
401: C 03980035
402: IF (ICZERO) 34430, 4430, 34430 03990035
403: 4430 CONTINUE 04000035
404: IVON01 = 2 04010035
405: IVON02 = 3 04020035
406: IVCOMP = IVON01 * (-IVON02) 04030035
407: GO TO 44430 04040035
408: 34430 IVDELE = IVDELE + 1 04050035
409: WRITE (I02,80003) IVTNUM 04060035
410: IF (ICZERO) 44430, 4441, 44430 04070035
411: 44430 IF (IVCOMP +6) 24430,14430,24430 04080035
412: 14430 IVPASS = IVPASS + 1 04090035
413: WRITE (I02,80001) IVTNUM 04100035
414: GO TO 4441 04110035
415: 24430 IVFAIL = IVFAIL + 1 04120035
416: IVCORR = -6 04130035
417: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 04140035
418: 4441 CONTINUE 04150035
419: IVTNUM = 444 04160035
420: C 04170035
421: C **** TEST 444 **** 04180035
422: C FORM IS IV = (-IV)*(-IV) 04190035
423: C 04200035
424: IF (ICZERO) 34440, 4440, 34440 04210035
425: 4440 CONTINUE 04220035
426: IVON01 = 2 04230035
427: IVON02 = 3 04240035
428: IVCOMP = (-IVON01) * (-IVON02) 04250035
429: GO TO 44440 04260035
430: 34440 IVDELE = IVDELE + 1 04270035
431: WRITE (I02,80003) IVTNUM 04280035
432: IF (ICZERO) 44440, 4451, 44440 04290035
433: 44440 IF (IVCOMP - 6) 24440,14440,24440 04300035
434: 14440 IVPASS = IVPASS + 1 04310035
435: WRITE (I02,80001) IVTNUM 04320035
436: GO TO 4451 04330035
437: 24440 IVFAIL = IVFAIL + 1 04340035
438: IVCORR = 6 04350035
439: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 04360035
440: 4451 CONTINUE 04370035
441: IVTNUM = 445 04380035
442: C 04390035
443: C **** TEST 445 **** 04400035
444: C FORM IS IV = -IV * IV 04410035
445: C 04420035
446: IF (ICZERO) 34450, 4450, 34450 04430035
447: 4450 CONTINUE 04440035
448: IVON01 = -11235 04450035
449: IVON02 = -2 04460035
450: IVCOMP = -IVON01 * IVON02 04470035
451: GO TO 44450 04480035
452: 34450 IVDELE = IVDELE + 1 04490035
453: WRITE (I02,80003) IVTNUM 04500035
454: IF (ICZERO) 44450, 4461, 44450 04510035
455: 44450 IF (IVCOMP + 22470) 24450,14450,24450 04520035
456: 14450 IVPASS = IVPASS + 1 04530035
457: WRITE (I02,80001) IVTNUM 04540035
458: GO TO 4461 04550035
459: 24450 IVFAIL = IVFAIL + 1 04560035
460: IVCORR = -22470 04570035
461: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 04580035
462: C 04590035
463: C TEST 446 THROUGH TEST 452 CONTAIN TWO INTEGER VARIABLES, AN 04600035
464: C INTEGER CONSTANT AND OPERATOR * IN AN ARITHMETIC EXPRESSION. 04610035
465: C 04620035
466: 4461 CONTINUE 04630035
467: IVTNUM = 446 04640035
468: C 04650035
469: C **** TEST 446 **** 04660035
470: C 04670035
471: IF (ICZERO) 34460, 4460, 34460 04680035
472: 4460 CONTINUE 04690035
473: IVON01 = 2 04700035
474: IVON02 = 3 04710035
475: IVCOMP = IVON01 * IVON02 * 4 04720035
476: GO TO 44460 04730035
477: 34460 IVDELE = IVDELE + 1 04740035
478: WRITE (I02,80003) IVTNUM 04750035
479: IF (ICZERO) 44460, 4471, 44460 04760035
480: 44460 IF (IVCOMP -24) 24460,14460,24460 04770035
481: 14460 IVPASS = IVPASS + 1 04780035
482: WRITE (I02,80001) IVTNUM 04790035
483: GO TO 4471 04800035
484: 24460 IVFAIL = IVFAIL + 1 04810035
485: IVCORR = 24 04820035
486: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 04830035
487: 4471 CONTINUE 04840035
488: IVTNUM = 447 04850035
489: C 04860035
490: C **** TEST 447 **** 04870035
491: C 04880035
492: IF (ICZERO) 34470, 4470, 34470 04890035
493: 4470 CONTINUE 04900035
494: IVON01 = -2 04910035
495: IVON02 = 3 04920035
496: IVCOMP = IVON01 * IVON02 * 4 04930035
497: GO TO 44470 04940035
498: 34470 IVDELE = IVDELE + 1 04950035
499: WRITE (I02,80003) IVTNUM 04960035
500: IF (ICZERO) 44470, 4481, 44470 04970035
501: 44470 IF (IVCOMP +24) 24470,14470,24470 04980035
502: 14470 IVPASS = IVPASS + 1 04990035
503: WRITE (I02,80001) IVTNUM 05000035
504: GO TO 4481 05010035
505: 24470 IVFAIL = IVFAIL + 1 05020035
506: IVCORR = -24 05030035
507: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 05040035
508: 4481 CONTINUE 05050035
509: IVTNUM = 448 05060035
510: C 05070035
511: C **** TEST 448 **** 05080035
512: C 05090035
513: IF (ICZERO) 34480, 4480, 34480 05100035
514: 4480 CONTINUE 05110035
515: IVON01 = -2 05120035
516: IVON02 = 3 05130035
517: IVCOMP = IVON01 * IVON02 * (-4) 05140035
518: GO TO 44480 05150035
519: 34480 IVDELE = IVDELE + 1 05160035
520: WRITE (I02,80003) IVTNUM 05170035
521: IF (ICZERO) 44480, 4491, 44480 05180035
522: 44480 IF (IVCOMP -24) 24480,14480,24480 05190035
523: 14480 IVPASS = IVPASS + 1 05200035
524: WRITE (I02,80001) IVTNUM 05210035
525: GO TO 4491 05220035
526: 24480 IVFAIL = IVFAIL + 1 05230035
527: IVCORR = 24 05240035
528: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 05250035
529: 4491 CONTINUE 05260035
530: IVTNUM = 449 05270035
531: C 05280035
532: C **** TEST 449 **** 05290035
533: C 05300035
534: IF (ICZERO) 34490, 4490, 34490 05310035
535: 4490 CONTINUE 05320035
536: IVON01 = 51 05330035
537: IVON03 = 13 05340035
538: IVCOMP = IVON01 * 23 * IVON03 05350035
539: GO TO 44490 05360035
540: 34490 IVDELE = IVDELE + 1 05370035
541: WRITE (I02,80003) IVTNUM 05380035
542: IF (ICZERO) 44490, 4501, 44490 05390035
543: 44490 IF (IVCOMP - 15249) 24490,14490,24490 05400035
544: 14490 IVPASS = IVPASS + 1 05410035
545: WRITE (I02,80001) IVTNUM 05420035
546: GO TO 4501 05430035
547: 24490 IVFAIL = IVFAIL + 1 05440035
548: IVCORR = 15249 05450035
549: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 05460035
550: 4501 CONTINUE 05470035
551: IVTNUM = 450 05480035
552: C 05490035
553: C **** TEST 450 **** 05500035
554: C 05510035
555: IF (ICZERO) 34500, 4500, 34500 05520035
556: 4500 CONTINUE 05530035
557: IVON02 = 2 05540035
558: IVON03 = 5461 05550035
559: IVCOMP = 3 * IVON02 * IVON03 05560035
560: GO TO 44500 05570035
561: 34500 IVDELE = IVDELE + 1 05580035
562: WRITE (I02,80003) IVTNUM 05590035
563: IF (ICZERO) 44500, 4511, 44500 05600035
564: 44500 IF (IVCOMP -32766) 24500,14500,24500 05610035
565: 14500 IVPASS = IVPASS + 1 05620035
566: WRITE (I02,80001) IVTNUM 05630035
567: GO TO 4511 05640035
568: 24500 IVFAIL = IVFAIL + 1 05650035
569: IVCORR = 32766 05660035
570: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 05670035
571: 4511 CONTINUE 05680035
572: IVTNUM = 451 05690035
573: C 05700035
574: C **** TEST 451 **** 05710035
575: C 05720035
576: IF (ICZERO) 34510, 4510, 34510 05730035
577: 4510 CONTINUE 05740035
578: IVON01 = -51 05750035
579: IVON03 = 13 05760035
580: IVCOMP = IVON01 * 23 * (-IVON03) 05770035
581: GO TO 44510 05780035
582: 34510 IVDELE = IVDELE + 1 05790035
583: WRITE (I02,80003) IVTNUM 05800035
584: IF (ICZERO) 44510, 4521, 44510 05810035
585: 44510 IF (IVCOMP - 15249) 24510,14510,24510 05820035
586: 14510 IVPASS = IVPASS + 1 05830035
587: WRITE (I02,80001) IVTNUM 05840035
588: GO TO 4521 05850035
589: 24510 IVFAIL = IVFAIL + 1 05860035
590: IVCORR = 15249 05870035
591: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 05880035
592: 4521 CONTINUE 05890035
593: IVTNUM = 452 05900035
594: C 05910035
595: C **** TEST 452 **** 05920035
596: C 05930035
597: IF (ICZERO) 34520, 4520, 34520 05940035
598: 4520 CONTINUE 05950035
599: IVON01 = -5461 05960035
600: IVON03 = 2 05970035
601: IVCOMP = IVON01 * (-3) * IVON03 05980035
602: GO TO 44520 05990035
603: 34520 IVDELE = IVDELE + 1 06000035
604: WRITE (I02,80003) IVTNUM 06010035
605: IF (ICZERO) 44520, 4531, 44520 06020035
606: 44520 IF (IVCOMP - 32766) 24520,14520,24520 06030035
607: 14520 IVPASS = IVPASS + 1 06040035
608: WRITE (I02,80001) IVTNUM 06050035
609: GO TO 4531 06060035
610: 24520 IVFAIL = IVFAIL + 1 06070035
611: IVCORR = 32766 06080035
612: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 06090035
613: C 06100035
614: C TEST 453 THROUGH TEST 461 CONTAIN TWO INTEGER VARIABLES AND ONE 06110035
615: C INTEGER CONSTANT IN AN ARITHMETIC EXPRESSION. PARENTHESES ARE 06120035
616: C USED TO GROUP ELEMENTS IN THE ARITHMETIC EXPRESSIONS IN THESE 06130035
617: C TESTS. 06140035
618: C 06150035
619: 4531 CONTINUE 06160035
620: IVTNUM = 453 06170035
621: C 06180035
622: C **** TEST 453 **** 06190035
623: C 06200035
624: IF (ICZERO) 34530, 4530, 34530 06210035
625: 4530 CONTINUE 06220035
626: IVON01 = 2 06230035
627: IVON02 = 3 06240035
628: IVCOMP = IVON01 * (IVON02 * 4) 06250035
629: GO TO 44530 06260035
630: 34530 IVDELE = IVDELE + 1 06270035
631: WRITE (I02,80003) IVTNUM 06280035
632: IF (ICZERO) 44530, 4541, 44530 06290035
633: 44530 IF (IVCOMP - 24) 24530,14530,24530 06300035
634: 14530 IVPASS = IVPASS + 1 06310035
635: WRITE (I02,80001) IVTNUM 06320035
636: GO TO 4541 06330035
637: 24530 IVFAIL = IVFAIL + 1 06340035
638: IVCORR = 24 06350035
639: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 06360035
640: 4541 CONTINUE 06370035
641: IVTNUM = 454 06380035
642: C 06390035
643: C **** TEST 454 **** 06400035
644: C 06410035
645: IF (ICZERO) 34540, 4540, 34540 06420035
646: 4540 CONTINUE 06430035
647: IVON01 = 2 06440035
648: IVON02 = 3 06450035
649: IVCOMP = (IVON01 * IVON02) * 4 06460035
650: GO TO 44540 06470035
651: 34540 IVDELE = IVDELE + 1 06480035
652: WRITE (I02,80003) IVTNUM 06490035
653: IF (ICZERO) 44540, 4551, 44540 06500035
654: 44540 IF (IVCOMP -24) 24540,14540,24540 06510035
655: 14540 IVPASS = IVPASS + 1 06520035
656: WRITE (I02,80001) IVTNUM 06530035
657: GO TO 4551 06540035
658: 24540 IVFAIL = IVFAIL + 1 06550035
659: IVCORR = 24 06560035
660: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 06570035
661: 4551 CONTINUE 06580035
662: IVTNUM = 455 06590035
663: C 06600035
664: C **** TEST 455 **** 06610035
665: C 06620035
666: IF (ICZERO) 34550, 4550, 34550 06630035
667: 4550 CONTINUE 06640035
668: IVON01 = -2 06650035
669: IVON02 = 3 06660035
670: IVCOMP = IVON01 *(IVON02 * (-4)) 06670035
671: GO TO 44550 06680035
672: 34550 IVDELE = IVDELE + 1 06690035
673: WRITE (I02,80003) IVTNUM 06700035
674: IF (ICZERO) 44550, 4561, 44550 06710035
675: 44550 IF (IVCOMP - 24) 24550,14550,24550 06720035
676: 14550 IVPASS = IVPASS + 1 06730035
677: WRITE (I02,80001) IVTNUM 06740035
678: GO TO 4561 06750035
679: 24550 IVFAIL = IVFAIL + 1 06760035
680: IVCORR = 24 06770035
681: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 06780035
682: 4561 CONTINUE 06790035
683: IVTNUM = 456 06800035
684: C 06810035
685: C **** TEST 456 **** 06820035
686: C 06830035
687: IF (ICZERO) 34560, 4560, 34560 06840035
688: 4560 CONTINUE 06850035
689: IVON01 = -2 06860035
690: IVON02 = -3 06870035
691: IVCOMP = IVON01 * (IVON02 * 4) 06880035
692: GO TO 44560 06890035
693: 34560 IVDELE = IVDELE + 1 06900035
694: WRITE (I02,80003) IVTNUM 06910035
695: IF (ICZERO) 44560, 4571, 44560 06920035
696: 44560 IF (IVCOMP -24) 24560,14560,24560 06930035
697: 14560 IVPASS = IVPASS + 1 06940035
698: WRITE (I02,80001) IVTNUM 06950035
699: GO TO 4571 06960035
700: 24560 IVFAIL = IVFAIL + 1 06970035
701: IVCORR = 24 06980035
702: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 06990035
703: 4571 CONTINUE 07000035
704: IVTNUM = 457 07010035
705: C 07020035
706: C **** TEST 457 **** 07030035
707: C 07040035
708: IF (ICZERO) 34570, 4570, 34570 07050035
709: 4570 CONTINUE 07060035
710: IVON01 = -2 07070035
711: IVON02 = -3 07080035
712: IVCOMP = (IVON01*IVON02) * (-4) 07090035
713: GO TO 44570 07100035
714: 34570 IVDELE = IVDELE + 1 07110035
715: WRITE (I02,80003) IVTNUM 07120035
716: IF (ICZERO) 44570, 4581, 44570 07130035
717: 44570 IF (IVCOMP +24) 24570,14570,24570 07140035
718: 14570 IVPASS = IVPASS + 1 07150035
719: WRITE (I02,80001) IVTNUM 07160035
720: GO TO 4581 07170035
721: 24570 IVFAIL = IVFAIL + 1 07180035
722: IVCORR = -24 07190035
723: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 07200035
724: 4581 CONTINUE 07210035
725: IVTNUM = 458 07220035
726: C 07230035
727: C **** TEST 458 **** 07240035
728: C 07250035
729: IF (ICZERO) 34580, 4580, 34580 07260035
730: 4580 CONTINUE 07270035
731: IVON01 = 23 07280035
732: IVON03 = 13 07290035
733: IVCOMP = IVON01 * (51 * IVON03) 07300035
734: GO TO 44580 07310035
735: 34580 IVDELE = IVDELE + 1 07320035
736: WRITE (I02,80003) IVTNUM 07330035
737: IF (ICZERO) 44580, 4591, 44580 07340035
738: 44580 IF (IVCOMP -15249) 24580,14580,24580 07350035
739: 14580 IVPASS = IVPASS + 1 07360035
740: WRITE (I02,80001) IVTNUM 07370035
741: GO TO 4591 07380035
742: 24580 IVFAIL = IVFAIL + 1 07390035
743: IVCORR = 15249 07400035
744: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 07410035
745: 4591 CONTINUE 07420035
746: IVTNUM = 459 07430035
747: C 07440035
748: C **** TEST 459 **** 07450035
749: C 07460035
750: IF (ICZERO) 34590, 4590, 34590 07470035
751: 4590 CONTINUE 07480035
752: IVON02 = 51 07490035
753: IVON03 = 13 07500035
754: IVCOMP = (23 * IVON02) * IVON03 07510035
755: GO TO 44590 07520035
756: 34590 IVDELE = IVDELE + 1 07530035
757: WRITE (I02,80003) IVTNUM 07540035
758: IF (ICZERO) 44590, 4601, 44590 07550035
759: 44590 IF (IVCOMP - 15249) 24590,14590,24590 07560035
760: 14590 IVPASS = IVPASS + 1 07570035
761: WRITE (I02,80001) IVTNUM 07580035
762: GO TO 4601 07590035
763: 24590 IVFAIL = IVFAIL + 1 07600035
764: IVCORR = 15249 07610035
765: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 07620035
766: 4601 CONTINUE 07630035
767: IVTNUM = 460 07640035
768: C 07650035
769: C **** TEST 460 **** 07660035
770: C 07670035
771: IF (ICZERO) 34600, 4600, 34600 07680035
772: 4600 CONTINUE 07690035
773: IVON01 = -23 07700035
774: IVON03 = 13 07710035
775: IVCOMP = (IVON01 * (-51)) * (-IVON03) 07720035
776: GO TO 44600 07730035
777: 34600 IVDELE = IVDELE + 1 07740035
778: WRITE (I02,80003) IVTNUM 07750035
779: IF (ICZERO) 44600, 4611, 44600 07760035
780: 44600 IF (IVCOMP + 15249) 24600,14600,24600 07770035
781: 14600 IVPASS = IVPASS + 1 07780035
782: WRITE (I02,80001) IVTNUM 07790035
783: GO TO 4611 07800035
784: 24600 IVFAIL = IVFAIL + 1 07810035
785: IVCORR = -15249 07820035
786: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 07830035
787: 4611 CONTINUE 07840035
788: IVTNUM = 461 07850035
789: C 07860035
790: C **** TEST 461 **** 07870035
791: C 07880035
792: IF (ICZERO) 34610, 4610, 34610 07890035
793: 4610 CONTINUE 07900035
794: IVON02 = 51 07910035
795: IVON03 = 13 07920035
796: IVCOMP = -23 * (IVON02*IVON03) 07930035
797: GO TO 44610 07940035
798: 34610 IVDELE = IVDELE + 1 07950035
799: WRITE (I02,80003) IVTNUM 07960035
800: IF (ICZERO) 44610, 4621, 44610 07970035
801: 44610 IF (IVCOMP + 15249) 24610,14610,24610 07980035
802: 14610 IVPASS = IVPASS + 1 07990035
803: WRITE (I02,80001) IVTNUM 08000035
804: GO TO 4621 08010035
805: 24610 IVFAIL = IVFAIL + 1 08020035
806: IVCORR = -15249 08030035
807: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 08040035
808: C **** END OF TESTS **** 08050035
809: 4621 CONTINUE 08060035
810: C 08070035
811: C WRITE PAGE FOOTINGS AND RUN SUMMARIES 08080035
812: 99999 CONTINUE 08090035
813: WRITE (I02,90002) 08100035
814: WRITE (I02,90006) 08110035
815: WRITE (I02,90002) 08120035
816: WRITE (I02,90002) 08130035
817: WRITE (I02,90007) 08140035
818: WRITE (I02,90002) 08150035
819: WRITE (I02,90008) IVFAIL 08160035
820: WRITE (I02,90009) IVPASS 08170035
821: WRITE (I02,90010) IVDELE 08180035
822: C 08190035
823: C 08200035
824: C TERMINATE ROUTINE EXECUTION 08210035
825: STOP 08220035
826: C 08230035
827: C FORMAT STATEMENTS FOR PAGE HEADERS 08240035
828: 90000 FORMAT (1H1) 08250035
829: 90002 FORMAT (1H ) 08260035
830: 90001 FORMAT (1H ,10X,34HFORTRAN COMPILER VALIDATION SYSTEM) 08270035
831: 90003 FORMAT (1H ,21X,11HVERSION 1.0) 08280035
832: 90004 FORMAT (1H ,10X,38HFOR OFFICIAL USE ONLY - COPYRIGHT 1978) 08290035
833: 90005 FORMAT (1H ,5X,4HTEST,5X,9HPASS/FAIL, 5X,8HCOMPUTED,8X,7HCORRECT) 08300035
834: 90006 FORMAT (1H ,5X,46H----------------------------------------------) 08310035
835: 90011 FORMAT (1H ,18X,17HSUBSET LEVEL TEST) 08320035
836: C 08330035
837: C FORMAT STATEMENTS FOR RUN SUMMARIES 08340035
838: 90008 FORMAT (1H ,15X,I5,19H ERRORS ENCOUNTERED) 08350035
839: 90009 FORMAT (1H ,15X,I5,13H TESTS PASSED) 08360035
840: 90010 FORMAT (1H ,15X,I5,14H TESTS DELETED) 08370035
841: C 08380035
842: C FORMAT STATEMENTS FOR TEST RESULTS 08390035
843: 80001 FORMAT (1H ,4X,I5,7X,4HPASS) 08400035
844: 80002 FORMAT (1H ,4X,I5,7X,4HFAIL) 08410035
845: 80003 FORMAT (1H ,4X,I5,7X,7HDELETED) 08420035
846: 80004 FORMAT (1H ,4X,I5,7X,4HFAIL,10X,I6,9X,I6) 08430035
847: 80005 FORMAT (1H ,4X,I5,7X,4HFAIL,4X,E12.5,3X,E12.5) 08440035
848: C 08450035
849: 90007 FORMAT (1H ,20X,20HEND OF PROGRAM FM035) 08460035
850: END 08470035
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.