![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to FM034.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 FM034.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 00010034
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 00020034
6: C FM034 00030034
7: C 00040034
8: C THIS ROUTINE TESTS ARITHMETIC ASSIGNMENT STATEMENTS OF THE 00050034
9: C FORM 00060034
10: C INTEGER VARIABLE = ARITHMETIC EXPRESSION 00070034
11: C WHERE THE ARITHMETIC EXPRESSION IS FORMED WITH THE ARITHMETIC 00080034
12: C OPERATOR *, INTEGER VARIABLE AND INTEGER CONSTANT. SOME OF THE 00090034
13: C TESTS USE PARENTHESES TO GROUP ELEMENTS IN THE EXPRESSION AND TO 00100034
14: C ALLOW THE USE OF NEGATIVE CONSTANTS FOLLOWING THE * OPERATOR. 00110034
15: C THE INTEGER VARIABLES CONTAIN POSITIVE AND NEGATIVE VALUES. 00120034
16: C 00130034
17: C THERE ARE TESTS WHERE THE ARITHMETIC EXPRESSION CONTAINS 00140034
18: C (1) INTEGER VARIABLE * INTEGER CONSTANT 00150034
19: C INTEGER CONSTANT * INTEGER VARIABLE 00160034
20: C (2) INTEGER CONSTANT * INTEGER VARIABLE * INTEGER CONSTANT 00170034
21: C (3) SAME AS (2) BUT WITH PARENS TO GROUP ELEMENTS. 00180034
22: C 00190034
23: C REFERENCES 00200034
24: C AMERICAN NATIONAL STANDARD PROGRAMMING LANGUAGE FORTRAN, 00210034
25: C X3.9-1978 00220034
26: C 00230034
27: C SECTION 4.3, INTEGER TYPE 00240034
28: C SECTION 4.3.1, INTEGER CONSTANT 00250034
29: C SECTION 6.1, ARITHMETIC EXPRESSIONS 00260034
30: C SECTION 10.1, ARITHMETIC ASSIGNMENT STATEMENT 00270034
31: C 00280034
32: C ********************************************************** 00290034
33: C 00300034
34: C A COMPILER VALIDATION SYSTEM FOR THE FORTRAN LANGUAGE 00310034
35: C BASED ON SPECIFICATIONS AS DEFINED IN AMERICAN NATIONAL STANDARD 00320034
36: C PROGRAMMING LANGUAGE FORTRAN X3.9-1978, HAS BEEN DEVELOPED BY THE 00330034
37: C FEDERAL COBOL COMPILER TESTING SERVICE. THE FORTRAN COMPILER 00340034
38: C VALIDATION SYSTEM (FCVS) CONSISTS OF AUDIT ROUTINES, THEIR RELATED00350034
39: C DATA, AND AN EXECUTIVE SYSTEM. EACH AUDIT ROUTINE IS A FORTRAN 00360034
40: C PROGRAM, SUBPROGRAM OR FUNCTION WHICH INCLUDES TESTS OF SPECIFIC 00370034
41: C LANGUAGE ELEMENTS AND SUPPORTING PROCEDURES INDICATING THE RESULT 00380034
42: C OF EXECUTING THESE TESTS. 00390034
43: C 00400034
44: C THIS PARTICULAR PROGRAM/SUBPROGRAM/FUNCTION CONTAINS FEATURES 00410034
45: C FOUND ONLY IN THE SUBSET AS DEFINED IN X3.9-1978. 00420034
46: C 00430034
47: C SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO - 00440034
48: C 00450034
49: C DEPARTMENT OF THE NAVY 00460034
50: C FEDERAL COBOL COMPILER TESTING SERVICE 00470034
51: C WASHINGTON, D.C. 20376 00480034
52: C 00490034
53: C ********************************************************** 00500034
54: C 00510034
55: C 00520034
56: C 00530034
57: C INITIALIZATION SECTION 00540034
58: C 00550034
59: C INITIALIZE CONSTANTS 00560034
60: C ************** 00570034
61: C I01 CONTAINS THE LOGICAL UNIT NUMBER FOR THE CARD READER. 00580034
62: I01 = 5 00590034
63: C I02 CONTAINS THE LOGICAL UNIT NUMBER FOR THE PRINTER. 00600034
64: I02 = 6 00610034
65: C SYSTEM ENVIRONMENT SECTION 00620034
66: C 00630034
67: I01 = 5 00640034
68: C THE CX010 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I01 = 5 00650034
69: C (UNIT NUMBER FOR CARD READER). 00660034
70: CX011 THIS CARD IS REPLACED BY CONTENTS OF FEXEC X-011 CONTROL CARD. 00670034
71: C THE CX011 CARD IS FOR SYSTEMS WHICH REQUIRE ADDITIONAL 00680034
72: C FORTRAN STATEMENTS FOR FILES ASSOCIATED WITH CX010 ABOVE. 00690034
73: C 00700034
74: I02 = 6 00710034
75: C THE CX020 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I02 = 6 00720034
76: C (UNIT NUMBER FOR PRINTER). 00730034
77: CX021 THIS CARD IS REPLACED BY CONTENTS OF FEXEC X-021 CONTROL CARD. 00740034
78: C THE CX021 CARD IS FOR SYSTEMS WHICH REQUIRE ADDITIONAL 00750034
79: C FORTRAN STATEMENTS FOR FILES ASSOCIATED WITH CX020 ABOVE. 00760034
80: C 00770034
81: IVPASS=0 00780034
82: IVFAIL=0 00790034
83: IVDELE=0 00800034
84: ICZERO=0 00810034
85: C 00820034
86: C WRITE PAGE HEADERS 00830034
87: WRITE (I02,90000) 00840034
88: WRITE (I02,90001) 00850034
89: WRITE (I02,90002) 00860034
90: WRITE (I02, 90002) 00870034
91: WRITE (I02,90003) 00880034
92: WRITE (I02,90002) 00890034
93: WRITE (I02,90004) 00900034
94: WRITE (I02,90002) 00910034
95: WRITE (I02,90011) 00920034
96: WRITE (I02,90002) 00930034
97: WRITE (I02,90002) 00940034
98: WRITE (I02,90005) 00950034
99: WRITE (I02,90006) 00960034
100: WRITE (I02,90002) 00970034
101: C 00980034
102: C TEST SECTION 00990034
103: C 01000034
104: C ARITHMETIC ASSIGNMENT STATEMENT 01010034
105: C 01020034
106: C TEST 395 THROUGH TEST 414 CONTAIN AN INTEGER VARIABLE, AN INTEGER 01030034
107: C CONSTANT, AND OPERATOR * IN AN ARITHMETIC EXPRESSION. 01040034
108: C 01050034
109: C TEST 395 THROUGH TEST 406 - IV= IV * IC 01060034
110: C 01070034
111: C TEST 395 THROUGH TEST 398 01080034
112: C POSITIVE INTEGER VARIABLE, POSITIVE INTEGER CONSTANT 01090034
113: C 01100034
114: 3951 CONTINUE 01110034
115: IVTNUM = 395 01120034
116: C 01130034
117: C **** TEST 395 **** 01140034
118: C 01150034
119: IF (ICZERO) 33950, 3950, 33950 01160034
120: 3950 CONTINUE 01170034
121: IVON01 = 2 01180034
122: IVCOMP = IVON01 * 3 01190034
123: GO TO 43950 01200034
124: 33950 IVDELE = IVDELE + 1 01210034
125: WRITE (I02,80003) IVTNUM 01220034
126: IF (ICZERO) 43950, 3961, 43950 01230034
127: 43950 IF (IVCOMP -6) 23950,13950,23950 01240034
128: 13950 IVPASS = IVPASS + 1 01250034
129: WRITE (I02,80001) IVTNUM 01260034
130: GO TO 3961 01270034
131: 23950 IVFAIL = IVFAIL + 1 01280034
132: IVCORR =6 01290034
133: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 01300034
134: 3961 CONTINUE 01310034
135: IVTNUM = 396 01320034
136: C 01330034
137: C **** TEST 396 **** 01340034
138: C 01350034
139: IF (ICZERO) 33960, 3960, 33960 01360034
140: 3960 CONTINUE 01370034
141: IVON01 = 13 01380034
142: IVCOMP = IVON01 * 11 01390034
143: GO TO 43960 01400034
144: 33960 IVDELE = IVDELE + 1 01410034
145: WRITE (I02,80003) IVTNUM 01420034
146: IF (ICZERO) 43960, 3971, 43960 01430034
147: 43960 IF (IVCOMP - 143) 23960,13960,23960 01440034
148: 13960 IVPASS = IVPASS + 1 01450034
149: WRITE (I02,80001) IVTNUM 01460034
150: GO TO 3971 01470034
151: 23960 IVFAIL = IVFAIL + 1 01480034
152: IVCORR = 143 01490034
153: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 01500034
154: 3971 CONTINUE 01510034
155: IVTNUM = 397 01520034
156: C 01530034
157: C **** TEST 397 **** 01540034
158: C 01550034
159: IF (ICZERO) 33970, 3970, 33970 01560034
160: 3970 CONTINUE 01570034
161: IVON01 = 223 01580034
162: IVCOMP = IVON01 * 99 01590034
163: GO TO 43970 01600034
164: 33970 IVDELE = IVDELE + 1 01610034
165: WRITE (I02,80003) IVTNUM 01620034
166: IF (ICZERO) 43970, 3981, 43970 01630034
167: 43970 IF (IVCOMP - 22077) 23970,13970,23970 01640034
168: 13970 IVPASS = IVPASS + 1 01650034
169: WRITE (I02,80001) IVTNUM 01660034
170: GO TO 3981 01670034
171: 23970 IVFAIL = IVFAIL + 1 01680034
172: IVCORR = 22077 01690034
173: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 01700034
174: 3981 CONTINUE 01710034
175: IVTNUM = 398 01720034
176: C 01730034
177: C **** TEST 398 **** 01740034
178: C 01750034
179: IF (ICZERO) 33980, 3980, 33980 01760034
180: 3980 CONTINUE 01770034
181: IVON01 = 11235 01780034
182: IVCOMP = IVON01 * 2 01790034
183: GO TO 43980 01800034
184: 33980 IVDELE = IVDELE + 1 01810034
185: WRITE (I02,80003) IVTNUM 01820034
186: IF (ICZERO) 43980, 3991, 43980 01830034
187: 43980 IF (IVCOMP - 22470) 23980,13980,23980 01840034
188: 13980 IVPASS = IVPASS + 1 01850034
189: WRITE (I02,80001) IVTNUM 01860034
190: GO TO 3991 01870034
191: 23980 IVFAIL = IVFAIL + 1 01880034
192: IVCORR = 22470 01890034
193: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 01900034
194: C 01910034
195: C TEST 399 THROUGH TEST 402 01920034
196: C NEGATIVE INTEGER VARIABLE, POSITIVE INTEGER CONSTANT 01930034
197: C 01940034
198: 3991 CONTINUE 01950034
199: IVTNUM = 399 01960034
200: C 01970034
201: C **** TEST 399 **** 01980034
202: C 01990034
203: IF (ICZERO) 33990, 3990, 33990 02000034
204: 3990 CONTINUE 02010034
205: IVON01 = -2 02020034
206: IVCOMP = IVON01 * 3 02030034
207: GO TO 43990 02040034
208: 33990 IVDELE = IVDELE + 1 02050034
209: WRITE (I02,80003) IVTNUM 02060034
210: IF (ICZERO) 43990, 4001, 43990 02070034
211: 43990 IF (IVCOMP +6) 23990,13990,23990 02080034
212: 13990 IVPASS = IVPASS + 1 02090034
213: WRITE (I02,80001) IVTNUM 02100034
214: GO TO 4001 02110034
215: 23990 IVFAIL = IVFAIL + 1 02120034
216: IVCORR = -6 02130034
217: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 02140034
218: 4001 CONTINUE 02150034
219: IVTNUM = 400 02160034
220: C 02170034
221: C **** TEST 400 **** 02180034
222: C 02190034
223: IF (ICZERO) 34000, 4000, 34000 02200034
224: 4000 CONTINUE 02210034
225: IVON01 = -13 02220034
226: IVCOMP =IVON01*11 02230034
227: GO TO 44000 02240034
228: 34000 IVDELE = IVDELE + 1 02250034
229: WRITE (I02,80003) IVTNUM 02260034
230: IF (ICZERO) 44000, 4011, 44000 02270034
231: 44000 IF (IVCOMP +143) 24000,14000,24000 02280034
232: 14000 IVPASS = IVPASS + 1 02290034
233: WRITE (I02,80001) IVTNUM 02300034
234: GO TO 4011 02310034
235: 24000 IVFAIL = IVFAIL + 1 02320034
236: IVCORR = -143 02330034
237: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 02340034
238: 4011 CONTINUE 02350034
239: IVTNUM = 401 02360034
240: C 02370034
241: C **** TEST 401 **** 02380034
242: C 02390034
243: IF (ICZERO) 34010, 4010, 34010 02400034
244: 4010 CONTINUE 02410034
245: IVON01 = -223 02420034
246: IVCOMP = IVON01*99 02430034
247: GO TO 44010 02440034
248: 34010 IVDELE = IVDELE + 1 02450034
249: WRITE (I02,80003) IVTNUM 02460034
250: IF (ICZERO) 44010, 4021, 44010 02470034
251: 44010 IF (IVCOMP + 22077) 24010,14010,24010 02480034
252: 14010 IVPASS = IVPASS + 1 02490034
253: WRITE (I02,80001) IVTNUM 02500034
254: GO TO 4021 02510034
255: 24010 IVFAIL = IVFAIL + 1 02520034
256: IVCORR = -22077 02530034
257: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 02540034
258: 4021 CONTINUE 02550034
259: IVTNUM = 402 02560034
260: C 02570034
261: C **** TEST 402 **** 02580034
262: C 02590034
263: IF (ICZERO) 34020, 4020, 34020 02600034
264: 4020 CONTINUE 02610034
265: IVON01 = -11235 02620034
266: IVCOMP = IVON01*2 02630034
267: GO TO 44020 02640034
268: 34020 IVDELE = IVDELE + 1 02650034
269: WRITE (I02,80003) IVTNUM 02660034
270: IF (ICZERO) 44020, 4031, 44020 02670034
271: 44020 IF (IVCOMP+22470) 24020,14020,24020 02680034
272: 14020 IVPASS = IVPASS + 1 02690034
273: WRITE (I02,80001) IVTNUM 02700034
274: GO TO 4031 02710034
275: 24020 IVFAIL = IVFAIL + 1 02720034
276: IVCORR = -22470 02730034
277: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 02740034
278: C 02750034
279: C TEST 403 AND TEST 404 02760034
280: C NEGATIVE INTEGER VARIABLE, NEGATIVE INTEGER CONSTANT 02770034
281: C 02780034
282: 4031 CONTINUE 02790034
283: IVTNUM = 403 02800034
284: C 02810034
285: C **** TEST 403 **** 02820034
286: C 02830034
287: IF (ICZERO) 34030, 4030, 34030 02840034
288: 4030 CONTINUE 02850034
289: IVON01=-2 02860034
290: IVCOMP = IVON01*(-3) 02870034
291: GO TO 44030 02880034
292: 34030 IVDELE = IVDELE + 1 02890034
293: WRITE (I02,80003) IVTNUM 02900034
294: IF (ICZERO) 44030, 4041, 44030 02910034
295: 44030 IF (IVCOMP -6) 24030,14030,24030 02920034
296: 14030 IVPASS = IVPASS + 1 02930034
297: WRITE (I02,80001) IVTNUM 02940034
298: GO TO 4041 02950034
299: 24030 IVFAIL = IVFAIL + 1 02960034
300: IVCORR =6 02970034
301: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 02980034
302: 4041 CONTINUE 02990034
303: IVTNUM = 404 03000034
304: C 03010034
305: C **** TEST 404 **** 03020034
306: C 03030034
307: IF (ICZERO) 34040, 4040, 34040 03040034
308: 4040 CONTINUE 03050034
309: IVON01 = -13 03060034
310: IVCOMP = IVON01 * (-11) 03070034
311: GO TO 44040 03080034
312: 34040 IVDELE = IVDELE + 1 03090034
313: WRITE (I02,80003) IVTNUM 03100034
314: IF (ICZERO) 44040, 4051, 44040 03110034
315: 44040 IF (IVCOMP -143) 24040,14040,24040 03120034
316: 14040 IVPASS = IVPASS + 1 03130034
317: WRITE (I02,80001) IVTNUM 03140034
318: GO TO 4051 03150034
319: 24040 IVFAIL = IVFAIL + 1 03160034
320: IVCORR = 143 03170034
321: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 03180034
322: C 03190034
323: C TEST 405 AND TEST 406 03200034
324: C POSITIVE INTEGER VARIABLE, NEGATIVE INTEGER CONSTANT 03210034
325: C 03220034
326: 4051 CONTINUE 03230034
327: IVTNUM = 405 03240034
328: C 03250034
329: C **** TEST 405 **** 03260034
330: C 03270034
331: IF (ICZERO) 34050, 4050, 34050 03280034
332: 4050 CONTINUE 03290034
333: IVON01 = 223 03300034
334: IVCOMP = IVON01 * (-99) 03310034
335: GO TO 44050 03320034
336: 34050 IVDELE = IVDELE + 1 03330034
337: WRITE (I02,80003) IVTNUM 03340034
338: IF (ICZERO) 44050, 4061, 44050 03350034
339: 44050 IF (IVCOMP + 22077) 24050,14050,24050 03360034
340: 14050 IVPASS = IVPASS + 1 03370034
341: WRITE (I02,80001) IVTNUM 03380034
342: GO TO 4061 03390034
343: 24050 IVFAIL = IVFAIL + 1 03400034
344: IVCORR = -22077 03410034
345: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 03420034
346: 4061 CONTINUE 03430034
347: IVTNUM = 406 03440034
348: C 03450034
349: C **** TEST 406 **** 03460034
350: C 03470034
351: IF (ICZERO) 34060, 4060, 34060 03480034
352: 4060 CONTINUE 03490034
353: IVON01 = 11235 03500034
354: IVCOMP = IVON01 * (-2) 03510034
355: GO TO 44060 03520034
356: 34060 IVDELE = IVDELE + 1 03530034
357: WRITE (I02,80003) IVTNUM 03540034
358: IF (ICZERO) 44060, 4071, 44060 03550034
359: 44060 IF (IVCOMP + 22470) 24060,14060,24060 03560034
360: 14060 IVPASS = IVPASS + 1 03570034
361: WRITE (I02,80001) IVTNUM 03580034
362: GO TO 4071 03590034
363: 24060 IVFAIL = IVFAIL + 1 03600034
364: IVCORR = -22470 03610034
365: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 03620034
366: C 03630034
367: C TEST 407 THROUGH TEST 414 - IV = IC * IV 03640034
368: C 03650034
369: C TEST 407 AND TEST 408 03660034
370: C POSITIVE INTEGER CONSTANT, POSITIVE INTEGER VARIABLE 03670034
371: C 03680034
372: 4071 CONTINUE 03690034
373: IVTNUM = 407 03700034
374: C 03710034
375: C **** TEST 407 **** 03720034
376: C 03730034
377: IF (ICZERO) 34070, 4070, 34070 03740034
378: 4070 CONTINUE 03750034
379: IVON02 = 11 03760034
380: IVCOMP = 13*IVON02 03770034
381: GO TO 44070 03780034
382: 34070 IVDELE = IVDELE + 1 03790034
383: WRITE (I02,80003) IVTNUM 03800034
384: IF (ICZERO) 44070, 4081, 44070 03810034
385: 44070 IF (IVCOMP - 143) 24070,14070,24070 03820034
386: 14070 IVPASS = IVPASS + 1 03830034
387: WRITE (I02,80001) IVTNUM 03840034
388: GO TO 4081 03850034
389: 24070 IVFAIL = IVFAIL + 1 03860034
390: IVCORR = 143 03870034
391: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 03880034
392: 4081 CONTINUE 03890034
393: IVTNUM = 408 03900034
394: C 03910034
395: C **** TEST 408 **** 03920034
396: C 03930034
397: IF (ICZERO) 34080, 4080, 34080 03940034
398: 4080 CONTINUE 03950034
399: IVON02 = +11 03960034
400: IVCOMP = +13 * IVON02 03970034
401: GO TO 44080 03980034
402: 34080 IVDELE = IVDELE + 1 03990034
403: WRITE (I02,80003) IVTNUM 04000034
404: IF (ICZERO) 44080, 4091, 44080 04010034
405: 44080 IF (IVCOMP - 143) 24080,14080,24080 04020034
406: 14080 IVPASS = IVPASS + 1 04030034
407: WRITE (I02,80001) IVTNUM 04040034
408: GO TO 4091 04050034
409: 24080 IVFAIL = IVFAIL + 1 04060034
410: IVCORR = 143 04070034
411: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 04080034
412: C 04090034
413: C TEST 409 AND TEST 410 04100034
414: C POSITIVE INTEGER CONSTANT, NEGATIVE INTEGER VARIABLE 04110034
415: C 04120034
416: 4091 CONTINUE 04130034
417: IVTNUM = 409 04140034
418: C 04150034
419: C **** TEST 409 **** 04160034
420: C 04170034
421: IF (ICZERO) 34090, 4090, 34090 04180034
422: 4090 CONTINUE 04190034
423: IVON02 = -99 04200034
424: IVCOMP = 223 * IVON02 04210034
425: GO TO 44090 04220034
426: 34090 IVDELE = IVDELE + 1 04230034
427: WRITE (I02,80003) IVTNUM 04240034
428: IF (ICZERO) 44090, 4101, 44090 04250034
429: 44090 IF (IVCOMP + 22077) 24090,14090,24090 04260034
430: 14090 IVPASS = IVPASS + 1 04270034
431: WRITE (I02,80001) IVTNUM 04280034
432: GO TO 4101 04290034
433: 24090 IVFAIL = IVFAIL + 1 04300034
434: IVCORR =-22077 04310034
435: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 04320034
436: 4101 CONTINUE 04330034
437: IVTNUM = 410 04340034
438: C 04350034
439: C **** TEST 410 **** 04360034
440: C 04370034
441: IF (ICZERO) 34100, 4100, 34100 04380034
442: 4100 CONTINUE 04390034
443: IVON02 = -99 04400034
444: IVCOMP = +223*IVON02 04410034
445: GO TO 44100 04420034
446: 34100 IVDELE = IVDELE + 1 04430034
447: WRITE (I02,80003) IVTNUM 04440034
448: IF (ICZERO) 44100, 4111, 44100 04450034
449: 44100 IF (IVCOMP + 22077) 24100,14100,24100 04460034
450: 14100 IVPASS = IVPASS + 1 04470034
451: WRITE (I02,80001) IVTNUM 04480034
452: GO TO 4111 04490034
453: 24100 IVFAIL = IVFAIL + 1 04500034
454: IVCORR = -22077 04510034
455: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 04520034
456: C 04530034
457: C TEST 411 AND TEST 412 04540034
458: C NEGATIVE INTEGER CONSTANT, POSITIVE INTEGER VARIABLE 04550034
459: C 04560034
460: 4111 CONTINUE 04570034
461: IVTNUM = 411 04580034
462: C 04590034
463: C **** TEST 411 **** 04600034
464: C 04610034
465: IF (ICZERO) 34110, 4110, 34110 04620034
466: 4110 CONTINUE 04630034
467: IVON02 = 2 04640034
468: IVCOMP = (-11235) * IVON02 04650034
469: GO TO 44110 04660034
470: 34110 IVDELE = IVDELE + 1 04670034
471: WRITE (I02,80003) IVTNUM 04680034
472: IF (ICZERO) 44110, 4121, 44110 04690034
473: 44110 IF (IVCOMP + 22470) 24110,14110,24110 04700034
474: 14110 IVPASS = IVPASS + 1 04710034
475: WRITE (I02,80001) IVTNUM 04720034
476: GO TO 4121 04730034
477: 24110 IVFAIL = IVFAIL + 1 04740034
478: IVCORR = -22470 04750034
479: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 04760034
480: 4121 CONTINUE 04770034
481: IVTNUM = 412 04780034
482: C 04790034
483: C **** TEST 412 **** 04800034
484: C 04810034
485: IF (ICZERO) 34120, 4120, 34120 04820034
486: 4120 CONTINUE 04830034
487: IVON02 = +2 04840034
488: IVCOMP = -11235 * IVON02 04850034
489: GO TO 44120 04860034
490: 34120 IVDELE = IVDELE + 1 04870034
491: WRITE (I02,80003) IVTNUM 04880034
492: IF (ICZERO) 44120, 4131, 44120 04890034
493: 44120 IF (IVCOMP + 22470) 24120,14120,24120 04900034
494: 14120 IVPASS=IVPASS + 1 04910034
495: WRITE (I02,80001) IVTNUM 04920034
496: GO TO 4131 04930034
497: 24120 IVFAIL = IVFAIL + 1 04940034
498: IVCORR = -22470 04950034
499: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 04960034
500: C 04970034
501: C TEST 413 AND TEST 414 04980034
502: C NEGATIVE INTEGER CONSTANT, NEGATIVE INTEGER VARIABLE 04990034
503: C 05000034
504: 4131 CONTINUE 05010034
505: IVTNUM = 413 05020034
506: C 05030034
507: C **** TEST 413 **** 05040034
508: C 05050034
509: IF (ICZERO) 34130, 4130, 34130 05060034
510: 4130 CONTINUE 05070034
511: IVON02 = -3 05080034
512: IVCOMP = (-2) * IVON02 05090034
513: GO TO 44130 05100034
514: 34130 IVDELE = IVDELE + 1 05110034
515: WRITE (I02,80003) IVTNUM 05120034
516: IF (ICZERO) 44130, 4141, 44130 05130034
517: 44130 IF (IVCOMP - 6) 24130,14130,24130 05140034
518: 14130 IVPASS = IVPASS + 1 05150034
519: WRITE (I02,80001) IVTNUM 05160034
520: GO TO 4141 05170034
521: 24130 IVFAIL = IVFAIL + 1 05180034
522: IVCORR = 6 05190034
523: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 05200034
524: 4141 CONTINUE 05210034
525: IVTNUM = 414 05220034
526: C 05230034
527: C **** TEST 414 **** 05240034
528: C 05250034
529: IF (ICZERO) 34140, 4140, 34140 05260034
530: 4140 CONTINUE 05270034
531: IVON02 = -3 05280034
532: IVCOMP = -2 * IVON02 05290034
533: GO TO 44140 05300034
534: 34140 IVDELE = IVDELE + 1 05310034
535: WRITE (I02,80003) IVTNUM 05320034
536: IF (ICZERO) 44140, 4151, 44140 05330034
537: 44140 IF (IVCOMP - 6) 24140,14140,24140 05340034
538: 14140 IVPASS = IVPASS + 1 05350034
539: WRITE (I02,80001) IVTNUM 05360034
540: GO TO 4151 05370034
541: 24140 IVFAIL = IVFAIL + 1 05380034
542: IVCORR = 6 05390034
543: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 05400034
544: C 05410034
545: C TEST 415 THROUGH TEST 429 CONTAIN TWO INTEGER CONSTANTS, 05420034
546: C ONE INTEGER VARIABLE AND OPERATOR * IN ARITHMETIC EXPRESSION. 05430034
547: C 05440034
548: 4151 CONTINUE 05450034
549: IVTNUM = 415 05460034
550: C 05470034
551: C **** TEST 415 **** 05480034
552: C 05490034
553: IF (ICZERO) 34150, 4150, 34150 05500034
554: 4150 CONTINUE 05510034
555: IVON01 = 2 05520034
556: IVCOMP = IVON01 * 3 * 4 05530034
557: GO TO 44150 05540034
558: 34150 IVDELE = IVDELE + 1 05550034
559: WRITE (I02,80003) IVTNUM 05560034
560: IF (ICZERO) 44150, 4161, 44150 05570034
561: 44150 IF (IVCOMP - 24) 24150,14150,24150 05580034
562: 14150 IVPASS = IVPASS + 1 05590034
563: WRITE (I02,80001) IVTNUM 05600034
564: GO TO 4161 05610034
565: 24150 IVFAIL = IVFAIL + 1 05620034
566: IVCORR = 24 05630034
567: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 05640034
568: 4161 CONTINUE 05650034
569: IVTNUM = 416 05660034
570: C 05670034
571: C **** TEST 416 **** 05680034
572: C 05690034
573: IF (ICZERO) 34160, 4160, 34160 05700034
574: 4160 CONTINUE 05710034
575: IVON01 = -2 05720034
576: IVCOMP = IVON01 *3*4 05730034
577: GO TO 44160 05740034
578: 34160 IVDELE = IVDELE + 1 05750034
579: WRITE (I02,80003) IVTNUM 05760034
580: IF (ICZERO) 44160, 4171, 44160 05770034
581: 44160 IF (IVCOMP +24) 24160,14160,24160 05780034
582: 14160 IVPASS = IVPASS + 1 05790034
583: WRITE (I02,80001) IVTNUM 05800034
584: GO TO 4171 05810034
585: 24160 IVFAIL = IVFAIL + 1 05820034
586: IVCORR = -24 05830034
587: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 05840034
588: 4171 CONTINUE 05850034
589: IVTNUM = 417 05860034
590: C 05870034
591: C **** TEST 417 **** 05880034
592: C 05890034
593: IF (ICZERO) 34170, 4170, 34170 05900034
594: 4170 CONTINUE 05910034
595: IVON01 = -2 05920034
596: IVCOMP = IVON01*3*(-4) 05930034
597: GO TO 44170 05940034
598: 34170 IVDELE = IVDELE + 1 05950034
599: WRITE (I02,80003) IVTNUM 05960034
600: IF (ICZERO) 44170, 4181, 44170 05970034
601: 44170 IF (IVCOMP -24) 24170,14170,24170 05980034
602: 14170 IVPASS = IVPASS + 1 05990034
603: WRITE (I02,80001) IVTNUM 06000034
604: GO TO 4181 06010034
605: 24170 IVFAIL = IVFAIL + 1 06020034
606: IVCORR = 24 06030034
607: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 06040034
608: 4181 CONTINUE 06050034
609: IVTNUM = 418 06060034
610: C 06070034
611: C **** TEST 418 **** 06080034
612: C 06090034
613: IF (ICZERO) 34180, 4180, 34180 06100034
614: 4180 CONTINUE 06110034
615: IVON01 = -2 06120034
616: IVCOMP = IVON01*(-3)*(-4) 06130034
617: GO TO 44180 06140034
618: 34180 IVDELE = IVDELE + 1 06150034
619: WRITE (I02,80003) IVTNUM 06160034
620: IF (ICZERO) 44180, 4191, 44180 06170034
621: 44180 IF (IVCOMP +24) 24180,14180,24180 06180034
622: 14180 IVPASS = IVPASS + 1 06190034
623: WRITE (I02,80001) IVTNUM 06200034
624: GO TO 4191 06210034
625: 24180 IVFAIL = IVFAIL + 1 06220034
626: IVCORR = -24 06230034
627: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 06240034
628: 4191 CONTINUE 06250034
629: IVTNUM = 419 06260034
630: C 06270034
631: C **** TEST 419 **** 06280034
632: C 06290034
633: IF (ICZERO) 34190, 4190, 34190 06300034
634: 4190 CONTINUE 06310034
635: IVON02 = 51 06320034
636: IVCOMP = 23*IVON02*13 06330034
637: GO TO 44190 06340034
638: 34190 IVDELE = IVDELE + 1 06350034
639: WRITE (I02,80003) IVTNUM 06360034
640: IF (ICZERO) 44190, 4201, 44190 06370034
641: 44190 IF (IVCOMP-15249) 24190,14190,24190 06380034
642: 14190 IVPASS = IVPASS + 1 06390034
643: WRITE (I02,80001) IVTNUM 06400034
644: GO TO 4201 06410034
645: 24190 IVFAIL = IVFAIL + 1 06420034
646: IVCORR = 15249 06430034
647: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 06440034
648: 4201 CONTINUE 06450034
649: IVTNUM = 420 06460034
650: C 06470034
651: C **** TEST 420 **** 06480034
652: C 06490034
653: IF (ICZERO) 34200, 4200, 34200 06500034
654: 4200 CONTINUE 06510034
655: IVON02 = -51 06520034
656: IVCOMP = 23*IVON02*(-13) 06530034
657: GO TO 44200 06540034
658: 34200 IVDELE = IVDELE + 1 06550034
659: WRITE (I02,80003) IVTNUM 06560034
660: IF (ICZERO) 44200, 4211, 44200 06570034
661: 44200 IF (IVCOMP - 15249) 24200,14200,24200 06580034
662: 14200 IVPASS = IVPASS + 1 06590034
663: WRITE (I02,80001) IVTNUM 06600034
664: GO TO 4211 06610034
665: 24200 IVFAIL = IVFAIL + 1 06620034
666: IVCORR = 15249 06630034
667: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 06640034
668: 4211 CONTINUE 06650034
669: IVTNUM = 421 06660034
670: C 06670034
671: C **** TEST 421 **** 06680034
672: C 06690034
673: IF (ICZERO) 34210, 4210, 34210 06700034
674: 4210 CONTINUE 06710034
675: IVON02 = -51 06720034
676: IVCOMP = 23*IVON02*13 06730034
677: GO TO 44210 06740034
678: 34210 IVDELE = IVDELE + 1 06750034
679: WRITE (I02,80003) IVTNUM 06760034
680: IF (ICZERO) 44210, 4221, 44210 06770034
681: 44210 IF (IVCOMP+15249) 24210,14210,24210 06780034
682: 14210 IVPASS = IVPASS + 1 06790034
683: WRITE (I02,80001) IVTNUM 06800034
684: GO TO 4221 06810034
685: 24210 IVFAIL = IVFAIL + 1 06820034
686: IVCORR = -15249 06830034
687: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 06840034
688: 4221 CONTINUE 06850034
689: IVTNUM = 422 06860034
690: C 06870034
691: C **** TEST 422 **** 06880034
692: C 06890034
693: IF (ICZERO) 34220, 4220, 34220 06900034
694: 4220 CONTINUE 06910034
695: IVON02 = -51 06920034
696: IVCOMP =(-23)*IVON02*(-13) 06930034
697: GO TO 44220 06940034
698: 34220 IVDELE = IVDELE + 1 06950034
699: WRITE (I02,80003) IVTNUM 06960034
700: IF (ICZERO) 44220, 4231, 44220 06970034
701: 44220 IF (IVCOMP+15249) 24220,14220,24220 06980034
702: 14220 IVPASS = IVPASS + 1 06990034
703: WRITE (I02,80001) IVTNUM 07000034
704: GO TO 4231 07010034
705: 24220 IVFAIL = IVFAIL + 1 07020034
706: IVCORR = -15249 07030034
707: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 07040034
708: 4231 CONTINUE 07050034
709: IVTNUM = 423 07060034
710: C 07070034
711: C **** TEST 423 **** 07080034
712: C 07090034
713: IF (ICZERO) 34230, 4230, 34230 07100034
714: 4230 CONTINUE 07110034
715: IVON03 = 5461 07120034
716: IVCOMP = 2*3*IVON03 07130034
717: GO TO 44230 07140034
718: 34230 IVDELE = IVDELE + 1 07150034
719: WRITE (I02,80003) IVTNUM 07160034
720: IF (ICZERO) 44230, 4241, 44230 07170034
721: 44230 IF (IVCOMP - 32766) 24230,14230,24230 07180034
722: 14230 IVPASS = IVPASS + 1 07190034
723: WRITE (I02,80001) IVTNUM 07200034
724: GO TO 4241 07210034
725: 24230 IVFAIL = IVFAIL + 1 07220034
726: IVCORR = 32766 07230034
727: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 07240034
728: 4241 CONTINUE 07250034
729: IVTNUM = 424 07260034
730: C 07270034
731: C **** TEST 424 **** 07280034
732: C 07290034
733: IF (ICZERO) 34240, 4240, 34240 07300034
734: 4240 CONTINUE 07310034
735: IVON03 = -5461 07320034
736: IVCOMP = 2*3*IVON03 07330034
737: GO TO 44240 07340034
738: 34240 IVDELE = IVDELE + 1 07350034
739: WRITE (I02,80003) IVTNUM 07360034
740: IF (ICZERO) 44240, 4251, 44240 07370034
741: 44240 IF (IVCOMP +32766) 24240,14240,24240 07380034
742: 14240 IVPASS = IVPASS + 1 07390034
743: WRITE (I02,80001) IVTNUM 07400034
744: GO TO 4251 07410034
745: 24240 IVFAIL = IVFAIL + 1 07420034
746: IVCORR = -32766 07430034
747: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 07440034
748: 4251 CONTINUE 07450034
749: IVTNUM = 425 07460034
750: C 07470034
751: C **** TEST 425 **** 07480034
752: C 07490034
753: IF (ICZERO) 34250, 4250, 34250 07500034
754: 4250 CONTINUE 07510034
755: IVON03 = -5461 07520034
756: IVCOMP = -2*3*IVON03 07530034
757: GO TO 44250 07540034
758: 34250 IVDELE = IVDELE + 1 07550034
759: WRITE (I02,80003) IVTNUM 07560034
760: IF (ICZERO) 44250, 4261, 44250 07570034
761: 44250 IF (IVCOMP - 32766) 24250,14250,24250 07580034
762: 14250 IVPASS = IVPASS + 1 07590034
763: WRITE (I02,80001) IVTNUM 07600034
764: GO TO 4261 07610034
765: 24250 IVFAIL = IVFAIL + 1 07620034
766: IVCORR = 32766 07630034
767: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 07640034
768: C 07650034
769: C TEST 426 THROUGH TEST 429 USE PARENTHESES TO GROUP ELEMENTS 07660034
770: C IN ARITHMETIC EXPRESSION. 07670034
771: C 07680034
772: 4261 CONTINUE 07690034
773: IVTNUM = 426 07700034
774: C 07710034
775: C **** TEST 426 **** 07720034
776: C 07730034
777: IF (ICZERO) 34260, 4260, 34260 07740034
778: 4260 CONTINUE 07750034
779: IVON02 = 51 07760034
780: IVCOMP = (23*IVON02)*13 07770034
781: GO TO 44260 07780034
782: 34260 IVDELE = IVDELE + 1 07790034
783: WRITE (I02,80003) IVTNUM 07800034
784: IF (ICZERO) 44260, 4271, 44260 07810034
785: 44260 IF (IVCOMP -15249) 24260,14260,24260 07820034
786: 14260 IVPASS = IVPASS + 1 07830034
787: WRITE (I02,80001) IVTNUM 07840034
788: GO TO 4271 07850034
789: 24260 IVFAIL = IVFAIL + 1 07860034
790: IVCORR = 15249 07870034
791: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 07880034
792: 4271 CONTINUE 07890034
793: IVTNUM = 427 07900034
794: C 07910034
795: C **** TEST 427 **** 07920034
796: C 07930034
797: IF (ICZERO) 34270, 4270, 34270 07940034
798: 4270 CONTINUE 07950034
799: IVON02 = 51 07960034
800: IVCOMP = 23*(IVON02*13) 07970034
801: GO TO 44270 07980034
802: 34270 IVDELE = IVDELE + 1 07990034
803: WRITE (I02,80003) IVTNUM 08000034
804: IF (ICZERO) 44270, 4281, 44270 08010034
805: 44270 IF (IVCOMP-15249) 24270,14270,24270 08020034
806: 14270 IVPASS = IVPASS + 1 08030034
807: WRITE (I02,80001) IVTNUM 08040034
808: GO TO 4281 08050034
809: 24270 IVFAIL = IVFAIL + 1 08060034
810: IVCORR = 15249 08070034
811: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 08080034
812: 4281 CONTINUE 08090034
813: IVTNUM = 428 08100034
814: C 08110034
815: C **** TEST 428 **** 08120034
816: C 08130034
817: IF (ICZERO) 34280, 4280, 34280 08140034
818: 4280 CONTINUE 08150034
819: IVON02 = -51 08160034
820: IVCOMP = -23 * (IVON02*(+13)) 08170034
821: GO TO 44280 08180034
822: 34280 IVDELE = IVDELE + 1 08190034
823: WRITE (I02,80003) IVTNUM 08200034
824: IF (ICZERO) 44280, 4291, 44280 08210034
825: 44280 IF (IVCOMP - 15249)24280,14280,24280 08220034
826: 14280 IVPASS = IVPASS + 1 08230034
827: WRITE (I02,80001) IVTNUM 08240034
828: GO TO 4291 08250034
829: 24280 IVFAIL = IVFAIL + 1 08260034
830: IVCORR = 15249 08270034
831: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 08280034
832: 4291 CONTINUE 08290034
833: IVTNUM = 429 08300034
834: C 08310034
835: C **** TEST 429 **** 08320034
836: C 08330034
837: IF (ICZERO) 34290, 4290, 34290 08340034
838: 4290 CONTINUE 08350034
839: IVON02 = -51 08360034
840: IVCOMP = (-23)*(IVON02*(-13)) 08370034
841: GO TO 44290 08380034
842: 34290 IVDELE = IVDELE + 1 08390034
843: WRITE (I02,80003) IVTNUM 08400034
844: IF (ICZERO) 44290, 4301, 44290 08410034
845: 44290 IF (IVCOMP + 15249) 24290,14290,24290 08420034
846: 14290 IVPASS = IVPASS + 1 08430034
847: WRITE (I02,80001) IVTNUM 08440034
848: GO TO 4301 08450034
849: 24290 IVFAIL = IVFAIL + 1 08460034
850: IVCORR = -15249 08470034
851: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 08480034
852: C **** END OF TESTS **** 08490034
853: 4301 CONTINUE 08500034
854: C 08510034
855: C WRITE PAGE FOOTINGS AND RUN SUMMARIES 08520034
856: 99999 CONTINUE 08530034
857: WRITE (I02,90002) 08540034
858: WRITE (I02,90006) 08550034
859: WRITE (I02,90002) 08560034
860: WRITE (I02,90002) 08570034
861: WRITE (I02,90007) 08580034
862: WRITE (I02,90002) 08590034
863: WRITE (I02,90008) IVFAIL 08600034
864: WRITE (I02,90009) IVPASS 08610034
865: WRITE (I02,90010) IVDELE 08620034
866: C 08630034
867: C 08640034
868: C TERMINATE ROUTINE EXECUTION 08650034
869: STOP 08660034
870: C 08670034
871: C FORMAT STATEMENTS FOR PAGE HEADERS 08680034
872: 90000 FORMAT (1H1) 08690034
873: 90002 FORMAT (1H ) 08700034
874: 90001 FORMAT (1H ,10X,34HFORTRAN COMPILER VALIDATION SYSTEM) 08710034
875: 90003 FORMAT (1H ,21X,11HVERSION 1.0) 08720034
876: 90004 FORMAT (1H ,10X,38HFOR OFFICIAL USE ONLY - COPYRIGHT 1978) 08730034
877: 90005 FORMAT (1H ,5X,4HTEST,5X,9HPASS/FAIL, 5X,8HCOMPUTED,8X,7HCORRECT) 08740034
878: 90006 FORMAT (1H ,5X,46H----------------------------------------------) 08750034
879: 90011 FORMAT (1H ,18X,17HSUBSET LEVEL TEST) 08760034
880: C 08770034
881: C FORMAT STATEMENTS FOR RUN SUMMARIES 08780034
882: 90008 FORMAT (1H ,15X,I5,19H ERRORS ENCOUNTERED) 08790034
883: 90009 FORMAT (1H ,15X,I5,13H TESTS PASSED) 08800034
884: 90010 FORMAT (1H ,15X,I5,14H TESTS DELETED) 08810034
885: C 08820034
886: C FORMAT STATEMENTS FOR TEST RESULTS 08830034
887: 80001 FORMAT (1H ,4X,I5,7X,4HPASS) 08840034
888: 80002 FORMAT (1H ,4X,I5,7X,4HFAIL) 08850034
889: 80003 FORMAT (1H ,4X,I5,7X,7HDELETED) 08860034
890: 80004 FORMAT (1H ,4X,I5,7X,4HFAIL,10X,I6,9X,I6) 08870034
891: 80005 FORMAT (1H ,4X,I5,7X,4HFAIL,4X,E12.5,3X,E12.5) 08880034
892: C 08890034
893: 90007 FORMAT (1H ,20X,20HEND OF PROGRAM FM034) 08900034
894: END 08910034
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.