![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to FM038.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 FM038.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 00010038
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 00020038
6: C FM038 00030038
7: C 00040038
8: C THIS ROUTINE TESTS ARITHMETIC ASSIGNMENT STATEMENTS OF THE 00050038
9: C FORM INTEGER VARIABLE = ARITHMETIC EXPRESSION 00060038
10: C WHERE THE ARITHMETIC EXPRESSION IS FORMED WITH THE ARITHMETIC 00070038
11: C OPERATOR /, INTEGER CONSTANTS AND AN INTEGER VARIABLE. BOTH 00080038
12: C POSITIVE AND NEGATIVE VALUES ARE USED FOR THE INTEGER CONSTANTS 00090038
13: C AND THE INTEGER VARIABLE. 00100038
14: C 00110038
15: C THERE ARE TESTS WHICH REQUIRE NO TRUNCATION OF THE RESULT 00120038
16: C AND TESTS WHERE THE RESULT MUST BE TRUNCATED BEFORE BEING STORED 00130038
17: C IN THE RESULTANT INTEGER VARIABLE. SOME OF THE TESTS USE PARENS 00140038
18: C TO GROUP ELEMENTS IN THE ARITHMETIC EXPRESSION. 00150038
19: C 00160038
20: C THERE ARE TESTS WHERE THE ARITHMETIC EXPRESSION CONTAINS 00170038
21: C (1) (INTEGER CONSTANT/INTEGER CONSTANT)/INTEGER CONSTANT 00180038
22: C (2) INTEGER CONSTANT/(INTEGER CONSTANT/INTEGER CONSTANT) 00190038
23: C (3) INTEGER VARIABLE/INTEGER CONSTANT 00200038
24: C (4) INTEGER CONSTANT/INTEGER VARIABLE 00210038
25: C 00220038
26: C REFERENCES 00230038
27: C AMERICAN NATIONAL STANDARD PROGRAMMING LANGUAGE FORTRAN, 00240038
28: C X3.9-1978 00250038
29: C 00260038
30: C SECTION 4.3, INTEGER TYPE 00270038
31: C SECTION 4.3.1, INTEGER CONSTANT 00280038
32: C SECTION 6.1, ARITHMETIC EXPRESSIONS 00290038
33: C SECTION 6.6, EVALUATION OF EXPRESSIONS 00300038
34: C SECTION 10.1, ARITHMETIC ASSIGNMENT STATEMENT 00310038
35: C 00320038
36: C ********************************************************** 00330038
37: C 00340038
38: C A COMPILER VALIDATION SYSTEM FOR THE FORTRAN LANGUAGE 00350038
39: C BASED ON SPECIFICATIONS AS DEFINED IN AMERICAN NATIONAL STANDARD 00360038
40: C PROGRAMMING LANGUAGE FORTRAN X3.9-1978, HAS BEEN DEVELOPED BY THE 00370038
41: C FEDERAL COBOL COMPILER TESTING SERVICE. THE FORTRAN COMPILER 00380038
42: C VALIDATION SYSTEM (FCVS) CONSISTS OF AUDIT ROUTINES, THEIR RELATED00390038
43: C DATA, AND AN EXECUTIVE SYSTEM. EACH AUDIT ROUTINE IS A FORTRAN 00400038
44: C PROGRAM, SUBPROGRAM OR FUNCTION WHICH INCLUDES TESTS OF SPECIFIC 00410038
45: C LANGUAGE ELEMENTS AND SUPPORTING PROCEDURES INDICATING THE RESULT 00420038
46: C OF EXECUTING THESE TESTS. 00430038
47: C 00440038
48: C THIS PARTICULAR PROGRAM/SUBPROGRAM/FUNCTION CONTAINS FEATURES 00450038
49: C FOUND ONLY IN THE SUBSET AS DEFINED IN X3.9-1978. 00460038
50: C 00470038
51: C SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO - 00480038
52: C 00490038
53: C DEPARTMENT OF THE NAVY 00500038
54: C FEDERAL COBOL COMPILER TESTING SERVICE 00510038
55: C WASHINGTON, D.C. 20376 00520038
56: C 00530038
57: C ********************************************************** 00540038
58: C 00550038
59: C 00560038
60: C 00570038
61: C INITIALIZATION SECTION 00580038
62: C 00590038
63: C INITIALIZE CONSTANTS 00600038
64: C ************** 00610038
65: C I01 CONTAINS THE LOGICAL UNIT NUMBER FOR THE CARD READER. 00620038
66: I01 = 5 00630038
67: C I02 CONTAINS THE LOGICAL UNIT NUMBER FOR THE PRINTER. 00640038
68: I02 = 6 00650038
69: C SYSTEM ENVIRONMENT SECTION 00660038
70: C 00670038
71: I01 = 5 00680038
72: C THE CX010 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I01 = 5 00690038
73: C (UNIT NUMBER FOR CARD READER). 00700038
74: CX011 THIS CARD IS REPLACED BY CONTENTS OF FEXEC X-011 CONTROL CARD. 00710038
75: C THE CX011 CARD IS FOR SYSTEMS WHICH REQUIRE ADDITIONAL 00720038
76: C FORTRAN STATEMENTS FOR FILES ASSOCIATED WITH CX010 ABOVE. 00730038
77: C 00740038
78: I02 = 6 00750038
79: C THE CX020 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I02 = 6 00760038
80: C (UNIT NUMBER FOR PRINTER). 00770038
81: CX021 THIS CARD IS REPLACED BY CONTENTS OF FEXEC X-021 CONTROL CARD. 00780038
82: C THE CX021 CARD IS FOR SYSTEMS WHICH REQUIRE ADDITIONAL 00790038
83: C FORTRAN STATEMENTS FOR FILES ASSOCIATED WITH CX020 ABOVE. 00800038
84: C 00810038
85: IVPASS=0 00820038
86: IVFAIL=0 00830038
87: IVDELE=0 00840038
88: ICZERO=0 00850038
89: C 00860038
90: C WRITE PAGE HEADERS 00870038
91: WRITE (I02,90000) 00880038
92: WRITE (I02,90001) 00890038
93: WRITE (I02,90002) 00900038
94: WRITE (I02, 90002) 00910038
95: WRITE (I02,90003) 00920038
96: WRITE (I02,90002) 00930038
97: WRITE (I02,90004) 00940038
98: WRITE (I02,90002) 00950038
99: WRITE (I02,90011) 00960038
100: WRITE (I02,90002) 00970038
101: WRITE (I02,90002) 00980038
102: WRITE (I02,90005) 00990038
103: WRITE (I02,90006) 01000038
104: WRITE (I02,90002) 01010038
105: C 01020038
106: C TEST SECTION 01030038
107: C 01040038
108: C ARITHMETIC ASSIGNMENT STATEMENT 01050038
109: C 01060038
110: C TEST 520 THROUGH TEST 525 CONTAIN ARITHMETIC ASSIGNMENT STATEMENTS01070038
111: C OF THE FORM INTEGER VARIABLE = (INT.CON./INT.CON.)/INT.CON. 01080038
112: C NO TRUNCATION OF THE RESULT IS REQUIRED. BOTH POSITIVE AND 01090038
113: C NEGATIVE CONSTANTS ARE INCLUDED. 01100038
114: C 01110038
115: 5201 CONTINUE 01120038
116: IVTNUM = 520 01130038
117: C 01140038
118: C **** TEST 520 **** 01150038
119: C 01160038
120: IF (ICZERO) 35200, 5200, 35200 01170038
121: 5200 CONTINUE 01180038
122: IVCOMP = (24/3)/4 01190038
123: GO TO 45200 01200038
124: 35200 IVDELE = IVDELE + 1 01210038
125: WRITE (I02,80003) IVTNUM 01220038
126: IF (ICZERO) 45200, 5211, 45200 01230038
127: 45200 IF (IVCOMP - 2) 25200,15200,25200 01240038
128: 15200 IVPASS = IVPASS + 1 01250038
129: WRITE (I02,80001) IVTNUM 01260038
130: GO TO 5211 01270038
131: 25200 IVFAIL = IVFAIL + 1 01280038
132: IVCORR = 2 01290038
133: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 01300038
134: 5211 CONTINUE 01310038
135: IVTNUM = 521 01320038
136: C 01330038
137: C **** TEST 521 **** 01340038
138: C 01350038
139: IF (ICZERO) 35210, 5210, 35210 01360038
140: 5210 CONTINUE 01370038
141: IVCOMP = (7150/2)/25 01380038
142: GO TO 45210 01390038
143: 35210 IVDELE = IVDELE + 1 01400038
144: WRITE (I02,80003) IVTNUM 01410038
145: IF (ICZERO) 45210, 5221, 45210 01420038
146: 45210 IF (IVCOMP - 143) 25210,15210,25210 01430038
147: 15210 IVPASS = IVPASS + 1 01440038
148: WRITE (I02,80001) IVTNUM 01450038
149: GO TO 5221 01460038
150: 25210 IVFAIL = IVFAIL + 1 01470038
151: IVCORR = 143 01480038
152: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 01490038
153: 5221 CONTINUE 01500038
154: IVTNUM = 522 01510038
155: C 01520038
156: C **** TEST 522 **** 01530038
157: C 01540038
158: IF (ICZERO) 35220, 5220, 35220 01550038
159: 01560038
160: 5220 CONTINUE 01570038
161: IVCOMP = (-24/3)/4 01580038
162: GO TO 45220 01590038
163: 35220 IVDELE = IVDELE + 1 01600038
164: WRITE (I02,80003) IVTNUM 01610038
165: IF (ICZERO) 45220, 5231, 45220 01620038
166: 45220 IF (IVCOMP + 2) 25220,15220,25220 01630038
167: 15220 IVPASS = IVPASS + 1 01640038
168: WRITE (I02,80001) IVTNUM 01650038
169: GO TO 5231 01660038
170: 25220 IVFAIL = IVFAIL + 1 01670038
171: IVCORR = -2 01680038
172: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 01690038
173: 5231 CONTINUE 01700038
174: IVTNUM = 523 01710038
175: C 01720038
176: C **** TEST 523 **** 01730038
177: C 01740038
178: IF (ICZERO) 35230, 5230, 35230 01750038
179: 5230 CONTINUE 01760038
180: IVCOMP = (330/(-3))/2 01770038
181: GO TO 45230 01780038
182: 35230 IVDELE = IVDELE + 1 01790038
183: WRITE (I02,80003) IVTNUM 01800038
184: IF (ICZERO) 45230, 5241, 45230 01810038
185: 45230 IF (IVCOMP + 55) 25230,15230,25230 01820038
186: 15230 IVPASS = IVPASS + 1 01830038
187: WRITE (I02,80001) IVTNUM 01840038
188: GO TO 5241 01850038
189: 25230 IVFAIL = IVFAIL + 1 01860038
190: IVCORR = -55 01870038
191: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 01880038
192: 5241 CONTINUE 01890038
193: IVTNUM = 524 01900038
194: C 01910038
195: C **** TEST 524 **** 01920038
196: C 01930038
197: IF (ICZERO) 35240, 5240, 35240 01940038
198: 5240 CONTINUE 01950038
199: IVCOMP = ((-7150)/(-2))/(-25) 01960038
200: GO TO 45240 01970038
201: 35240 IVDELE = IVDELE + 1 01980038
202: WRITE (I02,80003) IVTNUM 01990038
203: IF (ICZERO) 45240, 5251, 45240 02000038
204: 45240 IF (IVCOMP + 143) 25240,15240,25240 02010038
205: 15240 IVPASS = IVPASS + 1 02020038
206: WRITE (I02,80001) IVTNUM 02030038
207: GO TO 5251 02040038
208: 25240 IVFAIL = IVFAIL + 1 02050038
209: IVCORR = -143 02060038
210: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 02070038
211: 5251 CONTINUE 02080038
212: IVTNUM = 525 02090038
213: C 02100038
214: C **** TEST 525 **** 02110038
215: C 02120038
216: IF (ICZERO) 35250, 5250, 35250 02130038
217: 5250 CONTINUE 02140038
218: IVCOMP = (15249/(-13))/(-51) 02150038
219: GO TO 45250 02160038
220: 35250 IVDELE = IVDELE + 1 02170038
221: WRITE (I02,80003) IVTNUM 02180038
222: IF (ICZERO) 45250, 5261, 45250 02190038
223: 45250 IF (IVCOMP - 23) 25250,15250,25250 02200038
224: 15250 IVPASS = IVPASS + 1 02210038
225: WRITE (I02,80001) IVTNUM 02220038
226: GO TO 5261 02230038
227: 25250 IVFAIL = IVFAIL + 1 02240038
228: IVCORR = 23 02250038
229: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 02260038
230: C 02270038
231: C TEST 526 THROUGH TEST 531 CONTAIN ARITHMETIC ASSIGNMENT STATEMENTS02280038
232: C OF THE FORM IV = (IC/IC)/IC. 02290038
233: C TRUNCATION OF THE RESULT IS REQUIRED. BOTH POSITIVE AND 02300038
234: C NEGATIVE CONSTANTS ARE INCLUDED. 02310038
235: C 02320038
236: 5261 CONTINUE 02330038
237: IVTNUM = 526 02340038
238: C 02350038
239: C **** TEST 526 **** 02360038
240: C 02370038
241: IF (ICZERO) 35260, 5260, 35260 02380038
242: 5260 CONTINUE 02390038
243: IVCOMP = (24/3)/3 02400038
244: GO TO 45260 02410038
245: 35260 IVDELE = IVDELE + 1 02420038
246: WRITE (I02,80003) IVTNUM 02430038
247: IF (ICZERO) 45260, 5271, 45260 02440038
248: 45260 IF (IVCOMP - 2) 25260,15260,25260 02450038
249: 15260 IVPASS = IVPASS + 1 02460038
250: WRITE (I02,80001) IVTNUM 02470038
251: GO TO 5271 02480038
252: 25260 IVFAIL = IVFAIL + 1 02490038
253: IVCORR = 2 02500038
254: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 02510038
255: 5271 CONTINUE 02520038
256: IVTNUM = 527 02530038
257: C 02540038
258: C **** TEST 527 **** 02550038
259: C 02560038
260: IF (ICZERO) 35270, 5270, 35270 02570038
261: 5270 CONTINUE 02580038
262: IVCOMP = (7151/3)/10 02590038
263: GO TO 45270 02600038
264: 35270 IVDELE = IVDELE + 1 02610038
265: WRITE (I02,80003) IVTNUM 02620038
266: IF (ICZERO) 45270, 5281, 45270 02630038
267: 45270 IF (IVCOMP - 238) 25270,15270,25270 02640038
268: 15270 IVPASS = IVPASS + 1 02650038
269: WRITE (I02,80001) IVTNUM 02660038
270: GO TO 5281 02670038
271: 25270 IVFAIL = IVFAIL + 1 02680038
272: IVCORR = 238 02690038
273: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 02700038
274: 5281 CONTINUE 02710038
275: IVTNUM = 528 02720038
276: C 02730038
277: C **** TEST 528 **** 02740038
278: C 02750038
279: IF (ICZERO) 35280, 5280, 35280 02760038
280: 5280 CONTINUE 02770038
281: IVCOMP = (-24/3)/3 02780038
282: GO TO 45280 02790038
283: 35280 IVDELE = IVDELE + 1 02800038
284: WRITE (I02,80003) IVTNUM 02810038
285: IF (ICZERO) 45280, 5291, 45280 02820038
286: 45280 IF (IVCOMP + 2) 25280,15280,25280 02830038
287: 15280 IVPASS = IVPASS + 1 02840038
288: WRITE (I02,80001) IVTNUM 02850038
289: GO TO 5291 02860038
290: 25280 IVFAIL = IVFAIL + 1 02870038
291: IVCORR = -2 02880038
292: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 02890038
293: 5291 CONTINUE 02900038
294: IVTNUM = 529 02910038
295: C 02920038
296: C **** TEST 529 **** 02930038
297: C 02940038
298: IF (ICZERO) 35290, 5290, 35290 02950038
299: 5290 CONTINUE 02960038
300: IVCOMP = (7151/(-3))/10 02970038
301: GO TO 45290 02980038
302: 35290 IVDELE = IVDELE + 1 02990038
303: WRITE (I02,80003) IVTNUM 03000038
304: IF (ICZERO) 45290, 5301, 45290 03010038
305: 45290 IF (IVCOMP + 238) 25290,15290,25290 03020038
306: 15290 IVPASS = IVPASS + 1 03030038
307: WRITE (I02,80001) IVTNUM 03040038
308: GO TO 5301 03050038
309: 25290 IVFAIL = IVFAIL + 1 03060038
310: IVCORR = -238 03070038
311: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 03080038
312: 5301 CONTINUE 03090038
313: IVTNUM = 530 03100038
314: C 03110038
315: C **** TEST 530 **** 03120038
316: C 03130038
317: IF (ICZERO) 35300, 5300, 35300 03140038
318: 5300 CONTINUE 03150038
319: IVCOMP = (15248/(-51))/(-23) 03160038
320: GO TO 45300 03170038
321: 35300 IVDELE = IVDELE + 1 03180038
322: WRITE (I02,80003) IVTNUM 03190038
323: IF (ICZERO) 45300, 5311, 45300 03200038
324: 45300 IF (IVCOMP - 12) 25300,15300,25300 03210038
325: 15300 IVPASS = IVPASS + 1 03220038
326: WRITE (I02,80001) IVTNUM 03230038
327: GO TO 5311 03240038
328: 25300 IVFAIL = IVFAIL + 1 03250038
329: IVCORR = 12 03260038
330: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 03270038
331: 5311 CONTINUE 03280038
332: IVTNUM = 531 03290038
333: C 03300038
334: C **** TEST 531 **** 03310038
335: C 03320038
336: IF (ICZERO) 35310, 5310, 35310 03330038
337: 5310 CONTINUE 03340038
338: IVCOMP = ((-27342)/(-4))/(-3) 03350038
339: GO TO 45310 03360038
340: 35310 IVDELE = IVDELE + 1 03370038
341: WRITE (I02,80003) IVTNUM 03380038
342: IF (ICZERO) 45310, 5321, 45310 03390038
343: 45310 IF (IVCOMP + 2278) 25310,15310,25310 03400038
344: 15310 IVPASS = IVPASS + 1 03410038
345: WRITE (I02,80001) IVTNUM 03420038
346: GO TO 5321 03430038
347: 25310 IVFAIL = IVFAIL + 1 03440038
348: IVCORR = -2278 03450038
349: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 03460038
350: C 03470038
351: C TEST 532 THROUGH TEST 537 CONTAIN ARITHMETIC ASSIGNMENT STATEMENTS03480038
352: C OF THE FORM IV = IC/(IC/IC). 03490038
353: C NO TRUNCATION OF THE RESULT IS REQUIRED. BOTH POSITIVE AND 03500038
354: C NEGATIVE CONSTANTS ARE INCLUDED. 03510038
355: C 03520038
356: 5321 CONTINUE 03530038
357: IVTNUM = 532 03540038
358: C 03550038
359: C **** TEST 532 **** 03560038
360: C 03570038
361: IF (ICZERO) 35320, 5320, 35320 03580038
362: 5320 CONTINUE 03590038
363: IVCOMP = 24/(8/4) 03600038
364: GO TO 45320 03610038
365: 35320 IVDELE = IVDELE + 1 03620038
366: WRITE (I02,80003) IVTNUM 03630038
367: IF (ICZERO) 45320, 5331, 45320 03640038
368: 45320 IF (IVCOMP - 12) 25320,15320,25320 03650038
369: 15320 IVPASS = IVPASS + 1 03660038
370: WRITE (I02,80001) IVTNUM 03670038
371: GO TO 5331 03680038
372: 25320 IVFAIL = IVFAIL + 1 03690038
373: IVCORR = 12 03700038
374: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 03710038
375: 5331 CONTINUE 03720038
376: IVTNUM = 533 03730038
377: C 03740038
378: C **** TEST 533 **** 03750038
379: C 03760038
380: IF (ICZERO) 35330, 5330, 35330 03770038
381: 5330 CONTINUE 03780038
382: IVCOMP = 7150/(25/5) 03790038
383: GO TO 45330 03800038
384: 35330 IVDELE = IVDELE + 1 03810038
385: WRITE (I02,80003) IVTNUM 03820038
386: IF (ICZERO) 45330, 5341, 45330 03830038
387: 45330 IF (IVCOMP - 1430) 25330,15330,25330 03840038
388: 15330 IVPASS = IVPASS + 1 03850038
389: WRITE (I02,80001) IVTNUM 03860038
390: GO TO 5341 03870038
391: 25330 IVFAIL = IVFAIL + 1 03880038
392: IVCORR = 1430 03890038
393: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 03900038
394: 5341 CONTINUE 03910038
395: IVTNUM = 534 03920038
396: C 03930038
397: C **** TEST 534 **** 03940038
398: C 03950038
399: IF (ICZERO) 35340, 5340, 35340 03960038
400: 5340 CONTINUE 03970038
401: IVCOMP = -24/(8/4) 03980038
402: GO TO 45340 03990038
403: 35340 IVDELE = IVDELE + 1 04000038
404: WRITE (I02,80003) IVTNUM 04010038
405: IF (ICZERO) 45340, 5351, 45340 04020038
406: 45340 IF (IVCOMP + 12) 25340,15340,25340 04030038
407: 15340 IVPASS = IVPASS + 1 04040038
408: WRITE (I02,80001) IVTNUM 04050038
409: GO TO 5351 04060038
410: 25340 IVFAIL = IVFAIL + 1 04070038
411: IVCORR = -12 04080038
412: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 04090038
413: 5351 CONTINUE 04100038
414: IVTNUM = 535 04110038
415: C 04120038
416: C **** TEST 535 **** 04130038
417: C 04140038
418: IF (ICZERO) 35350, 5350, 35350 04150038
419: 5350 CONTINUE 04160038
420: IVCOMP = 24/((-8)/4) 04170038
421: GO TO 45350 04180038
422: 35350 IVDELE = IVDELE + 1 04190038
423: WRITE (I02,80003) IVTNUM 04200038
424: IF (ICZERO) 45350, 5361, 45350 04210038
425: 45350 IF (IVCOMP + 12) 25350,15350,25350 04220038
426: 15350 IVPASS = IVPASS + 1 04230038
427: WRITE (I02,80001) IVTNUM 04240038
428: GO TO 5361 04250038
429: 25350 IVFAIL = IVFAIL + 1 04260038
430: IVCORR = -12 04270038
431: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 04280038
432: 5361 CONTINUE 04290038
433: IVTNUM = 536 04300038
434: C 04310038
435: C **** TEST 536 **** 04320038
436: C 04330038
437: IF (ICZERO) 35360, 5360, 35360 04340038
438: 5360 CONTINUE 04350038
439: IVCOMP = (-7150)/((-25)/(-5)) 04360038
440: GO TO 45360 04370038
441: 35360 IVDELE = IVDELE + 1 04380038
442: WRITE (I02,80003) IVTNUM 04390038
443: IF (ICZERO) 45360, 5371, 45360 04400038
444: 45360 IF (IVCOMP + 1430) 25360,15360,25360 04410038
445: 15360 IVPASS = IVPASS + 1 04420038
446: WRITE (I02,80001) IVTNUM 04430038
447: GO TO 5371 04440038
448: 25360 IVFAIL = IVFAIL + 1 04450038
449: IVCORR = -1430 04460038
450: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 04470038
451: 5371 CONTINUE 04480038
452: IVTNUM = 537 04490038
453: C 04500038
454: C **** TEST 537 **** 04510038
455: C 04520038
456: IF (ICZERO) 35370, 5370, 35370 04530038
457: 5370 CONTINUE 04540038
458: IVCOMP = -7150/(25/(-5)) 04550038
459: GO TO 45370 04560038
460: 35370 IVDELE = IVDELE + 1 04570038
461: WRITE (I02,80003) IVTNUM 04580038
462: IF (ICZERO) 45370, 5381, 45370 04590038
463: 45370 IF (IVCOMP - 1430) 25370,15370,25370 04600038
464: 15370 IVPASS = IVPASS + 1 04610038
465: WRITE (I02,80001) IVTNUM 04620038
466: GO TO 5381 04630038
467: 25370 IVFAIL = IVFAIL + 1 04640038
468: IVCORR = 1430 04650038
469: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 04660038
470: C 04670038
471: C TEST 538 THROUGH TEST 543 CONTAIN ARITHMETIC ASSIGMMENT STATEMENTS04680038
472: C OF THE FORM IV = IC/(IC/IC). 04690038
473: C TRUNCATION OF THE RESULT IS REQUIRED. BOTH POSITIVE AND 04700038
474: C NEGATIVE CONSTANTS ARE INCLUDED. 04710038
475: C 04720038
476: 5381 CONTINUE 04730038
477: IVTNUM = 538 04740038
478: C 04750038
479: C **** TEST 538 **** 04760038
480: C 04770038
481: IF (ICZERO) 35380, 5380, 35380 04780038
482: 5380 CONTINUE 04790038
483: IVCOMP = 29/(5/2) 04800038
484: GO TO 45380 04810038
485: 35380 IVDELE = IVDELE + 1 04820038
486: WRITE (I02,80003) IVTNUM 04830038
487: IF (ICZERO) 45380, 5391, 45380 04840038
488: 45380 IF (IVCOMP - 14) 25380,15380,25380 04850038
489: 15380 IVPASS = IVPASS + 1 04860038
490: WRITE (I02,80001) IVTNUM 04870038
491: GO TO 5391 04880038
492: 25380 IVFAIL = IVFAIL + 1 04890038
493: IVCORR = 14 04900038
494: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 04910038
495: 5391 CONTINUE 04920038
496: IVTNUM = 539 04930038
497: C 04940038
498: C **** TEST 539 **** 04950038
499: C 04960038
500: IF (ICZERO) 35390, 5390, 35390 04970038
501: 5390 CONTINUE 04980038
502: IVCOMP = 7154/(26/5) 04990038
503: GO TO 45390 05000038
504: 35390 IVDELE = IVDELE + 1 05010038
505: WRITE (I02,80003) IVTNUM 05020038
506: IF (ICZERO) 45390, 5401, 45390 05030038
507: 45390 IF (IVCOMP - 1430) 25390,15390,25390 05040038
508: 15390 IVPASS = IVPASS + 1 05050038
509: WRITE (I02,80001) IVTNUM 05060038
510: GO TO 5401 05070038
511: 25390 IVFAIL = IVFAIL + 1 05080038
512: IVCORR = 1430 05090038
513: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 05100038
514: 5401 CONTINUE 05110038
515: IVTNUM = 540 05120038
516: C 05130038
517: C **** TEST 540 **** 05140038
518: C 05150038
519: IF (ICZERO) 35400, 5400, 35400 05160038
520: 5400 CONTINUE 05170038
521: IVCOMP = -7154/(26/5) 05180038
522: GO TO 45400 05190038
523: 35400 IVDELE = IVDELE + 1 05200038
524: WRITE (I02,80003) IVTNUM 05210038
525: IF (ICZERO) 45400, 5411, 45400 05220038
526: 45400 IF (IVCOMP + 1430) 25400,15400,25400 05230038
527: 15400 IVPASS = IVPASS + 1 05240038
528: WRITE (I02,80001) IVTNUM 05250038
529: GO TO 5411 05260038
530: 25400 IVFAIL = IVFAIL + 1 05270038
531: IVCORR = -1430 05280038
532: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 05290038
533: 5411 CONTINUE 05300038
534: IVTNUM = 541 05310038
535: C 05320038
536: C **** TEST 541 **** 05330038
537: C 05340038
538: IF (ICZERO) 35410, 5410, 35410 05350038
539: 5410 CONTINUE 05360038
540: IVCOMP = (-7154)/((-26)/5) 05370038
541: GO TO 45410 05380038
542: 35410 IVDELE = IVDELE + 1 05390038
543: WRITE (I02,80003) IVTNUM 05400038
544: IF (ICZERO) 45410, 5421, 45410 05410038
545: 45410 IF (IVCOMP - 1430) 25410,15410,25410 05420038
546: 15410 IVPASS = IVPASS + 1 05430038
547: WRITE (I02,80001) IVTNUM 05440038
548: GO TO 5421 05450038
549: 25410 IVFAIL = IVFAIL + 1 05460038
550: IVCORR = 1430 05470038
551: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 05480038
552: 5421 CONTINUE 05490038
553: IVTNUM = 542 05500038
554: C 05510038
555: C **** TEST 542 **** 05520038
556: C 05530038
557: IF (ICZERO) 35420, 5420, 35420 05540038
558: 5420 CONTINUE 05550038
559: IVCOMP = 7154/((-26)/(-5)) 05560038
560: GO TO 45420 05570038
561: 35420 IVDELE = IVDELE + 1 05580038
562: WRITE (I02,80003) IVTNUM 05590038
563: IF (ICZERO) 45420, 5431, 45420 05600038
564: 45420 IF (IVCOMP - 1430) 25420,15420,25420 05610038
565: 15420 IVPASS = IVPASS + 1 05620038
566: WRITE (I02,80001) IVTNUM 05630038
567: GO TO 5431 05640038
568: 25420 IVFAIL = IVFAIL + 1 05650038
569: IVCORR = 1430 05660038
570: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 05670038
571: 5431 CONTINUE 05680038
572: IVTNUM = 543 05690038
573: C 05700038
574: C **** TEST 543 **** 05710038
575: C 05720038
576: IF (ICZERO) 35430, 5430, 35430 05730038
577: 5430 CONTINUE 05740038
578: IVCOMP = (-7154)/((-26)/(-5)) 05750038
579: GO TO 45430 05760038
580: 35430 IVDELE = IVDELE + 1 05770038
581: WRITE (I02,80003) IVTNUM 05780038
582: IF (ICZERO) 45430, 5441, 45430 05790038
583: 45430 IF (IVCOMP + 1430) 25430,15430,25430 05800038
584: 15430 IVPASS = IVPASS + 1 05810038
585: WRITE (I02,80001) IVTNUM 05820038
586: GO TO 5441 05830038
587: 25430 IVFAIL = IVFAIL + 1 05840038
588: IVCORR = -1430 05850038
589: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 05860038
590: C 05870038
591: C TEST 544 THROUGH TEST 547 CONTAIN ARITHMETIC ASSIGNMENT STATEMENTS05880038
592: C OF THE FORM INTEGER VARIABLE = INTEGER VARIABLE/INTEGER CONSTANT05890038
593: C 05900038
594: 5441 CONTINUE 05910038
595: IVTNUM = 544 05920038
596: C 05930038
597: C **** TEST 544 **** 05940038
598: C 05950038
599: IF (ICZERO) 35440, 5440, 35440 05960038
600: 5440 CONTINUE 05970038
601: IVON01 = 75 05980038
602: IVCOMP = IVON01/25 05990038
603: GO TO 45440 06000038
604: 35440 IVDELE = IVDELE + 1 06010038
605: WRITE (I02,80003) IVTNUM 06020038
606: IF (ICZERO) 45440, 5451, 45440 06030038
607: 45440 IF (IVCOMP - 3) 25440,15440,25440 06040038
608: 15440 IVPASS = IVPASS + 1 06050038
609: WRITE (I02,80001) IVTNUM 06060038
610: GO TO 5451 06070038
611: 25440 IVFAIL = IVFAIL + 1 06080038
612: IVCORR = 3 06090038
613: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 06100038
614: 5451 CONTINUE 06110038
615: IVTNUM = 545 06120038
616: C 06130038
617: C **** TEST 545 **** 06140038
618: C 06150038
619: IF (ICZERO) 35450, 5450, 35450 06160038
620: 5450 CONTINUE 06170038
621: IVON01 = -3575 06180038
622: IVCOMP = IVON01/25 06190038
623: GO TO 45450 06200038
624: 35450 IVDELE = IVDELE + 1 06210038
625: WRITE (I02,80003) IVTNUM 06220038
626: IF (ICZERO) 45450, 5461, 45450 06230038
627: 45450 IF (IVCOMP + 143) 25450,15450,25450 06240038
628: 15450 IVPASS = IVPASS + 1 06250038
629: WRITE (I02,80001) IVTNUM 06260038
630: GO TO 5461 06270038
631: 25450 IVFAIL = IVFAIL + 1 06280038
632: IVCORR = -143 06290038
633: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 06300038
634: 5461 CONTINUE 06310038
635: IVTNUM = 546 06320038
636: C 06330038
637: C **** TEST 546 **** 06340038
638: C 06350038
639: IF (ICZERO) 35460, 5460, 35460 06360038
640: 5460 CONTINUE 06370038
641: IVON01 = 3575 06380038
642: IVCOMP = IVON01/(-143) 06390038
643: GO TO 45460 06400038
644: 35460 IVDELE = IVDELE + 1 06410038
645: WRITE (I02,80003) IVTNUM 06420038
646: IF (ICZERO) 45460, 5471, 45460 06430038
647: 45460 IF (IVCOMP + 25) 25460,15460,25460 06440038
648: 15460 IVPASS = IVPASS + 1 06450038
649: WRITE (I02,80001) IVTNUM 06460038
650: GO TO 5471 06470038
651: 25460 IVFAIL = IVFAIL + 1 06480038
652: IVCORR = -25 06490038
653: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 06500038
654: 5471 CONTINUE 06510038
655: IVTNUM = 547 06520038
656: C 06530038
657: C **** TEST 547 **** 06540038
658: C 06550038
659: IF (ICZERO) 35470, 5470, 35470 06560038
660: 5470 CONTINUE 06570038
661: IVON01 = 959 06580038
662: IVCOMP = IVON01/120 06590038
663: GO TO 45470 06600038
664: 35470 IVDELE = IVDELE + 1 06610038
665: WRITE (I02,80003) IVTNUM 06620038
666: IF (ICZERO) 45470, 5481, 45470 06630038
667: 45470 IF (IVCOMP -7) 25470,15470,25470 06640038
668: 15470 IVPASS = IVPASS + 1 06650038
669: WRITE (I02,80001) IVTNUM 06660038
670: GO TO 5481 06670038
671: 25470 IVFAIL = IVFAIL + 1 06680038
672: IVCORR = 7 06690038
673: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 06700038
674: C 06710038
675: C TEST 548 THROUGH TEST 551 CONTAIN ARITHMETIC ASSIGNMENT STATEMENTS06720038
676: C OF THE FORM INTEGER VARIABLE =INTEGER CONSTANT/INTEGER VARIABLE.06730038
677: C 06740038
678: 5481 CONTINUE 06750038
679: IVTNUM = 548 06760038
680: C 06770038
681: C **** TEST 548 **** 06780038
682: C 06790038
683: IF (ICZERO) 35480, 5480, 35480 06800038
684: 5480 CONTINUE 06810038
685: IVON02 = 25 06820038
686: IVCOMP = 75/IVON02 06830038
687: GO TO 45480 06840038
688: 35480 IVDELE = IVDELE + 1 06850038
689: WRITE (I02,80003) IVTNUM 06860038
690: IF (ICZERO) 45480, 5491, 45480 06870038
691: 45480 IF (IVCOMP - 3) 25480,15480,25480 06880038
692: 15480 IVPASS = IVPASS + 1 06890038
693: WRITE (I02,80001) IVTNUM 06900038
694: GO TO 5491 06910038
695: 25480 IVFAIL = IVFAIL + 1 06920038
696: IVCORR = 3 06930038
697: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 06940038
698: 5491 CONTINUE 06950038
699: IVTNUM = 549 06960038
700: C 06970038
701: C **** TEST 549 **** 06980038
702: C 06990038
703: IF (ICZERO) 35490, 5490, 35490 07000038
704: 5490 CONTINUE 07010038
705: IVON02 = -25 07020038
706: IVCOMP = 3579/IVON02 07030038
707: GO TO 45490 07040038
708: 35490 IVDELE = IVDELE + 1 07050038
709: WRITE (I02,80003) IVTNUM 07060038
710: IF (ICZERO) 45490, 5501, 45490 07070038
711: 45490 IF (IVCOMP + 143) 25490,15490,25490 07080038
712: 15490 IVPASS = IVPASS + 1 07090038
713: WRITE (I02,80001) IVTNUM 07100038
714: GO TO 5501 07110038
715: 25490 IVFAIL = IVFAIL + 1 07120038
716: IVCORR = -143 07130038
717: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 07140038
718: 5501 CONTINUE 07150038
719: IVTNUM = 550 07160038
720: C 07170038
721: C **** TEST 550 **** 07180038
722: C 07190038
723: IF (ICZERO) 35500, 5500, 35500 07200038
724: 5500 CONTINUE 07210038
725: IVON02 = -143 07220038
726: IVCOMP = (-3575)/IVON02 07230038
727: GO TO 45500 07240038
728: 35500 IVDELE = IVDELE + 1 07250038
729: WRITE (I02,80003) IVTNUM 07260038
730: IF (ICZERO) 45500, 5511, 45500 07270038
731: 45500 IF (IVCOMP - 25) 25500,15500,25500 07280038
732: 15500 IVPASS = IVPASS + 1 07290038
733: WRITE (I02,80001) IVTNUM 07300038
734: GO TO 5511 07310038
735: 25500 IVFAIL = IVFAIL + 1 07320038
736: IVCORR = 25 07330038
737: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 07340038
738: 5511 CONTINUE 07350038
739: IVTNUM = 551 07360038
740: C 07370038
741: C **** TEST 551 **** 07380038
742: C 07390038
743: IF (ICZERO) 35510, 5510, 35510 07400038
744: 5510 CONTINUE 07410038
745: IVON02 = 120 07420038
746: IVCOMP = -959/IVON02 07430038
747: GO TO 45510 07440038
748: 35510 IVDELE = IVDELE + 1 07450038
749: WRITE (I02,80003) IVTNUM 07460038
750: IF (ICZERO) 45510, 5521, 45510 07470038
751: 45510 IF (IVCOMP + 7) 25510,15510,25510 07480038
752: 15510 IVPASS = IVPASS + 1 07490038
753: WRITE (I02,80001) IVTNUM 07500038
754: GO TO 5521 07510038
755: 25510 IVFAIL = IVFAIL + 1 07520038
756: IVCORR = -7 07530038
757: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 07540038
758: C **** END OF TESTS **** 07550038
759: 5521 CONTINUE 07560038
760: C 07570038
761: C WRITE PAGE FOOTINGS AND RUN SUMMARIES 07580038
762: 99999 CONTINUE 07590038
763: WRITE (I02,90002) 07600038
764: WRITE (I02,90006) 07610038
765: WRITE (I02,90002) 07620038
766: WRITE (I02,90002) 07630038
767: WRITE (I02,90007) 07640038
768: WRITE (I02,90002) 07650038
769: WRITE (I02,90008) IVFAIL 07660038
770: WRITE (I02,90009) IVPASS 07670038
771: WRITE (I02,90010) IVDELE 07680038
772: C 07690038
773: C 07700038
774: C TERMINATE ROUTINE EXECUTION 07710038
775: STOP 07720038
776: C 07730038
777: C FORMAT STATEMENTS FOR PAGE HEADERS 07740038
778: 90000 FORMAT (1H1) 07750038
779: 90002 FORMAT (1H ) 07760038
780: 90001 FORMAT (1H ,10X,34HFORTRAN COMPILER VALIDATION SYSTEM) 07770038
781: 90003 FORMAT (1H ,21X,11HVERSION 1.0) 07780038
782: 90004 FORMAT (1H ,10X,38HFOR OFFICIAL USE ONLY - COPYRIGHT 1978) 07790038
783: 90005 FORMAT (1H ,5X,4HTEST,5X,9HPASS/FAIL, 5X,8HCOMPUTED,8X,7HCORRECT) 07800038
784: 90006 FORMAT (1H ,5X,46H----------------------------------------------) 07810038
785: 90011 FORMAT (1H ,18X,17HSUBSET LEVEL TEST) 07820038
786: C 07830038
787: C FORMAT STATEMENTS FOR RUN SUMMARIES 07840038
788: 90008 FORMAT (1H ,15X,I5,19H ERRORS ENCOUNTERED) 07850038
789: 90009 FORMAT (1H ,15X,I5,13H TESTS PASSED) 07860038
790: 90010 FORMAT (1H ,15X,I5,14H TESTS DELETED) 07870038
791: C 07880038
792: C FORMAT STATEMENTS FOR TEST RESULTS 07890038
793: 80001 FORMAT (1H ,4X,I5,7X,4HPASS) 07900038
794: 80002 FORMAT (1H ,4X,I5,7X,4HFAIL) 07910038
795: 80003 FORMAT (1H ,4X,I5,7X,7HDELETED) 07920038
796: 80004 FORMAT (1H ,4X,I5,7X,4HFAIL,10X,I6,9X,I6) 07930038
797: 80005 FORMAT (1H ,4X,I5,7X,4HFAIL,4X,E12.5,3X,E12.5) 07940038
798: C 07950038
799: 90007 FORMAT (1H ,20X,20HEND OF PROGRAM FM038) 07960038
800: END 07970038
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.