![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to FM030.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 FM030.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. 00010030
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 00020030
6: C FM030 00030030
7: C 00040030
8: C THIS ROUTINE TESTS ARITHMETIC ASSIGNMENT STATEMENTS OF THE 00050030
9: C FORM 00060030
10: C INTEGER VARIABLE = ARITHMETIC EXPRESSION 00070030
11: C WHERE THE ARITHMETIC EXPRESSION IS FORMED WITH THE ARITHMETIC 00080030
12: C OPERATOR -, INTEGER CONSTANTS AND INTEGER VARIABLES. 00090030
13: C SOME OF THE TESTS USE PARENTHESES TO GROUP ELEMENTS IN THE 00100030
14: C ARITHMETIC EXPRESSION. 00110030
15: C 00120030
16: C THERE ARE TESTS WHERE THE ARITHMETIC EXPRESSION CONTAINS 00130030
17: C (1) INTEGER CONSTANT - INTEGER CONSTANT 00140030
18: C (2) INTEGER CONSTANT - INTEGER CONSTANT - INTEGER CONSTANT00150030
19: C (3) SAME AS (2) BUT WITH PARENTHESES TO GROUP ELEMENTS 00160030
20: C (4) INTEGER VARIABLE - INTEGER CONSTANT 00170030
21: C INTEGER CONSTANT - INTEGER VARIABLE 00180030
22: C 00190030
23: C REFERENCES 00200030
24: C AMERICAN NATIONAL STANDARD PROGRAMMING LANGUAGE FORTRAN, 00210030
25: C X3.9-1978 00220030
26: C 00230030
27: C SECTION 4.3, INTEGER TYPE 00240030
28: C SECTION 4.3.1, INTEGER CONSTANT 00250030
29: C SECTION 6.1, ARITHMETIC EXPRESSIONS 00260030
30: C SECTION 10.1, ARITHMETIC ASSIGNMENT STATEMENT 00270030
31: C 00280030
32: C 00290030
33: C ********************************************************** 00300030
34: C 00310030
35: C A COMPILER VALIDATION SYSTEM FOR THE FORTRAN LANGUAGE 00320030
36: C BASED ON SPECIFICATIONS AS DEFINED IN AMERICAN NATIONAL STANDARD 00330030
37: C PROGRAMMING LANGUAGE FORTRAN X3.9-1978, HAS BEEN DEVELOPED BY THE 00340030
38: C FEDERAL COBOL COMPILER TESTING SERVICE. THE FORTRAN COMPILER 00350030
39: C VALIDATION SYSTEM (FCVS) CONSISTS OF AUDIT ROUTINES, THEIR RELATED00360030
40: C DATA, AND AN EXECUTIVE SYSTEM. EACH AUDIT ROUTINE IS A FORTRAN 00370030
41: C PROGRAM, SUBPROGRAM OR FUNCTION WHICH INCLUDES TESTS OF SPECIFIC 00380030
42: C LANGUAGE ELEMENTS AND SUPPORTING PROCEDURES INDICATING THE RESULT 00390030
43: C OF EXECUTING THESE TESTS. 00400030
44: C 00410030
45: C THIS PARTICULAR PROGRAM/SUBPROGRAM/FUNCTION CONTAINS FEATURES 00420030
46: C FOUND ONLY IN THE SUBSET AS DEFINED IN X3.9-1978. 00430030
47: C 00440030
48: C SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO - 00450030
49: C 00460030
50: C DEPARTMENT OF THE NAVY 00470030
51: C FEDERAL COBOL COMPILER TESTING SERVICE 00480030
52: C WASHINGTON, D.C. 20376 00490030
53: C 00500030
54: C ********************************************************** 00510030
55: C 00520030
56: C 00530030
57: C 00540030
58: C INITIALIZATION SECTION 00550030
59: C 00560030
60: C INITIALIZE CONSTANTS 00570030
61: C ************** 00580030
62: C I01 CONTAINS THE LOGICAL UNIT NUMBER FOR THE CARD READER. 00590030
63: I01 = 5 00600030
64: C I02 CONTAINS THE LOGICAL UNIT NUMBER FOR THE PRINTER. 00610030
65: I02 = 6 00620030
66: C SYSTEM ENVIRONMENT SECTION 00630030
67: C 00640030
68: I01 = 5 00650030
69: C THE CX010 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I01 = 5 00660030
70: C (UNIT NUMBER FOR CARD READER). 00670030
71: CX011 THIS CARD IS REPLACED BY CONTENTS OF FEXEC X-011 CONTROL CARD. 00680030
72: C THE CX011 CARD IS FOR SYSTEMS WHICH REQUIRE ADDITIONAL 00690030
73: C FORTRAN STATEMENTS FOR FILES ASSOCIATED WITH CX010 ABOVE. 00700030
74: C 00710030
75: I02 = 6 00720030
76: C THE CX020 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I02 = 6 00730030
77: C (UNIT NUMBER FOR PRINTER). 00740030
78: CX021 THIS CARD IS REPLACED BY CONTENTS OF FEXEC X-021 CONTROL CARD. 00750030
79: C THE CX021 CARD IS FOR SYSTEMS WHICH REQUIRE ADDITIONAL 00760030
80: C FORTRAN STATEMENTS FOR FILES ASSOCIATED WITH CX020 ABOVE. 00770030
81: C 00780030
82: IVPASS=0 00790030
83: IVFAIL=0 00800030
84: IVDELE=0 00810030
85: ICZERO=0 00820030
86: C 00830030
87: C WRITE PAGE HEADERS 00840030
88: WRITE (I02,90000) 00850030
89: WRITE (I02,90001) 00860030
90: WRITE (I02,90002) 00870030
91: WRITE (I02, 90002) 00880030
92: WRITE (I02,90003) 00890030
93: WRITE (I02,90002) 00900030
94: WRITE (I02,90004) 00910030
95: WRITE (I02,90002) 00920030
96: WRITE (I02,90011) 00930030
97: WRITE (I02,90002) 00940030
98: WRITE (I02,90002) 00950030
99: WRITE (I02,90005) 00960030
100: WRITE (I02,90006) 00970030
101: WRITE (I02,90002) 00980030
102: C TEST SECTION 00990030
103: C 01000030
104: C ARITHMETIC ASSIGNMENT STATEMENT 01010030
105: C 01020030
106: C TEST 265 THROUGH TEST 270 CONTAIN TWO INTEGER CONSTANTS AND 01030030
107: C OPERATOR - IN AN ARITHMETIC EXPRESSION. THE FORM TESTED IS 01040030
108: C INTEGER VARIABLE = INTEGER CONSTANT - INTEGER CONSTANT 01050030
109: C 01060030
110: 2651 CONTINUE 01070030
111: IVTNUM = 265 01080030
112: C 01090030
113: C **** TEST 265 **** 01100030
114: C 01110030
115: IF (ICZERO) 32650, 2650, 32650 01120030
116: 2650 CONTINUE 01130030
117: IVCOMP = 3-2 01140030
118: GO TO 42650 01150030
119: 32650 IVDELE = IVDELE + 1 01160030
120: WRITE (I02,80003) IVTNUM 01170030
121: IF (ICZERO) 42650, 2661, 42650 01180030
122: 42650 IF (IVCOMP - 1) 22650,12650,22650 01190030
123: 12650 IVPASS = IVPASS + 1 01200030
124: WRITE (I02,80001) IVTNUM 01210030
125: GO TO 2661 01220030
126: 22650 IVFAIL = IVFAIL + 1 01230030
127: IVCORR = 1 01240030
128: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 01250030
129: 2661 CONTINUE 01260030
130: IVTNUM = 266 01270030
131: C 01280030
132: C **** TEST 266 **** 01290030
133: C 01300030
134: IF (ICZERO) 32660, 2660, 32660 01310030
135: 2660 CONTINUE 01320030
136: IVCOMP = 51 - 52 01330030
137: GO TO 42660 01340030
138: 32660 IVDELE = IVDELE + 1 01350030
139: WRITE (I02,80003) IVTNUM 01360030
140: IF (ICZERO) 42660, 2671, 42660 01370030
141: 42660 IF (IVCOMP +1) 22660,12660,22660 01380030
142: 12660 IVPASS = IVPASS + 1 01390030
143: WRITE (I02,80001) IVTNUM 01400030
144: GO TO 2671 01410030
145: 22660 IVFAIL = IVFAIL + 1 01420030
146: IVCORR = -1 01430030
147: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 01440030
148: 2671 CONTINUE 01450030
149: IVTNUM = 267 01460030
150: C 01470030
151: C **** TEST 267 *** 01480030
152: C 01490030
153: IF (ICZERO) 32670, 2670, 32670 01500030
154: 2670 CONTINUE 01510030
155: IVCOMP = 865 - 189 01520030
156: GO TO 42670 01530030
157: 32670 IVDELE = IVDELE + 1 01540030
158: WRITE (I02,80003) IVTNUM 01550030
159: IF (ICZERO) 42670, 2681, 42670 01560030
160: 42670 IF (IVCOMP -676) 22670,12670,22670 01570030
161: 12670 IVPASS = IVPASS + 1 01580030
162: WRITE (I02,80001) IVTNUM 01590030
163: GO TO 2681 01600030
164: 22670 IVFAIL = IVFAIL + 1 01610030
165: IVCORR = 676 01620030
166: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 01630030
167: 2681 CONTINUE 01640030
168: IVTNUM = 268 01650030
169: C 01660030
170: C **** TEST 268 **** 01670030
171: C 01680030
172: IF (ICZERO) 32680, 2680, 32680 01690030
173: 2680 CONTINUE 01700030
174: IVCOMP =1358-9359 01710030
175: GO TO 42680 01720030
176: 32680 IVDELE = IVDELE + 1 01730030
177: WRITE (I02,80003) IVTNUM 01740030
178: IF (ICZERO) 42680, 2691, 42680 01750030
179: 42680 IF (IVCOMP+8001) 22680,12680,22680 01760030
180: 12680 IVPASS = IVPASS + 1 01770030
181: WRITE (I02,80001) IVTNUM 01780030
182: GO TO 2691 01790030
183: 22680 IVFAIL = IVFAIL + 1 01800030
184: IVCORR = -8001 01810030
185: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 01820030
186: 2691 CONTINUE 01830030
187: IVTNUM = 269 01840030
188: C 01850030
189: C **** TEST 269 **** 01860030
190: C 01870030
191: IF (ICZERO) 32690, 2690, 32690 01880030
192: 2690 CONTINUE 01890030
193: IVCOMP =21113-10001 01900030
194: GO TO 42690 01910030
195: 32690 IVDELE = IVDELE + 1 01920030
196: WRITE (I02,80003) IVTNUM 01930030
197: IF (ICZERO) 42690, 2701, 42690 01940030
198: 42690 IF (IVCOMP-11112) 22690,12690,22690 01950030
199: 12690 IVPASS = IVPASS + 1 01960030
200: WRITE (I02,80001) IVTNUM 01970030
201: GO TO 2701 01980030
202: 22690 IVFAIL = IVFAIL + 1 01990030
203: IVCORR=11112 02000030
204: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 02010030
205: 2701 CONTINUE 02020030
206: IVTNUM = 270 02030030
207: C 02040030
208: C **** TEST 270 **** 02050030
209: C 02060030
210: IF (ICZERO) 32700, 2700, 32700 02070030
211: 2700 CONTINUE 02080030
212: IVCOMP = 32767-1 02090030
213: GO TO 42700 02100030
214: 32700 IVDELE = IVDELE + 1 02110030
215: WRITE (I02,80003) IVTNUM 02120030
216: IF (ICZERO) 42700, 2711, 42700 02130030
217: 42700 IF (IVCOMP -32766) 22700,12700,22700 02140030
218: 12700 IVPASS = IVPASS + 1 02150030
219: WRITE (I02,80001) IVTNUM 02160030
220: GO TO 2711 02170030
221: 22700 IVFAIL = IVFAIL + 1 02180030
222: IVCORR = 32766 02190030
223: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 02200030
224: C 02210030
225: C TEST 271 THROUGH TEST 274 CONTAIN THREE INTEGER CONSTANTS 02220030
226: C AND OPERATOR - IN AN ARITHMETIC EXPRESSION. THE FORM TESTED IS 02230030
227: C IV = IC - IC - IC 02240030
228: C 02250030
229: 2711 CONTINUE 02260030
230: IVTNUM = 271 02270030
231: C 02280030
232: C **** TEST 271 **** 02290030
233: C 02300030
234: IF (ICZERO) 32710, 2710, 32710 02310030
235: 2710 CONTINUE 02320030
236: IVCOMP=9-4-3 02330030
237: GO TO 42710 02340030
238: 32710 IVDELE = IVDELE + 1 02350030
239: WRITE (I02,80003) IVTNUM 02360030
240: IF (ICZERO) 42710, 2721, 42710 02370030
241: 42710 IF (IVCOMP -2) 22710,12710,22710 02380030
242: 12710 IVPASS = IVPASS + 1 02390030
243: WRITE (I02,80001) IVTNUM 02400030
244: GO TO 2721 02410030
245: 22710 IVFAIL = IVFAIL + 1 02420030
246: IVCORR =2 02430030
247: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 02440030
248: 2721 CONTINUE 02450030
249: IVTNUM = 272 02460030
250: C 02470030
251: C **** TEST 272 **** 02480030
252: C 02490030
253: IF (ICZERO) 32720, 2720, 32720 02500030
254: 2720 CONTINUE 02510030
255: IVCOMP = 51-52-53 02520030
256: GO TO 42720 02530030
257: 32720 IVDELE = IVDELE + 1 02540030
258: WRITE (I02,80003) IVTNUM 02550030
259: IF (ICZERO) 42720, 2731, 42720 02560030
260: 42720 IF (IVCOMP +54) 22720,12720,22720 02570030
261: 12720 IVPASS = IVPASS + 1 02580030
262: WRITE (I02,80001) IVTNUM 02590030
263: GO TO 2731 02600030
264: 22720 IVFAIL = IVFAIL + 1 02610030
265: IVCORR = -54 02620030
266: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 02630030
267: 2731 CONTINUE 02640030
268: IVTNUM = 273 02650030
269: C 02660030
270: C **** TEST 273 **** 02670030
271: C 02680030
272: IF (ICZERO) 32730, 2730, 32730 02690030
273: 2730 CONTINUE 02700030
274: IVCOMP = 966 -676 -189 02710030
275: GO TO 42730 02720030
276: 32730 IVDELE = IVDELE + 1 02730030
277: WRITE (I02,80003) IVTNUM 02740030
278: IF (ICZERO) 42730, 2741, 42730 02750030
279: 42730 IF (IVCOMP -101) 22730,12730,22730 02760030
280: 12730 IVPASS = IVPASS + 1 02770030
281: WRITE (I02,80001) IVTNUM 02780030
282: GO TO 2741 02790030
283: 22730 IVFAIL = IVFAIL + 1 02800030
284: IVCORR = 101 02810030
285: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 02820030
286: 2741 CONTINUE 02830030
287: IVTNUM = 274 02840030
288: C 02850030
289: C **** TEST 274 **** 02860030
290: C 02870030
291: IF (ICZERO) 32740, 2740, 32740 02880030
292: 2740 CONTINUE 02890030
293: IVCOMP = 1358-8001-2188 02900030
294: GO TO 42740 02910030
295: 32740 IVDELE = IVDELE + 1 02920030
296: WRITE (I02,80003) IVTNUM 02930030
297: IF (ICZERO) 42740, 2751, 42740 02940030
298: 42740 IF (IVCOMP + 8831) 22740,12740,22740 02950030
299: 12740 IVPASS = IVPASS + 1 02960030
300: WRITE (I02,80001) IVTNUM 02970030
301: GO TO 2751 02980030
302: 22740 IVFAIL = IVFAIL + 1 02990030
303: IVCORR = -8831 03000030
304: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 03010030
305: C 03020030
306: C TEST 275 THROUGH TEST 282 ARE THE SAME AS TESTS 271-274 EXCEPT 03030030
307: C PARENTHESES ARE USED TO GROUP THE CONSTANTS. 03040030
308: C 03050030
309: 2751 CONTINUE 03060030
310: IVTNUM = 275 03070030
311: C 03080030
312: C **** TEST 275 **** 03090030
313: C 03100030
314: IF (ICZERO) 32750, 2750, 32750 03110030
315: 2750 CONTINUE 03120030
316: IVCOMP =(9-4)-3 03130030
317: GO TO 42750 03140030
318: 32750 IVDELE = IVDELE + 1 03150030
319: WRITE (I02,80003) IVTNUM 03160030
320: IF (ICZERO) 42750, 2761, 42750 03170030
321: 42750 IF (IVCOMP -2) 22750,12750,22750 03180030
322: 12750 IVPASS = IVPASS + 1 03190030
323: WRITE (I02,80001) IVTNUM 03200030
324: GO TO 2761 03210030
325: 22750 IVFAIL = IVFAIL + 1 03220030
326: IVCORR = 2 03230030
327: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 03240030
328: 2761 CONTINUE 03250030
329: IVTNUM = 276 03260030
330: C 03270030
331: C **** TEST 276 **** 03280030
332: C 03290030
333: IF (ICZERO) 32760, 2760, 32760 03300030
334: 2760 CONTINUE 03310030
335: IVCOMP =9-(4-3) 03320030
336: GO TO 42760 03330030
337: 32760 IVDELE = IVDELE + 1 03340030
338: WRITE (I02,80003) IVTNUM 03350030
339: IF (ICZERO) 42760, 2771, 42760 03360030
340: 42760 IF (IVCOMP -8) 22760,12760,22760 03370030
341: 12760 IVPASS = IVPASS + 1 03380030
342: WRITE (I02,80001) IVTNUM 03390030
343: GO TO 2771 03400030
344: 22760 IVFAIL = IVFAIL + 1 03410030
345: IVCORR =8 03420030
346: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 03430030
347: 2771 CONTINUE 03440030
348: IVTNUM = 277 03450030
349: C 03460030
350: C **** TEST 277 **** 03470030
351: C 03480030
352: IF (ICZERO) 32770, 2770, 32770 03490030
353: 2770 CONTINUE 03500030
354: IVCOMP =(51-52)-53 03510030
355: GO TO 42770 03520030
356: 32770 IVDELE = IVDELE + 1 03530030
357: WRITE (I02,80003) IVTNUM 03540030
358: IF (ICZERO) 42770, 2781, 42770 03550030
359: 42770 IF (IVCOMP +54) 22770,12770,22770 03560030
360: 12770 IVPASS = IVPASS + 1 03570030
361: WRITE (I02,80001) IVTNUM 03580030
362: GO TO 2781 03590030
363: 22770 IVFAIL = IVFAIL + 1 03600030
364: IVCORR = -54 03610030
365: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 03620030
366: 2781 CONTINUE 03630030
367: IVTNUM = 278 03640030
368: C 03650030
369: C **** TEST 278 **** 03660030
370: C 03670030
371: IF (ICZERO) 32780, 2780, 32780 03680030
372: 2780 CONTINUE 03690030
373: IVCOMP=51-(52-53) 03700030
374: GO TO 42780 03710030
375: 32780 IVDELE = IVDELE + 1 03720030
376: WRITE (I02,80003) IVTNUM 03730030
377: IF (ICZERO) 42780, 2791, 42780 03740030
378: 42780 IF (IVCOMP-52) 22780,12780,22780 03750030
379: 12780 IVPASS = IVPASS + 1 03760030
380: WRITE (I02,80001) IVTNUM 03770030
381: GO TO 2791 03780030
382: 22780 IVFAIL = IVFAIL + 1 03790030
383: IVCORR = 52 03800030
384: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 03810030
385: 2791 CONTINUE 03820030
386: IVTNUM = 279 03830030
387: C 03840030
388: C **** TEST 279 **** 03850030
389: C 03860030
390: IF (ICZERO) 32790, 2790, 32790 03870030
391: 2790 CONTINUE 03880030
392: IVCOMP =(966-676)-189 03890030
393: GO TO 42790 03900030
394: 32790 IVDELE = IVDELE + 1 03910030
395: WRITE (I02,80003) IVTNUM 03920030
396: IF (ICZERO) 42790, 2801, 42790 03930030
397: 42790 IF (IVCOMP - 101) 22790,12790,22790 03940030
398: 12790 IVPASS = IVPASS + 1 03950030
399: WRITE (I02,80001) IVTNUM 03960030
400: GO TO 2801 03970030
401: 22790 IVFAIL = IVFAIL + 1 03980030
402: IVCORR = 101 03990030
403: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 04000030
404: 2801 CONTINUE 04010030
405: IVTNUM = 280 04020030
406: C 04030030
407: C **** TEST 280 **** 04040030
408: C 04050030
409: IF (ICZERO) 32800, 2800, 32800 04060030
410: 2800 CONTINUE 04070030
411: IVCOMP =966-(676-189) 04080030
412: GO TO 42800 04090030
413: 32800 IVDELE = IVDELE + 1 04100030
414: WRITE (I02,80003) IVTNUM 04110030
415: IF (ICZERO) 42800, 2811, 42800 04120030
416: 42800 IF (IVCOMP - 479) 22800,12800,22800 04130030
417: 12800 IVPASS = IVPASS + 1 04140030
418: WRITE (I02,80001) IVTNUM 04150030
419: GO TO 2811 04160030
420: 22800 IVFAIL = IVFAIL + 1 04170030
421: IVCORR = 479 04180030
422: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 04190030
423: 2811 CONTINUE 04200030
424: IVTNUM = 281 04210030
425: C 04220030
426: C **** TEST 281 **** 04230030
427: C 04240030
428: IF (ICZERO) 32810, 2810, 32810 04250030
429: 2810 CONTINUE 04260030
430: IVCOMP = (1358-8001)-2188 04270030
431: GO TO 42810 04280030
432: 32810 IVDELE = IVDELE + 1 04290030
433: WRITE (I02,80003) IVTNUM 04300030
434: IF (ICZERO) 42810, 2821, 42810 04310030
435: 42810 IF (IVCOMP + 8831) 22810,12810,22810 04320030
436: 12810 IVPASS = IVPASS + 1 04330030
437: WRITE (I02,80001) IVTNUM 04340030
438: GO TO 2821 04350030
439: 22810 IVFAIL = IVFAIL + 1 04360030
440: IVCORR = -8831 04370030
441: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 04380030
442: 2821 CONTINUE 04390030
443: IVTNUM = 282 04400030
444: C 04410030
445: C **** TEST 282 **** 04420030
446: C 04430030
447: IF (ICZERO) 32820, 2820, 32820 04440030
448: 2820 CONTINUE 04450030
449: IVCOMP = 1358-(8001-2188) 04460030
450: GO TO 42820 04470030
451: 32820 IVDELE = IVDELE + 1 04480030
452: WRITE (I02,80003) IVTNUM 04490030
453: IF (ICZERO) 42820, 2831, 42820 04500030
454: 42820 IF (IVCOMP + 4455) 22820,12820,22820 04510030
455: 12820 IVPASS = IVPASS + 1 04520030
456: WRITE (I02,80001) IVTNUM 04530030
457: GO TO 2831 04540030
458: 22820 IVFAIL = IVFAIL + 1 04550030
459: IVCORR = -4455 04560030
460: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 04570030
461: C 04580030
462: C TEST 283 THROUGH TEST 299 CONTAIN INTEGER VARIABLE, INTEGER 04590030
463: C CONSTANT AND OPERATOR - IN ARITHMETIC EXPRESSION. THE INTEGER 04600030
464: C VARIABLE CONTAINS BOTH POSITIVE AND NEGATIVE VALUES. 04610030
465: C THE FORMS TESTED ARE 04620030
466: C INTEGER VARIABLE = INTEGER VARIABLE - INTEGER CONSTANT 04630030
467: C INTEGER VARIABLE = INTEGER CONSTANT - INTEGER VARIABLE 04640030
468: C 04650030
469: 2831 CONTINUE 04660030
470: IVTNUM = 283 04670030
471: C 04680030
472: C **** TEST 283 **** 04690030
473: C 04700030
474: IF (ICZERO) 32830, 2830, 32830 04710030
475: 2830 CONTINUE 04720030
476: IVON01 = 3 04730030
477: IVCOMP = IVON01 - 2 04740030
478: GO TO 42830 04750030
479: 32830 IVDELE = IVDELE + 1 04760030
480: WRITE (I02,80003) IVTNUM 04770030
481: IF (ICZERO) 42830, 2841, 42830 04780030
482: 42830 IF (IVCOMP - 1) 22830,12830,22830 04790030
483: 12830 IVPASS = IVPASS + 1 04800030
484: WRITE (I02,80001) IVTNUM 04810030
485: GO TO 2841 04820030
486: 22830 IVFAIL = IVFAIL + 1 04830030
487: IVCORR = 1 04840030
488: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 04850030
489: 2841 CONTINUE 04860030
490: IVTNUM = 284 04870030
491: C 04880030
492: C **** TEST 284 **** 04890030
493: C 04900030
494: IF (ICZERO) 32840, 2840, 32840 04910030
495: 2840 CONTINUE 04920030
496: IVON01 = 2 04930030
497: IVCOMP = IVON01 -3 04940030
498: GO TO 42840 04950030
499: 32840 IVDELE = IVDELE + 1 04960030
500: WRITE (I02,80003) IVTNUM 04970030
501: IF (ICZERO) 42840, 2851, 42840 04980030
502: 42840 IF (IVCOMP +1) 22840,12840,22840 04990030
503: 12840 IVPASS = IVPASS + 1 05000030
504: WRITE (I02,80001) IVTNUM 05010030
505: GO TO 2851 05020030
506: 22840 IVFAIL = IVFAIL + 1 05030030
507: IVCORR = -1 05040030
508: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 05050030
509: 2851 CONTINUE 05060030
510: IVTNUM = 285 05070030
511: C 05080030
512: C **** TEST 285 **** 05090030
513: C 05100030
514: IF (ICZERO) 32850, 2850, 32850 05110030
515: 2850 CONTINUE 05120030
516: IVON01 =-3 05130030
517: IVCOMP = IVON01 -2 05140030
518: GO TO 42850 05150030
519: 32850 IVDELE = IVDELE + 1 05160030
520: WRITE (I02,80003) IVTNUM 05170030
521: IF (ICZERO) 42850, 2861, 42850 05180030
522: 42850 IF (IVCOMP +5) 22850,12850,22850 05190030
523: 12850 IVPASS = IVPASS + 1 05200030
524: WRITE (I02,80001) IVTNUM 05210030
525: GO TO 2861 05220030
526: 22850 IVFAIL = IVFAIL + 1 05230030
527: IVCORR =-5 05240030
528: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 05250030
529: 2861 CONTINUE 05260030
530: IVTNUM = 286 05270030
531: C 05280030
532: C **** TEST 286 **** 05290030
533: C 05300030
534: IF (ICZERO) 32860, 2860, 32860 05310030
535: 2860 CONTINUE 05320030
536: IVON02 =2 05330030
537: IVCOMP = 3 - IVON02 05340030
538: GO TO 42860 05350030
539: 32860 IVDELE = IVDELE + 1 05360030
540: WRITE (I02,80003) IVTNUM 05370030
541: IF (ICZERO) 42860, 2871, 42860 05380030
542: 42860 IF (IVCOMP -1) 22860,12860,22860 05390030
543: 12860 IVPASS = IVPASS + 1 05400030
544: WRITE (I02,80001) IVTNUM 05410030
545: GO TO 2871 05420030
546: 22860 IVFAIL = IVFAIL + 1 05430030
547: IVCORR = 1 05440030
548: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 05450030
549: 2871 CONTINUE 05460030
550: IVTNUM = 287 05470030
551: C 05480030
552: C **** TEST 287 **** 05490030
553: C 05500030
554: IF (ICZERO) 32870, 2870, 32870 05510030
555: 2870 CONTINUE 05520030
556: IVON02 =3 05530030
557: IVCOMP = 2 -IVON02 05540030
558: GO TO 42870 05550030
559: 32870 IVDELE = IVDELE + 1 05560030
560: WRITE (I02,80003) IVTNUM 05570030
561: IF (ICZERO) 42870, 2881, 42870 05580030
562: 42870 IF (IVCOMP +1) 22870,12870,22870 05590030
563: 12870 IVPASS = IVPASS + 1 05600030
564: WRITE (I02,80001) IVTNUM 05610030
565: GO TO 2881 05620030
566: 22870 IVFAIL = IVFAIL + 1 05630030
567: IVCORR =-1 05640030
568: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 05650030
569: 2881 CONTINUE 05660030
570: IVTNUM = 288 05670030
571: C 05680030
572: C **** TEST 288 **** 05690030
573: C 05700030
574: IF (ICZERO) 32880, 2880, 32880 05710030
575: 2880 CONTINUE 05720030
576: IVON02 = -2 05730030
577: IVCOMP = 3 - IVON02 05740030
578: GO TO 42880 05750030
579: 32880 IVDELE = IVDELE + 1 05760030
580: WRITE (I02,80003) IVTNUM 05770030
581: IF (ICZERO) 42880, 2891, 42880 05780030
582: 42880 IF (IVCOMP -5) 22880,12880,22880 05790030
583: 12880 IVPASS = IVPASS + 1 05800030
584: WRITE (I02,80001) IVTNUM 05810030
585: GO TO 2891 05820030
586: 22880 IVFAIL = IVFAIL + 1 05830030
587: IVCORR =5 05840030
588: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 05850030
589: 2891 CONTINUE 05860030
590: IVTNUM = 289 05870030
591: C 05880030
592: C **** TEST 289 **** 05890030
593: C 05900030
594: IF (ICZERO) 32890, 2890, 32890 05910030
595: 2890 CONTINUE 05920030
596: IVON01 =51 05930030
597: IVCOMP = IVON01 - 52 05940030
598: GO TO 42890 05950030
599: 32890 IVDELE = IVDELE + 1 05960030
600: WRITE (I02,80003) IVTNUM 05970030
601: IF (ICZERO) 42890, 2901, 42890 05980030
602: 42890 IF (IVCOMP + 1) 22890,12890,22890 05990030
603: 12890 IVPASS = IVPASS + 1 06000030
604: WRITE (I02,80001) IVTNUM 06010030
605: GO TO 2901 06020030
606: 22890 IVFAIL = IVFAIL + 1 06030030
607: IVCORR = -1 06040030
608: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 06050030
609: 2901 CONTINUE 06060030
610: IVTNUM = 290 06070030
611: C 06080030
612: C **** TEST 290 **** 06090030
613: C 06100030
614: IF (ICZERO) 32900, 2900, 32900 06110030
615: 2900 CONTINUE 06120030
616: IVON01 =51 06130030
617: IVCOMP = IVON01 -51 06140030
618: GO TO 42900 06150030
619: 32900 IVDELE = IVDELE + 1 06160030
620: WRITE (I02,80003) IVTNUM 06170030
621: IF (ICZERO) 42900, 2911, 42900 06180030
622: 42900 IF (IVCOMP) 22900,12900,22900 06190030
623: 12900 IVPASS = IVPASS + 1 06200030
624: WRITE (I02,80001) IVTNUM 06210030
625: GO TO 2911 06220030
626: 22900 IVFAIL = IVFAIL + 1 06230030
627: IVCORR =0 06240030
628: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 06250030
629: 2911 CONTINUE 06260030
630: IVTNUM = 291 06270030
631: C 06280030
632: C **** TEST 291 **** 06290030
633: C 06300030
634: IF (ICZERO) 32910, 2910, 32910 06310030
635: 2910 CONTINUE 06320030
636: IVON01 =53 06330030
637: IVCOMP =IVON01 -52 06340030
638: GO TO 42910 06350030
639: 32910 IVDELE = IVDELE + 1 06360030
640: WRITE (I02,80003) IVTNUM 06370030
641: IF (ICZERO) 42910, 2921, 42910 06380030
642: 42910 IF (IVCOMP -1) 22910,12910,22910 06390030
643: 12910 IVPASS = IVPASS + 1 06400030
644: WRITE (I02,80001) IVTNUM 06410030
645: GO TO 2921 06420030
646: 22910 IVFAIL = IVFAIL + 1 06430030
647: IVCORR = 1 06440030
648: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 06450030
649: 2921 CONTINUE 06460030
650: IVTNUM = 292 06470030
651: C 06480030
652: C **** TEST 292 **** 06490030
653: C 06500030
654: IF (ICZERO) 32920, 2920, 32920 06510030
655: 2920 CONTINUE 06520030
656: IVON02 = 676 06530030
657: IVCOMP = 189 - IVON02 06540030
658: GO TO 42920 06550030
659: 32920 IVDELE = IVDELE + 1 06560030
660: WRITE (I02,80003) IVTNUM 06570030
661: IF (ICZERO) 42920, 2931, 42920 06580030
662: 42920 IF (IVCOMP + 487) 22920,12920,22920 06590030
663: 12920 IVPASS = IVPASS + 1 06600030
664: WRITE (I02,80001) IVTNUM 06610030
665: GO TO 2931 06620030
666: 22920 IVFAIL = IVFAIL + 1 06630030
667: IVCORR = -487 06640030
668: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 06650030
669: 2931 CONTINUE 06660030
670: IVTNUM = 293 06670030
671: C 06680030
672: C **** TEST 293 **** 06690030
673: C 06700030
674: IF (ICZERO) 32930, 2930, 32930 06710030
675: 2930 CONTINUE 06720030
676: IVON02 = -676 06730030
677: IVCOMP = 189 - IVON02 06740030
678: GO TO 42930 06750030
679: 32930 IVDELE = IVDELE + 1 06760030
680: WRITE (I02,80003) IVTNUM 06770030
681: IF (ICZERO) 42930, 2941, 42930 06780030
682: 42930 IF (IVCOMP - 865) 22930,12930,22930 06790030
683: 12930 IVPASS = IVPASS + 1 06800030
684: WRITE (I02,80001) IVTNUM 06810030
685: GO TO 2941 06820030
686: 22930 IVFAIL = IVFAIL + 1 06830030
687: IVCORR = 865 06840030
688: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 06850030
689: 2941 CONTINUE 06860030
690: IVTNUM = 294 06870030
691: C 06880030
692: C **** TEST 294 **** 06890030
693: C 06900030
694: IF (ICZERO) 32940, 2940, 32940 06910030
695: 2940 CONTINUE 06920030
696: IVON01 = 1358 06930030
697: IVCOMP = IVON01 - 8001 06940030
698: GO TO 42940 06950030
699: 32940 IVDELE = IVDELE + 1 06960030
700: WRITE (I02,80003) IVTNUM 06970030
701: IF (ICZERO) 42940, 2951, 42940 06980030
702: 42940 IF (IVCOMP + 6643) 22940,12940,22940 06990030
703: 12940 IVPASS = IVPASS + 1 07000030
704: WRITE (I02,80001) IVTNUM 07010030
705: GO TO 2951 07020030
706: 22940 IVFAIL = IVFAIL + 1 07030030
707: IVCORR = -6643 07040030
708: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 07050030
709: 2951 CONTINUE 07060030
710: IVTNUM = 295 07070030
711: C 07080030
712: C **** TEST 295 **** 07090030
713: C 07100030
714: IF (ICZERO) 32950, 2950, 32950 07110030
715: 2950 CONTINUE 07120030
716: IVON01 = -1358 07130030
717: IVCOMP = IVON01 - 8001 07140030
718: GO TO 42950 07150030
719: 32950 IVDELE = IVDELE + 1 07160030
720: WRITE (I02,80003) IVTNUM 07170030
721: IF (ICZERO) 42950, 2961, 42950 07180030
722: 42950 IF (IVCOMP + 9359) 22950,12950,22950 07190030
723: 12950 IVPASS = IVPASS + 1 07200030
724: WRITE (I02,80001) IVTNUM 07210030
725: GO TO 2961 07220030
726: 22950 IVFAIL = IVFAIL + 1 07230030
727: IVCORR = -9359 07240030
728: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 07250030
729: 2961 CONTINUE 07260030
730: IVTNUM = 296 07270030
731: C 07280030
732: C **** TEST 296 **** 07290030
733: C 07300030
734: IF (ICZERO) 32960, 2960, 32960 07310030
735: 2960 CONTINUE 07320030
736: IVON01 = 15 07330030
737: IVCOMP = IVON01 - 32752 07340030
738: GO TO 42960 07350030
739: 32960 IVDELE = IVDELE + 1 07360030
740: WRITE (I02,80003) IVTNUM 07370030
741: IF (ICZERO) 42960, 2971, 42960 07380030
742: 42960 IF (IVCOMP + 32737) 22960,12960,22960 07390030
743: 12960 IVPASS = IVPASS + 1 07400030
744: WRITE (I02,80001) IVTNUM 07410030
745: GO TO 2971 07420030
746: 22960 IVFAIL = IVFAIL + 1 07430030
747: IVCORR = -32737 07440030
748: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 07450030
749: 2971 CONTINUE 07460030
750: IVTNUM = 297 07470030
751: C 07480030
752: C **** TEST 297 **** 07490030
753: C 07500030
754: IF (ICZERO) 32970, 2970, 32970 07510030
755: 2970 CONTINUE 07520030
756: IVON01 =-32751 07530030
757: IVCOMP = IVON01 - 15 07540030
758: GO TO 42970 07550030
759: 32970 IVDELE = IVDELE + 1 07560030
760: WRITE (I02,80003) IVTNUM 07570030
761: IF (ICZERO) 42970, 2981, 42970 07580030
762: 42970 IF (IVCOMP + 32766) 22970,12970,22970 07590030
763: 12970 IVPASS = IVPASS + 1 07600030
764: WRITE (I02,80001) IVTNUM 07610030
765: GO TO 2981 07620030
766: 22970 IVFAIL = IVFAIL + 1 07630030
767: IVCORR = -32766 07640030
768: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 07650030
769: 2981 CONTINUE 07660030
770: IVTNUM = 298 07670030
771: C 07680030
772: C **** TEST 298 **** 07690030
773: C 07700030
774: IF (ICZERO) 32980, 2980, 32980 07710030
775: 2980 CONTINUE 07720030
776: IVON02 = -32752 07730030
777: IVCOMP = 15 - IVON02 07740030
778: GO TO 42980 07750030
779: 32980 IVDELE = IVDELE + 1 07760030
780: WRITE (I02,80003) IVTNUM 07770030
781: IF (ICZERO) 42980, 2991, 42980 07780030
782: 42980 IF (IVCOMP - 32767) 22980,12980,22980 07790030
783: 12980 IVPASS = IVPASS + 1 07800030
784: WRITE (I02,80001) IVTNUM 07810030
785: GO TO 2991 07820030
786: 22980 IVFAIL = IVFAIL + 1 07830030
787: IVCORR = 32767 07840030
788: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 07850030
789: 2991 CONTINUE 07860030
790: IVTNUM = 299 07870030
791: C 07880030
792: C **** TEST 299 **** 07890030
793: C 07900030
794: IF (ICZERO) 32990, 2990, 32990 07910030
795: 2990 CONTINUE 07920030
796: IVON02 = 15 07930030
797: IVCOMP = 32752 - IVON02 07940030
798: GO TO 42990 07950030
799: 32990 IVDELE = IVDELE + 1 07960030
800: WRITE (I02,80003) IVTNUM 07970030
801: IF (ICZERO) 42990, 3001, 42990 07980030
802: 42990 IF (IVCOMP - 32737) 22990,12990,22990 07990030
803: 12990 IVPASS = IVPASS + 1 08000030
804: WRITE (I02,80001) IVTNUM 08010030
805: GO TO 3001 08020030
806: 22990 IVFAIL = IVFAIL + 1 08030030
807: IVCORR = 32737 08040030
808: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 08050030
809: 3001 CONTINUE 08060030
810: C 08070030
811: C WRITE PAGE FOOTINGS AND RUN SUMMARIES 08080030
812: 99999 CONTINUE 08090030
813: WRITE (I02,90002) 08100030
814: WRITE (I02,90006) 08110030
815: WRITE (I02,90002) 08120030
816: WRITE (I02,90002) 08130030
817: WRITE (I02,90007) 08140030
818: WRITE (I02,90002) 08150030
819: WRITE (I02,90008) IVFAIL 08160030
820: WRITE (I02,90009) IVPASS 08170030
821: WRITE (I02,90010) IVDELE 08180030
822: C 08190030
823: C 08200030
824: C TERMINATE ROUTINE EXECUTION 08210030
825: STOP 08220030
826: C 08230030
827: C FORMAT STATEMENTS FOR PAGE HEADERS 08240030
828: 90000 FORMAT (1H1) 08250030
829: 90002 FORMAT (1H ) 08260030
830: 90001 FORMAT (1H ,10X,34HFORTRAN COMPILER VALIDATION SYSTEM) 08270030
831: 90003 FORMAT (1H ,21X,11HVERSION 1.0) 08280030
832: 90004 FORMAT (1H ,10X,38HFOR OFFICIAL USE ONLY - COPYRIGHT 1978) 08290030
833: 90005 FORMAT (1H ,5X,4HTEST,5X,9HPASS/FAIL, 5X,8HCOMPUTED,8X,7HCORRECT) 08300030
834: 90006 FORMAT (1H ,5X,46H----------------------------------------------) 08310030
835: 90011 FORMAT (1H ,18X,17HSUBSET LEVEL TEST) 08320030
836: C 08330030
837: C FORMAT STATEMENTS FOR RUN SUMMARIES 08340030
838: 90008 FORMAT (1H ,15X,I5,19H ERRORS ENCOUNTERED) 08350030
839: 90009 FORMAT (1H ,15X,I5,13H TESTS PASSED) 08360030
840: 90010 FORMAT (1H ,15X,I5,14H TESTS DELETED) 08370030
841: C 08380030
842: C FORMAT STATEMENTS FOR TEST RESULTS 08390030
843: 80001 FORMAT (1H ,4X,I5,7X,4HPASS) 08400030
844: 80002 FORMAT (1H ,4X,I5,7X,4HFAIL) 08410030
845: 80003 FORMAT (1H ,4X,I5,7X,7HDELETED) 08420030
846: 80004 FORMAT (1H ,4X,I5,7X,4HFAIL,10X,I6,9X,I6) 08430030
847: 80005 FORMAT (1H ,4X,I5,7X,4HFAIL,4X,E12.5,3X,E12.5) 08440030
848: C 08450030
849: 90007 FORMAT (1H ,20X,20HEND OF PROGRAM FM030) 08460030
850: END 08470030
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.