![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to FM040.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 FM040.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 00010040
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 00020040
6: C FM040 00030040
7: C 00040040
8: C THIS ROUTINE TESTS ARITHMETIC ASSIGNMENT STATEMENTS OF THE 00050040
9: C FORM INTEGER VARIABLE = ARITHMETIC EXPRESSION 00060040
10: C WHERE THE ARITHMETIC EXPRESSION IS FORMED WITH THE ARITHMETIC 00070040
11: C OPERATOR /, INTEGER VARIABLES AND AN INTEGER CONSTANT. BOTH 00080040
12: C POSITIVE AND NEGATIVE VALUES ARE USED FOR THE INTEGER VARIABLES 00090040
13: C AND THE INTEGER CONSTANT. 00100040
14: C 00110040
15: C THERE ARE TESTS WHICH REQUIRE NO TRUNCATION OF THE RESULT AND 00120040
16: C TESTS WHERE THE RESULT MUST BE TRUNCATED BEFORE BEING STORED IN 00130040
17: C THE RESULTANT INTEGER VARIABLE. SOME OF THE TESTS USE PARENS 00140040
18: C TO GROUP ELEMENTS IN THE ARITHMETIC EXPRESSION. 00150040
19: C 00160040
20: C THERE ARE TESTS WHERE THE ARITHMETIC EXPRESSION CONTAINS 00170040
21: C (1) INTEGER VARIABLE/INTEGER VARIABLE 00180040
22: C (2) INTEGER VARIABLE/INTEGER VARIABLE/INTEGER CONSTANT 00190040
23: C INTEGER VARIABLE/INTEGER CONSTANT/INTEGER VARIABLE 00200040
24: C INTEGER CONSTANT/INTEGER VARIABLE/INTEGER VARIABLE 00210040
25: C (3) SAME AS (2) BUT WITH PARENTHESES TO GROUP ELEMENTS 00220040
26: C IN THE ARITHMETIC EXPRESSION. 00230040
27: C 00240040
28: C REFERENCES 00250040
29: C AMERICAN NATIONAL STANDARD PROGRAMMING LANGUAGE FORTRAN, 00260040
30: C X3.9-1978 00270040
31: C 00280040
32: C SECTION 4.3, INTEGER TYPE 00290040
33: C SECTION 4.3.1, INTEGER CONSTANT 00300040
34: C SECTION 6.1, ARITHMETIC EXPRESSIONS 00310040
35: C SECTION 6.6, EVALUATION OF EXPRESSIONS 00320040
36: C SECTION 10.1, ARITHMETIC ASSIGNMENT STATEMENT 00330040
37: C 00340040
38: C ********************************************************** 00350040
39: C 00360040
40: C A COMPILER VALIDATION SYSTEM FOR THE FORTRAN LANGUAGE 00370040
41: C BASED ON SPECIFICATIONS AS DEFINED IN AMERICAN NATIONAL STANDARD 00380040
42: C PROGRAMMING LANGUAGE FORTRAN X3.9-1978, HAS BEEN DEVELOPED BY THE 00390040
43: C FEDERAL COBOL COMPILER TESTING SERVICE. THE FORTRAN COMPILER 00400040
44: C VALIDATION SYSTEM (FCVS) CONSISTS OF AUDIT ROUTINES, THEIR RELATED00410040
45: C DATA, AND AN EXECUTIVE SYSTEM. EACH AUDIT ROUTINE IS A FORTRAN 00420040
46: C PROGRAM, SUBPROGRAM OR FUNCTION WHICH INCLUDES TESTS OF SPECIFIC 00430040
47: C LANGUAGE ELEMENTS AND SUPPORTING PROCEDURES INDICATING THE RESULT 00440040
48: C OF EXECUTING THESE TESTS. 00450040
49: C 00460040
50: C THIS PARTICULAR PROGRAM/SUBPROGRAM/FUNCTION CONTAINS FEATURES 00470040
51: C FOUND ONLY IN THE SUBSET AS DEFINED IN X3.9-1978. 00480040
52: C 00490040
53: C SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO - 00500040
54: C 00510040
55: C DEPARTMENT OF THE NAVY 00520040
56: C FEDERAL COBOL COMPILER TESTING SERVICE 00530040
57: C WASHINGTON, D.C. 20376 00540040
58: C 00550040
59: C ********************************************************** 00560040
60: C 00570040
61: C 00580040
62: C 00590040
63: C INITIALIZATION SECTION 00600040
64: C 00610040
65: C INITIALIZE CONSTANTS 00620040
66: C ************** 00630040
67: C I01 CONTAINS THE LOGICAL UNIT NUMBER FOR THE CARD READER. 00640040
68: I01 = 5 00650040
69: C I02 CONTAINS THE LOGICAL UNIT NUMBER FOR THE PRINTER. 00660040
70: I02 = 6 00670040
71: C SYSTEM ENVIRONMENT SECTION 00680040
72: C 00690040
73: I01 = 5 00700040
74: C THE CX010 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I01 = 5 00710040
75: C (UNIT NUMBER FOR CARD READER). 00720040
76: CX011 THIS CARD IS REPLACED BY CONTENTS OF FEXEC X-011 CONTROL CARD. 00730040
77: C THE CX011 CARD IS FOR SYSTEMS WHICH REQUIRE ADDITIONAL 00740040
78: C FORTRAN STATEMENTS FOR FILES ASSOCIATED WITH CX010 ABOVE. 00750040
79: C 00760040
80: I02 = 6 00770040
81: C THE CX020 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I02 = 6 00780040
82: C (UNIT NUMBER FOR PRINTER). 00790040
83: CX021 THIS CARD IS REPLACED BY CONTENTS OF FEXEC X-021 CONTROL CARD. 00800040
84: C THE CX021 CARD IS FOR SYSTEMS WHICH REQUIRE ADDITIONAL 00810040
85: C FORTRAN STATEMENTS FOR FILES ASSOCIATED WITH CX020 ABOVE. 00820040
86: C 00830040
87: IVPASS=0 00840040
88: IVFAIL=0 00850040
89: IVDELE=0 00860040
90: ICZERO=0 00870040
91: C 00880040
92: C WRITE PAGE HEADERS 00890040
93: WRITE (I02,90000) 00900040
94: WRITE (I02,90001) 00910040
95: WRITE (I02,90002) 00920040
96: WRITE (I02, 90002) 00930040
97: WRITE (I02,90003) 00940040
98: WRITE (I02,90002) 00950040
99: WRITE (I02,90004) 00960040
100: WRITE (I02,90002) 00970040
101: WRITE (I02,90011) 00980040
102: WRITE (I02,90002) 00990040
103: WRITE (I02,90002) 01000040
104: WRITE (I02,90005) 01010040
105: WRITE (I02,90006) 01020040
106: WRITE (I02,90002) 01030040
107: C 01040040
108: C TEST SECTION 01050040
109: C 01060040
110: C ARITHMETIC ASSIGNMENT STATEMENT 01070040
111: C 01080040
112: C TEST 582 THROUGH TEST 597 CONTAIN ARITHMETIC ASSIGNMENT STATEMENTS01090040
113: C OF THE FORM INTEGER VARIABLE=INTEGER VARIABLE/INTEGER VAR. 01100040
114: C 01110040
115: C TEST 582 THROUGH TEST 585 - POSITIVE VALUES 01120040
116: C NO TRUNCATION REQUIRED 01130040
117: C 01140040
118: 5821 CONTINUE 01150040
119: IVTNUM = 582 01160040
120: C 01170040
121: C **** TEST 582 **** 01180040
122: C 01190040
123: IF (ICZERO) 35820, 5820, 35820 01200040
124: 5820 CONTINUE 01210040
125: IVON01 = 4 01220040
126: IVON02 = 2 01230040
127: IVCOMP = IVON01 / IVON02 01240040
128: GO TO 45820 01250040
129: 35820 IVDELE = IVDELE + 1 01260040
130: WRITE (I02,80003) IVTNUM 01270040
131: IF (ICZERO) 45820, 5831, 45820 01280040
132: 45820 IF (IVCOMP -2) 25820,15820,25820 01290040
133: 15820 IVPASS = IVPASS + 1 01300040
134: WRITE (I02,80001) IVTNUM 01310040
135: GO TO 5831 01320040
136: 25820 IVFAIL = IVFAIL + 1 01330040
137: IVCORR = 2 01340040
138: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 01350040
139: 5831 CONTINUE 01360040
140: IVTNUM = 583 01370040
141: C 01380040
142: C **** TEST 583 **** 01390040
143: C 01400040
144: IF (ICZERO) 35830, 5830, 35830 01410040
145: 5830 CONTINUE 01420040
146: IVON01 = 3575 01430040
147: IVON02 = 25 01440040
148: IVCOMP = IVON01/IVON02 01450040
149: GO TO 45830 01460040
150: 35830 IVDELE = IVDELE + 1 01470040
151: WRITE (I02,80003) IVTNUM 01480040
152: IF (ICZERO) 45830, 5841, 45830 01490040
153: 45830 IF (IVCOMP - 143) 25830,15830,25830 01500040
154: 15830 IVPASS = IVPASS + 1 01510040
155: WRITE (I02,80001) IVTNUM 01520040
156: GO TO 5841 01530040
157: 25830 IVFAIL = IVFAIL + 1 01540040
158: IVCORR = 143 01550040
159: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 01560040
160: 5841 CONTINUE 01570040
161: IVTNUM = 584 01580040
162: C 01590040
163: C **** TEST 584 **** 01600040
164: C 01610040
165: IF (ICZERO) 35840, 5840, 35840 01620040
166: 5840 CONTINUE 01630040
167: IVON01 = 6170 01640040
168: IVON02 = 1234 01650040
169: IVCOMP = IVON01/IVON02 01660040
170: GO TO 45840 01670040
171: 35840 IVDELE = IVDELE + 1 01680040
172: WRITE (I02,80003) IVTNUM 01690040
173: IF (ICZERO) 45840, 5851, 45840 01700040
174: 45840 IF (IVCOMP - 5) 25840,15840,25840 01710040
175: 15840 IVPASS = IVPASS + 1 01720040
176: WRITE (I02,80001) IVTNUM 01730040
177: GO TO 5851 01740040
178: 25840 IVFAIL = IVFAIL + 1 01750040
179: IVCORR = 5 01760040
180: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 01770040
181: 5851 CONTINUE 01780040
182: IVTNUM = 585 01790040
183: C 01800040
184: C **** TEST 585 **** 01810040
185: C 01820040
186: IF (ICZERO) 35850, 5850, 35850 01830040
187: 5850 CONTINUE 01840040
188: IVON01 = 32767 01850040
189: IVON02 = 1 01860040
190: IVCOMP = IVON01/IVON02 01870040
191: GO TO 45850 01880040
192: 35850 IVDELE = IVDELE + 1 01890040
193: WRITE (I02,80003) IVTNUM 01900040
194: IF (ICZERO) 45850, 5861, 45850 01910040
195: 45850 IF (IVCOMP - 32767) 25850,15850,25850 01920040
196: 15850 IVPASS = IVPASS + 1 01930040
197: WRITE (I02,80001) IVTNUM 01940040
198: GO TO 5861 01950040
199: 25850 IVFAIL = IVFAIL + 1 01960040
200: IVCORR = 32767 01970040
201: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 01980040
202: C 01990040
203: C TEST 586 THROUGH TEST 589 - POSITIVE VALUES 02000040
204: C TRUNCATION OF RESULT REQUIRED 02010040
205: C 02020040
206: 5861 CONTINUE 02030040
207: IVTNUM = 586 02040040
208: C 02050040
209: C **** TEST 586 **** 02060040
210: C 02070040
211: IF (ICZERO) 35860, 5860, 35860 02080040
212: 5860 CONTINUE 02090040
213: IVON01 = 2 02100040
214: IVON02 = 3 02110040
215: IVCOMP = IVON01/IVON02 02120040
216: GO TO 45860 02130040
217: 35860 IVDELE = IVDELE + 1 02140040
218: WRITE (I02,80003) IVTNUM 02150040
219: IF (ICZERO) 45860, 5871, 45860 02160040
220: 45860 IF (IVCOMP) 25860,15860,25860 02170040
221: 15860 IVPASS = IVPASS + 1 02180040
222: WRITE (I02,80001) IVTNUM 02190040
223: GO TO 5871 02200040
224: 25860 IVFAIL = IVFAIL + 1 02210040
225: IVCORR = 0 02220040
226: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 02230040
227: 5871 CONTINUE 02240040
228: IVTNUM = 587 02250040
229: C 02260040
230: C **** TEST 587 **** 02270040
231: C 02280040
232: IF (ICZERO) 35870, 5870, 35870 02290040
233: 5870 CONTINUE 02300040
234: IVON01 = 959 02310040
235: IVON02 = 120 02320040
236: IVCOMP = IVON01/IVON02 02330040
237: GO TO 45870 02340040
238: 35870 IVDELE = IVDELE + 1 02350040
239: WRITE (I02,80003) IVTNUM 02360040
240: IF (ICZERO) 45870, 5881, 45870 02370040
241: 45870 IF (IVCOMP - 7) 25870,15870,25870 02380040
242: 15870 IVPASS = IVPASS + 1 02390040
243: WRITE (I02,80001) IVTNUM 02400040
244: GO TO 5881 02410040
245: 25870 IVFAIL = IVFAIL + 1 02420040
246: IVCORR = 7 02430040
247: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 02440040
248: 5881 CONTINUE 02450040
249: IVTNUM = 588 02460040
250: C 02470040
251: C **** TEST 588 **** 02480040
252: C 02490040
253: IF (ICZERO) 35880, 5880, 35880 02500040
254: 5880 CONTINUE 02510040
255: IVON01 = 26606 02520040
256: IVON02 = 8 02530040
257: IVCOMP = IVON01/IVON02 02540040
258: GO TO 45880 02550040
259: 35880 IVDELE = IVDELE + 1 02560040
260: WRITE (I02,80003) IVTNUM 02570040
261: IF (ICZERO) 45880, 5891, 45880 02580040
262: 45880 IF (IVCOMP - 3325) 25880,15880,25880 02590040
263: 15880 IVPASS = IVPASS + 1 02600040
264: WRITE (I02,80001) IVTNUM 02610040
265: GO TO 5891 02620040
266: 25880 IVFAIL = IVFAIL + 1 02630040
267: IVCORR = 3325 02640040
268: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 02650040
269: 5891 CONTINUE 02660040
270: IVTNUM = 589 02670040
271: C 02680040
272: C **** TEST 589 **** 02690040
273: C 02700040
274: IF (ICZERO) 35890, 5890, 35890 02710040
275: 5890 CONTINUE 02720040
276: IVON01 = 25603 02730040
277: IVON02 = 10354 02740040
278: IVCOMP = IVON01/IVON02 02750040
279: GO TO 45890 02760040
280: 35890 IVDELE = IVDELE + 1 02770040
281: WRITE (I02,80003) IVTNUM 02780040
282: IF (ICZERO) 45890, 5901, 45890 02790040
283: 45890 IF (IVCOMP - 2) 25890,15890,25890 02800040
284: 15890 IVPASS = IVPASS + 1 02810040
285: WRITE (I02,80001) IVTNUM 02820040
286: GO TO 5901 02830040
287: 25890 IVFAIL = IVFAIL + 1 02840040
288: IVCORR = 2 02850040
289: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 02860040
290: C 02870040
291: C TEST 590 THROUGH TEST 593 - NEGATIVE VALUES INCLUDED 02880040
292: C NO TRUNCATION REQUIRED 02890040
293: C 02900040
294: 5901 CONTINUE 02910040
295: IVTNUM = 590 02920040
296: C 02930040
297: C **** TEST 590 **** 02940040
298: C 02950040
299: IF (ICZERO) 35900, 5900, 35900 02960040
300: 5900 CONTINUE 02970040
301: IVON01 = 75 02980040
302: IVON02 = -25 02990040
303: IVCOMP = IVON01/IVON02 03000040
304: GO TO 45900 03010040
305: 35900 IVDELE = IVDELE + 1 03020040
306: WRITE (I02,80003) IVTNUM 03030040
307: IF (ICZERO) 45900, 5911, 45900 03040040
308: 45900 IF (IVCOMP + 3) 25900,15900,25900 03050040
309: 15900 IVPASS = IVPASS + 1 03060040
310: WRITE (I02,80001) IVTNUM 03070040
311: GO TO 5911 03080040
312: 25900 IVFAIL = IVFAIL + 1 03090040
313: IVCORR = -3 03100040
314: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 03110040
315: 5911 CONTINUE 03120040
316: IVTNUM = 591 03130040
317: C 03140040
318: C **** TEST 591 **** 03150040
319: C 03160040
320: IF (ICZERO) 35910, 5910, 35910 03170040
321: 5910 CONTINUE 03180040
322: IVON01 = -6170 03190040
323: IVON02 = -1234 03200040
324: IVCOMP = IVON01/IVON02 03210040
325: GO TO 45910 03220040
326: 35910 IVDELE = IVDELE + 1 03230040
327: WRITE (I02,80003) IVTNUM 03240040
328: IF (ICZERO) 45910, 5921, 45910 03250040
329: 45910 IF (IVCOMP -5) 25910,15910,25910 03260040
330: 15910 IVPASS = IVPASS + 1 03270040
331: WRITE (I02,80001) IVTNUM 03280040
332: GO TO 5921 03290040
333: 25910 IVFAIL = IVFAIL + 1 03300040
334: IVCORR = 5 03310040
335: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 03320040
336: 5921 CONTINUE 03330040
337: IVTNUM = 592 03340040
338: C 03350040
339: C **** TEST 592 **** 03360040
340: C 03370040
341: IF (ICZERO) 35920, 5920, 35920 03380040
342: 5920 CONTINUE 03390040
343: IVON01 = 32766 03400040
344: IVON02 = -2 03410040
345: IVCOMP =-IVON01/IVON02 03420040
346: GO TO 45920 03430040
347: 35920 IVDELE = IVDELE + 1 03440040
348: WRITE (I02,80003) IVTNUM 03450040
349: IF (ICZERO) 45920, 5931, 45920 03460040
350: 45920 IF (IVCOMP - 16383) 25920,15920,25920 03470040
351: 15920 IVPASS = IVPASS + 1 03480040
352: WRITE (I02,80001) IVTNUM 03490040
353: GO TO 5931 03500040
354: 25920 IVFAIL = IVFAIL + 1 03510040
355: IVCORR = 16383 03520040
356: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 03530040
357: 5931 CONTINUE 03540040
358: IVTNUM = 593 03550040
359: C 03560040
360: C **** TEST 593 **** 03570040
361: C 03580040
362: IF (ICZERO) 35930, 5930, 35930 03590040
363: 5930 CONTINUE 03600040
364: IVON01 = 4 03610040
365: IVON02 = 2 03620040
366: IVCOMP = IVON01/(-IVON02) 03630040
367: GO TO 45930 03640040
368: 35930 IVDELE = IVDELE + 1 03650040
369: WRITE (I02,80003) IVTNUM 03660040
370: IF (ICZERO) 45930, 5941, 45930 03670040
371: 45930 IF (IVCOMP + 2) 25930,15930,25930 03680040
372: 15930 IVPASS = IVPASS + 1 03690040
373: WRITE (I02,80001) IVTNUM 03700040
374: GO TO 5941 03710040
375: 25930 IVFAIL = IVFAIL + 1 03720040
376: IVCORR = -2 03730040
377: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 03740040
378: C 03750040
379: C TEST 594 THROUGH TEST 597 - NEGATIVE VALUES INCLUDED 03760040
380: C TRUNCATION OF RESULT REQUIRED 03770040
381: C 03780040
382: 5941 CONTINUE 03790040
383: IVTNUM = 594 03800040
384: C 03810040
385: C **** TEST 594 **** 03820040
386: C 03830040
387: IF (ICZERO) 35940, 5940, 35940 03840040
388: 5940 CONTINUE 03850040
389: IVON01 = -5 03860040
390: IVON02 = 2 03870040
391: IVCOMP = IVON01/IVON02 03880040
392: GO TO 45940 03890040
393: 35940 IVDELE = IVDELE + 1 03900040
394: WRITE (I02,80003) IVTNUM 03910040
395: IF (ICZERO) 45940, 5951, 45940 03920040
396: 45940 IF (IVCOMP + 2) 25940,15940,25940 03930040
397: 15940 IVPASS = IVPASS + 1 03940040
398: WRITE (I02,80001) IVTNUM 03950040
399: GO TO 5951 03960040
400: 25940 IVFAIL = IVFAIL + 1 03970040
401: IVCORR = -2 03980040
402: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 03990040
403: 5951 CONTINUE 04000040
404: IVTNUM = 595 04010040
405: C 04020040
406: C **** TEST 595 **** 04030040
407: C 04040040
408: IF (ICZERO) 35950, 5950, 35950 04050040
409: 5950 CONTINUE 04060040
410: IVON01 = -25603 04070040
411: IVON02 = -10354 04080040
412: IVCOMP = IVON01/IVON02 04090040
413: GO TO 45950 04100040
414: 35950 IVDELE = IVDELE + 1 04110040
415: WRITE (I02,80003) IVTNUM 04120040
416: IF (ICZERO) 45950, 5961, 45950 04130040
417: 45950 IF (IVCOMP -2) 25950,15950,25950 04140040
418: 15950 IVPASS = IVPASS + 1 04150040
419: WRITE (I02,80001) IVTNUM 04160040
420: GO TO 5961 04170040
421: 25950 IVFAIL = IVFAIL + 1 04180040
422: IVCORR =2 04190040
423: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 04200040
424: 5961 CONTINUE 04210040
425: IVTNUM = 596 04220040
426: C 04230040
427: C **** TEST 596 **** 04240040
428: C 04250040
429: IF (ICZERO) 35960, 5960, 35960 04260040
430: 5960 CONTINUE 04270040
431: IVON01 = 25603 04280040
432: IVON02 = 10354 04290040
433: IVCOMP = -IVON01/IVON02 04300040
434: GO TO 45960 04310040
435: 35960 IVDELE = IVDELE + 1 04320040
436: WRITE (I02,80003) IVTNUM 04330040
437: IF (ICZERO) 45960, 5971, 45960 04340040
438: 45960 IF (IVCOMP +2) 25960,15960,25960 04350040
439: 15960 IVPASS = IVPASS + 1 04360040
440: WRITE (I02,80001) IVTNUM 04370040
441: GO TO 5971 04380040
442: 25960 IVFAIL = IVFAIL + 1 04390040
443: IVCORR = -2 04400040
444: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 04410040
445: 5971 CONTINUE 04420040
446: IVTNUM = 597 04430040
447: C 04440040
448: C **** TEST 597 **** 04450040
449: C 04460040
450: IF (ICZERO) 35970, 5970, 35970 04470040
451: 5970 CONTINUE 04480040
452: IVON01 = 25603 04490040
453: IVON02 = -2 04500040
454: IVCOMP = -(IVON01/IVON02) 04510040
455: GO TO 45970 04520040
456: 35970 IVDELE = IVDELE + 1 04530040
457: WRITE (I02,80003) IVTNUM 04540040
458: IF (ICZERO) 45970, 5981, 45970 04550040
459: 45970 IF (IVCOMP - 12801) 25970,15970,25970 04560040
460: 15970 IVPASS = IVPASS + 1 04570040
461: WRITE (I02,80001) IVTNUM 04580040
462: GO TO 5981 04590040
463: 25970 IVFAIL = IVFAIL + 1 04600040
464: IVCORR = 12801 04610040
465: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 04620040
466: C 04630040
467: C TEST 598 THROUGH TEST 614 CONTAIN TWO INTEGER VARIABLES, AN 04640040
468: C INTEGER CONSTANT AND OPERATOR / IN AN ARITHMETIC EXPRESSION. 04650040
469: C 04660040
470: C TEST 598 THROUGH TEST 603 - NO PARENS TO GROUP ELEMENTS BUT 04670040
471: C THERE ARE PARENS SURROUNDING NEGATIVE CONSTANTS 04680040
472: C 04690040
473: C TEST 598 AND TEST 599 - IV = IV/IV/IC. 04700040
474: C 04710040
475: 5981 CONTINUE 04720040
476: IVTNUM = 598 04730040
477: C 04740040
478: C **** TEST 598 **** 04750040
479: C 04760040
480: IF (ICZERO) 35980, 5980, 35980 04770040
481: 5980 CONTINUE 04780040
482: IVON01 = 32766 04790040
483: IVON02 = 2 04800040
484: IVCOMP = IVON01/IVON02/3 04810040
485: GO TO 45980 04820040
486: 35980 IVDELE = IVDELE + 1 04830040
487: WRITE (I02,80003) IVTNUM 04840040
488: IF (ICZERO) 45980, 5991, 45980 04850040
489: 45980 IF (IVCOMP - 5461) 25980,15980,25980 04860040
490: 15980 IVPASS = IVPASS + 1 04870040
491: WRITE (I02,80001) IVTNUM 04880040
492: GO TO 5991 04890040
493: 25980 IVFAIL = IVFAIL + 1 04900040
494: IVCORR = 5461 04910040
495: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 04920040
496: 5991 CONTINUE 04930040
497: IVTNUM = 599 04940040
498: C 04950040
499: C **** TEST 599 **** 04960040
500: C 04970040
501: IF (ICZERO) 35990, 5990, 35990 04980040
502: 5990 CONTINUE 04990040
503: IVON01 = 7151 05000040
504: IVON02 = 3 05010040
505: IVCOMP = IVON01/IVON02/10 05020040
506: GO TO 45990 05030040
507: 35990 IVDELE = IVDELE + 1 05040040
508: WRITE (I02,80003) IVTNUM 05050040
509: IF (ICZERO) 45990, 6001, 45990 05060040
510: 45990 IF (IVCOMP -238) 25990,15990,25990 05070040
511: 15990 IVPASS = IVPASS + 1 05080040
512: WRITE (I02,80001) IVTNUM 05090040
513: GO TO 6001 05100040
514: 25990 IVFAIL = IVFAIL + 1 05110040
515: IVCORR = 238 05120040
516: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 05130040
517: C 05140040
518: C TEST 600 AND TEST 601 - IV= IV/IC/IV. 05150040
519: C 05160040
520: 6001 CONTINUE 05170040
521: IVTNUM = 600 05180040
522: C 05190040
523: C **** TEST 600 **** 05200040
524: C 05210040
525: IF (ICZERO) 36000, 6000, 36000 05220040
526: 6000 CONTINUE 05230040
527: IVON01 = -7150 05240040
528: IVON03 = -25 05250040
529: IVCOMP = IVON01/(-2)/IVON03 05260040
530: GO TO 46000 05270040
531: 36000 IVDELE = IVDELE + 1 05280040
532: WRITE (I02,80003) IVTNUM 05290040
533: IF (ICZERO) 46000, 6011, 46000 05300040
534: 46000 IF (IVCOMP + 143) 26000,16000,26000 05310040
535: 16000 IVPASS = IVPASS + 1 05320040
536: WRITE (I02,80001) IVTNUM 05330040
537: GO TO 6011 05340040
538: 26000 IVFAIL = IVFAIL + 1 05350040
539: IVCORR = -143 05360040
540: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 05370040
541: 6011 CONTINUE 05380040
542: IVTNUM = 601 05390040
543: C 05400040
544: C **** TEST 601 **** 05410040
545: C 05420040
546: IF (ICZERO) 36010, 6010, 36010 05430040
547: 6010 CONTINUE 05440040
548: IVON01 = 32767 05450040
549: IVON03 = -1 05460040
550: IVCOMP = IVON01/2/IVON03 05470040
551: GO TO 46010 05480040
552: 36010 IVDELE = IVDELE + 1 05490040
553: WRITE (I02,80003) IVTNUM 05500040
554: IF (ICZERO) 46010, 6021, 46010 05510040
555: 46010 IF (IVCOMP + 16383) 26010,16010,26010 05520040
556: 16010 IVPASS = IVPASS + 1 05530040
557: WRITE (I02,80001) IVTNUM 05540040
558: GO TO 6021 05550040
559: 26010 IVFAIL = IVFAIL + 1 05560040
560: IVCORR = -16383 05570040
561: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 05580040
562: 6021 CONTINUE 05590040
563: IVTNUM = 602 05600040
564: C 05610040
565: C **** TEST 602 **** 05620040
566: C 05630040
567: C TEST 602 AND TEST 603 - IV=IC/IV/IV 05640040
568: C 05650040
569: C 05660040
570: IF (ICZERO) 36020, 6020, 36020 05670040
571: 6020 CONTINUE 05680040
572: IVON02 = 13 05690040
573: IVON03 = 51 05700040
574: IVCOMP = 15249/IVON02/IVON03 05710040
575: GO TO 46020 05720040
576: 36020 IVDELE = IVDELE + 1 05730040
577: WRITE (I02,80003) IVTNUM 05740040
578: IF (ICZERO) 46020, 6031, 46020 05750040
579: 46020 IF (IVCOMP - 23) 26020,16020,26020 05760040
580: 16020 IVPASS = IVPASS + 1 05770040
581: WRITE (I02,80001) IVTNUM 05780040
582: GO TO 6031 05790040
583: 26020 IVFAIL = IVFAIL + 1 05800040
584: IVCORR = 23 05810040
585: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 05820040
586: 6031 CONTINUE 05830040
587: IVTNUM = 603 05840040
588: C 05850040
589: C **** TEST 603 **** 05860040
590: C 05870040
591: IF (ICZERO) 36030, 6030, 36030 05880040
592: 6030 CONTINUE 05890040
593: IVON02 = -13 05900040
594: IVON03 = -51 05910040
595: IVCOMP = -15249/IVON02/IVON03 05920040
596: GO TO 46030 05930040
597: 36030 IVDELE = IVDELE + 1 05940040
598: WRITE (I02,80003) IVTNUM 05950040
599: IF (ICZERO) 46030, 6041, 46030 05960040
600: 46030 IF (IVCOMP +23) 26030,16030,26030 05970040
601: 16030 IVPASS = IVPASS + 1 05980040
602: WRITE (I02,80001) IVTNUM 05990040
603: GO TO 6041 06000040
604: 26030 IVFAIL = IVFAIL + 1 06010040
605: IVCORR = -23 06020040
606: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 06030040
607: C 06040040
608: C TEST 604 THROUGH TEST 614 - PARENTHESES ARE USED TO GROUP 06050040
609: C ELEMENTS IN THE ARITHMETIC EXPRESSIONS. 06060040
610: C 06070040
611: C TEST 604 AND TEST 605 - IV=(IV/IV)/IC. 06080040
612: C 06090040
613: 6041 CONTINUE 06100040
614: IVTNUM = 604 06110040
615: C 06120040
616: C **** TEST 604 **** 06130040
617: C 06140040
618: IF (ICZERO) 36040, 6040, 36040 06150040
619: 6040 CONTINUE 06160040
620: IVON01 = 32766 06170040
621: IVON02 = 2 06180040
622: IVCOMP =(IVON01/IVON02)/3 06190040
623: GO TO 46040 06200040
624: 36040 IVDELE = IVDELE + 1 06210040
625: WRITE (I02,80003) IVTNUM 06220040
626: IF (ICZERO) 46040, 6051, 46040 06230040
627: 46040 IF (IVCOMP -5461) 26040,16040,26040 06240040
628: 16040 IVPASS = IVPASS + 1 06250040
629: WRITE (I02,80001) IVTNUM 06260040
630: GO TO 6051 06270040
631: 26040 IVFAIL = IVFAIL + 1 06280040
632: IVCORR = 5461 06290040
633: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 06300040
634: 6051 CONTINUE 06310040
635: IVTNUM = 605 06320040
636: C 06330040
637: C **** TEST 605 **** 06340040
638: C 06350040
639: IF (ICZERO) 36050, 6050, 36050 06360040
640: 6050 CONTINUE 06370040
641: IVON01 = 7151 06380040
642: IVON02 = 3 06390040
643: IVCOMP = (IVON01/IVON02)/10 06400040
644: GO TO 46050 06410040
645: 36050 IVDELE = IVDELE + 1 06420040
646: WRITE (I02,80003) IVTNUM 06430040
647: IF (ICZERO) 46050, 6061, 46050 06440040
648: 46050 IF (IVCOMP - 238) 26050,16050,26050 06450040
649: 16050 IVPASS = IVPASS + 1 06460040
650: WRITE (I02,80001) IVTNUM 06470040
651: GO TO 6061 06480040
652: 26050 IVFAIL = IVFAIL + 1 06490040
653: IVCORR = 238 06500040
654: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 06510040
655: C 06520040
656: C TEST 606 AND TEST 607 - IV=IV/(IV/IC). 06530040
657: C 06540040
658: 6061 CONTINUE 06550040
659: IVTNUM = 606 06560040
660: C 06570040
661: C **** TEST 606 **** 06580040
662: C 06590040
663: IF (ICZERO) 36060, 6060, 36060 06600040
664: 6060 CONTINUE 06610040
665: IVON01 = -7154 06620040
666: IVON02 = 26 06630040
667: IVCOMP = IVON01/(IVON02/5) 06640040
668: GO TO 46060 06650040
669: 36060 IVDELE = IVDELE + 1 06660040
670: WRITE (I02,80003) IVTNUM 06670040
671: IF (ICZERO) 46060, 6071, 46060 06680040
672: 46060 IF (IVCOMP + 1430) 26060,16060,26060 06690040
673: 16060 IVPASS = IVPASS + 1 06700040
674: WRITE (I02,80001) IVTNUM 06710040
675: GO TO 6071 06720040
676: 26060 IVFAIL = IVFAIL + 1 06730040
677: IVCORR = -1430 06740040
678: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 06750040
679: 6071 CONTINUE 06760040
680: IVTNUM = 607 06770040
681: C 06780040
682: C **** TEST 607 **** 06790040
683: C 06800040
684: IF (ICZERO) 36070, 6070, 36070 06810040
685: 6070 CONTINUE 06820040
686: IVON01 = 29 06830040
687: IVON02 = -5 06840040
688: IVCOMP = IVON01/(IVON02/2) 06850040
689: GO TO 46070 06860040
690: 36070 IVDELE = IVDELE + 1 06870040
691: WRITE (I02,80003) IVTNUM 06880040
692: IF (ICZERO) 46070, 6081, 46070 06890040
693: 46070 IF (IVCOMP + 14) 26070,16070,26070 06900040
694: 16070 IVPASS = IVPASS + 1 06910040
695: WRITE (I02,80001) IVTNUM 06920040
696: GO TO 6081 06930040
697: 26070 IVFAIL = IVFAIL + 1 06940040
698: IVCORR = -14 06950040
699: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 06960040
700: C 06970040
701: C TEST 608 AND TEST 609 - IV = (IV/IC)/IV. 06980040
702: C 06990040
703: 6081 CONTINUE 07000040
704: IVTNUM = 608 07010040
705: C 07020040
706: C **** TEST 608 **** 07030040
707: C 07040040
708: IF (ICZERO) 36080, 6080, 36080 07050040
709: 6080 CONTINUE 07060040
710: IVON01 = 24 07070040
711: IVON03 = 3 07080040
712: IVCOMP = (IVON01/3)/IVON03 07090040
713: GO TO 46080 07100040
714: 36080 IVDELE = IVDELE + 1 07110040
715: WRITE (I02,80003) IVTNUM 07120040
716: IF (ICZERO) 46080, 6091, 46080 07130040
717: 46080 IF (IVCOMP -2) 26080,16080,26080 07140040
718: 16080 IVPASS = IVPASS + 1 07150040
719: WRITE (I02,80001) IVTNUM 07160040
720: GO TO 6091 07170040
721: 26080 IVFAIL = IVFAIL + 1 07180040
722: IVCORR = 2 07190040
723: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 07200040
724: 6091 CONTINUE 07210040
725: IVTNUM = 609 07220040
726: C 07230040
727: C **** TEST 609 **** 07240040
728: C 07250040
729: IF (ICZERO) 36090, 6090, 36090 07260040
730: 6090 CONTINUE 07270040
731: IVON01 = 7151 07280040
732: IVON03 = 10 07290040
733: IVCOMP = (IVON01/(-3))/IVON03 07300040
734: GO TO 46090 07310040
735: 36090 IVDELE = IVDELE + 1 07320040
736: WRITE (I02,80003) IVTNUM 07330040
737: IF (ICZERO) 46090, 6101, 46090 07340040
738: 46090 IF (IVCOMP + 238) 26090,16090,26090 07350040
739: 16090 IVPASS = IVPASS + 1 07360040
740: WRITE (I02,80001) IVTNUM 07370040
741: GO TO 6101 07380040
742: 26090 IVFAIL = IVFAIL + 1 07390040
743: IVCORR = -238 07400040
744: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 07410040
745: C 07420040
746: C TEST 610 AND TEST 611 - IV=IV(IC/IV) 07430040
747: C 07440040
748: 6101 CONTINUE 07450040
749: IVTNUM = 610 07460040
750: C 07470040
751: C **** TEST 610 **** 07480040
752: C 07490040
753: IF (ICZERO) 36100, 6100, 36100 07500040
754: 6100 CONTINUE 07510040
755: IVON01 = -7154 07520040
756: IVON03 = -5 07530040
757: IVCOMP = IVON01/((-26)/IVON03) 07540040
758: GO TO 46100 07550040
759: 36100 IVDELE = IVDELE + 1 07560040
760: WRITE (I02,80003) IVTNUM 07570040
761: IF (ICZERO) 46100, 6111, 46100 07580040
762: 46100 IF (IVCOMP + 1430) 26100,16100,26100 07590040
763: 16100 IVPASS = IVPASS + 1 07600040
764: WRITE (I02,80001) IVTNUM 07610040
765: GO TO 6111 07620040
766: 26100 IVFAIL = IVFAIL + 1 07630040
767: IVCORR = -1430 07640040
768: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 07650040
769: 6111 CONTINUE 07660040
770: IVTNUM = 611 07670040
771: C 07680040
772: C **** TEST 611 **** 07690040
773: C 07700040
774: IF (ICZERO) 36110, 6110, 36110 07710040
775: 6110 CONTINUE 07720040
776: IVON01 = 7150 07730040
777: IVON03 = 5 07740040
778: IVCOMP = IVON01/((+25)/IVON03) 07750040
779: GO TO 46110 07760040
780: 36110 IVDELE = IVDELE + 1 07770040
781: WRITE (I02,80003) IVTNUM 07780040
782: IF (ICZERO) 46110, 6121, 46110 07790040
783: 46110 IF (IVCOMP -1430) 26110,16110,26110 07800040
784: 16110 IVPASS = IVPASS + 1 07810040
785: WRITE (I02,80001) IVTNUM 07820040
786: GO TO 6121 07830040
787: 26110 IVFAIL = IVFAIL + 1 07840040
788: IVCORR = 1430 07850040
789: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 07860040
790: 6121 CONTINUE 07870040
791: IVTNUM = 612 07880040
792: C 07890040
793: C **** TEST 612 **** 07900040
794: C TEST 612 - IV= (IC/IV)/IV 07910040
795: C 07920040
796: IF (ICZERO) 36120, 6120, 36120 07930040
797: 6120 CONTINUE 07940040
798: IVON02 = -3 07950040
799: IVON03 = -10 07960040
800: IVCOMP = (-7154/IVON02)/IVON03 07970040
801: GO TO 46120 07980040
802: 36120 IVDELE = IVDELE + 1 07990040
803: WRITE (I02,80003) IVTNUM 08000040
804: IF (ICZERO) 46120, 6131, 46120 08010040
805: 46120 IF (IVCOMP + 238) 26120,16120,26120 08020040
806: 16120 IVPASS = IVPASS + 1 08030040
807: WRITE (I02,80001) IVTNUM 08040040
808: GO TO 6131 08050040
809: 26120 IVFAIL = IVFAIL + 1 08060040
810: IVCORR = -238 08070040
811: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 08080040
812: C 08090040
813: C TEST 613 AND TEST 614 - IV=IC/(IV/IV) 08100040
814: C 08110040
815: 6131 CONTINUE 08120040
816: IVTNUM = 613 08130040
817: C 08140040
818: C **** TEST 613 **** 08150040
819: C 08160040
820: IF (ICZERO) 36130, 6130, 36130 08170040
821: 6130 CONTINUE 08180040
822: IVON02 = 8 08190040
823: IVON03 = 4 08200040
824: IVCOMP = 24/(IVON02/IVON03) 08210040
825: GO TO 46130 08220040
826: 36130 IVDELE = IVDELE + 1 08230040
827: WRITE (I02,80003) IVTNUM 08240040
828: IF (ICZERO) 46130, 6141, 46130 08250040
829: 46130 IF (IVCOMP - 12) 26130,16130,26130 08260040
830: 16130 IVPASS = IVPASS + 1 08270040
831: WRITE (I02,80001) IVTNUM 08280040
832: GO TO 6141 08290040
833: 26130 IVFAIL = IVFAIL + 1 08300040
834: IVCORR = 12 08310040
835: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 08320040
836: 6141 CONTINUE 08330040
837: IVTNUM = 614 08340040
838: C 08350040
839: C **** TEST 614 **** 08360040
840: C 08370040
841: IF (ICZERO) 36140, 6140, 36140 08380040
842: 6140 CONTINUE 08390040
843: IVON02 = 25 08400040
844: IVON03 = 5 08410040
845: IVCOMP = 7150/(-(IVON02/IVON03)) 08420040
846: GO TO 46140 08430040
847: 36140 IVDELE = IVDELE + 1 08440040
848: WRITE (I02,80003) IVTNUM 08450040
849: IF (ICZERO) 46140, 6151, 46140 08460040
850: 46140 IF (IVCOMP + 1430) 26140,16140,26140 08470040
851: 16140 IVPASS = IVPASS + 1 08480040
852: WRITE (I02,80001) IVTNUM 08490040
853: GO TO 6151 08500040
854: 26140 IVFAIL = IVFAIL + 1 08510040
855: IVCORR = -1430 08520040
856: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 08530040
857: C **** END OF TESTS **** 08540040
858: 6151 CONTINUE 08550040
859: C 08560040
860: C WRITE PAGE FOOTINGS AND RUN SUMMARIES 08570040
861: 99999 CONTINUE 08580040
862: WRITE (I02,90002) 08590040
863: WRITE (I02,90006) 08600040
864: WRITE (I02,90002) 08610040
865: WRITE (I02,90002) 08620040
866: WRITE (I02,90007) 08630040
867: WRITE (I02,90002) 08640040
868: WRITE (I02,90008) IVFAIL 08650040
869: WRITE (I02,90009) IVPASS 08660040
870: WRITE (I02,90010) IVDELE 08670040
871: C 08680040
872: C 08690040
873: C TERMINATE ROUTINE EXECUTION 08700040
874: STOP 08710040
875: C 08720040
876: C FORMAT STATEMENTS FOR PAGE HEADERS 08730040
877: 90000 FORMAT (1H1) 08740040
878: 90002 FORMAT (1H ) 08750040
879: 90001 FORMAT (1H ,10X,34HFORTRAN COMPILER VALIDATION SYSTEM) 08760040
880: 90003 FORMAT (1H ,21X,11HVERSION 1.0) 08770040
881: 90004 FORMAT (1H ,10X,38HFOR OFFICIAL USE ONLY - COPYRIGHT 1978) 08780040
882: 90005 FORMAT (1H ,5X,4HTEST,5X,9HPASS/FAIL, 5X,8HCOMPUTED,8X,7HCORRECT) 08790040
883: 90006 FORMAT (1H ,5X,46H----------------------------------------------) 08800040
884: 90011 FORMAT (1H ,18X,17HSUBSET LEVEL TEST) 08810040
885: C 08820040
886: C FORMAT STATEMENTS FOR RUN SUMMARIES 08830040
887: 90008 FORMAT (1H ,15X,I5,19H ERRORS ENCOUNTERED) 08840040
888: 90009 FORMAT (1H ,15X,I5,13H TESTS PASSED) 08850040
889: 90010 FORMAT (1H ,15X,I5,14H TESTS DELETED) 08860040
890: C 08870040
891: C FORMAT STATEMENTS FOR TEST RESULTS 08880040
892: 80001 FORMAT (1H ,4X,I5,7X,4HPASS) 08890040
893: 80002 FORMAT (1H ,4X,I5,7X,4HFAIL) 08900040
894: 80003 FORMAT (1H ,4X,I5,7X,7HDELETED) 08910040
895: 80004 FORMAT (1H ,4X,I5,7X,4HFAIL,10X,I6,9X,I6) 08920040
896: 80005 FORMAT (1H ,4X,I5,7X,4HFAIL,4X,E12.5,3X,E12.5) 08930040
897: C 08940040
898: 90007 FORMAT (1H ,20X,20HEND OF PROGRAM FM040) 08950040
899: END 08960040
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.