![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to FM031.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 FM031.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 00010031
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 00020031
6: C FM031 00030031
7: C 00040031
8: C THIS ROUTINE TESTS ARITHMETIC ASSIGNMENT STATEMENTS OF THE 00050031
9: C FORM 00060031
10: C INTEGER VARIABLE = ARITHMETIC EXPRESSION 00070031
11: C WHERE THE ARITHMETIC EXPRESSION IS FORMED WITH THE ARITHMETIC 00080031
12: C OPERATOR -, INTEGER CONSTANTS AND INTEGER VARIABLES. SOME OF THE 00090031
13: C TESTS USE PARENTHESES TO GROUP ELEMENTS IN AN ARITHMETIC 00100031
14: C EXPRESSION. 00110031
15: C 00120031
16: C THERE ARE TESTS WHERE THE ARITHMETIC EXPRESSION CONTAINS 00130031
17: C (1) INTEGER CONSTANT-INTEGER CONSTANT-INTEGER VARIABLE 00140031
18: C INTEGER CONSTANT-INTEGER VARIABLE-INTEGER CONSTANT 00150031
19: C INTEGER VARIABLE-INTEGER CONSTANT-INTEGER CONSTANT 00160031
20: C (2) SAME AS (1) BUT WITH PARENTHESES TO GROUP ELEMENTS 00170031
21: C IN ARITHMETIC EXPRESSION. 00180031
22: C (3) INTEGER VARIABLE - INTEGER VARIABLE 00190031
23: C 00200031
24: C REFERENCES 00210031
25: C AMERICAN NATIONAL STANDARD PROGRAMMING LANGUAGE FORTRAN, 00220031
26: C X3.9-1978 00230031
27: C 00240031
28: C SECTION 4.3, INTEGER TYPE 00250031
29: C SECTION 4.3.1, INTEGER CONSTANT 00260031
30: C SECTION 6.1, ARITHMETIC EXPRESSIONS 00270031
31: C SECTION 10.1, ARITHMETIC ASSIGNMENT STATEMENT 00280031
32: C 00290031
33: C ********************************************************** 00300031
34: C 00310031
35: C A COMPILER VALIDATION SYSTEM FOR THE FORTRAN LANGUAGE 00320031
36: C BASED ON SPECIFICATIONS AS DEFINED IN AMERICAN NATIONAL STANDARD 00330031
37: C PROGRAMMING LANGUAGE FORTRAN X3.9-1978, HAS BEEN DEVELOPED BY THE 00340031
38: C FEDERAL COBOL COMPILER TESTING SERVICE. THE FORTRAN COMPILER 00350031
39: C VALIDATION SYSTEM (FCVS) CONSISTS OF AUDIT ROUTINES, THEIR RELATED00360031
40: C DATA, AND AN EXECUTIVE SYSTEM. EACH AUDIT ROUTINE IS A FORTRAN 00370031
41: C PROGRAM, SUBPROGRAM OR FUNCTION WHICH INCLUDES TESTS OF SPECIFIC 00380031
42: C LANGUAGE ELEMENTS AND SUPPORTING PROCEDURES INDICATING THE RESULT 00390031
43: C OF EXECUTING THESE TESTS. 00400031
44: C 00410031
45: C THIS PARTICULAR PROGRAM/SUBPROGRAM/FUNCTION CONTAINS FEATURES 00420031
46: C FOUND ONLY IN THE SUBSET AS DEFINED IN X3.9-1978. 00430031
47: C 00440031
48: C SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO - 00450031
49: C 00460031
50: C DEPARTMENT OF THE NAVY 00470031
51: C FEDERAL COBOL COMPILER TESTING SERVICE 00480031
52: C WASHINGTON, D.C. 20376 00490031
53: C 00500031
54: C ********************************************************** 00510031
55: C 00520031
56: C 00530031
57: C 00540031
58: C INITIALIZATION SECTION 00550031
59: C 00560031
60: C INITIALIZE CONSTANTS 00570031
61: C ************** 00580031
62: C I01 CONTAINS THE LOGICAL UNIT NUMBER FOR THE CARD READER. 00590031
63: I01 = 5 00600031
64: C I02 CONTAINS THE LOGICAL UNIT NUMBER FOR THE PRINTER. 00610031
65: I02 = 6 00620031
66: C SYSTEM ENVIRONMENT SECTION 00630031
67: C 00640031
68: I01 = 5 00650031
69: C THE CX010 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I01 = 5 00660031
70: C (UNIT NUMBER FOR CARD READER). 00670031
71: CX011 THIS CARD IS REPLACED BY CONTENTS OF FEXEC X-011 CONTROL CARD. 00680031
72: C THE CX011 CARD IS FOR SYSTEMS WHICH REQUIRE ADDITIONAL 00690031
73: C FORTRAN STATEMENTS FOR FILES ASSOCIATED WITH CX010 ABOVE. 00700031
74: C 00710031
75: I02 = 6 00720031
76: C THE CX020 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I02 = 6 00730031
77: C (UNIT NUMBER FOR PRINTER). 00740031
78: CX021 THIS CARD IS REPLACED BY CONTENTS OF FEXEC X-021 CONTROL CARD. 00750031
79: C THE CX021 CARD IS FOR SYSTEMS WHICH REQUIRE ADDITIONAL 00760031
80: C FORTRAN STATEMENTS FOR FILES ASSOCIATED WITH CX020 ABOVE. 00770031
81: C 00780031
82: IVPASS=0 00790031
83: IVFAIL=0 00800031
84: IVDELE=0 00810031
85: ICZERO=0 00820031
86: C 00830031
87: C WRITE PAGE HEADERS 00840031
88: WRITE (I02,90000) 00850031
89: WRITE (I02,90001) 00860031
90: WRITE (I02,90002) 00870031
91: WRITE (I02, 90002) 00880031
92: WRITE (I02,90003) 00890031
93: WRITE (I02,90002) 00900031
94: WRITE (I02,90004) 00910031
95: WRITE (I02,90002) 00920031
96: WRITE (I02,90011) 00930031
97: WRITE (I02,90002) 00940031
98: WRITE (I02,90002) 00950031
99: WRITE (I02,90005) 00960031
100: WRITE (I02,90006) 00970031
101: WRITE (I02,90002) 00980031
102: C 00990031
103: C TEST SECTION 01000031
104: C 01010031
105: C TEST 300 THROUGH TEST 309 CONTAIN 2 INTEGER CONSTANTS, AN INTEGER 01020031
106: C VARIABLE AND OPERATOR - IN AN ARITHMETIC EXPRESSION. 01030031
107: C 01040031
108: 3001 CONTINUE 01050031
109: IVTNUM = 300 01060031
110: C 01070031
111: C **** TEST 300 **** 01080031
112: C 01090031
113: IF (ICZERO) 33000, 3000, 33000 01100031
114: 3000 CONTINUE 01110031
115: IVON01 = 9 01120031
116: IVCOMP =IVON01 -3 -4 01130031
117: GO TO 43000 01140031
118: 33000 IVDELE = IVDELE + 1 01150031
119: WRITE (I02,80003) IVTNUM 01160031
120: IF (ICZERO) 43000, 3011, 43000 01170031
121: 43000 IF (IVCOMP-2) 23000,13000,23000 01180031
122: 13000 IVPASS = IVPASS + 1 01190031
123: WRITE (I02,80001) IVTNUM 01200031
124: GO TO 3011 01210031
125: 23000 IVFAIL = IVFAIL + 1 01220031
126: IVCORR =2 01230031
127: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 01240031
128: 3011 CONTINUE 01250031
129: IVTNUM = 301 01260031
130: C 01270031
131: C **** TEST 301 **** 01280031
132: C 01290031
133: IF (ICZERO) 33010, 3010, 33010 01300031
134: 3010 CONTINUE 01310031
135: IVON02 =3 01320031
136: IVCOMP =9-IVON02-4 01330031
137: GO TO 43010 01340031
138: 33010 IVDELE = IVDELE + 1 01350031
139: WRITE (I02,80003) IVTNUM 01360031
140: IF (ICZERO) 43010, 3021, 43010 01370031
141: 43010 IF (IVCOMP-2) 23010,13010,23010 01380031
142: 13010 IVPASS = IVPASS + 1 01390031
143: WRITE (I02,80001) IVTNUM 01400031
144: GO TO 3021 01410031
145: 23010 IVFAIL = IVFAIL + 1 01420031
146: IVCORR =2 01430031
147: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 01440031
148: 3021 CONTINUE 01450031
149: IVTNUM = 302 01460031
150: C 01470031
151: C **** TEST 302 **** 01480031
152: C 01490031
153: IF (ICZERO) 33020, 3020, 33020 01500031
154: 3020 CONTINUE 01510031
155: IVON03 = 4 01520031
156: IVCOMP = 9-3-IVON03 01530031
157: GO TO 43020 01540031
158: 33020 IVDELE = IVDELE + 1 01550031
159: WRITE (I02,80003) IVTNUM 01560031
160: IF (ICZERO) 43020, 3031, 43020 01570031
161: 43020 IF (IVCOMP-2) 23020,13020,23020 01580031
162: 13020 IVPASS = IVPASS + 1 01590031
163: WRITE (I02,80001) IVTNUM 01600031
164: GO TO 3031 01610031
165: 23020 IVFAIL = IVFAIL + 1 01620031
166: IVCORR =2 01630031
167: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 01640031
168: 3031 CONTINUE 01650031
169: IVTNUM = 303 01660031
170: C 01670031
171: C **** TEST 303 **** 01680031
172: C 01690031
173: IF (ICZERO) 33030, 3030, 33030 01700031
174: 3030 CONTINUE 01710031
175: IVON01 = 57 01720031
176: IVCOMP = IVON01 -25-22 01730031
177: GO TO 43030 01740031
178: 33030 IVDELE = IVDELE + 1 01750031
179: WRITE (I02,80003) IVTNUM 01760031
180: IF (ICZERO) 43030, 3041, 43030 01770031
181: 43030 IF (IVCOMP-10) 23030,13030,23030 01780031
182: 13030 IVPASS = IVPASS + 1 01790031
183: WRITE (I02,80001) IVTNUM 01800031
184: GO TO 3041 01810031
185: 23030 IVFAIL = IVFAIL + 1 01820031
186: IVCORR = 10 01830031
187: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 01840031
188: 3041 CONTINUE 01850031
189: IVTNUM = 304 01860031
190: C 01870031
191: C **** TEST 304 **** 01880031
192: C 01890031
193: IF (ICZERO) 33040, 3040, 33040 01900031
194: 3040 CONTINUE 01910031
195: IVON02 =683 01920031
196: IVCOMP = 101-IVON02-156 01930031
197: GO TO 43040 01940031
198: 33040 IVDELE = IVDELE + 1 01950031
199: WRITE (I02,80003) IVTNUM 01960031
200: IF (ICZERO) 43040, 3051, 43040 01970031
201: 43040 IF (IVCOMP+738) 23040,13040,23040 01980031
202: 13040 IVPASS = IVPASS + 1 01990031
203: WRITE (I02,80001) IVTNUM 02000031
204: GO TO 3051 02010031
205: 23040 IVFAIL = IVFAIL + 1 02020031
206: IVCORR = -738 02030031
207: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 02040031
208: 3051 CONTINUE 02050031
209: IVTNUM = 305 02060031
210: C 02070031
211: C **** TEST 305 **** 02080031
212: C 02090031
213: IF (ICZERO) 33050, 3050, 33050 02100031
214: 3050 CONTINUE 02110031
215: IVON03 = 1289 02120031
216: IVCOMP = 8542-1122-IVON03 02130031
217: GO TO 43050 02140031
218: 33050 IVDELE = IVDELE + 1 02150031
219: WRITE (I02,80003) IVTNUM 02160031
220: IF (ICZERO) 43050, 3061, 43050 02170031
221: 43050 IF (IVCOMP-6131) 23050,13050,23050 02180031
222: 13050 IVPASS = IVPASS + 1 02190031
223: WRITE (I02,80001) IVTNUM 02200031
224: GO TO 3061 02210031
225: 23050 IVFAIL = IVFAIL + 1 02220031
226: IVCORR = 6131 02230031
227: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 02240031
228: 3061 CONTINUE 02250031
229: IVTNUM = 306 02260031
230: C 02270031
231: C **** TEST 306 **** 02280031
232: C 02290031
233: IF (ICZERO) 33060, 3060, 33060 02300031
234: 3060 CONTINUE 02310031
235: IVON03 = 11111 02320031
236: IVCOMP = 32333-11111-IVON03 02330031
237: GO TO 43060 02340031
238: 33060 IVDELE = IVDELE + 1 02350031
239: WRITE (I02,80003) IVTNUM 02360031
240: IF (ICZERO) 43060, 3071, 43060 02370031
241: 43060 IF (IVCOMP-10111) 23060,13060,23060 02380031
242: 13060 IVPASS = IVPASS + 1 02390031
243: WRITE (I02,80001) IVTNUM 02400031
244: GO TO 3071 02410031
245: 23060 IVFAIL = IVFAIL + 1 02420031
246: IVCORR =10111 02430031
247: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 02440031
248: 3071 CONTINUE 02450031
249: IVTNUM = 307 02460031
250: C 02470031
251: C **** TEST 307 **** 02480031
252: C 02490031
253: IF (ICZERO) 33070, 3070, 33070 02500031
254: 3070 CONTINUE 02510031
255: IVON01 = -3 02520031
256: IVCOMP = IVON01-2-4 02530031
257: GO TO 43070 02540031
258: 33070 IVDELE = IVDELE + 1 02550031
259: WRITE (I02,80003) IVTNUM 02560031
260: IF (ICZERO) 43070, 3081, 43070 02570031
261: 43070 IF (IVCOMP +9) 23070,13070,23070 02580031
262: 13070 IVPASS = IVPASS + 1 02590031
263: WRITE (I02,80001) IVTNUM 02600031
264: GO TO 3081 02610031
265: 23070 IVFAIL = IVFAIL + 1 02620031
266: IVCORR =-9 02630031
267: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 02640031
268: 3081 CONTINUE 02650031
269: IVTNUM = 308 02660031
270: C 02670031
271: C **** TEST 308 **** 02680031
272: C 02690031
273: IF (ICZERO) 33080, 3080, 33080 02700031
274: 3080 CONTINUE 02710031
275: IVON02 =-9 02720031
276: IVCOMP =1-IVON02-4 02730031
277: GO TO 43080 02740031
278: 33080 IVDELE = IVDELE + 1 02750031
279: WRITE (I02,80003) IVTNUM 02760031
280: IF (ICZERO) 43080, 3091, 43080 02770031
281: 43080 IF (IVCOMP-6) 23080,13080,23080 02780031
282: 13080 IVPASS = IVPASS + 1 02790031
283: WRITE (I02,80001) IVTNUM 02800031
284: GO TO 3091 02810031
285: 23080 IVFAIL = IVFAIL + 1 02820031
286: IVCORR = 6 02830031
287: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 02840031
288: 3091 CONTINUE 02850031
289: IVTNUM = 309 02860031
290: C 02870031
291: C **** TEST 309 **** 02880031
292: C 02890031
293: IF (ICZERO) 33090, 3090, 33090 02900031
294: 3090 CONTINUE 02910031
295: IVON03 = -8542 02920031
296: IVCOMP = 100-3-IVON03 02930031
297: GO TO 43090 02940031
298: 33090 IVDELE = IVDELE + 1 02950031
299: WRITE (I02,80003) IVTNUM 02960031
300: IF (ICZERO) 43090, 3101, 43090 02970031
301: 43090 IF (IVCOMP-8639) 23090,13090,23090 02980031
302: 13090 IVPASS = IVPASS + 1 02990031
303: WRITE (I02,80001) IVTNUM 03000031
304: GO TO 3101 03010031
305: 23090 IVFAIL = IVFAIL + 1 03020031
306: IVCORR = 8639 03030031
307: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 03040031
308: C 03050031
309: C TEST 310 THROUGH TEST 319 CONTAIN 2 INTEGER CONSTANTS, AN INTEGER 03060031
310: C VARIABLE AND OPERATOR - IN AN ARITHMETIC EXPRESSION. PARENTHESES 03070031
311: C ARE USED TO GROUP ELEMENTS IN THE ARITHMETIC EXPRESSION. 03080031
312: C 03090031
313: 3101 CONTINUE 03100031
314: IVTNUM = 310 03110031
315: C 03120031
316: C **** TEST 310 **** 03130031
317: C 03140031
318: IF (ICZERO) 33100, 3100, 33100 03150031
319: 3100 CONTINUE 03160031
320: IVON01 =9 03170031
321: IVCOMP = IVON01-(3-4) 03180031
322: GO TO 43100 03190031
323: 33100 IVDELE = IVDELE + 1 03200031
324: WRITE (I02,80003) IVTNUM 03210031
325: IF (ICZERO) 43100, 3111, 43100 03220031
326: 43100 IF (IVCOMP-10) 23100,13100,23100 03230031
327: 13100 IVPASS = IVPASS + 1 03240031
328: WRITE (I02,80001) IVTNUM 03250031
329: GO TO 3111 03260031
330: 23100 IVFAIL = IVFAIL + 1 03270031
331: IVCORR=10 03280031
332: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 03290031
333: 3111 CONTINUE 03300031
334: IVTNUM = 311 03310031
335: C 03320031
336: C **** TEST 311 **** 03330031
337: C 03340031
338: IF (ICZERO) 33110, 3110, 33110 03350031
339: 3110 CONTINUE 03360031
340: IVON01=9 03370031
341: IVCOMP=(IVON01-3)-4 03380031
342: GO TO 43110 03390031
343: 33110 IVDELE = IVDELE + 1 03400031
344: WRITE (I02,80003) IVTNUM 03410031
345: IF (ICZERO) 43110, 3121, 43110 03420031
346: 43110 IF (IVCOMP-2) 23110,13110,23110 03430031
347: 13110 IVPASS = IVPASS + 1 03440031
348: WRITE (I02,80001) IVTNUM 03450031
349: GO TO 3121 03460031
350: 23110 IVFAIL = IVFAIL + 1 03470031
351: IVCORR =2 03480031
352: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 03490031
353: 3121 CONTINUE 03500031
354: IVTNUM = 312 03510031
355: C 03520031
356: C **** TEST 312 **** 03530031
357: C 03540031
358: IF (ICZERO) 33120, 3120, 33120 03550031
359: 3120 CONTINUE 03560031
360: IVON02 = 3 03570031
361: IVCOMP = 9-(IVON02-4) 03580031
362: GO TO 43120 03590031
363: 33120 IVDELE = IVDELE + 1 03600031
364: WRITE (I02,80003) IVTNUM 03610031
365: IF (ICZERO) 43120, 3131, 43120 03620031
366: 43120 IF (IVCOMP-10) 23120,13120,23120 03630031
367: 13120 IVPASS = IVPASS + 1 03640031
368: WRITE (I02,80001) IVTNUM 03650031
369: GO TO 3131 03660031
370: 23120 IVFAIL = IVFAIL + 1 03670031
371: IVCORR = 10 03680031
372: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 03690031
373: 3131 CONTINUE 03700031
374: IVTNUM = 313 03710031
375: C 03720031
376: C **** TEST 313 **** 03730031
377: C 03740031
378: IF (ICZERO) 33130, 3130, 33130 03750031
379: 3130 CONTINUE 03760031
380: IVON02 = 3 03770031
381: IVCOMP = (9-IVON02) -4 03780031
382: GO TO 43130 03790031
383: 33130 IVDELE = IVDELE + 1 03800031
384: WRITE (I02,80003) IVTNUM 03810031
385: IF (ICZERO) 43130, 3141, 43130 03820031
386: 43130 IF (IVCOMP-2) 23130,13130,23130 03830031
387: 13130 IVPASS = IVPASS + 1 03840031
388: WRITE (I02,80001) IVTNUM 03850031
389: GO TO 3141 03860031
390: 23130 IVFAIL = IVFAIL + 1 03870031
391: IVCORR = 2 03880031
392: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 03890031
393: 3141 CONTINUE 03900031
394: IVTNUM = 314 03910031
395: C 03920031
396: C **** TEST 314 **** 03930031
397: C 03940031
398: IF (ICZERO) 33140, 3140, 33140 03950031
399: 3140 CONTINUE 03960031
400: IVON03 = 4 03970031
401: IVCOMP = 9 -(3-IVON03) 03980031
402: GO TO 43140 03990031
403: 33140 IVDELE = IVDELE + 1 04000031
404: WRITE (I02,80003) IVTNUM 04010031
405: IF (ICZERO) 43140, 3151, 43140 04020031
406: 43140 IF (IVCOMP-10) 23140,13140,23140 04030031
407: 13140 IVPASS = IVPASS + 1 04040031
408: WRITE (I02,80001) IVTNUM 04050031
409: GO TO 3151 04060031
410: 23140 IVFAIL = IVFAIL + 1 04070031
411: IVCORR = 10 04080031
412: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 04090031
413: 3151 CONTINUE 04100031
414: IVTNUM = 315 04110031
415: C 04120031
416: C **** TEST 315 **** 04130031
417: C 04140031
418: IF (ICZERO) 33150, 3150, 33150 04150031
419: 3150 CONTINUE 04160031
420: IVON03 = 4 04170031
421: IVCOMP = (9-3)-IVON03 04180031
422: GO TO 43150 04190031
423: 33150 IVDELE = IVDELE + 1 04200031
424: WRITE (I02,80003) IVTNUM 04210031
425: IF (ICZERO) 43150, 3161, 43150 04220031
426: 43150 IF (IVCOMP-2) 23150,13150,23150 04230031
427: 13150 IVPASS = IVPASS + 1 04240031
428: WRITE (I02,80001) IVTNUM 04250031
429: GO TO 3161 04260031
430: 23150 IVFAIL = IVFAIL + 1 04270031
431: IVCORR = 2 04280031
432: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 04290031
433: 3161 CONTINUE 04300031
434: IVTNUM = 316 04310031
435: C 04320031
436: C **** TEST 316 **** 04330031
437: C 04340031
438: IF (ICZERO) 33160, 3160, 33160 04350031
439: 3160 CONTINUE 04360031
440: IVON01 = -9 04370031
441: IVCOMP = (IVON01-3)-4 04380031
442: GO TO 43160 04390031
443: 33160 IVDELE = IVDELE + 1 04400031
444: WRITE (I02,80003) IVTNUM 04410031
445: IF (ICZERO) 43160, 3171, 43160 04420031
446: 43160 IF (IVCOMP +16) 23160,13160,23160 04430031
447: 13160 IVPASS = IVPASS + 1 04440031
448: WRITE (I02,80001) IVTNUM 04450031
449: GO TO 3171 04460031
450: 23160 IVFAIL = IVFAIL + 1 04470031
451: IVCORR = -16 04480031
452: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 04490031
453: 3171 CONTINUE 04500031
454: IVTNUM = 317 04510031
455: C 04520031
456: C **** TEST 317 **** 04530031
457: C 04540031
458: IF (ICZERO) 33170, 3170, 33170 04550031
459: 3170 CONTINUE 04560031
460: IVON02 = -3 04570031
461: IVCOMP = 9-(IVON02-4) 04580031
462: GO TO 43170 04590031
463: 33170 IVDELE = IVDELE + 1 04600031
464: WRITE (I02,80003) IVTNUM 04610031
465: IF (ICZERO) 43170, 3181, 43170 04620031
466: 43170 IF (IVCOMP-16) 23170,13170,23170 04630031
467: 13170 IVPASS = IVPASS + 1 04640031
468: WRITE (I02,80001) IVTNUM 04650031
469: GO TO 3181 04660031
470: 23170 IVFAIL = IVFAIL + 1 04670031
471: IVCORR = 16 04680031
472: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 04690031
473: 3181 CONTINUE 04700031
474: IVTNUM = 318 04710031
475: C 04720031
476: C **** TEST 318 **** 04730031
477: C 04740031
478: IF (ICZERO) 33180, 3180, 33180 04750031
479: 3180 CONTINUE 04760031
480: IVON03 = +4 04770031
481: IVCOMP = 9 - (3 - IVON03) 04780031
482: GO TO 43180 04790031
483: 33180 IVDELE = IVDELE + 1 04800031
484: WRITE (I02,80003) IVTNUM 04810031
485: IF (ICZERO) 43180, 3191, 43180 04820031
486: 43180 IF (IVCOMP - 10) 23180,13180,23180 04830031
487: 13180 IVPASS = IVPASS + 1 04840031
488: WRITE (I02,80001) IVTNUM 04850031
489: GO TO 3191 04860031
490: 23180 IVFAIL = IVFAIL + 1 04870031
491: IVCORR= 10 04880031
492: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 04890031
493: 3191 CONTINUE 04900031
494: IVTNUM = 319 04910031
495: C 04920031
496: C **** TEST 319 **** 04930031
497: C 04940031
498: IF (ICZERO) 33190, 3190, 33190 04950031
499: 3190 CONTINUE 04960031
500: IVON02 = 11111 04970031
501: IVCOMP = (32333-IVON02) -11111 04980031
502: GO TO 43190 04990031
503: 33190 IVDELE = IVDELE + 1 05000031
504: WRITE (I02,80003) IVTNUM 05010031
505: IF (ICZERO) 43190, 3201, 43190 05020031
506: 43190 IF (IVCOMP - 10111) 23190,13190,23190 05030031
507: 13190 IVPASS = IVPASS + 1 05040031
508: WRITE (I02,80001) IVTNUM 05050031
509: GO TO 3201 05060031
510: 23190 IVFAIL = IVFAIL + 1 05070031
511: IVCORR = 10111 05080031
512: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 05090031
513: C 05100031
514: C TEST 320 THROUGH TEST 329 CONTAIN 2 INTEGER VARIABLES AND 05110031
515: C OPERATOR - IN AN ARITHMETIC EXPRESSION. THE INTEGER VARIABLES 05120031
516: C CONTAIN POSITIVE AND NEGATIVE VALUES. 05130031
517: C 05140031
518: 3201 CONTINUE 05150031
519: IVTNUM = 320 05160031
520: C 05170031
521: C **** TEST 320 **** 05180031
522: C 05190031
523: IF (ICZERO) 33200, 3200, 33200 05200031
524: 3200 CONTINUE 05210031
525: IVON01 = 3 05220031
526: IVON02 = 2 05230031
527: IVCOMP = IVON01 - IVON02 05240031
528: GO TO 43200 05250031
529: 33200 IVDELE = IVDELE + 1 05260031
530: WRITE (I02,80003) IVTNUM 05270031
531: IF (ICZERO) 43200, 3211, 43200 05280031
532: 43200 IF (IVCOMP - 1) 23200,13200,23200 05290031
533: 13200 IVPASS = IVPASS + 1 05300031
534: WRITE (I02,80001) IVTNUM 05310031
535: GO TO 3211 05320031
536: 23200 IVFAIL = IVFAIL + 1 05330031
537: IVCORR = 1 05340031
538: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 05350031
539: 3211 CONTINUE 05360031
540: IVTNUM = 321 05370031
541: C 05380031
542: C **** TEST 321 **** 05390031
543: C 05400031
544: IF (ICZERO) 33210, 3210, 33210 05410031
545: 3210 CONTINUE 05420031
546: IVON01 =2 05430031
547: IVON02 =3 05440031
548: IVCOMP = IVON01 - IVON02 05450031
549: GO TO 43210 05460031
550: 33210 IVDELE = IVDELE + 1 05470031
551: WRITE (I02,80003) IVTNUM 05480031
552: IF (ICZERO) 43210, 3221, 43210 05490031
553: 43210 IF (IVCOMP +1) 23210,13210,23210 05500031
554: 13210 IVPASS = IVPASS + 1 05510031
555: WRITE (I02,80001) IVTNUM 05520031
556: GO TO 3221 05530031
557: 23210 IVFAIL = IVFAIL + 1 05540031
558: IVCORR = -1 05550031
559: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 05560031
560: 3221 CONTINUE 05570031
561: IVTNUM = 322 05580031
562: C 05590031
563: C **** TEST 322 **** 05600031
564: C 05610031
565: IF (ICZERO) 33220, 3220, 33220 05620031
566: 3220 CONTINUE 05630031
567: IVON01 = -2 05640031
568: IVON02 = 3 05650031
569: IVCOMP = IVON01 - IVON02 05660031
570: GO TO 43220 05670031
571: 33220 IVDELE = IVDELE + 1 05680031
572: WRITE (I02,80003) IVTNUM 05690031
573: IF (ICZERO) 43220, 3231, 43220 05700031
574: 43220 IF (IVCOMP +5) 23220,13220,23220 05710031
575: 13220 IVPASS = IVPASS + 1 05720031
576: WRITE (I02,80001) IVTNUM 05730031
577: GO TO 3231 05740031
578: 23220 IVFAIL = IVFAIL + 1 05750031
579: IVCORR =-5 05760031
580: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 05770031
581: 3231 CONTINUE 05780031
582: IVTNUM = 323 05790031
583: C 05800031
584: C **** TEST 323 **** 05810031
585: C 05820031
586: IF (ICZERO) 33230, 3230, 33230 05830031
587: 3230 CONTINUE 05840031
588: IVON01 = -2 05850031
589: IVON02 = -3 05860031
590: IVCOMP = IVON01 - IVON02 05870031
591: GO TO 43230 05880031
592: 33230 IVDELE = IVDELE + 1 05890031
593: WRITE (I02,80003) IVTNUM 05900031
594: IF (ICZERO) 43230, 3241, 43230 05910031
595: 43230 IF (IVCOMP -1) 23230,13230,23230 05920031
596: 13230 IVPASS = IVPASS + 1 05930031
597: WRITE (I02,80001) IVTNUM 05940031
598: GO TO 3241 05950031
599: 23230 IVFAIL = IVFAIL + 1 05960031
600: IVCORR = 1 05970031
601: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 05980031
602: 3241 CONTINUE 05990031
603: IVTNUM = 324 06000031
604: C 06010031
605: C **** TEST 324 **** 06020031
606: C 06030031
607: IF (ICZERO) 33240, 3240, 33240 06040031
608: 3240 CONTINUE 06050031
609: IVON01 = 51 06060031
610: IVON02 = 52 06070031
611: IVCOMP = IVON01 - IVON02 06080031
612: GO TO 43240 06090031
613: 33240 IVDELE = IVDELE + 1 06100031
614: WRITE (I02,80003) IVTNUM 06110031
615: IF (ICZERO) 43240, 3251, 43240 06120031
616: 43240 IF (IVCOMP + 1) 23240,13240,23240 06130031
617: 13240 IVPASS = IVPASS + 1 06140031
618: WRITE (I02,80001) IVTNUM 06150031
619: GO TO 3251 06160031
620: 23240 IVFAIL = IVFAIL + 1 06170031
621: IVCORR = -1 06180031
622: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 06190031
623: 3251 CONTINUE 06200031
624: IVTNUM = 325 06210031
625: C 06220031
626: C **** TEST 325 **** 06230031
627: C 06240031
628: IF (ICZERO) 33250, 3250, 33250 06250031
629: 3250 CONTINUE 06260031
630: IVON01 = 676 06270031
631: IVON02 =-189 06280031
632: IVCOMP = IVON01 - IVON02 06290031
633: GO TO 43250 06300031
634: 33250 IVDELE = IVDELE + 1 06310031
635: WRITE (I02,80003) IVTNUM 06320031
636: IF (ICZERO) 43250, 3261, 43250 06330031
637: 43250 IF (IVCOMP - 865) 23250,13250,23250 06340031
638: 13250 IVPASS = IVPASS + 1 06350031
639: WRITE (I02,80001) IVTNUM 06360031
640: GO TO 3261 06370031
641: 23250 IVFAIL = IVFAIL + 1 06380031
642: IVCORR = 865 06390031
643: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 06400031
644: 3261 CONTINUE 06410031
645: IVTNUM = 326 06420031
646: C 06430031
647: C **** TEST 326 **** 06440031
648: C 06450031
649: IF (ICZERO) 33260, 3260, 33260 06460031
650: 3260 CONTINUE 06470031
651: IVON01 = 1358 06480031
652: IVON02 = -8001 06490031
653: IVCOMP = IVON01 - IVON02 06500031
654: GO TO 43260 06510031
655: 33260 IVDELE = IVDELE + 1 06520031
656: WRITE (I02,80003) IVTNUM 06530031
657: IF (ICZERO) 43260, 3271, 43260 06540031
658: 43260 IF (IVCOMP - 9359) 23260,13260,23260 06550031
659: 13260 IVPASS = IVPASS + 1 06560031
660: WRITE (I02,80001) IVTNUM 06570031
661: GO TO 3271 06580031
662: 23260 IVFAIL = IVFAIL + 1 06590031
663: IVCORR = 9359 06600031
664: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 06610031
665: 3271 CONTINUE 06620031
666: IVTNUM = 327 06630031
667: C 06640031
668: C **** TEST 327 **** 06650031
669: C 06660031
670: IF (ICZERO) 33270, 3270, 33270 06670031
671: 3270 CONTINUE 06680031
672: IVON01 =-16383 06690031
673: IVON02 = 16383 06700031
674: IVCOMP = IVON01 - IVON02 06710031
675: GO TO 43270 06720031
676: 33270 IVDELE = IVDELE + 1 06730031
677: WRITE (I02,80003) IVTNUM 06740031
678: IF (ICZERO) 43270, 3281, 43270 06750031
679: 43270 IF (IVCOMP + 32766) 23270,13270,23270 06760031
680: 13270 IVPASS = IVPASS + 1 06770031
681: WRITE (I02,80001) IVTNUM 06780031
682: GO TO 3281 06790031
683: 23270 IVFAIL = IVFAIL + 1 06800031
684: IVCORR = -32766 06810031
685: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 06820031
686: 3281 CONTINUE 06830031
687: IVTNUM = 328 06840031
688: C 06850031
689: C **** TEST 328 **** 06860031
690: C 06870031
691: IF (ICZERO) 33280, 3280, 33280 06880031
692: 3280 CONTINUE 06890031
693: IVON01 = 9876 06900031
694: IVON02 = 189 06910031
695: IVCOMP = IVON01 - IVON02 06920031
696: GO TO 43280 06930031
697: 33280 IVDELE = IVDELE + 1 06940031
698: WRITE (I02,80003) IVTNUM 06950031
699: IF (ICZERO) 43280, 3291, 43280 06960031
700: 43280 IF (IVCOMP - 9687) 23280,13280,23280 06970031
701: 13280 IVPASS = IVPASS + 1 06980031
702: WRITE (I02,80001) IVTNUM 06990031
703: GO TO 3291 07000031
704: 23280 IVFAIL = IVFAIL + 1 07010031
705: IVCORR = 9687 07020031
706: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 07030031
707: 3291 CONTINUE 07040031
708: IVTNUM = 329 07050031
709: C 07060031
710: C **** TEST 329 **** 07070031
711: C 07080031
712: IF (ICZERO) 33290, 3290, 33290 07090031
713: 3290 CONTINUE 07100031
714: IVON01 = 11112 07110031
715: IVON02 = 11112 07120031
716: IVCOMP = IVON01 - IVON02 07130031
717: GO TO 43290 07140031
718: 33290 IVDELE = IVDELE + 1 07150031
719: WRITE (I02,80003) IVTNUM 07160031
720: IF (ICZERO) 43290, 3301, 43290 07170031
721: 43290 IF (IVCOMP) 23290,13290,23290 07180031
722: 13290 IVPASS = IVPASS + 1 07190031
723: WRITE (I02,80001) IVTNUM 07200031
724: GO TO 3301 07210031
725: 23290 IVFAIL = IVFAIL + 1 07220031
726: IVCORR = 0 07230031
727: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 07240031
728: C 07250031
729: C **** END OF TESTS **** 07260031
730: 3301 CONTINUE 07270031
731: C 07280031
732: C WRITE PAGE FOOTINGS AND RUN SUMMARIES 07290031
733: 99999 CONTINUE 07300031
734: WRITE (I02,90002) 07310031
735: WRITE (I02,90006) 07320031
736: WRITE (I02,90002) 07330031
737: WRITE (I02,90002) 07340031
738: WRITE (I02,90007) 07350031
739: WRITE (I02,90002) 07360031
740: WRITE (I02,90008) IVFAIL 07370031
741: WRITE (I02,90009) IVPASS 07380031
742: WRITE (I02,90010) IVDELE 07390031
743: C 07400031
744: C 07410031
745: C TERMINATE ROUTINE EXECUTION 07420031
746: STOP 07430031
747: C 07440031
748: C FORMAT STATEMENTS FOR PAGE HEADERS 07450031
749: 90000 FORMAT (1H1) 07460031
750: 90002 FORMAT (1H ) 07470031
751: 90001 FORMAT (1H ,10X,34HFORTRAN COMPILER VALIDATION SYSTEM) 07480031
752: 90003 FORMAT (1H ,21X,11HVERSION 1.0) 07490031
753: 90004 FORMAT (1H ,10X,38HFOR OFFICIAL USE ONLY - COPYRIGHT 1978) 07500031
754: 90005 FORMAT (1H ,5X,4HTEST,5X,9HPASS/FAIL, 5X,8HCOMPUTED,8X,7HCORRECT) 07510031
755: 90006 FORMAT (1H ,5X,46H----------------------------------------------) 07520031
756: 90011 FORMAT (1H ,18X,17HSUBSET LEVEL TEST) 07530031
757: C 07540031
758: C FORMAT STATEMENTS FOR RUN SUMMARIES 07550031
759: 90008 FORMAT (1H ,15X,I5,19H ERRORS ENCOUNTERED) 07560031
760: 90009 FORMAT (1H ,15X,I5,13H TESTS PASSED) 07570031
761: 90010 FORMAT (1H ,15X,I5,14H TESTS DELETED) 07580031
762: C 07590031
763: C FORMAT STATEMENTS FOR TEST RESULTS 07600031
764: 80001 FORMAT (1H ,4X,I5,7X,4HPASS) 07610031
765: 80002 FORMAT (1H ,4X,I5,7X,4HFAIL) 07620031
766: 80003 FORMAT (1H ,4X,I5,7X,7HDELETED) 07630031
767: 80004 FORMAT (1H ,4X,I5,7X,4HFAIL,10X,I6,9X,I6) 07640031
768: 80005 FORMAT (1H ,4X,I5,7X,4HFAIL,4X,E12.5,3X,E12.5) 07650031
769: C 07660031
770: 90007 FORMAT (1H ,20X,20HEND OF PROGRAM FM031) 07670031
771: END 07680031
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.