![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to FM036.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 FM036.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 00010036
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 00020036
6: C FM036 00030036
7: C 00040036
8: C THIS ROUTINE TESTS ARITHMETIC ASIGNMENT STATEMENTS OF THE 00050036
9: C FORM 00060036
10: C INTEGER VARIABLE = ARITHMETIC EXPRESSION 00070036
11: C WHERE THE ARITHMETIC EXPRESSION IS FORMED WITH THE ARITHMETIC 00080036
12: C OPERATOR / AND INTEGER CONSTANTS. BOTH POSITIVE AND NEGATIVE 00090036
13: C CONSTANTS ARE USED IN THE ARITHMETIC EXPRESSION. 00100036
14: C 00110036
15: C THERE ARE TESTS WHICH REQUIRE NO TRUNCATION OF THE RESULT 00120036
16: C AND TESTS WHERE THE RESULT MUST BE TRUNCATED BEFORE BEING STORED 00130036
17: C IN THE RESULTANT INTEGER VARIABLE. THE STANDARD STATES 'THE VALUE00140036
18: C OF AN INTEGER FACTOR OR TERM IS THE NEAREST INTEGER WHOSE 00150036
19: C MAGNITUDE DOES NOT EXCEED THE MAGNITUDE OF THE MATHEMATICAL VALUE 00160036
20: C REPRESENTED BY THAT FACTOR OR TERM.' 00170036
21: C 00180036
22: C THERE ARE TESTS WHERE THE ARITHMETIC EXPRESSION CONTAINS 00190036
23: C (1) INTEGER CONSTANT/INTEGER CONSTANT 00200036
24: C NO TRUNCATION REQUIRED, 00210036
25: C (2) INTEGER CONSTANT/INTEGER CONSTANT 00220036
26: C TRUNCATION REQUIRED. 00230036
27: C 00240036
28: C REFERENCES 00250036
29: C AMERICAN NATIONAL STANDARD PROGRAMMING LANGUAGE FORTRAN, 00260036
30: C X3.9-1978 00270036
31: C 00280036
32: C SECTION 4.3, INTEGER TYPE 00290036
33: C SECTION 4.3.1, INTEGER CONSTANT 00300036
34: C SECTION 6.1, ARITHMETIC EXPRESSIONS 00310036
35: C SECTION 6.6, EVALUATION OF EXPRESSIONS 00320036
36: C SECTION 10.1, ARITHMETIC ASSIGNMENT STATEMENT 00330036
37: C 00340036
38: C ********************************************************** 00350036
39: C 00360036
40: C A COMPILER VALIDATION SYSTEM FOR THE FORTRAN LANGUAGE 00370036
41: C BASED ON SPECIFICATIONS AS DEFINED IN AMERICAN NATIONAL STANDARD 00380036
42: C PROGRAMMING LANGUAGE FORTRAN X3.9-1978, HAS BEEN DEVELOPED BY THE 00390036
43: C FEDERAL COBOL COMPILER TESTING SERVICE. THE FORTRAN COMPILER 00400036
44: C VALIDATION SYSTEM (FCVS) CONSISTS OF AUDIT ROUTINES, THEIR RELATED00410036
45: C DATA, AND AN EXECUTIVE SYSTEM. EACH AUDIT ROUTINE IS A FORTRAN 00420036
46: C PROGRAM, SUBPROGRAM OR FUNCTION WHICH INCLUDES TESTS OF SPECIFIC 00430036
47: C LANGUAGE ELEMENTS AND SUPPORTING PROCEDURES INDICATING THE RESULT 00440036
48: C OF EXECUTING THESE TESTS. 00450036
49: C 00460036
50: C THIS PARTICULAR PROGRAM/SUBPROGRAM/FUNCTION CONTAINS FEATURES 00470036
51: C FOUND ONLY IN THE SUBSET AS DEFINED IN X3.9-1978. 00480036
52: C 00490036
53: C SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO - 00500036
54: C 00510036
55: C DEPARTMENT OF THE NAVY 00520036
56: C FEDERAL COBOL COMPILER TESTING SERVICE 00530036
57: C WASHINGTON, D.C. 20376 00540036
58: C 00550036
59: C ********************************************************** 00560036
60: C 00570036
61: C 00580036
62: C 00590036
63: C INITIALIZATION SECTION 00600036
64: C 00610036
65: C INITIALIZE CONSTANTS 00620036
66: C ************** 00630036
67: C I01 CONTAINS THE LOGICAL UNIT NUMBER FOR THE CARD READER. 00640036
68: I01 = 5 00650036
69: C I02 CONTAINS THE LOGICAL UNIT NUMBER FOR THE PRINTER. 00660036
70: I02 = 6 00670036
71: C SYSTEM ENVIRONMENT SECTION 00680036
72: C 00690036
73: I01 = 5 00700036
74: C THE CX010 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I01 = 5 00710036
75: C (UNIT NUMBER FOR CARD READER). 00720036
76: CX011 THIS CARD IS REPLACED BY CONTENTS OF FEXEC X-011 CONTROL CARD. 00730036
77: C THE CX011 CARD IS FOR SYSTEMS WHICH REQUIRE ADDITIONAL 00740036
78: C FORTRAN STATEMENTS FOR FILES ASSOCIATED WITH CX010 ABOVE. 00750036
79: C 00760036
80: I02 = 6 00770036
81: C THE CX020 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I02 = 6 00780036
82: C (UNIT NUMBER FOR PRINTER). 00790036
83: CX021 THIS CARD IS REPLACED BY CONTENTS OF FEXEC X-021 CONTROL CARD. 00800036
84: C THE CX021 CARD IS FOR SYSTEMS WHICH REQUIRE ADDITIONAL 00810036
85: C FORTRAN STATEMENTS FOR FILES ASSOCIATED WITH CX020 ABOVE. 00820036
86: C 00830036
87: IVPASS=0 00840036
88: IVFAIL=0 00850036
89: IVDELE=0 00860036
90: ICZERO=0 00870036
91: C 00880036
92: C WRITE PAGE HEADERS 00890036
93: WRITE (I02,90000) 00900036
94: WRITE (I02,90001) 00910036
95: WRITE (I02,90002) 00920036
96: WRITE (I02, 90002) 00930036
97: WRITE (I02,90003) 00940036
98: WRITE (I02,90002) 00950036
99: WRITE (I02,90004) 00960036
100: WRITE (I02,90002) 00970036
101: WRITE (I02,90011) 00980036
102: WRITE (I02,90002) 00990036
103: WRITE (I02,90002) 01000036
104: WRITE (I02,90005) 01010036
105: WRITE (I02,90006) 01020036
106: WRITE (I02,90002) 01030036
107: C 01040036
108: C TEST SECTION 01050036
109: C ARITHMETIC ASSIGNMENT STATEMENT 01060036
110: C 01070036
111: C TEST 462 THROUGH TEST 490 CONTAIN TWO INTEGER CONSTANTS AND 01080036
112: C OPERATOR / IN AN ARITHMETIC EXPRESSION. THE FORM TESTED IS 01090036
113: C INTEGER VARIABLE = INTEGER CONSTANT/INTEGER CONSTANT 01100036
114: C 01110036
115: C TEST 462 THROUGH TEST 469 - POSITIVE CONSTANTS 01120036
116: C NO TRUNCATION REQUIRED 01130036
117: C 01140036
118: 4621 CONTINUE 01150036
119: IVTNUM = 462 01160036
120: C 01170036
121: C **** TEST 462 **** 01180036
122: C 01190036
123: IF (ICZERO) 34620, 4620, 34620 01200036
124: 4620 CONTINUE 01210036
125: IVCOMP = 4/2 01220036
126: GO TO 44620 01230036
127: 34620 IVDELE = IVDELE + 1 01240036
128: WRITE (I02,80003) IVTNUM 01250036
129: IF (ICZERO) 44620, 4631, 44620 01260036
130: 44620 IF (IVCOMP - 2) 24620,14620,24620 01270036
131: 14620 IVPASS = IVPASS + 1 01280036
132: WRITE (I02,80001) IVTNUM 01290036
133: GO TO 4631 01300036
134: 24620 IVFAIL = IVFAIL + 1 01310036
135: IVCORR = 2 01320036
136: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 01330036
137: 4631 CONTINUE 01340036
138: IVTNUM = 463 01350036
139: C 01360036
140: C **** TEST 463 **** 01370036
141: C 01380036
142: IF (ICZERO) 34630, 4630, 34630 01390036
143: 4630 CONTINUE 01400036
144: IVCOMP = 75 / 25 01410036
145: GO TO 44630 01420036
146: 34630 IVDELE = IVDELE + 1 01430036
147: WRITE (I02,80003) IVTNUM 01440036
148: IF (ICZERO) 44630, 4641, 44630 01450036
149: 44630 IF (IVCOMP - 3) 24630,14630,24630 01460036
150: 14630 IVPASS = IVPASS + 1 01470036
151: WRITE (I02,80001) IVTNUM 01480036
152: GO TO 4641 01490036
153: 24630 IVFAIL = IVFAIL + 1 01500036
154: IVCORR = 3 01510036
155: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 01520036
156: 4641 CONTINUE 01530036
157: IVTNUM = 464 01540036
158: C 01550036
159: C **** TEST 464 **** 01560036
160: C 01570036
161: IF (ICZERO) 34640, 4640, 34640 01580036
162: 4640 CONTINUE 01590036
163: IVCOMP = 3575/143 01600036
164: GO TO 44640 01610036
165: 34640 IVDELE = IVDELE + 1 01620036
166: WRITE (I02,80003) IVTNUM 01630036
167: IF (ICZERO) 44640, 4651, 44640 01640036
168: 44640 IF (IVCOMP - 25) 24640,14640,24640 01650036
169: 14640 IVPASS = IVPASS + 1 01660036
170: WRITE (I02,80001) IVTNUM 01670036
171: GO TO 4651 01680036
172: 24640 IVFAIL = IVFAIL + 1 01690036
173: IVCORR = 25 01700036
174: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 01710036
175: 4651 CONTINUE 01720036
176: IVTNUM = 465 01730036
177: C 01740036
178: C **** TEST 465 **** 01750036
179: C 01760036
180: IF (ICZERO) 34650, 4650, 34650 01770036
181: 4650 CONTINUE 01780036
182: IVCOMP = 3575/25 01790036
183: GO TO 44650 01800036
184: 34650 IVDELE = IVDELE + 1 01810036
185: WRITE (I02,80003) IVTNUM 01820036
186: IF (ICZERO) 44650, 4661, 44650 01830036
187: 44650 IF (IVCOMP - 143) 24650,14650,24650 01840036
188: 14650 IVPASS = IVPASS + 1 01850036
189: WRITE (I02,80001) IVTNUM 01860036
190: GO TO 4661 01870036
191: 24650 IVFAIL = IVFAIL + 1 01880036
192: IVCORR = 143 01890036
193: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 01900036
194: 4661 CONTINUE 01910036
195: IVTNUM = 466 01920036
196: C 01930036
197: C **** TEST 466 **** 01940036
198: C 01950036
199: IF (ICZERO) 34660, 4660, 34660 01960036
200: 4660 CONTINUE 01970036
201: IVCOMP = 6170/1234 01980036
202: GO TO 44660 01990036
203: 34660 IVDELE = IVDELE + 1 02000036
204: WRITE (I02,80003) IVTNUM 02010036
205: IF (ICZERO) 44660, 4671, 44660 02020036
206: 44660 IF (IVCOMP - 5) 24660,14660,24660 02030036
207: 14660 IVPASS = IVPASS + 1 02040036
208: WRITE (I02,80001) IVTNUM 02050036
209: GO TO 4671 02060036
210: 24660 IVFAIL = IVFAIL + 1 02070036
211: IVCORR = 5 02080036
212: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 02090036
213: 4671 CONTINUE 02100036
214: IVTNUM = 467 02110036
215: C 02120036
216: C **** TEST 467 **** 02130036
217: C 02140036
218: IF (ICZERO) 34670, 4670, 34670 02150036
219: 4670 CONTINUE 02160036
220: IVCOMP = 28600/8 02170036
221: GO TO 44670 02180036
222: 34670 IVDELE = IVDELE + 1 02190036
223: WRITE (I02,80003) IVTNUM 02200036
224: IF (ICZERO) 44670, 4681, 44670 02210036
225: 44670 IF (IVCOMP - 3575) 24670,14670,24670 02220036
226: 14670 IVPASS = IVPASS + 1 02230036
227: WRITE (I02,80001) IVTNUM 02240036
228: GO TO 4681 02250036
229: 24670 IVFAIL = IVFAIL + 1 02260036
230: IVCORR = 3575 02270036
231: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 02280036
232: 4681 CONTINUE 02290036
233: IVTNUM = 468 02300036
234: C 02310036
235: C **** TEST 468 **** 02320036
236: C 02330036
237: IF (ICZERO) 34680, 4680, 34680 02340036
238: 4680 CONTINUE 02350036
239: IVCOMP = 32766/2 02360036
240: GO TO 44680 02370036
241: 34680 IVDELE = IVDELE + 1 02380036
242: WRITE (I02,80003) IVTNUM 02390036
243: IF (ICZERO) 44680, 4691, 44680 02400036
244: 44680 IF (IVCOMP - 16383) 24680,14680,24680 02410036
245: 14680 IVPASS = IVPASS + 1 02420036
246: WRITE (I02,80001) IVTNUM 02430036
247: GO TO 4691 02440036
248: 24680 IVFAIL = IVFAIL + 1 02450036
249: IVCORR = 16383 02460036
250: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 02470036
251: 4691 CONTINUE 02480036
252: IVTNUM = 469 02490036
253: C 02500036
254: C **** TEST 469 **** 02510036
255: C 02520036
256: IF (ICZERO) 34690, 4690, 34690 02530036
257: 4690 CONTINUE 02540036
258: IVCOMP = 32767/1 02550036
259: GO TO 44690 02560036
260: 34690 IVDELE = IVDELE + 1 02570036
261: WRITE (I02,80003) IVTNUM 02580036
262: IF (ICZERO) 44690, 4701, 44690 02590036
263: 44690 IF (IVCOMP - 32767) 24690,14690,24690 02600036
264: 14690 IVPASS = IVPASS + 1 02610036
265: WRITE (I02,80001) IVTNUM 02620036
266: GO TO 4701 02630036
267: 24690 IVFAIL = IVFAIL + 1 02640036
268: IVCORR = 32767 02650036
269: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 02660036
270: C 02670036
271: C TEST 470 THROUGH TEST 478 - POSITIVE CONSTANTS 02680036
272: C TRUNCATION REQUIRED 02690036
273: C 02700036
274: 4701 CONTINUE 02710036
275: IVTNUM = 470 02720036
276: C 02730036
277: C **** TEST 470 **** 02740036
278: C 02750036
279: IF (ICZERO) 34700, 4700, 34700 02760036
280: 4700 CONTINUE 02770036
281: IVCOMP = 5/2 02780036
282: GO TO 44700 02790036
283: 34700 IVDELE = IVDELE + 1 02800036
284: WRITE (I02,80003) IVTNUM 02810036
285: IF (ICZERO) 44700, 4711, 44700 02820036
286: 44700 IF (IVCOMP - 2) 24700,14700,24700 02830036
287: 14700 IVPASS = IVPASS + 1 02840036
288: WRITE (I02,80001) IVTNUM 02850036
289: GO TO 4711 02860036
290: 24700 IVFAIL = IVFAIL + 1 02870036
291: IVCORR = 2 02880036
292: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 02890036
293: 4711 CONTINUE 02900036
294: IVTNUM = 471 02910036
295: C 02920036
296: C **** TEST 471 **** 02930036
297: C 02940036
298: IF (ICZERO) 34710, 4710, 34710 02950036
299: 4710 CONTINUE 02960036
300: IVCOMP = 2/3 02970036
301: GO TO 44710 02980036
302: 34710 IVDELE = IVDELE + 1 02990036
303: WRITE (I02,80003) IVTNUM 03000036
304: IF (ICZERO) 44710, 4721, 44710 03010036
305: 44710 IF (IVCOMP - 0) 24710,14710,24710 03020036
306: 14710 IVPASS = IVPASS + 1 03030036
307: WRITE (I02,80001) IVTNUM 03040036
308: GO TO 4721 03050036
309: 24710 IVFAIL = IVFAIL + 1 03060036
310: IVCORR = 0 03070036
311: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 03080036
312: 4721 CONTINUE 03090036
313: IVTNUM = 472 03100036
314: C 03110036
315: C **** TEST 472 **** 03120036
316: C 03130036
317: IF (ICZERO) 34720, 4720, 34720 03140036
318: 4720 CONTINUE 03150036
319: IVCOMP = 80/15 03160036
320: GO TO 44720 03170036
321: 34720 IVDELE = IVDELE + 1 03180036
322: WRITE (I02,80003) IVTNUM 03190036
323: IF (ICZERO) 44720, 4731, 44720 03200036
324: 44720 IF (IVCOMP - 5) 24720,14720,24720 03210036
325: 14720 IVPASS = IVPASS + 1 03220036
326: WRITE (I02,80001) IVTNUM 03230036
327: GO TO 4731 03240036
328: 24720 IVFAIL = IVFAIL + 1 03250036
329: IVCORR = 5 03260036
330: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 03270036
331: 4731 CONTINUE 03280036
332: IVTNUM = 473 03290036
333: C 03300036
334: C **** TEST 473 **** 03310036
335: C 03320036
336: IF (ICZERO) 34730, 4730, 34730 03330036
337: 4730 CONTINUE 03340036
338: IVCOMP = 959/120 03350036
339: GO TO 44730 03360036
340: 34730 IVDELE = IVDELE + 1 03370036
341: WRITE (I02,80003) IVTNUM 03380036
342: IF (ICZERO) 44730, 4741, 44730 03390036
343: 44730 IF (IVCOMP - 7) 24730,14730,24730 03400036
344: 14730 IVPASS = IVPASS + 1 03410036
345: WRITE (I02,80001) IVTNUM 03420036
346: GO TO 4741 03430036
347: 24730 IVFAIL = IVFAIL + 1 03440036
348: IVCORR = 7 03450036
349: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 03460036
350: 4741 CONTINUE 03470036
351: IVTNUM = 474 03480036
352: C 03490036
353: C **** TEST 474 **** 03500036
354: C 03510036
355: IF (ICZERO) 34740, 4740, 34740 03520036
356: 4740 CONTINUE 03530036
357: IVCOMP = 959 / 12 03540036
358: GO TO 44740 03550036
359: 34740 IVDELE = IVDELE + 1 03560036
360: WRITE (I02,80003) IVTNUM 03570036
361: IF (ICZERO) 44740, 4751, 44740 03580036
362: 44740 IF (IVCOMP - 79) 24740,14740,24740 03590036
363: 14740 IVPASS = IVPASS + 1 03600036
364: WRITE (I02,80001) IVTNUM 03610036
365: GO TO 4751 03620036
366: 24740 IVFAIL = IVFAIL + 1 03630036
367: IVCORR = 79 03640036
368: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 03650036
369: 4751 CONTINUE 03660036
370: IVTNUM = 475 03670036
371: C 03680036
372: C **** TEST 475 **** 03690036
373: C 03700036
374: IF (ICZERO) 34750, 4750, 34750 03710036
375: 4750 CONTINUE 03720036
376: IVCOMP = 959/6 03730036
377: GO TO 44750 03740036
378: 34750 IVDELE = IVDELE + 1 03750036
379: WRITE (I02,80003) IVTNUM 03760036
380: IF (ICZERO) 44750, 4761, 44750 03770036
381: 44750 IF (IVCOMP - 159) 24750,14750,24750 03780036
382: 14750 IVPASS = IVPASS + 1 03790036
383: WRITE (I02,80001) IVTNUM 03800036
384: GO TO 4761 03810036
385: 24750 IVFAIL = IVFAIL + 1 03820036
386: IVCORR = 159 03830036
387: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 03840036
388: 4761 CONTINUE 03850036
389: IVTNUM = 476 03860036
390: C 03870036
391: C **** TEST 476 **** 03880036
392: C 03890036
393: IF (ICZERO) 34760, 4760, 34760 03900036
394: 4760 CONTINUE 03910036
395: IVCOMP = 28606/8 03920036
396: GO TO 44760 03930036
397: 34760 IVDELE = IVDELE + 1 03940036
398: WRITE (I02,80003) IVTNUM 03950036
399: IF (ICZERO) 44760, 4771, 44760 03960036
400: 44760 IF (IVCOMP - 3575) 24760,14760,24760 03970036
401: 14760 IVPASS = IVPASS + 1 03980036
402: WRITE (I02,80001) IVTNUM 03990036
403: GO TO 4771 04000036
404: 24760 IVFAIL = IVFAIL + 1 04010036
405: IVCORR = 3575 04020036
406: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 04030036
407: 4771 CONTINUE 04040036
408: IVTNUM = 477 04050036
409: C 04060036
410: C **** TEST 477 **** 04070036
411: C 04080036
412: IF (ICZERO) 34770, 4770, 34770 04090036
413: 4770 CONTINUE 04100036
414: IVCOMP = 25603/2 04110036
415: GO TO 44770 04120036
416: 34770 IVDELE = IVDELE + 1 04130036
417: WRITE (I02,80003) IVTNUM 04140036
418: IF (ICZERO) 44770, 4781, 44770 04150036
419: 44770 IF (IVCOMP - 12801) 24770,14770,24770 04160036
420: 14770 IVPASS = IVPASS + 1 04170036
421: WRITE (I02,80001) IVTNUM 04180036
422: GO TO 4781 04190036
423: 24770 IVFAIL = IVFAIL + 1 04200036
424: IVCORR = 12801 04210036
425: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 04220036
426: 4781 CONTINUE 04230036
427: IVTNUM = 478 04240036
428: C 04250036
429: C **** TEST 478 **** 04260036
430: C 04270036
431: IF (ICZERO) 34780, 4780, 34780 04280036
432: 4780 CONTINUE 04290036
433: IVCOMP = 25603/10354 04300036
434: GO TO 44780 04310036
435: 34780 IVDELE = IVDELE + 1 04320036
436: WRITE (I02,80003) IVTNUM 04330036
437: IF (ICZERO) 44780, 4791, 44780 04340036
438: 44780 IF (IVCOMP - 2) 24780,14780,24780 04350036
439: 14780 IVPASS = IVPASS + 1 04360036
440: WRITE (I02,80001) IVTNUM 04370036
441: GO TO 4791 04380036
442: 24780 IVFAIL = IVFAIL + 1 04390036
443: IVCORR = 2 04400036
444: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 04410036
445: C 04420036
446: C TEST 479 THROUGH TEST 482 - NEGATIVE CONSTANTS INCLUDED 04430036
447: C NO TRUNCATION REQUIRED 04440036
448: C 04450036
449: 4791 CONTINUE 04460036
450: IVTNUM = 479 04470036
451: C 04480036
452: C **** TEST 479 **** 04490036
453: C 04500036
454: IF (ICZERO) 34790, 4790, 34790 04510036
455: 4790 CONTINUE 04520036
456: IVCOMP = -4/2 04530036
457: GO TO 44790 04540036
458: 34790 IVDELE = IVDELE + 1 04550036
459: WRITE (I02,80003) IVTNUM 04560036
460: IF (ICZERO) 44790, 4801, 44790 04570036
461: 44790 IF (IVCOMP + 2) 24790,14790,24790 04580036
462: 14790 IVPASS = IVPASS + 1 04590036
463: WRITE (I02,80001) IVTNUM 04600036
464: GO TO 4801 04610036
465: 24790 IVFAIL = IVFAIL + 1 04620036
466: IVCORR = -2 04630036
467: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 04640036
468: 4801 CONTINUE 04650036
469: IVTNUM = 480 04660036
470: C 04670036
471: C **** TEST 480 **** 04680036
472: C 04690036
473: IF (ICZERO) 34800, 4800, 34800 04700036
474: 4800 CONTINUE 04710036
475: IVCOMP = 75 / (-25) 04720036
476: GO TO 44800 04730036
477: 34800 IVDELE = IVDELE + 1 04740036
478: WRITE (I02,80003) IVTNUM 04750036
479: IF (ICZERO) 44800, 4811, 44800 04760036
480: 44800 IF (IVCOMP + 3) 24800,14800,24800 04770036
481: 14800 IVPASS = IVPASS + 1 04780036
482: WRITE (I02,80001) IVTNUM 04790036
483: GO TO 4811 04800036
484: 24800 IVFAIL = IVFAIL + 1 04810036
485: IVCORR = -3 04820036
486: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 04830036
487: 4811 CONTINUE 04840036
488: IVTNUM = 481 04850036
489: C 04860036
490: C **** TEST 481 **** 04870036
491: C 04880036
492: IF (ICZERO) 34810, 4810, 34810 04890036
493: 4810 CONTINUE 04900036
494: IVCOMP= (-6170) / (-1234) 04910036
495: GO TO 44810 04920036
496: 34810 IVDELE = IVDELE + 1 04930036
497: WRITE (I02,80003) IVTNUM 04940036
498: IF (ICZERO) 44810, 4821, 44810 04950036
499: 44810 IF (IVCOMP - 5) 24810,14810,24810 04960036
500: 14810 IVPASS = IVPASS + 1 04970036
501: WRITE (I02,80001) IVTNUM 04980036
502: GO TO 4821 04990036
503: 24810 IVFAIL = IVFAIL + 1 05000036
504: IVCORR = 5 05010036
505: 05020036
506: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 05030036
507: 4821 CONTINUE 05040036
508: IVTNUM = 482 05050036
509: C 05060036
510: C **** TEST 482 **** 05070036
511: C 05080036
512: IF (ICZERO) 34820, 4820, 34820 05090036
513: 4820 CONTINUE 05100036
514: IVCOMP = -32766/(-2) 05110036
515: GO TO 44820 05120036
516: 34820 IVDELE = IVDELE + 1 05130036
517: WRITE (I02,80003) IVTNUM 05140036
518: IF (ICZERO) 44820, 4831, 44820 05150036
519: 44820 IF (IVCOMP - 16383) 24820,14820,24820 05160036
520: 14820 IVPASS = IVPASS + 1 05170036
521: WRITE (I02,80001) IVTNUM 05180036
522: GO TO 4831 05190036
523: 24820 IVFAIL = IVFAIL + 1 05200036
524: IVCORR = 16383 05210036
525: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 05220036
526: C 05230036
527: C TEST 483 THROUGH TEST 490 - NEGATIVE CONSTANTS INCLUDED 05240036
528: C TRUNCATION REQUIRED 05250036
529: C 05260036
530: 4831 CONTINUE 05270036
531: IVTNUM = 483 05280036
532: C 05290036
533: C **** TEST 483 **** 05300036
534: C 05310036
535: IF (ICZERO) 34830, 4830, 34830 05320036
536: 4830 CONTINUE 05330036
537: IVCOMP = -5/2 05340036
538: GO TO 44830 05350036
539: 34830 IVDELE = IVDELE + 1 05360036
540: WRITE (I02,80003) IVTNUM 05370036
541: IF (ICZERO) 44830, 4841, 44830 05380036
542: 44830 IF (IVCOMP +2) 24830,14830,24830 05390036
543: 14830 IVPASS = IVPASS + 1 05400036
544: WRITE (I02,80001) IVTNUM 05410036
545: GO TO 4841 05420036
546: 24830 IVFAIL = IVFAIL + 1 05430036
547: IVCORR = -2 05440036
548: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 05450036
549: 4841 CONTINUE 05460036
550: IVTNUM = 484 05470036
551: C 05480036
552: C **** TEST 484 **** 05490036
553: C 05500036
554: IF (ICZERO) 34840, 4840, 34840 05510036
555: 4840 CONTINUE 05520036
556: IVCOMP = -2/3 05530036
557: GO TO 44840 05540036
558: 34840 IVDELE = IVDELE + 1 05550036
559: WRITE (I02,80003) IVTNUM 05560036
560: IF (ICZERO) 44840, 4851, 44840 05570036
561: 44840 IF (IVCOMP) 24840,14840,24840 05580036
562: 14840 IVPASS = IVPASS + 1 05590036
563: WRITE (I02,80001) IVTNUM 05600036
564: GO TO 4851 05610036
565: 24840 IVFAIL = IVFAIL + 1 05620036
566: IVCORR = 0 05630036
567: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 05640036
568: 4851 CONTINUE 05650036
569: IVTNUM = 485 05660036
570: C 05670036
571: C **** TEST 485 **** 05680036
572: C 05690036
573: IF (ICZERO) 34850, 4850, 34850 05700036
574: 4850 CONTINUE 05710036
575: IVCOMP = 80/(-15) 05720036
576: GO TO 44850 05730036
577: 34850 IVDELE = IVDELE + 1 05740036
578: WRITE (I02,80003) IVTNUM 05750036
579: IF (ICZERO) 44850, 4861, 44850 05760036
580: 44850 IF (IVCOMP +5) 24850,14850,24850 05770036
581: 14850 IVPASS = IVPASS + 1 05780036
582: WRITE (I02,80001) IVTNUM 05790036
583: GO TO 4861 05800036
584: 24850 IVFAIL = IVFAIL + 1 05810036
585: IVCORR = -5 05820036
586: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 05830036
587: 4861 CONTINUE 05840036
588: IVTNUM = 486 05850036
589: C 05860036
590: C **** TEST 486 **** 05870036
591: C 05880036
592: IF (ICZERO) 34860, 4860, 34860 05890036
593: 4860 CONTINUE 05900036
594: IVCOMP = -959/(-120) 05910036
595: GO TO 44860 05920036
596: 34860 IVDELE = IVDELE + 1 05930036
597: WRITE (I02,80003) IVTNUM 05940036
598: IF (ICZERO) 44860, 4871, 44860 05950036
599: 44860 IF (IVCOMP - 7) 24860,14860,24860 05960036
600: 14860 IVPASS = IVPASS + 1 05970036
601: WRITE (I02,80001) IVTNUM 05980036
602: GO TO 4871 05990036
603: 24860 IVFAIL = IVFAIL + 1 06000036
604: IVCORR = 7 06010036
605: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 06020036
606: 4871 CONTINUE 06030036
607: IVTNUM = 487 06040036
608: C 06050036
609: C **** TEST 487 **** 06060036
610: C 06070036
611: IF (ICZERO) 34870, 4870, 34870 06080036
612: 4870 CONTINUE 06090036
613: IVCOMP = -959/6 06100036
614: GO TO 44870 06110036
615: 34870 IVDELE = IVDELE + 1 06120036
616: WRITE (I02,80003) IVTNUM 06130036
617: IF (ICZERO) 44870, 4881, 44870 06140036
618: 44870 IF (IVCOMP + 159) 24870,14870,24870 06150036
619: 14870 IVPASS = IVPASS + 1 06160036
620: WRITE (I02,80001) IVTNUM 06170036
621: GO TO 4881 06180036
622: 24870 IVFAIL = IVFAIL + 1 06190036
623: IVCORR = -159 06200036
624: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 06210036
625: 4881 CONTINUE 06220036
626: IVTNUM = 488 06230036
627: C 06240036
628: C **** TEST 488 **** 06250036
629: C 06260036
630: IF (ICZERO) 34880, 4880, 34880 06270036
631: 4880 CONTINUE 06280036
632: IVCOMP = -28606/(-8) 06290036
633: GO TO 44880 06300036
634: 34880 IVDELE = IVDELE + 1 06310036
635: WRITE (I02,80003) IVTNUM 06320036
636: IF (ICZERO) 44880, 4891, 44880 06330036
637: 44880 IF (IVCOMP - 3575) 24880,14880,24880 06340036
638: 14880 IVPASS = IVPASS + 1 06350036
639: WRITE (I02,80001) IVTNUM 06360036
640: GO TO 4891 06370036
641: 24880 IVFAIL = IVFAIL + 1 06380036
642: IVCORR = 3575 06390036
643: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 06400036
644: 4891 CONTINUE 06410036
645: IVTNUM = 489 06420036
646: C 06430036
647: C **** TEST 489 **** 06440036
648: C 06450036
649: IF (ICZERO) 34890, 4890, 34890 06460036
650: 4890 CONTINUE 06470036
651: IVCOMP = -25603/2 06480036
652: GO TO 44890 06490036
653: 34890 IVDELE = IVDELE + 1 06500036
654: WRITE (I02,80003) IVTNUM 06510036
655: IF (ICZERO) 44890, 4901, 44890 06520036
656: 44890 IF (IVCOMP + 12801) 24890,14890,24890 06530036
657: 14890 IVPASS = IVPASS + 1 06540036
658: WRITE (I02,80001) IVTNUM 06550036
659: GO TO 4901 06560036
660: 24890 IVFAIL = IVFAIL + 1 06570036
661: IVCORR = -12801 06580036
662: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 06590036
663: 4901 CONTINUE 06600036
664: IVTNUM = 490 06610036
665: C 06620036
666: C **** TEST 490 **** 06630036
667: C 06640036
668: IF (ICZERO) 34900, 4900, 34900 06650036
669: 4900 CONTINUE 06660036
670: IVCOMP = -25603/(-10354) 06670036
671: GO TO 44900 06680036
672: 34900 IVDELE = IVDELE + 1 06690036
673: WRITE (I02,80003) IVTNUM 06700036
674: IF (ICZERO) 44900, 4911, 44900 06710036
675: 44900 IF (IVCOMP - 2) 24900,14900,24900 06720036
676: 14900 IVPASS = IVPASS + 1 06730036
677: WRITE (I02,80001) IVTNUM 06740036
678: GO TO 4911 06750036
679: 24900 IVFAIL = IVFAIL + 1 06760036
680: IVCORR = 2 06770036
681: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 06780036
682: C 06790036
683: C **** END OF TESTS **** 06800036
684: 4911 CONTINUE 06810036
685: C 06820036
686: C WRITE PAGE FOOTINGS AND RUN SUMMARIES 06830036
687: 99999 CONTINUE 06840036
688: WRITE (I02,90002) 06850036
689: WRITE (I02,90006) 06860036
690: WRITE (I02,90002) 06870036
691: WRITE (I02,90002) 06880036
692: WRITE (I02,90007) 06890036
693: WRITE (I02,90002) 06900036
694: WRITE (I02,90008) IVFAIL 06910036
695: WRITE (I02,90009) IVPASS 06920036
696: WRITE (I02,90010) IVDELE 06930036
697: C 06940036
698: C 06950036
699: C TERMINATE ROUTINE EXECUTION 06960036
700: STOP 06970036
701: C 06980036
702: C FORMAT STATEMENTS FOR PAGE HEADERS 06990036
703: 90000 FORMAT (1H1) 07000036
704: 90002 FORMAT (1H ) 07010036
705: 90001 FORMAT (1H ,10X,34HFORTRAN COMPILER VALIDATION SYSTEM) 07020036
706: 90003 FORMAT (1H ,21X,11HVERSION 1.0) 07030036
707: 90004 FORMAT (1H ,10X,38HFOR OFFICIAL USE ONLY - COPYRIGHT 1978) 07040036
708: 90005 FORMAT (1H ,5X,4HTEST,5X,9HPASS/FAIL, 5X,8HCOMPUTED,8X,7HCORRECT) 07050036
709: 90006 FORMAT (1H ,5X,46H----------------------------------------------) 07060036
710: 90011 FORMAT (1H ,18X,17HSUBSET LEVEL TEST) 07070036
711: C 07080036
712: C FORMAT STATEMENTS FOR RUN SUMMARIES 07090036
713: 90008 FORMAT (1H ,15X,I5,19H ERRORS ENCOUNTERED) 07100036
714: 90009 FORMAT (1H ,15X,I5,13H TESTS PASSED) 07110036
715: 90010 FORMAT (1H ,15X,I5,14H TESTS DELETED) 07120036
716: C 07130036
717: C FORMAT STATEMENTS FOR TEST RESULTS 07140036
718: 80001 FORMAT (1H ,4X,I5,7X,4HPASS) 07150036
719: 80002 FORMAT (1H ,4X,I5,7X,4HFAIL) 07160036
720: 80003 FORMAT (1H ,4X,I5,7X,7HDELETED) 07170036
721: 80004 FORMAT (1H ,4X,I5,7X,4HFAIL,10X,I6,9X,I6) 07180036
722: 80005 FORMAT (1H ,4X,I5,7X,4HFAIL,4X,E12.5,3X,E12.5) 07190036
723: C 07200036
724: 90007 FORMAT (1H ,20X,20HEND OF PROGRAM FM036) 07210036
725: END 07220036
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.