![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to FM016.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 FM016.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 00010016
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 COMMENT SECTION. 00020016
6: C 00030016
7: C FM016 00040016
8: C 00050016
9: C THIS ROUTINE BEGINS A SERIES OF TESTS OF THE FORTRAN 00060016
10: C LOGICAL IF STATEMENT IN ALL OF THE VARIOUS FORMS. THE 00070016
11: C FOLLOWING LOGICAL OPERANDS ARE USED FOR THIS ROUTINE - LOGICAL 00080016
12: C CONSTANTS, LOGICAL VARIABLES, LOGICAL ARRAY ELEMENTS, AND 00090016
13: C ARITHMETIC EXPRESSIONS WITH VARIOUS RELATIONAL OPERATORS. BOTH 00100016
14: C THE TRUE AND FALSE BRANCHES ARE TESTED IN THE SERIES OF TESTS. 00110016
15: C 00120016
16: C REFERENCES 00130016
17: C AMERICAN NATIONAL STANDARD PROGRAMMING LANGUAGE FORTRAN, 00140016
18: C X3.9-1978 00150016
19: C 00160016
20: C SECTION 4.7.1, LOGICAL CONSTANT 00170016
21: C SECTION 6, EXPRESSIONS 00180016
22: C SECTION 6.1, ARITHMETIC EXPRESSIONS 00190016
23: C SECTION 6.3, RELATIONAL EXPRESSIONS 00200016
24: C SECTION 6.4, LOGICAL EXPRESSIONS 00210016
25: C SECTION 6.6, EVALUATION OF EXPRESSIONS 00220016
26: C SECTION 10, ASSIGNMENT STATEMENTS 00230016
27: C SECTION 10.2, LOGICAL ASSIGNMENT STATEMENT 00240016
28: C SECTION 11.5, LOGICAL IF STATEMENT 00250016
29: C 00260016
30: LOGICAL LCTNT1, LCTNF1, LVTNTF, LVTNFT, LATN1A(2) 00270016
31: LOGICAL LADN1D, LADN1B 00280016
32: DIMENSION LADN1D(2), LADN1B(2) 00290016
33: DATA LADN1D/.TRUE., .FALSE./ 00300016
34: C 00310016
35: C ********************************************************** 00320016
36: C 00330016
37: C A COMPILER VALIDATION SYSTEM FOR THE FORTRAN LANGUAGE 00340016
38: C BASED ON SPECIFICATIONS AS DEFINED IN AMERICAN NATIONAL STANDARD 00350016
39: C PROGRAMMING LANGUAGE FORTRAN X3.9-1978, HAS BEEN DEVELOPED BY THE 00360016
40: C FEDERAL COBOL COMPILER TESTING SERVICE. THE FORTRAN COMPILER 00370016
41: C VALIDATION SYSTEM (FCVS) CONSISTS OF AUDIT ROUTINES, THEIR RELATED00380016
42: C DATA, AND AN EXECUTIVE SYSTEM. EACH AUDIT ROUTINE IS A FORTRAN 00390016
43: C PROGRAM, SUBPROGRAM OR FUNCTION WHICH INCLUDES TESTS OF SPECIFIC 00400016
44: C LANGUAGE ELEMENTS AND SUPPORTING PROCEDURES INDICATING THE RESULT 00410016
45: C OF EXECUTING THESE TESTS. 00420016
46: C 00430016
47: C THIS PARTICULAR PROGRAM/SUBPROGRAM/FUNCTION CONTAINS FEATURES 00440016
48: C FOUND ONLY IN THE SUBSET AS DEFINED IN X3.9-1978. 00450016
49: C 00460016
50: C SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO - 00470016
51: C 00480016
52: C DEPARTMENT OF THE NAVY 00490016
53: C FEDERAL COBOL COMPILER TESTING SERVICE 00500016
54: C WASHINGTON, D.C. 20376 00510016
55: C 00520016
56: C ********************************************************** 00530016
57: C 00540016
58: C 00550016
59: C 00560016
60: C INITIALIZATION SECTION 00570016
61: C 00580016
62: C INITIALIZE CONSTANTS 00590016
63: C ************** 00600016
64: C I01 CONTAINS THE LOGICAL UNIT NUMBER FOR THE CARD READER. 00610016
65: I01 = 5 00620016
66: C I02 CONTAINS THE LOGICAL UNIT NUMBER FOR THE PRINTER. 00630016
67: I02 = 6 00640016
68: C SYSTEM ENVIRONMENT SECTION 00650016
69: C 00660016
70: I01 = 5 00670016
71: C THE CX010 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I01 = 5 00680016
72: C (UNIT NUMBER FOR CARD READER). 00690016
73: CX011 THIS CARD IS REPLACED BY CONTENTS OF FEXEC X-011 CONTROL CARD. 00700016
74: C THE CX011 CARD IS FOR SYSTEMS WHICH REQUIRE ADDITIONAL 00710016
75: C FORTRAN STATEMENTS FOR FILES ASSOCIATED WITH CX010 ABOVE. 00720016
76: C 00730016
77: I02 = 6 00740016
78: C THE CX020 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I02 = 6 00750016
79: C (UNIT NUMBER FOR PRINTER). 00760016
80: CX021 THIS CARD IS REPLACED BY CONTENTS OF FEXEC X-021 CONTROL CARD. 00770016
81: C THE CX021 CARD IS FOR SYSTEMS WHICH REQUIRE ADDITIONAL 00780016
82: C FORTRAN STATEMENTS FOR FILES ASSOCIATED WITH CX020 ABOVE. 00790016
83: C 00800016
84: IVPASS=0 00810016
85: IVFAIL=0 00820016
86: IVDELE=0 00830016
87: ICZERO=0 00840016
88: C 00850016
89: C WRITE PAGE HEADERS 00860016
90: WRITE (I02,90000) 00870016
91: WRITE (I02,90001) 00880016
92: WRITE (I02,90002) 00890016
93: WRITE (I02, 90002) 00900016
94: WRITE (I02,90003) 00910016
95: WRITE (I02,90002) 00920016
96: WRITE (I02,90004) 00930016
97: WRITE (I02,90002) 00940016
98: WRITE (I02,90011) 00950016
99: WRITE (I02,90002) 00960016
100: WRITE (I02,90002) 00970016
101: WRITE (I02,90005) 00980016
102: WRITE (I02,90006) 00990016
103: WRITE (I02,90002) 01000016
104: IVTNUM = 139 01010016
105: C TEST 139 - THIS TESTS THE LOGICAL CONSTANT .TRUE. 01020016
106: C 01030016
107: IF (ICZERO) 31390, 1390, 31390 01040016
108: 1390 CONTINUE 01050016
109: IVON01=0 01060016
110: IF ( .TRUE. ) IVON01 = 1 01070016
111: GO TO 41390 01080016
112: 31390 IVDELE = IVDELE + 1 01090016
113: WRITE (I02,80003) IVTNUM 01100016
114: IF (ICZERO) 41390, 1401, 41390 01110016
115: 41390 IF ( IVON01 - 1 ) 21390, 11390, 21390 01120016
116: 11390 IVPASS = IVPASS + 1 01130016
117: WRITE (I02,80001) IVTNUM 01140016
118: GO TO 1401 01150016
119: 21390 IVFAIL = IVFAIL + 1 01160016
120: IVCOMP=IVON01 01170016
121: IVCORR=1 01180016
122: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 01190016
123: 1401 CONTINUE 01200016
124: IVTNUM = 140 01210016
125: C TEST 140 - THIS TESTS THE LOGICAL CONSTANT .FALSE. 01220016
126: C 01230016
127: IF (ICZERO) 31400, 1400, 31400 01240016
128: 1400 CONTINUE 01250016
129: IVON01=1 01260016
130: IF ( .FALSE. ) IVON01=0 01270016
131: GO TO 41400 01280016
132: 31400 IVDELE = IVDELE + 1 01290016
133: WRITE (I02,80003) IVTNUM 01300016
134: IF (ICZERO) 41400, 1411, 41400 01310016
135: 41400 IF ( IVON01 - 1 ) 21400, 11400, 21400 01320016
136: 11400 IVPASS = IVPASS + 1 01330016
137: WRITE (I02,80001) IVTNUM 01340016
138: GO TO 1411 01350016
139: 21400 IVFAIL = IVFAIL + 1 01360016
140: IVCOMP=IVON01 01370016
141: IVCORR=1 01380016
142: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 01390016
143: 1411 CONTINUE 01400016
144: IVTNUM = 141 01410016
145: C TEST 141 - THIS TESTS THE LOGICAL VARIABLE = .TRUE. 01420016
146: C 01430016
147: IF (ICZERO) 31410, 1410, 31410 01440016
148: 1410 CONTINUE 01450016
149: LCTNT1=.TRUE. 01460016
150: IVON01 = 0 01470016
151: IF ( LCTNT1 ) IVON01 = 1 01480016
152: GO TO 41410 01490016
153: 31410 IVDELE = IVDELE + 1 01500016
154: WRITE (I02,80003) IVTNUM 01510016
155: IF (ICZERO) 41410, 1421, 41410 01520016
156: 41410 IF ( IVON01 - 1 ) 21410, 11410, 21410 01530016
157: 11410 IVPASS = IVPASS + 1 01540016
158: WRITE (I02,80001) IVTNUM 01550016
159: GO TO 1421 01560016
160: 21410 IVFAIL = IVFAIL + 1 01570016
161: IVCOMP=IVON01 01580016
162: IVCORR=1 01590016
163: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 01600016
164: 1421 CONTINUE 01610016
165: IVTNUM = 142 01620016
166: C TEST 142 - THIS TESTS THE LOGICAL VARIABLE = .FALSE. 01630016
167: C 01640016
168: IF (ICZERO) 31420, 1420, 31420 01650016
169: 1420 CONTINUE 01660016
170: IVON01=1 01670016
171: LCTNF1=.FALSE. 01680016
172: IF ( LCTNF1 ) IVON01=0 01690016
173: GO TO 41420 01700016
174: 31420 IVDELE = IVDELE + 1 01710016
175: WRITE (I02,80003) IVTNUM 01720016
176: IF (ICZERO) 41420, 1431, 41420 01730016
177: 41420 IF ( IVON01 - 1 ) 21420, 11420, 21420 01740016
178: 11420 IVPASS = IVPASS + 1 01750016
179: WRITE (I02,80001) IVTNUM 01760016
180: GO TO 1431 01770016
181: 21420 IVFAIL = IVFAIL + 1 01780016
182: IVCOMP=IVON01 01790016
183: IVCORR=1 01800016
184: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 01810016
185: 1431 CONTINUE 01820016
186: IVTNUM = 143 01830016
187: C TEST 143 - THIS TESTS CHANGING THE VALUE OF A LOGICAL VARIABLE 01840016
188: C FROM .TRUE. TO .FALSE. 01850016
189: C 01860016
190: IF (ICZERO) 31430, 1430, 31430 01870016
191: 1430 CONTINUE 01880016
192: LVTNTF=.TRUE. 01890016
193: LVTNTF=.FALSE. 01900016
194: IVON01 = 1 01910016
195: IF ( LVTNTF ) IVON01 = 0 01920016
196: GO TO 41430 01930016
197: 31430 IVDELE = IVDELE + 1 01940016
198: WRITE (I02,80003) IVTNUM 01950016
199: IF (ICZERO) 41430, 1441, 41430 01960016
200: 41430 IF ( IVON01 - 1 ) 21430, 11430, 21430 01970016
201: 11430 IVPASS = IVPASS + 1 01980016
202: WRITE (I02,80001) IVTNUM 01990016
203: GO TO 1441 02000016
204: 21430 IVFAIL = IVFAIL + 1 02010016
205: IVCOMP=IVON01 02020016
206: IVCORR=1 02030016
207: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 02040016
208: 1441 CONTINUE 02050016
209: IVTNUM = 144 02060016
210: C TEST 144 - THIS TESTS CHANGING THE VALUE OF A LOGICAL VARIABLE 02070016
211: C FROM .FALSE. TO .TRUE. 02080016
212: C 02090016
213: IF (ICZERO) 31440, 1440, 31440 02100016
214: 1440 CONTINUE 02110016
215: LVTNFT=.FALSE. 02120016
216: LVTNFT=.TRUE. 02130016
217: IVON01=0 02140016
218: IF ( LVTNFT ) IVON01=1 02150016
219: GO TO 41440 02160016
220: 31440 IVDELE = IVDELE + 1 02170016
221: WRITE (I02,80003) IVTNUM 02180016
222: IF (ICZERO) 41440, 1451, 41440 02190016
223: 41440 IF ( IVON01 - 1 ) 21440, 11440, 21440 02200016
224: 11440 IVPASS = IVPASS + 1 02210016
225: WRITE (I02,80001) IVTNUM 02220016
226: GO TO 1451 02230016
227: 21440 IVFAIL = IVFAIL + 1 02240016
228: IVCOMP=IVON01 02250016
229: IVCORR=1 02260016
230: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 02270016
231: 1451 CONTINUE 02280016
232: IVTNUM = 145 02290016
233: C TEST 145 - TEST OF A LOGICAL ARRAY ELEMENT SET TO .TRUE. 02300016
234: C 02310016
235: IF (ICZERO) 31450, 1450, 31450 02320016
236: 1450 CONTINUE 02330016
237: LATN1A(1)=.TRUE. 02340016
238: IVON01=0 02350016
239: IF ( LATN1A(1) ) IVON01=1 02360016
240: GO TO 41450 02370016
241: 31450 IVDELE = IVDELE + 1 02380016
242: WRITE (I02,80003) IVTNUM 02390016
243: IF (ICZERO) 41450, 1461, 41450 02400016
244: 41450 IF ( IVON01 - 1 ) 21450, 11450, 21450 02410016
245: 11450 IVPASS = IVPASS + 1 02420016
246: WRITE (I02,80001) IVTNUM 02430016
247: GO TO 1461 02440016
248: 21450 IVFAIL = IVFAIL + 1 02450016
249: IVCOMP=IVON01 02460016
250: IVCORR=1 02470016
251: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 02480016
252: 1461 CONTINUE 02490016
253: IVTNUM = 146 02500016
254: C TEST 146 - TEST OF A LOGICAL ARRAY ELEMENT SET TO .FALSE. 02510016
255: C 02520016
256: IF (ICZERO) 31460, 1460, 31460 02530016
257: 1460 CONTINUE 02540016
258: LATN1A(2) = .FALSE. 02550016
259: IVON01=1 02560016
260: IF ( LATN1A(2) ) IVON01=0 02570016
261: GO TO 41460 02580016
262: 31460 IVDELE = IVDELE + 1 02590016
263: WRITE (I02,80003) IVTNUM 02600016
264: IF (ICZERO) 41460, 1471, 41460 02610016
265: 41460 IF ( IVON01 - 1 ) 21460, 11460, 21460 02620016
266: 11460 IVPASS = IVPASS + 1 02630016
267: WRITE (I02,80001) IVTNUM 02640016
268: GO TO 1471 02650016
269: 21460 IVFAIL = IVFAIL + 1 02660016
270: IVCOMP=IVON01 02670016
271: IVCORR=1 02680016
272: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 02690016
273: 1471 CONTINUE 02700016
274: IVTNUM = 147 02710016
275: C TEST 147 - TEST OF A LOGICAL ARRAY ELEMENT SET .TRUE. 02720016
276: C IN A DATA INITIALIZATION STATEMENT. 02730016
277: C 02740016
278: IF (ICZERO) 31470, 1470, 31470 02750016
279: 1470 CONTINUE 02760016
280: IVON01=0 02770016
281: IF ( LADN1D(1) ) IVON01=1 02780016
282: GO TO 41470 02790016
283: 31470 IVDELE = IVDELE + 1 02800016
284: WRITE (I02,80003) IVTNUM 02810016
285: IF (ICZERO) 41470, 1481, 41470 02820016
286: 41470 IF ( IVON01 - 1 ) 21470, 11470, 21470 02830016
287: 11470 IVPASS = IVPASS + 1 02840016
288: WRITE (I02,80001) IVTNUM 02850016
289: GO TO 1481 02860016
290: 21470 IVFAIL = IVFAIL + 1 02870016
291: IVCOMP=IVON01 02880016
292: IVCORR=1 02890016
293: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 02900016
294: 1481 CONTINUE 02910016
295: IVTNUM = 148 02920016
296: C TEST 148 - TEST OF A LOGICAL ARRAY ELEMENT SET .FALSE. 02930016
297: C IN A DATA INITIALIZATION STATEMENT. 02940016
298: C 02950016
299: IF (ICZERO) 31480, 1480, 31480 02960016
300: 1480 CONTINUE 02970016
301: IVON01=1 02980016
302: IF ( LADN1D(2) ) IVON01=0 02990016
303: GO TO 41480 03000016
304: 31480 IVDELE = IVDELE + 1 03010016
305: WRITE (I02,80003) IVTNUM 03020016
306: IF (ICZERO) 41480, 1491, 41480 03030016
307: 41480 IF ( IVON01 - 1 ) 21480, 11480, 21480 03040016
308: 11480 IVPASS = IVPASS + 1 03050016
309: WRITE (I02,80001) IVTNUM 03060016
310: GO TO 1491 03070016
311: 21480 IVFAIL = IVFAIL + 1 03080016
312: IVCOMP=IVON01 03090016
313: IVCORR=1 03100016
314: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 03110016
315: 1491 CONTINUE 03120016
316: IVTNUM = 149 03130016
317: C TEST 149 - LIKE TEST 145 EXCEPT THAT THE ARRAY DECLARATION WAS 03140016
318: C IN A DIMENSION STATEMENT RATHER THAN IN THE TYPE STATEMENT. 03150016
319: C 03160016
320: IF (ICZERO) 31490, 1490, 31490 03170016
321: 1490 CONTINUE 03180016
322: LADN1B(1)=.TRUE. 03190016
323: IVON01=0 03200016
324: IF ( LADN1B(1) ) IVON01=1 03210016
325: GO TO 41490 03220016
326: 31490 IVDELE = IVDELE + 1 03230016
327: WRITE (I02,80003) IVTNUM 03240016
328: IF (ICZERO) 41490, 1501, 41490 03250016
329: 41490 IF ( IVON01 - 1 ) 21490, 11490, 21490 03260016
330: 11490 IVPASS = IVPASS + 1 03270016
331: WRITE (I02,80001) IVTNUM 03280016
332: GO TO 1501 03290016
333: 21490 IVFAIL = IVFAIL + 1 03300016
334: IVCOMP=IVON01 03310016
335: IVCORR=1 03320016
336: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 03330016
337: C 03340016
338: C FOR TESTS 150 THRU 156 THE TRUE PATH IS USED.. 03350016
339: C 03360016
340: 1501 CONTINUE 03370016
341: IVTNUM = 150 03380016
342: C TEST 150 - RELATIONAL EXPRESSION WITH INTEGER CONSTANTS .LT. 03390016
343: C 03400016
344: IF (ICZERO) 31500, 1500, 31500 03410016
345: 1500 CONTINUE 03420016
346: IVON01=0 03430016
347: IF ( 3 .LT. 76 ) IVON01=1 03440016
348: GO TO 41500 03450016
349: 31500 IVDELE = IVDELE + 1 03460016
350: WRITE (I02,80003) IVTNUM 03470016
351: IF (ICZERO) 41500, 1511, 41500 03480016
352: 41500 IF ( IVON01 - 1 ) 21500, 11500, 21500 03490016
353: 11500 IVPASS = IVPASS + 1 03500016
354: WRITE (I02,80001) IVTNUM 03510016
355: GO TO 1511 03520016
356: 21500 IVFAIL = IVFAIL + 1 03530016
357: IVCOMP=IVON01 03540016
358: IVCORR=1 03550016
359: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 03560016
360: 1511 CONTINUE 03570016
361: IVTNUM = 151 03580016
362: C TEST 151 - TEST WITH RELATIONAL EXPRESSION .LE. 03590016
363: C 03600016
364: IF (ICZERO) 31510, 1510, 31510 03610016
365: 1510 CONTINUE 03620016
366: IVON01=0 03630016
367: IF ( 587 .LE. 587 ) IVON01=1 03640016
368: GO TO 41510 03650016
369: 31510 IVDELE = IVDELE + 1 03660016
370: WRITE (I02,80003) IVTNUM 03670016
371: IF (ICZERO) 41510, 1521, 41510 03680016
372: 41510 IF ( IVON01 - 1 ) 21510, 11510, 21510 03690016
373: 11510 IVPASS = IVPASS + 1 03700016
374: WRITE (I02,80001) IVTNUM 03710016
375: GO TO 1521 03720016
376: 21510 IVFAIL = IVFAIL + 1 03730016
377: IVCOMP=IVON01 03740016
378: IVCORR=1 03750016
379: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 03760016
380: 1521 CONTINUE 03770016
381: IVTNUM = 152 03780016
382: C TEST 152 - TEST OF RELATIONAL EXPRESSION WITH INTEGER CONSTANTS 03790016
383: C RELATIONAL OPERATOR IS .EQ. 03800016
384: C 03810016
385: IF (ICZERO) 31520, 1520, 31520 03820016
386: 1520 CONTINUE 03830016
387: IVON01=0 03840016
388: IF ( 9999 .EQ. 9999 ) IVON01=1 03850016
389: GO TO 41520 03860016
390: 31520 IVDELE = IVDELE + 1 03870016
391: WRITE (I02,80003) IVTNUM 03880016
392: IF (ICZERO) 41520, 1531, 41520 03890016
393: 41520 IF ( IVON01 - 1 ) 21520, 11520, 21520 03900016
394: 11520 IVPASS = IVPASS + 1 03910016
395: WRITE (I02,80001) IVTNUM 03920016
396: GO TO 1531 03930016
397: 21520 IVFAIL = IVFAIL + 1 03940016
398: IVCOMP=IVON01 03950016
399: IVCORR=1 03960016
400: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 03970016
401: 1531 CONTINUE 03980016
402: IVTNUM = 153 03990016
403: C TEST 153 - TEST OF RELATIONAL EXPRESSION WITH INTEGER CONSTANTS 04000016
404: C RELATIONAL OPERATOR IS .NE. 04010016
405: C 04020016
406: IF (ICZERO) 31530, 1530, 31530 04030016
407: 1530 CONTINUE 04040016
408: IVON01=0 04050016
409: IF ( 0 .NE. 32767 ) IVON01=1 04060016
410: GO TO 41530 04070016
411: 31530 IVDELE = IVDELE + 1 04080016
412: WRITE (I02,80003) IVTNUM 04090016
413: IF (ICZERO) 41530, 1541, 41530 04100016
414: 41530 IF ( IVON01 - 1 ) 21530, 11530, 21530 04110016
415: 11530 IVPASS = IVPASS + 1 04120016
416: WRITE (I02,80001) IVTNUM 04130016
417: GO TO 1541 04140016
418: 21530 IVFAIL = IVFAIL + 1 04150016
419: IVCOMP=IVON01 04160016
420: IVCORR=1 04170016
421: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 04180016
422: 1541 CONTINUE 04190016
423: IVTNUM = 154 04200016
424: C TEST 154 - TEST OF RELATIONAL EXPRESSION WITH INTEGER CONSTANTS 04210016
425: C RELATIONAL OPERATOR IS .GT. 04220016
426: C 04230016
427: IF (ICZERO) 31540, 1540, 31540 04240016
428: 1540 CONTINUE 04250016
429: IVON01=0 04260016
430: IF ( 32767 .GT. 76 ) IVON01=1 04270016
431: GO TO 41540 04280016
432: 31540 IVDELE = IVDELE + 1 04290016
433: WRITE (I02,80003) IVTNUM 04300016
434: IF (ICZERO) 41540, 1551, 41540 04310016
435: 41540 IF ( IVON01 - 1 ) 21540, 11540, 21540 04320016
436: 11540 IVPASS = IVPASS + 1 04330016
437: WRITE (I02,80001) IVTNUM 04340016
438: GO TO 1551 04350016
439: 21540 IVFAIL = IVFAIL + 1 04360016
440: IVCOMP=IVON01 04370016
441: IVCORR=1 04380016
442: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 04390016
443: 1551 CONTINUE 04400016
444: IVTNUM = 155 04410016
445: C TEST 155 - TEST OF RELATIONAL EXPRESSION WITH INTEGER CONSTANTS 04420016
446: C RELATIONAL OPERATOR IS .GE. 04430016
447: C 04440016
448: IF (ICZERO) 31550, 1550, 31550 04450016
449: 1550 CONTINUE 04460016
450: IVON01=0 04470016
451: IF ( 32767 .GE. 76 ) IVON01=1 04480016
452: GO TO 41550 04490016
453: 31550 IVDELE = IVDELE + 1 04500016
454: WRITE (I02,80003) IVTNUM 04510016
455: IF (ICZERO) 41550, 1561, 41550 04520016
456: 41550 IF ( IVON01 - 1 ) 21550, 11550, 21550 04530016
457: 11550 IVPASS = IVPASS + 1 04540016
458: WRITE (I02,80001) IVTNUM 04550016
459: GO TO 1561 04560016
460: 21550 IVFAIL = IVFAIL + 1 04570016
461: IVCOMP=IVON01 04580016
462: IVCORR=1 04590016
463: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 04600016
464: 1561 CONTINUE 04610016
465: IVTNUM = 156 04620016
466: C TEST 156 - TEST OF RELATIONAL EXPRESSION WITH INTEGER CONSTANTS 04630016
467: C RELATIONAL OPERATOR IS .GE. 04640016
468: C 04650016
469: IF (ICZERO) 31560, 1560, 31560 04660016
470: 1560 CONTINUE 04670016
471: IVON01=0 04680016
472: IF ( 32767 .GE. 32767 ) IVON01=1 04690016
473: GO TO 41560 04700016
474: 31560 IVDELE = IVDELE + 1 04710016
475: WRITE (I02,80003) IVTNUM 04720016
476: IF (ICZERO) 41560, 1571, 41560 04730016
477: 41560 IF ( IVON01 - 1 ) 21560, 11560, 21560 04740016
478: 11560 IVPASS = IVPASS + 1 04750016
479: WRITE (I02,80001) IVTNUM 04760016
480: GO TO 1571 04770016
481: 21560 IVFAIL = IVFAIL + 1 04780016
482: IVCOMP=IVON01 04790016
483: IVCORR=1 04800016
484: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 04810016
485: C 04820016
486: C FOR TESTS 157 THRU 162 THE FALSE PATH IS USED.. 04830016
487: C 04840016
488: 1571 CONTINUE 04850016
489: IVTNUM = 157 04860016
490: C TEST 157 - RELATIONAL EXPRESSION INTEGER CONSTANTS FALSE PATH 04870016
491: C RELATIONAL OPERATOR IS .LT. 04880016
492: C 04890016
493: IF (ICZERO) 31570, 1570, 31570 04900016
494: 1570 CONTINUE 04910016
495: IVON01=1 04920016
496: IF ( 76 .LT. 3 ) IVON01=0 04930016
497: GO TO 41570 04940016
498: 31570 IVDELE = IVDELE + 1 04950016
499: WRITE (I02,80003) IVTNUM 04960016
500: IF (ICZERO) 41570, 1581, 41570 04970016
501: 41570 IF ( IVON01 - 1 ) 21570, 11570, 21570 04980016
502: 11570 IVPASS = IVPASS + 1 04990016
503: WRITE (I02,80001) IVTNUM 05000016
504: GO TO 1581 05010016
505: 21570 IVFAIL = IVFAIL + 1 05020016
506: IVCOMP=IVON01 05030016
507: IVCORR=1 05040016
508: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 05050016
509: 1581 CONTINUE 05060016
510: IVTNUM = 158 05070016
511: C TEST 158 - RELATIONAL EXPRESSION INTEGER CONSTANTS FALSE PATH 05080016
512: C RELATIONAL OPERATOR IS .LE. 05090016
513: C 05100016
514: IF (ICZERO) 31580, 1580, 31580 05110016
515: 1580 CONTINUE 05120016
516: IVON01=1 05130016
517: IF ( 76 .LE. 3 ) IVON01=0 05140016
518: GO TO 41580 05150016
519: 31580 IVDELE = IVDELE + 1 05160016
520: WRITE (I02,80003) IVTNUM 05170016
521: IF (ICZERO) 41580, 1591, 41580 05180016
522: 41580 IF ( IVON01 - 1 ) 21580, 11580, 21580 05190016
523: 11580 IVPASS = IVPASS + 1 05200016
524: WRITE (I02,80001) IVTNUM 05210016
525: GO TO 1591 05220016
526: 21580 IVFAIL = IVFAIL + 1 05230016
527: IVCOMP=IVON01 05240016
528: IVCORR=1 05250016
529: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 05260016
530: 1591 CONTINUE 05270016
531: IVTNUM = 159 05280016
532: C TEST 159 - RELATIONAL EXPRESSION INTEGER CONSTANTS FALSE PATH 05290016
533: C RELATIONAL OPERATOR IS .EQ. 05300016
534: C 05310016
535: IF (ICZERO) 31590, 1590, 31590 05320016
536: 1590 CONTINUE 05330016
537: IVON01=1 05340016
538: IF ( 9999 .EQ. 587 ) IVON01=0 05350016
539: GO TO 41590 05360016
540: 31590 IVDELE = IVDELE + 1 05370016
541: WRITE (I02,80003) IVTNUM 05380016
542: IF (ICZERO) 41590, 1601, 41590 05390016
543: 41590 IF ( IVON01 - 1 ) 21590, 11590, 21590 05400016
544: 11590 IVPASS = IVPASS + 1 05410016
545: WRITE (I02,80001) IVTNUM 05420016
546: GO TO 1601 05430016
547: 21590 IVFAIL = IVFAIL + 1 05440016
548: IVCOMP=IVON01 05450016
549: IVCORR=1 05460016
550: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 05470016
551: 1601 CONTINUE 05480016
552: IVTNUM = 160 05490016
553: C TEST 160 - RELATIONAL EXPRESSION INTEGER CONSTANTS FALSE PATH 05500016
554: C RELATIONAL OPERATOR IS .NE. 05510016
555: C 05520016
556: IF (ICZERO) 31600, 1600, 31600 05530016
557: 1600 CONTINUE 05540016
558: IVON01=1 05550016
559: IF ( 3 .NE. 3 ) IVON01=0 05560016
560: GO TO 41600 05570016
561: 31600 IVDELE = IVDELE + 1 05580016
562: WRITE (I02,80003) IVTNUM 05590016
563: IF (ICZERO) 41600, 1611, 41600 05600016
564: 41600 IF ( IVON01 - 1 ) 21600, 11600, 21600 05610016
565: 11600 IVPASS = IVPASS + 1 05620016
566: WRITE (I02,80001) IVTNUM 05630016
567: GO TO 1611 05640016
568: 21600 IVFAIL = IVFAIL + 1 05650016
569: IVCOMP=IVON01 05660016
570: IVCORR=1 05670016
571: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 05680016
572: 1611 CONTINUE 05690016
573: IVTNUM=161 05700016
574: C 05710016
575: C TEST 161 - RELATIONAL EXPRESSION INTEGER CONSTANTS FALSE PATH 05720016
576: C RELATIONAL OPERATOR IS .GT. 05730016
577: C 05740016
578: IF ( ICZERO ) 31610, 1610, 31610 05750016
579: 1610 CONTINUE 05760016
580: IVON01=1 05770016
581: IF ( 76 .GT. 32767 ) IVON01=0 05780016
582: GO TO 41610 05790016
583: 31610 IVDELE = IVDELE + 1 05800016
584: WRITE (I02,80003) IVTNUM 05810016
585: IF ( ICZERO ) 41610, 1621, 41610 05820016
586: 41610 IF ( IVON01 - 1 ) 21610, 11610, 21610 05830016
587: 11610 IVPASS = IVPASS+ 1 05840016
588: WRITE (I02,80001) IVTNUM 05850016
589: GO TO 1621 05860016
590: 21610 IVFAIL = IVFAIL + 1 05870016
591: IVCOMP=IVON01 05880016
592: IVCORR=1 05890016
593: WRITE (I02,80004) IVTNUM, IVCOMP, IVCORR 05900016
594: 1621 CONTINUE 05910016
595: IVTNUM = 162 05920016
596: C 05930016
597: C 05940016
598: C **** TEST 162 **** 05950016
599: C 05960016
600: C TEST 162 - RELATIONAL EXPRESSION INTEGER CONSTANTS FALSE PATH 05970016
601: C RELATIONAL OPERATOR IS .GE. 05980016
602: C 05990016
603: IF (ICZERO) 31620, 1620, 31620 06000016
604: 1620 CONTINUE 06010016
605: IVON01=1 06020016
606: IF ( 76 .GE. 32767 ) IVON01 = 0 06030016
607: GO TO 41620 06040016
608: 31620 IVDELE = IVDELE + 1 06050016
609: WRITE (I02,80003) IVTNUM 06060016
610: IF (ICZERO) 41620, 1631, 41620 06070016
611: 41620 IF ( IVON01 - 1 ) 21620, 11620, 21620 06080016
612: 11620 IVPASS = IVPASS + 1 06090016
613: WRITE (I02,80001) IVTNUM 06100016
614: GO TO 1631 06110016
615: 21620 IVFAIL = IVFAIL + 1 06120016
616: IVCOMP=IVON01 06130016
617: IVCORR=1 06140016
618: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 06150016
619: 1631 CONTINUE 06160016
620: IVTNUM = 163 06170016
621: C 06180016
622: C **** TEST 163 **** 06190016
623: C TEST 163 - RELATIONAL EXPRESSION WITH INTEGER VARIABLE 06200016
624: C REFERENCES (IC) (RO) (IVR). TRUE PATH. USE .LT. 06210016
625: C 06220016
626: C 06230016
627: IF (ICZERO) 31630, 1630, 31630 06240016
628: 1630 CONTINUE 06250016
629: IVON01 = 76 06260016
630: IVON02 = 0 06270016
631: IF ( 3 .LT. IVON01 ) IVON02 = 1 06280016
632: GO TO 41630 06290016
633: 31630 IVDELE = IVDELE + 1 06300016
634: WRITE (I02,80003) IVTNUM 06310016
635: IF (ICZERO) 41630, 1641, 41630 06320016
636: 41630 IF ( IVON02 - 1 ) 21630, 11630, 21630 06330016
637: 11630 IVPASS = IVPASS + 1 06340016
638: WRITE (I02,80001) IVTNUM 06350016
639: GO TO 1641 06360016
640: 21630 IVFAIL = IVFAIL + 1 06370016
641: IVCOMP = IVON02 06380016
642: IVCORR = 1 06390016
643: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 06400016
644: 1641 CONTINUE 06410016
645: IVTNUM = 164 06420016
646: C 06430016
647: C **** TEST 164 **** 06440016
648: C TEST 164 - RELATIONAL EXPRESSION. INTEGER VARIABLE REFERENCES. 06450016
649: C TRUE PATH. .LE. 06460016
650: C 06470016
651: C 06480016
652: IF (ICZERO) 31640, 1640, 31640 06490016
653: 1640 CONTINUE 06500016
654: IVON01 = 587 06510016
655: IVON02 = 0 06520016
656: IF ( 587 .LE. IVON01 ) IVON02 = 1 06530016
657: GO TO 41640 06540016
658: 31640 IVDELE = IVDELE + 1 06550016
659: WRITE (I02,80003) IVTNUM 06560016
660: IF (ICZERO) 41640, 1651, 41640 06570016
661: 41640 IF ( IVON02 - 1 ) 21640, 11640, 21640 06580016
662: 11640 IVPASS = IVPASS + 1 06590016
663: WRITE (I02,80001) IVTNUM 06600016
664: GO TO 1651 06610016
665: 21640 IVFAIL = IVFAIL + 1 06620016
666: IVCOMP = IVON02 06630016
667: IVCORR = 1 06640016
668: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 06650016
669: 1651 CONTINUE 06660016
670: IVTNUM = 165 06670016
671: C 06680016
672: C **** TEST 165 **** 06690016
673: C TEST 165 - RELATIONAL EXPRESSION. INTEGER VARIABLE REFERENCE. 06700016
674: C TRUE PATH. .EQ. 06710016
675: C 06720016
676: C 06730016
677: IF (ICZERO) 31650, 1650, 31650 06740016
678: 1650 CONTINUE 06750016
679: IVON01 = 9999 06760016
680: IVON02 = 0 06770016
681: IF ( 9999 .EQ. IVON01 ) IVON02 = 1 06780016
682: GO TO 41650 06790016
683: 31650 IVDELE = IVDELE + 1 06800016
684: WRITE (I02,80003) IVTNUM 06810016
685: IF (ICZERO) 41650, 1661, 41650 06820016
686: 41650 IF ( IVON02 - 1 ) 21650, 11650, 21650 06830016
687: 11650 IVPASS = IVPASS + 1 06840016
688: WRITE (I02,80001) IVTNUM 06850016
689: GO TO 1661 06860016
690: 21650 IVFAIL = IVFAIL + 1 06870016
691: IVCOMP = IVON02 06880016
692: IVCORR = 1 06890016
693: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 06900016
694: 1661 CONTINUE 06910016
695: IVTNUM = 166 06920016
696: C 06930016
697: C **** TEST 166 **** 06940016
698: C TEST 166 - RELATIONAL EXPRESSION. INTEGER VARIABLE REFERENCE. 06950016
699: C TRUE PATH. .NE. 06960016
700: C 06970016
701: C 06980016
702: IF (ICZERO) 31660, 1660, 31660 06990016
703: 1660 CONTINUE 07000016
704: IVON01 = 32767 07010016
705: IVON02 = 0 07020016
706: IF ( 0 .NE. IVON01 ) IVON02 = 1 07030016
707: GO TO 41660 07040016
708: 31660 IVDELE = IVDELE + 1 07050016
709: WRITE (I02,80003) IVTNUM 07060016
710: IF (ICZERO) 41660, 1671, 41660 07070016
711: 41660 IF ( IVON02 - 1 ) 21660, 11660, 21660 07080016
712: 11660 IVPASS = IVPASS + 1 07090016
713: WRITE (I02,80001) IVTNUM 07100016
714: GO TO 1671 07110016
715: 21660 IVFAIL = IVFAIL + 1 07120016
716: IVCOMP = IVON02 07130016
717: IVCORR = 1 07140016
718: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 07150016
719: 1671 CONTINUE 07160016
720: IVTNUM = 167 07170016
721: C 07180016
722: C **** TEST 167 **** 07190016
723: C TEST 167 - RELATIONAL EXPRESSION. INTEGER VARIABLE REFERENCE. 07200016
724: C TRUE PATH. .GT. 07210016
725: C 07220016
726: C 07230016
727: IF (ICZERO) 31670, 1670, 31670 07240016
728: 1670 CONTINUE 07250016
729: IVON01 = 76 07260016
730: IVON02 = 0 07270016
731: IF ( 32767 .GT. IVON01 ) IVON02 = 1 07280016
732: GO TO 41670 07290016
733: 31670 IVDELE = IVDELE + 1 07300016
734: WRITE (I02,80003) IVTNUM 07310016
735: IF (ICZERO) 41670, 1681, 41670 07320016
736: 41670 IF ( IVON02 - 1 ) 21670, 11670, 21670 07330016
737: 11670 IVPASS = IVPASS + 1 07340016
738: WRITE (I02,80001) IVTNUM 07350016
739: GO TO 1681 07360016
740: 21670 IVFAIL = IVFAIL + 1 07370016
741: IVCOMP = IVON02 07380016
742: IVCORR = 1 07390016
743: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 07400016
744: 1681 CONTINUE 07410016
745: IVTNUM = 168 07420016
746: C 07430016
747: C **** TEST 168 **** 07440016
748: C TEST 168 - RELATIONAL EXPRESSION. INTEGER VARIABLE REFERENCE. 07450016
749: C TRUE PATH. .GE. 07460016
750: C 07470016
751: C 07480016
752: IF (ICZERO) 31680, 1680, 31680 07490016
753: 1680 CONTINUE 07500016
754: IVON01 = 76 07510016
755: IVON02 = 0 07520016
756: IF ( 32767 .GE. IVON01 ) IVON02 = 1 07530016
757: GO TO 41680 07540016
758: 31680 IVDELE = IVDELE + 1 07550016
759: WRITE (I02,80003) IVTNUM 07560016
760: IF (ICZERO) 41680, 1691, 41680 07570016
761: 41680 IF ( IVON02 - 1 ) 21680, 11680, 21680 07580016
762: 11680 IVPASS = IVPASS + 1 07590016
763: WRITE (I02,80001) IVTNUM 07600016
764: GO TO 1691 07610016
765: 21680 IVFAIL = IVFAIL + 1 07620016
766: IVCOMP = IVON02 07630016
767: IVCORR = 1 07640016
768: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 07650016
769: 1691 CONTINUE 07660016
770: IVTNUM = 169 07670016
771: C 07680016
772: C **** TEST 169 **** 07690016
773: C TEST 169 - RELATIONAL EXPRESSION. INTEGER VARIABLE REFERENCE. 07700016
774: C TRUE PATH. .EQ. 07710016
775: C 07720016
776: C 07730016
777: IF (ICZERO) 31690, 1690, 31690 07740016
778: 1690 CONTINUE 07750016
779: IVON01 = 32767 07760016
780: IVON02 = 0 07770016
781: IF ( 32767 .EQ. IVON01 ) IVON02 = 1 07780016
782: GO TO 41690 07790016
783: 31690 IVDELE = IVDELE + 1 07800016
784: WRITE (I02,80003) IVTNUM 07810016
785: IF (ICZERO) 41690, 1701, 41690 07820016
786: 41690 IF ( IVON02 - 1 ) 21690, 11690, 21690 07830016
787: 11690 IVPASS = IVPASS + 1 07840016
788: WRITE (I02,80001) IVTNUM 07850016
789: GO TO 1701 07860016
790: 21690 IVFAIL = IVFAIL + 1 07870016
791: IVCOMP = IVON02 07880016
792: IVCORR = 1 07890016
793: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 07900016
794: 1701 CONTINUE 07910016
795: C 07920016
796: C WRITE PAGE FOOTINGS AND RUN SUMMARIES 07930016
797: 99999 CONTINUE 07940016
798: WRITE (I02,90002) 07950016
799: WRITE (I02,90006) 07960016
800: WRITE (I02,90002) 07970016
801: WRITE (I02,90002) 07980016
802: WRITE (I02,90007) 07990016
803: WRITE (I02,90002) 08000016
804: WRITE (I02,90008) IVFAIL 08010016
805: WRITE (I02,90009) IVPASS 08020016
806: WRITE (I02,90010) IVDELE 08030016
807: C 08040016
808: C 08050016
809: C TERMINATE ROUTINE EXECUTION 08060016
810: STOP 08070016
811: C 08080016
812: C FORMAT STATEMENTS FOR PAGE HEADERS 08090016
813: 90000 FORMAT (1H1) 08100016
814: 90002 FORMAT (1H ) 08110016
815: 90001 FORMAT (1H ,10X,34HFORTRAN COMPILER VALIDATION SYSTEM) 08120016
816: 90003 FORMAT (1H ,21X,11HVERSION 1.0) 08130016
817: 90004 FORMAT (1H ,10X,38HFOR OFFICIAL USE ONLY - COPYRIGHT 1978) 08140016
818: 90005 FORMAT (1H ,5X,4HTEST,5X,9HPASS/FAIL, 5X,8HCOMPUTED,8X,7HCORRECT) 08150016
819: 90006 FORMAT (1H ,5X,46H----------------------------------------------) 08160016
820: 90011 FORMAT (1H ,18X,17HSUBSET LEVEL TEST) 08170016
821: C 08180016
822: C FORMAT STATEMENTS FOR RUN SUMMARIES 08190016
823: 90008 FORMAT (1H ,15X,I5,19H ERRORS ENCOUNTERED) 08200016
824: 90009 FORMAT (1H ,15X,I5,13H TESTS PASSED) 08210016
825: 90010 FORMAT (1H ,15X,I5,14H TESTS DELETED) 08220016
826: C 08230016
827: C FORMAT STATEMENTS FOR TEST RESULTS 08240016
828: 80001 FORMAT (1H ,4X,I5,7X,4HPASS) 08250016
829: 80002 FORMAT (1H ,4X,I5,7X,4HFAIL) 08260016
830: 80003 FORMAT (1H ,4X,I5,7X,7HDELETED) 08270016
831: 80004 FORMAT (1H ,4X,I5,7X,4HFAIL,10X,I6,9X,I6) 08280016
832: 80005 FORMAT (1H ,4X,I5,7X,4HFAIL,4X,E12.5,3X,E12.5) 08290016
833: C 08300016
834: 90007 FORMAT (1H ,20X,20HEND OF PROGRAM FM016) 08310016
835: END 08320016
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.