![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to FM253.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 FM253.f CVS log | Up to [Power 6/32 Unix Tahoe 4.2BSD] / cci / usr / src / usr.bin / f77 / testf77 / tests |
1.1 root 1: PROGRAM FM253 00010253
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 00020253
6: C 00030253
7: C 00040253
8: C THIS ROUTINE IS A TEST OF THE IF-BLOCK. TESTS WITHIN THIS 00050253
9: C ROUTINE ARE FOR THE SYNTAX OF THE BASIC IF ( ) THEN THROUGH 00060253
10: C END IF BLOCK STRUCTURE. 00070253
11: C 00080253
12: C THERE IS ALSO A SERIES OF TESTS TO CHECK THE HIERARCHY AND 00090253
13: C ORDER OF EVALUATION IN EXPRESSIONS THAT CONTAIN A COMBINATION OF 00100253
14: C ARITHMETIC, RELATIONAL, AND LOGICAL OPERATORS. 00110253
15: C 00120253
16: C REFERENCES 00130253
17: C AMERICAN NATIONAL STANDARD PROGRAMMING LANGUAGE FORTRAN, 00140253
18: C X3.9-1978 00150253
19: C SECTION 11.6, BLOCK IF STATEMENT 00160253
20: C SECTION 11.6.1, IF-LEVEL 00170253
21: C SECTION 11.6.2, IF-BLOCK 00180253
22: C SECTION 11.6.3, EXECUTION OF A BLOCK IF STATEMENT 00190253
23: C 00200253
24: C 00210253
25: C 00220253
26: C 00230253
27: C ******************************************************************00240253
28: C A COMPILER VALIDATION SYSTEM FOR THE FORTRAN LANGUAGE 00250253
29: C BASED ON SPECIFICATIONS AS DEFINED IN AMERICAN STANDARD FORTRAN 00260253
30: C X3.9-1978, HAS BEEN DEVELOPED BY THE DEPARTMENT OF THE NAVY. THE 00270253
31: C FORTRAN COMPILER VALIDATION SYSTEM (FCVS) CONSISTS OF AUDIT 00280253
32: C ROUTINES, THEIR RELATED DATA, AND AN EXECUTIVE SYSTEM. EACH AUDIT00290253
33: C ROUTINE IS A FORTRAN PROGRAM OR SUBPROGRAM WHICH INCLUDES TESTS 00300253
34: C OF SPECIFIC LANGUAGE ELEMENTS AND SUPPORTING PROCEDURES INDICATING00310253
35: C THE RESULT OF EXECUTING THESE TESTS. 00320253
36: C 00330253
37: C THIS PARTICULAR PROGRAM OR SUBPROGRAM CONTAINS ONLY FEATURES 00340253
38: C FOUND IN THE SUBSET LEVEL OF THE STANDARD. 00350253
39: C 00360253
40: C SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00370253
41: C DEPARTMENT OF THE NAVY 00380253
42: C FEDERAL COBOL COMPILER TESTING SERVICE 00390253
43: C WASHINGTON, D.C. 20376 00400253
44: C 00410253
45: C ******************************************************************00420253
46: C 00430253
47: C 00440253
48: IMPLICIT LOGICAL (L) 00450253
49: IMPLICIT CHARACTER*14 (C) 00460253
50: C 00470253
51: DIMENSION LADN11(2) 00480253
52: LOGICAL LVTN01, LVTN02, LATN11(2), LADN11 00490253
53: DATA LADN11/.TRUE., .FALSE./ 00500253
54: C 00510253
55: C 00520253
56: C **** LOGICAL STATEMENT FUNCTION REFERENCED IN TEST 20 **** 00530253
57: C 00540253
58: LFIS01 ( L ) = .NOT. L 00550253
59: C 00560253
60: C 00570253
61: C 00580253
62: C 00590253
63: C 00600253
64: C INITIALIZATION SECTION. 00610253
65: C 00620253
66: C INITIALIZE CONSTANTS 00630253
67: C ******************** 00640253
68: C I01 CONTAINS THE LOGICAL UNIT NUMBER FOR THE CARD READER 00650253
69: I01 = 5 00660253
70: C I02 CONTAINS THE LOGICAL UNIT NUMBER FOR THE PRINTER 00670253
71: I02 = 6 00680253
72: C SYSTEM ENVIRONMENT SECTION 00690253
73: C 00700253
74: I01 = 5 00710253
75: C THE CX010 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I01 = 5 00720253
76: C (UNIT NUMBER FOR CARD READER). 00730253
77: CX011 THIS CARD IS REPLACED BY CONTENTS OF FEXEC X-011 CONTROL CARD00740253
78: C THE CX011 CARD IS FOR SYSTEMS WHICH REQUIRE ADDITIONAL 00750253
79: C FORTRAN STATEMENTS FOR FILES ASSOCIATED WITH CX010 ABOVE. 00760253
80: C 00770253
81: I02 = 6 00780253
82: C THE CX020 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I02 = 6 00790253
83: C (UNIT NUMBER FOR PRINTER). 00800253
84: CX021 THIS CARD IS PEPLACED BY CONTENTS OF FEXEC X-021 CONTROL CARD.00810253
85: C THE CX021 CARD IS FOR SYSTEMS WHICH REQUIRE ADDITIONAL 00820253
86: C FORTRAN STATEMENTS FOR FILES ASSOCIATED WITH CX020 ABOVE. 00830253
87: C 00840253
88: IVPASS = 0 00850253
89: IVFAIL = 0 00860253
90: IVDELE = 0 00870253
91: ICZERO = 0 00880253
92: C 00890253
93: C WRITE OUT PAGE HEADERS 00900253
94: C 00910253
95: WRITE (I02,90002) 00920253
96: WRITE (I02,90006) 00930253
97: WRITE (I02,90008) 00940253
98: WRITE (I02,90004) 00950253
99: WRITE (I02,90010) 00960253
100: WRITE (I02,90004) 00970253
101: WRITE (I02,90016) 00980253
102: WRITE (I02,90001) 00990253
103: WRITE (I02,90004) 01000253
104: WRITE (I02,90012) 01010253
105: WRITE (I02,90014) 01020253
106: WRITE (I02,90004) 01030253
107: C 01040253
108: C 01050253
109: C **** FCVS PROGRAM 253 - TEST 001 **** 01060253
110: C 01070253
111: C TEST 001 USES A VERY SIMPLE BLOCK IF STATEMENT. THE EXPRESSION01080253
112: C WITHIN THE PARENTHESES IS THE LOGICAL CONSTANT .TRUE. AND THE 01090253
113: C EXECUTABLE STATEMENT WITHIN THE IF-BLOCK OF LEVEL ONE IS AN 01100253
114: C INTEGER ARITHMETIC ASSIGNMENT STATEMENT. SINCE THE LOGICAL 01110253
115: C EXPRESSION IS TRUE, THEN THE INTEGER ASSIGNMENT STATEMENT ( TRUE 01120253
116: C PATH ) SHOULD BE EXECUTED. 01130253
117: C 01140253
118: C THIS IS A SYNTAX CHECK FOR THE BLOCK IF STATEMENT. SHOULD A 01150253
119: C COMPILER NOT BE ABLE TO ACCEPT THE SYNTAX OF THIS BASIC TEST, 01160253
120: C THEN ROUTINES FM253, THRU FMXXX NEED NOT BE RUN. 01170253
121: C 01180253
122: C 01190253
123: IVTNUM = 1 01200253
124: IF (ICZERO) 30010, 0010, 30010 01210253
125: 0010 CONTINUE 01220253
126: IVCOMP = 0 01230253
127: IF ( .TRUE. ) THEN 01240253
128: IVCOMP = 1 01250253
129: END IF 01260253
130: IVCORR = 1 01270253
131: 40010 IF ( IVCOMP - 1 ) 20010, 10010, 20010 01280253
132: 30010 IVDELE = IVDELE + 1 01290253
133: WRITE (I02,80000) IVTNUM 01300253
134: IF (ICZERO) 10010, 0021, 20010 01310253
135: 10010 IVPASS = IVPASS + 1 01320253
136: WRITE (I02,80002) IVTNUM 01330253
137: GO TO 0021 01340253
138: 20010 IVFAIL = IVFAIL + 1 01350253
139: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 01360253
140: 0021 CONTINUE 01370253
141: C 01380253
142: C **** FCVS PROGRAM 253 - TEST 002 **** 01390253
143: C 01400253
144: C TEST 002 USES A LOGICAL VARIABLE SET .FALSE. AS THE LOGICAL 01410253
145: C EXPRESSION IN THE BLOCK IF STATEMENT. BECAUSE THE EXPRESSION 01420253
146: C IS FALSE, THE IF-BLOCK (WHICH IS AN INTEGER ARITHMETIC ASSIGNMENT 01430253
147: C STATEMENT AND A LOGICAL ASSIGNMENT STATEMENT) SHOULD NOT BE 01440253
148: C EXECUTED. 01450253
149: C 01460253
150: C 01470253
151: IVTNUM = 2 01480253
152: IF (ICZERO) 30020, 0020, 30020 01490253
153: 0020 CONTINUE 01500253
154: IVCOMP = 0 01510253
155: IVON01 = 1 01520253
156: LVON01 = .FALSE. 01530253
157: LVTN01 = .FALSE. 01540253
158: IF ( LVON01 ) THEN 01550253
159: IVON01 = 0 01560253
160: LVTN01 = .TRUE. 01570253
161: END IF 01580253
162: IVCORR = 1 01590253
163: 40020 IF ( IVON01 .EQ. 1 ) IVCOMP = 1 01600253
164: 40021 IF ( IVCOMP - 1 ) 20020, 10020, 20020 01610253
165: 30020 IVDELE = IVDELE + 1 01620253
166: WRITE (I02,80000) IVTNUM 01630253
167: IF (ICZERO) 10020, 0031, 20020 01640253
168: 10020 IVPASS = IVPASS + 1 01650253
169: WRITE (I02,80002) IVTNUM 01660253
170: GO TO 0031 01670253
171: 20020 IVFAIL = IVFAIL + 1 01680253
172: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 01690253
173: 0031 CONTINUE 01700253
174: C 01710253
175: C **** FCVS PROGRAM 253 - TEST 003 **** 01720253
176: C 01730253
177: C TEST 003 IS A BLOCK IF STATEMENT WITH AN EMPTY IF-BLOCK. THE 01740253
178: C LOGICAL EXPRESSION IS A LOGICAL ARRAY ELEMENT REFERENCE SET TO 01750253
179: C .TRUE. SECTION 11.6.2 STATES THAT, AN IF-BLOCK MAY BE EMPTY. 01760253
180: C BECAUSE THE LOGICAL EXPRESSION IS TRUE, THE IF-BLOCK SHOULD BE 01770253
181: C EXECUTED. IF THE VALUE OF THE EXPRESSION IS TRUE AND THE IF-BLOCK01780253
182: C IS EMPTY, CONTROL IS TRANSFERRED TO THE NEXT END IF STATEMENT 01790253
183: C THAT HAS THE SAME IF-LEVEL AS THE BLOCK IF STATEMENT ACCORDING 01800253
184: C TO SECTION 11.6.3. IN THIS TEST THE EMPTY IF-BLOCK IS OF LEVEL ONE01810253
185: C 01820253
186: C 01830253
187: IVTNUM = 3 01840253
188: IF (ICZERO) 30030, 0030, 30030 01850253
189: 0030 CONTINUE 01860253
190: IVCOMP = 0 01870253
191: LATN11(1) = .TRUE. 01880253
192: IF ( LATN11(1) ) THEN 01890253
193: END IF 01900253
194: IVCOMP = 1 01910253
195: IVCORR = 1 01920253
196: 40030 IF ( IVCOMP - 1 ) 20030, 10030, 20030 01930253
197: 30030 IVDELE = IVDELE + 1 01940253
198: WRITE (I02,80000) IVTNUM 01950253
199: IF (ICZERO) 10030, 0041, 20030 01960253
200: 10030 IVPASS = IVPASS + 1 01970253
201: WRITE (I02,80002) IVTNUM 01980253
202: GO TO 0041 01990253
203: 20030 IVFAIL = IVFAIL + 1 02000253
204: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 02010253
205: 0041 CONTINUE 02020253
206: C 02030253
207: C **** FCVS PROGRAM 253 - TEST 004 **** 02040253
208: C 02050253
209: C TEST 004 IS LIKE THE PREVIOUS TEST USING A LOGICAL ARRAY 02060253
210: C ELEMENT REFERENCE AS THE LOGICAL EXPRESSION OF THE BLOCK IF 02070253
211: C STATEMENT THAT HAS AN EMPTY IF-BLOCK STRUCTURE OF LEVEL ONE. 02080253
212: C IN THIS TEST THE LOGICAL EXPRESSION IS FALSE SO CONTROL SHOULD 02090253
213: C BE TRANSFERRED TO THE END IF STATEMENT THAT HAS THE SAME IF-LEVEL 02100253
214: C AS THE BLOCK IF STATEMENT ACCORDING TO SECTION 11.6.3. 02110253
215: C 02120253
216: C THE LOGICAL ARRAY ELEMENT REFERENCE LADN11(2) IS SET TO .FALSE. 02130253
217: C IN THE DATA STATEMENT AS FOLLOWS 02140253
218: C 02150253
219: C DATA LADN11/.TRUE., .FALSE./ 02160253
220: C 02170253
221: C 02180253
222: IVTNUM = 4 02190253
223: IF (ICZERO) 30040, 0040, 30040 02200253
224: 0040 CONTINUE 02210253
225: IVCOMP = 0 02220253
226: IF ( LADN11(2) ) THEN 02230253
227: END IF 02240253
228: IVCOMP = 1 02250253
229: IVCORR = 1 02260253
230: 40040 IF ( IVCOMP - 1 ) 20040, 10040, 20040 02270253
231: 30040 IVDELE = IVDELE + 1 02280253
232: WRITE (I02,80000) IVTNUM 02290253
233: IF (ICZERO) 10040, 0051, 20040 02300253
234: 10040 IVPASS = IVPASS + 1 02310253
235: WRITE (I02,80002) IVTNUM 02320253
236: GO TO 0051 02330253
237: 20040 IVFAIL = IVFAIL + 1 02340253
238: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 02350253
239: 0051 CONTINUE 02360253
240: C 02370253
241: C 02380253
242: C THE NEXT FOUR TESTS ARE FOR A BLOCK IF STRUCTURE OF LEVEL 02390253
243: C TWO IN THE INNERMOST IF-BLOCK. THIS STRUCTURE IS SHOWN BELOW - 02400253
244: C 02410253
245: C IF ( E1 ) THEN 02420253
246: C IF-BLOCK 1 02430253
247: C IF ( E2 ) THEN 02440253
248: C IF-BLOCK 2 02450253
249: C END IF 02460253
250: C END IF 02470253
251: C TESTS WILL USE THE FOUR COMBINATIONS OF TRUE AND FALSE FOR E1 AND 02480253
252: C E2 RESPECTIVELY TO TEST THE TRANSFER OF CONTROL AS DESCRIBED 02490253
253: C IN SECTION 11.6.3. 02500253
254: C 02510253
255: C 02520253
256: C 02530253
257: C **** FCVS PROGRAM 253 - TEST 005 **** 02540253
258: C 02550253
259: C TEST 005 USES A FALSE VALUE FOR E1 AND A FALSE VALUE FOR E2. 02560253
260: C CONTROL SHOULD BE TRANSFERRED TO THE END IF STATEMENT OF LEVEL 1 02570253
261: C WHICH MEANS IF-BLOCK 1 AND IF-BLOCK 2 SHOULD NOT BE EXECUTED. 02580253
262: C 02590253
263: C 02600253
264: IVTNUM = 5 02610253
265: IF (ICZERO) 30050, 0050, 30050 02620253
266: 0050 CONTINUE 02630253
267: IVCOMP = 1 02640253
268: LADN11(2) = .FALSE. 02650253
269: IF ( 76 .LT. 3 ) THEN 02660253
270: IVCOMP = IVCOMP * 2 02670253
271: IF ( ( LADN11(2) ) ) THEN 02680253
272: IVCOMP = IVCOMP * 3 02690253
273: END IF 02700253
274: END IF 02710253
275: IVCORR = 1 02720253
276: 40051 IF ( IVCOMP - 1 ) 20050, 10050, 20050 02730253
277: 30050 IVDELE = IVDELE + 1 02740253
278: WRITE (I02,80000) IVTNUM 02750253
279: IF (ICZERO) 10050, 0061, 20050 02760253
280: 10050 IVPASS = IVPASS + 1 02770253
281: WRITE (I02,80002) IVTNUM 02780253
282: GO TO 0061 02790253
283: 20050 IVFAIL = IVFAIL + 1 02800253
284: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 02810253
285: 0061 CONTINUE 02820253
286: C 02830253
287: C **** FCVS PROGRAM 253 - TEST 006 **** 02840253
288: C 02850253
289: C TEST 006 USES A FALSE VALUE FOR E1 AND A TRUE VALUE FOR E2. 02860253
290: C CONTROL SHOULD BE TRANSFERRED TO THE END IF STATEMENT OF LEVEL 1 02870253
291: C WHICH MEANS IF-BLOCK 1 AND IF-BLOCK 2 SHOULD NOT BE EXECUTED. 02880253
292: C 02890253
293: C 02900253
294: IVTNUM = 6 02910253
295: IF (ICZERO) 30060, 0060, 30060 02920253
296: 0060 CONTINUE 02930253
297: IVCOMP = 1 02940253
298: IVON03 = 32767 02950253
299: LVTN01 = .TRUE. 02960253
300: LVON01 = .TRUE. 02970253
301: IF ( .NOT. LVTN01 ) THEN 02980253
302: IVCOMP = IVCOMP * 2 02990253
303: IF ( LVON01 .AND. IVON03 .GE. 587 ) THEN 03000253
304: IVCOMP = IVCOMP * 3 03010253
305: END IF 03020253
306: END IF 03030253
307: IVCORR = 1 03040253
308: 40061 IF ( IVCOMP - 1 ) 20060, 10060, 20060 03050253
309: 30060 IVDELE = IVDELE + 1 03060253
310: WRITE (I02,80000) IVTNUM 03070253
311: IF (ICZERO) 10060, 0071, 20060 03080253
312: 10060 IVPASS = IVPASS + 1 03090253
313: WRITE (I02,80002) IVTNUM 03100253
314: GO TO 0071 03110253
315: 20060 IVFAIL = IVFAIL + 1 03120253
316: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 03130253
317: 0071 CONTINUE 03140253
318: C 03150253
319: C **** FCVS PROGRAM 253 - TEST 007 **** 03160253
320: C 03170253
321: C TEST 007 USES A TRUE VALUE FOR E1 AND A FALSE VALUE FOR E2. 03180253
322: C IF-BLOCK 1 SHOULD BE EXECUTED, BUT IF-BLOCK 2 SHOULD NOT BE 03190253
323: C EXECUTED. 03200253
324: C 03210253
325: C IF-BLOCK 1 ALSO CONTAINS AN UNCONDITIONAL GO TO AND A CONTINUE 03220253
326: C STATEMENT WHICH SHOULD BOTH BE EXECUTED. 03230253
327: C 03240253
328: C 03250253
329: IVTNUM = 7 03260253
330: IF (ICZERO) 30070, 0070, 30070 03270253
331: 0070 CONTINUE 03280253
332: IVCOMP = 1 03290253
333: IVON03 = 587 03300253
334: IVON04 = 3 03310253
335: LATN11(1) = .TRUE. 03320253
336: LATN11(2) = .FALSE. 03330253
337: IF ( (LATN11(1)) .OR. ((7 * IVON04) .EQ. 21) ) THEN 03340253
338: IVCOMP = IVCOMP * 2 03350253
339: GO TO 0072 03360253
340: 0072 CONTINUE 03370253
341: IF ( 7 .GT. IVON03 .OR. LATN11(2) ) THEN 03380253
342: IVCOMP = IVCOMP * 3 03390253
343: END IF 03400253
344: END IF 03410253
345: C 03420253
346: C **** IVCOMP IS DETERMINED BY IVCOMP = 2 = 1 * 2 **** 03430253
347: C 03440253
348: IVCORR = 2 03450253
349: 40070 IF ( IVCOMP - 2 ) 20070, 10070, 20070 03460253
350: 30070 IVDELE = IVDELE + 1 03470253
351: WRITE (I02,80000) IVTNUM 03480253
352: IF (ICZERO) 10070, 0081, 20070 03490253
353: 10070 IVPASS = IVPASS + 1 03500253
354: WRITE (I02,80002) IVTNUM 03510253
355: GO TO 0081 03520253
356: 20070 IVFAIL = IVFAIL + 1 03530253
357: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 03540253
358: 0081 CONTINUE 03550253
359: C 03560253
360: C **** FCVS PROGRAM 253 - TEST 008 **** 03570253
361: C 03580253
362: C TEST 008 USES A TRUE VALUE FOR E1 AND A TRUE VALUE FOR E2. 03590253
363: C BOTH IF-BLOCK 1 AND IF-BLOCK 2 SHOULD BE EXECUTED. 03600253
364: C 03610253
365: C IF-BLOCK 1 CONTAINS AN ASSIGN STATEMENT PLUS AN ASSIGNED GO TO 03620253
366: C STATEMENT WHICH SHOULD BOTH BE EXECUTED. 03630253
367: C 03640253
368: C 03650253
369: IVTNUM = 8 03660253
370: IF (ICZERO) 30080, 0080, 30080 03670253
371: 0080 CONTINUE 03680253
372: IVCOMP = 1 03690253
373: IVON04 = 4 03700253
374: IVON05 = 2 03710253
375: LVON01 = .FALSE. 03720253
376: LVTN01 = LVON01 03730253
377: C 03740253
378: IF ( IVON04 - 1 .LE. 6 .AND. 7 .GE. 5 / IVON05 ) THEN 03750253
379: IVCOMP = IVCOMP * 2 03760253
380: ASSIGN 0083 TO I 03770253
381: GO TO 0084 03780253
382: 0082 IVCOMP = IVCOMP * 3 03790253
383: GO TO 0085 03800253
384: 0083 IVCOMP = IVCOMP * 5 03810253
385: GO TO 0085 03820253
386: 0084 GO TO I, ( 0082, 0083 ) 03830253
387: 0085 IF ( .NOT. ( LVTN01 ) ) THEN 03840253
388: IVCOMP = IVCOMP * 7 03850253
389: END IF 03860253
390: END IF 03870253
391: C 03880253
392: C **** IVCOMP IS DETERMINED BY IVCOMP = 70 = 1 * 2 * 5 * 7 ****03890253
393: C 03900253
394: IVCORR = 70 03910253
395: 40080 IF ( IVCOMP - 70 ) 20080, 10080, 20080 03920253
396: 30080 IVDELE = IVDELE + 1 03930253
397: WRITE (I02,80000) IVTNUM 03940253
398: IF (ICZERO) 10080, 0091, 20080 03950253
399: 10080 IVPASS = IVPASS + 1 03960253
400: WRITE (I02,80002) IVTNUM 03970253
401: GO TO 0091 03980253
402: 20080 IVFAIL = IVFAIL + 1 03990253
403: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 04000253
404: 0091 CONTINUE 04010253
405: C 04020253
406: C THE NEXT FIVE TESTS ARE FOR A BLOCK IF STRUCTURE OF LEVEL 04030253
407: C THREE IN THE INNERMOST IF-BLOCK. THIS STRUCTURE IS SHOWN BELOW - 04040253
408: C 04050253
409: C IF ( E1 ) THEN 04060253
410: C IF-BLOCK 1 04070253
411: C IF ( E2 ) THEN 04080253
412: C IF-BLOCK 2 04090253
413: C IF ( E3 ) THEN 04100253
414: C IF-BLOCK 3 04110253
415: C END IF 04120253
416: C END IF 04130253
417: C END IF 04140253
418: C 04150253
419: C THE FIVE TESTS WILL USE THE FOLLOWING COMBINATIONS OF TRUE AND 04160253
420: C FALSE FOR E1, E2, AND E3 AS SHOWN BELOW - 04170253
421: C TEST NUMBER 9 10 11 12 13 04180253
422: C E1 T T T T F 04190253
423: C E2 T T F F T 04200253
424: C E3 T F T F T 04210253
425: C 04220253
426: C CONTROL SHOULD BE AS DESCRIBED IN SECTION 11.6.3. 04230253
427: C 04240253
428: C 04250253
429: C 04260253
430: C **** FCVS PROGRAM 253 - TEST 009 **** 04270253
431: C 04280253
432: C TEST 009 HAS E1, E2, AND E3 AS TRUE. IF-BLOCK 1, 2, AND 3 04290253
433: C SHOULD BE EXECUTED. IF-BLOCK 1 HAS A COMPUTED GO TO STATEMENT 04300253
434: C WHICH SHOULD BE EXECUTED. 04310253
435: C 04320253
436: C 04330253
437: IVTNUM = 9 04340253
438: IF (ICZERO) 30090, 0090, 30090 04350253
439: 0090 CONTINUE 04360253
440: IVCOMP = 1 04370253
441: IVON01 = 4 04380253
442: IVON02 = 3 04390253
443: C 04400253
444: IF ( .NOT. IVON01 .EQ. 3 .OR. .NOT. IVON02 .EQ. 4 ) THEN 04410253
445: IVCOMP = IVCOMP * 2 04420253
446: J = 2 04430253
447: GO TO 0095 04440253
448: 0092 IVCOMP = IVCOMP * 3 04450253
449: GO TO 0096 04460253
450: 0093 IVCOMP = IVCOMP * 5 04470253
451: GO TO 0096 04480253
452: 0094 IVCOMP = IVCOMP * 7 04490253
453: GO TO 0096 04500253
454: 0095 GO TO ( 0092, 0093, 0094 ), J 04510253
455: 0096 IF ( IVON01 .EQ. 4 .AND. IVON02 .NE. 2 ) THEN 04520253
456: IVCOMP = IVCOMP * 11 04530253
457: IF ( IVON01 .EQ. 4 .AND. .NOT. IVON02 .EQ. 2 ) THEN 04540253
458: IVCOMP = IVCOMP * 13 04550253
459: END IF 04560253
460: END IF 04570253
461: END IF 04580253
462: C 04590253
463: C **** IVCOMP IS DETERMINED BY IVCOMP = 1430 = 1*2*5*11*13 ****04600253
464: C 04610253
465: IVCORR = 1430 04620253
466: 40090 IF ( IVCOMP - 1430 ) 20090, 10090, 20090 04630253
467: 30090 IVDELE = IVDELE + 1 04640253
468: WRITE (I02,80000) IVTNUM 04650253
469: IF (ICZERO) 10090, 0101, 20090 04660253
470: 10090 IVPASS = IVPASS + 1 04670253
471: WRITE (I02,80002) IVTNUM 04680253
472: GO TO 0101 04690253
473: 20090 IVFAIL = IVFAIL + 1 04700253
474: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 04710253
475: 0101 CONTINUE 04720253
476: C 04730253
477: C **** FCVS PROGRAM 253 - TEST 010 **** 04740253
478: C 04750253
479: C 04760253
480: C TEST 010 HAS E1 AND E2 AS TRUE. E3 IS FALSE. IF-BLOCK 1 HAS 04770253
481: C A LOGICAL IF STATEMENT WHICH SHOULD BE EXECUTED BY TAKING THE 04780253
482: C TRUE PATH. IF-BLOCK 2 HAS AN ARITHMETIC IF STATEMENT WITH THE 04790253
483: C VALUE INSIDE THE PARENTHESIS EQUAL TO ZERO. IF-BLOCK 3 SHOULD NOT04800253
484: C BE EXECUTED. 04810253
485: C 04820253
486: C 04830253
487: IVTNUM = 10 04840253
488: IF (ICZERO) 30100, 0100, 30100 04850253
489: 0100 CONTINUE 04860253
490: IVCOMP = 1 04870253
491: IVON01 = +3 04880253
492: LVON01 = .FALSE. 04890253
493: C 04900253
494: IF ( .NOT. LVON01 .AND. .TRUE. .OR. .TRUE. .AND. .NOT. LVON01 ) 04910253
495: 1THEN 04920253
496: IVCOMP = IVCOMP * 2 04930253
497: IF ( 3 .LE. IVON01 ) IVCOMP = IVCOMP * 3 04940253
498: IF ( .NOT.(LVON01.AND..TRUE.).OR.(.TRUE..AND..NOT.LVON01) ) 04950253
499: 1 THEN 04960253
500: IF ( 3 - IVON01 ) 0103, 0102, 0103 04970253
501: 0102 IVCOMP = IVCOMP * 5 04980253
502: GO TO 0104 04990253
503: 0103 IVCOMP = IVCOMP * 7 05000253
504: 0104 CONTINUE 05010253
505: IF ( .NOT.(.NOT.(LVON01.AND..TRUE.)).OR..FALSE..AND. 05020253
506: 1 .NOT.LVON01 ) THEN 05030253
507: IVCOMP = IVCOMP * 11 05040253
508: END IF 05050253
509: END IF 05060253
510: END IF 05070253
511: C 05080253
512: C **** IVCOMP IS DETERMINED BY IVCOMP = 30 = 1 * 2 * 3 * 5 ****05090253
513: C 05100253
514: IVCORR = 30 05110253
515: 40100 IF ( IVCOMP - 30 ) 20100, 10100, 20100 05120253
516: 30100 IVDELE = IVDELE + 1 05130253
517: WRITE (I02,80000) IVTNUM 05140253
518: IF (ICZERO) 10100, 0111, 20100 05150253
519: 10100 IVPASS = IVPASS + 1 05160253
520: WRITE (I02,80002) IVTNUM 05170253
521: GO TO 0111 05180253
522: 20100 IVFAIL = IVFAIL + 1 05190253
523: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 05200253
524: 0111 CONTINUE 05210253
525: C 05220253
526: C **** FCVS PROGRAM 253 - TEST 011 **** 05230253
527: C 05240253
528: C 05250253
529: C TEST 011 HAS E1 AND E3 AS TRUE. E2 IS FALSE. ONLY IF-BLOCK 1 05260253
530: C SHOULD BE EXECUTED. THIS SET OF BLOCK IF STATEMENTS HAS INTEGER 05270253
531: C ASSIGNMENT STATEMENTS BETWEEN THE END IF STATEMENTS. A CHECK IS 05280253
532: C MADE TO DETERMINE IF THESE STATEMENTS HAVE BEEN EXECUTED. 05290253
533: C 05300253
534: C 05310253
535: IVTNUM = 11 05320253
536: IF (ICZERO) 30110, 0110, 30110 05330253
537: 0110 CONTINUE 05340253
538: IVCOMP = 1 05350253
539: LVON01 = .TRUE. 05360253
540: LVON02 = .FALSE. 05370253
541: LVON03 = .TRUE. 05380253
542: C 05390253
543: IF ( LVON01 ) THEN 05400253
544: IVCOMP = IVCOMP * 2 05410253
545: IF ( LVON02 ) THEN 05420253
546: IVCOMP = IVCOMP * 3 05430253
547: IF ( LVON03 ) THEN 05440253
548: IVCOMP = IVCOMP * 5 05450253
549: END IF 05460253
550: IVCOMP = IVCOMP * 7 05470253
551: END IF 05480253
552: IVCOMP = IVCOMP * 11 05490253
553: END IF 05500253
554: IVCOMP = IVCOMP * 13 05510253
555: C 05520253
556: C **** IVCOMP IS DETERMINED BY IVCOMP = 286 = 1*2*11*13 ****05530253
557: C 05540253
558: IVCORR = 286 05550253
559: 40110 IF ( IVCOMP - 286 ) 20110, 10110, 20110 05560253
560: 30110 IVDELE = IVDELE + 1 05570253
561: WRITE (I02,80000) IVTNUM 05580253
562: IF (ICZERO) 10110, 0121, 20110 05590253
563: 10110 IVPASS = IVPASS + 1 05600253
564: WRITE (I02,80002) IVTNUM 05610253
565: GO TO 0121 05620253
566: 20110 IVFAIL = IVFAIL + 1 05630253
567: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 05640253
568: 0121 CONTINUE 05650253
569: C 05660253
570: C **** FCVS PROGRAM 253 - TEST 012 **** 05670253
571: C 05680253
572: C 05690253
573: C TEST 012 HAS E1 AS TRUE. E2 AND E3 ARE FALSE. ONLY IF-BLOCK 105700253
574: C SHOULD BE EXECUTED. INTEGER ASSIGNMENT STATEMENTS ARE USED TO 05710253
575: C DETERMINE THE FLOW OF LOGIC THROUGH THE BLOCK IF STRUCTURE. 05720253
576: C 05730253
577: C 05740253
578: IVTNUM = 12 05750253
579: IF (ICZERO) 30120, 0120, 30120 05760253
580: 0120 CONTINUE 05770253
581: IVCOMP = 1 05780253
582: LVON01 = .TRUE. 05790253
583: LVON02 = .FALSE. 05800253
584: LVON03 = .FALSE. 05810253
585: C 05820253
586: IF ( LVON01 ) THEN 05830253
587: IVCOMP = IVCOMP * 2 05840253
588: IF ( LVON02 ) THEN 05850253
589: IVCOMP = IVCOMP * 3 05860253
590: IF ( LVON03 ) THEN 05870253
591: IVCOMP = IVCOMP * 5 05880253
592: END IF 05890253
593: IVCOMP = IVCOMP * 7 05900253
594: END IF 05910253
595: IVCOMP = IVCOMP * 11 05920253
596: END IF 05930253
597: IVCOMP = IVCOMP * 13 05940253
598: C 05950253
599: C **** IVCOMP IS DETERMINED BY IVCOMP = 286 = 1*2*11*13 ****05960253
600: C 05970253
601: IVCORR = 286 05980253
602: 40120 IF ( IVCOMP - 286 ) 20120, 10120, 20120 05990253
603: 30120 IVDELE = IVDELE + 1 06000253
604: WRITE (I02,80000) IVTNUM 06010253
605: IF (ICZERO) 10120, 0131, 20120 06020253
606: 10120 IVPASS = IVPASS + 1 06030253
607: WRITE (I02,80002) IVTNUM 06040253
608: GO TO 0131 06050253
609: 20120 IVFAIL = IVFAIL + 1 06060253
610: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 06070253
611: 0131 CONTINUE 06080253
612: C 06090253
613: C **** FCVS PROGRAM 253 - TEST 013 **** 06100253
614: C 06110253
615: C 06120253
616: C TEST 013 HAS E1 FALSE. E2 AND E3 ARE TRUE. NONE OF THE IF- 06130253
617: C BLOCKS SHOULD BE EXECUTED. INTEGER ASSIGNMENT STATEMENTS ARE 06140253
618: C USED TO TRACE THE FLOW OF LOGIC THROUGH THE BLOCK IF STRUCTURE. 06150253
619: C 06160253
620: C 06170253
621: IVTNUM = 13 06180253
622: IF (ICZERO) 30130, 0130, 30130 06190253
623: 0130 CONTINUE 06200253
624: IVCOMP = 1 06210253
625: LVON01 = .FALSE. 06220253
626: LVON02 = .TRUE. 06230253
627: LVON03 = .TRUE. 06240253
628: C 06250253
629: IF ( LVON01 ) THEN 06260253
630: IVCOMP = IVCOMP * 2 06270253
631: IF ( LVON02 ) THEN 06280253
632: IVCOMP = IVCOMP * 3 06290253
633: IF ( LVON03 ) THEN 06300253
634: IVCOMP = IVCOMP * 5 06310253
635: END IF 06320253
636: IVCOMP = IVCOMP * 7 06330253
637: END IF 06340253
638: IVCOMP = IVCOMP * 11 06350253
639: END IF 06360253
640: IVCOMP = IVCOMP * 13 06370253
641: C 06380253
642: C **** IVCOMP IS DETERMINED BY IVCOMP = 13 = 1 * 13 ****06390253
643: C 06400253
644: IVCORR = 13 06410253
645: 40130 IF ( IVCOMP - 13 ) 20130, 10130, 20130 06420253
646: 30130 IVDELE = IVDELE + 1 06430253
647: WRITE (I02,80000) IVTNUM 06440253
648: IF (ICZERO) 10130, 0141, 20130 06450253
649: 10130 IVPASS = IVPASS + 1 06460253
650: WRITE (I02,80002) IVTNUM 06470253
651: GO TO 0141 06480253
652: 20130 IVFAIL = IVFAIL + 1 06490253
653: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 06500253
654: 0141 CONTINUE 06510253
655: C 06520253
656: C **** FCVS PROGRAM 253 - TEST 014 **** 06530253
657: C 06540253
658: C TEST 014 IS TO CHECK FOR PROPER TRANSFER OF CONTROL USING 06550253
659: C LOGICAL IF STATEMENTS WITHIN IF-BLOCKS AND BRANCHING TO THE 06560253
660: C OUTERMOST IF-LEVEL FROM THE INNERMOST IF-LEVEL IN A CONTROLLED 06570253
661: C LOOP. THE INNERMOST IF-LEVEL SHOULD BE EXECUTED 10 TIMES. A 06580253
662: C LOGICAL IF STATEMENT IS USED IN EACH OF THE IF-LEVELS IN CASE 06590253
663: C THE EXECUTION LOGIC BRANCHES INCORRECTLY. THIS SHOULD PREVENT 06600253
664: C AN INFINITE LOOP DURING THE EXECUTION OF THIS ROUTINE. 06610253
665: C 06620253
666: C 06630253
667: IVTNUM = 14 06640253
668: IF (ICZERO) 30140, 0140, 30140 06650253
669: 0140 CONTINUE 06660253
670: IVCOMP = 0 06670253
671: IVON01 = 0 06680253
672: IVON02 = 0 06690253
673: IVON03 = 0 06700253
674: 0142 IF ( IVON03 .LT. 10 ) THEN 06710253
675: IVON01 = IVON01 + 1 06720253
676: IF ( IVON01 .GT. 11 ) GO TO 0143 06730253
677: IF ( IVON03 .LT. 10 ) THEN 06740253
678: IVON02 = IVON02 + 1 06750253
679: IF ( IVON02 .GT. 11 ) GO TO 0143 06760253
680: IF ( IVON03 .LT. 10 ) THEN 06770253
681: IVON03 = IVON03 + 1 06780253
682: IF ( IVON03 .GT. 11 ) GO TO 0143 06790253
683: IF ( IVON03 .LE. 10 ) GO TO 0142 06800253
684: END IF 06810253
685: END IF 06820253
686: END IF 06830253
687: 0143 CONTINUE 06840253
688: IVCOMP = IVON01 06850253
689: IVCORR = 10 06860253
690: 40140 IF ( IVCOMP - 10 ) 20140, 10140, 20140 06870253
691: 30140 IVDELE = IVDELE + 1 06880253
692: WRITE (I02,80000) IVTNUM 06890253
693: IF (ICZERO) 10140, 0151, 20140 06900253
694: 10140 IVPASS = IVPASS + 1 06910253
695: WRITE (I02,80002) IVTNUM 06920253
696: GO TO 0151 06930253
697: 20140 IVFAIL = IVFAIL + 1 06940253
698: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 06950253
699: 0151 CONTINUE 06960253
700: C 06970253
701: C THE NEXT TWO TESTS ARE TO CHECK THE COUNTERS IN IF-LEVEL 2 AND 06980253
702: C IF-LEVEL 3 RESPECTIVELY IN THE PREVIOUS TEST. 06990253
703: C 07000253
704: C 07010253
705: C 07020253
706: C **** FCVS PROGRAM 253 - TEST 015 **** 07030253
707: C 07040253
708: C TEST 015 CHECKS THAT THE INTEGER COUNTER IN IF-LEVEL 2 IN THE 07050253
709: C PREVIOUS TEST IS EQUAL TO TEN (10). 07060253
710: C 07070253
711: C 07080253
712: IVTNUM = 15 07090253
713: IF (ICZERO) 30150, 0150, 30150 07100253
714: 0150 CONTINUE 07110253
715: IVCOMP = IVON02 07120253
716: IVCORR = 10 07130253
717: 40150 IF ( IVCOMP - 10 ) 20150, 10150, 20150 07140253
718: 30150 IVDELE = IVDELE + 1 07150253
719: WRITE (I02,80000) IVTNUM 07160253
720: IF (ICZERO) 10150, 0161, 20150 07170253
721: 10150 IVPASS = IVPASS + 1 07180253
722: WRITE (I02,80002) IVTNUM 07190253
723: GO TO 0161 07200253
724: 20150 IVFAIL = IVFAIL + 1 07210253
725: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 07220253
726: 0161 CONTINUE 07230253
727: C 07240253
728: C **** FCVS PROGRAM 253 - TEST 016 **** 07250253
729: C 07260253
730: C TEST 016 CHECKS THAT THE INTEGER COUNTER IN IF-LEVEL 3 IN THE 07270253
731: C PREVIOUS TEST IS EQUAL TO TEN (10). 07280253
732: C 07290253
733: C 07300253
734: IVTNUM = 16 07310253
735: IF (ICZERO) 30160, 0160, 30160 07320253
736: 0160 CONTINUE 07330253
737: IVCOMP = IVON03 07340253
738: IVCORR = 10 07350253
739: 40160 IF ( IVCOMP - 10 ) 20160, 10160, 20160 07360253
740: 30160 IVDELE = IVDELE + 1 07370253
741: WRITE (I02,80000) IVTNUM 07380253
742: IF (ICZERO) 10160, 0171, 20160 07390253
743: 10160 IVPASS = IVPASS + 1 07400253
744: WRITE (I02,80002) IVTNUM 07410253
745: GO TO 0171 07420253
746: 20160 IVFAIL = IVFAIL + 1 07430253
747: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 07440253
748: 0171 CONTINUE 07450253
749: C 07460253
750: C THE NEXT THREE TESTS ARE SIMILAR TO THE PREVIOUS THREE TESTS 07470253
751: C IN THAT THEY TEST THE TRANSFER OF CONTROL WITHIN A THREE LEVEL 07480253
752: C BLOCK IF STRUCTURE. EACH OF THE IF-LEVELS ARE EXECUTED AS IF THEY07490253
753: C WERE A LOOP USING LOGICAL IF STATEMENTS WITHIN EACH IF-LEVEL. 07500253
754: C 07510253
755: C 07520253
756: C 07530253
757: C **** FCVS PROGRAM 253 - TEST 017 **** 07540253
758: C 07550253
759: C TEST 017 CHECKS THAT THE VALUE OF THE INTEGER COUNTER IVON04 IN07560253
760: C IF-LEVEL 1 IN THIS TEST EQUALS 10. 07570253
761: C 07580253
762: C 07590253
763: IVTNUM = 17 07600253
764: IF (ICZERO) 30170, 0170, 30170 07610253
765: 0170 CONTINUE 07620253
766: IVCOMP = 0 07630253
767: IVON01 = 0 07640253
768: IVON02 = 0 07650253
769: IVON03 = 0 07660253
770: IVON04 = 0 07670253
771: IVON05 = 0 07680253
772: IVON06 = 0 07690253
773: C 07700253
774: 0172 IF ( IVON01 .LT. 10 ) THEN 07710253
775: IVON01 = IVON01 + 1 07720253
776: IVON04 = IVON04 + 1 07730253
777: IF ( IVON01 .GT. 11 ) GO TO 0175 07740253
778: 0173 IF ( IVON02 .LT. 10 ) THEN 07750253
779: IVON02 = IVON02 + 1 07760253
780: IVON05 = IVON05 + 1 07770253
781: IF ( IVON02 .GT. 11 ) GO TO 0175 07780253
782: 0174 IF ( IVON03 .LT. 10 ) THEN 07790253
783: IVON03 = IVON03 + 1 07800253
784: IVON06 = IVON06 + 1 07810253
785: IF ( IVON03 .GT. 11 ) GO TO 0175 07820253
786: IF ( IVON03 .LE. 10 ) GO TO 0174 07830253
787: END IF 07840253
788: IVON03 = 0 07850253
789: IF ( IVON02 .LE. 10 ) GO TO 0173 07860253
790: END IF 07870253
791: IVON02 = 0 07880253
792: IF ( IVON01 .LE. 10 ) GO TO 0172 07890253
793: END IF 07900253
794: 0175 CONTINUE 07910253
795: IVCOMP = IVON04 07920253
796: IVCORR = 10 07930253
797: 40170 IF ( IVCOMP - 10 ) 20170, 10170, 20170 07940253
798: 30170 IVDELE = IVDELE + 1 07950253
799: WRITE (I02,80000) IVTNUM 07960253
800: IF (ICZERO) 10170, 0181, 20170 07970253
801: 10170 IVPASS = IVPASS + 1 07980253
802: WRITE (I02,80002) IVTNUM 07990253
803: GO TO 0181 08000253
804: 20170 IVFAIL = IVFAIL + 1 08010253
805: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 08020253
806: 0181 CONTINUE 08030253
807: C 08040253
808: C **** FCVS PROGRAM 253 - TEST 018 **** 08050253
809: C 08060253
810: C TEST 018 CHECKS THAT THE VALUE OF THE INTEGER COUNTER IVON05 IN08070253
811: C IF-LEVEL 2 OF THE PREVIOUS TEST EQUALS 100. 08080253
812: C 08090253
813: C 08100253
814: IVTNUM = 18 08110253
815: IF (ICZERO) 30180, 0180, 30180 08120253
816: 0180 CONTINUE 08130253
817: IVCOMP = IVON05 08140253
818: IVCORR = 100 08150253
819: 40180 IF ( IVCOMP - 100 ) 20180, 10180, 20180 08160253
820: 30180 IVDELE = IVDELE + 1 08170253
821: WRITE (I02,80000) IVTNUM 08180253
822: IF (ICZERO) 10180, 0191, 20180 08190253
823: 10180 IVPASS = IVPASS + 1 08200253
824: WRITE (I02,80002) IVTNUM 08210253
825: GO TO 0191 08220253
826: 20180 IVFAIL = IVFAIL + 1 08230253
827: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 08240253
828: 0191 CONTINUE 08250253
829: C 08260253
830: C **** FCVS PROGRAM 253 - TEST 019 **** 08270253
831: C 08280253
832: C TEST 019 CHECKS THAT THE VALUE OF THE INTEGER COUNTER IVON06 IN08290253
833: C IF-LEVEL 3 OF THE PREVIOUS TEST EQUALS 1000. 08300253
834: C 08310253
835: C 08320253
836: IVTNUM = 19 08330253
837: IF (ICZERO) 30190, 0190, 30190 08340253
838: 0190 CONTINUE 08350253
839: IVCOMP = IVON06 08360253
840: IVCORR = 1000 08370253
841: 40190 IF ( IVCOMP - 1000 ) 20190, 10190, 20190 08380253
842: 30190 IVDELE = IVDELE + 1 08390253
843: WRITE (I02,80000) IVTNUM 08400253
844: IF (ICZERO) 10190, 0201, 20190 08410253
845: 10190 IVPASS = IVPASS + 1 08420253
846: WRITE (I02,80002) IVTNUM 08430253
847: GO TO 0201 08440253
848: 20190 IVFAIL = IVFAIL + 1 08450253
849: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 08460253
850: 0201 CONTINUE 08470253
851: C 08480253
852: C **** FCVS PROGRAM 253 - TEST 020 **** 08490253
853: C 08500253
854: C TEST 020 USES A LOGICAL STATEMENT FUNCTION LFIS01(L) AS 08510253
855: C THE LOGICAL EXPRESSION IN A BLOCK IF STRUCTURE. THE LOGICAL 08520253
856: C STATEMENT FUNCTION TAKES THE LOGICAL COMPLEMENT OF THE LOGICAL 08530253
857: C VALUE SUPPLIED. THE VALUE OF .FALSE. IS SUPPLIED AND THE LOGICAL 08540253
858: C VALUE OF .TRUE. SHOULD BE RETURNED AS THE LOGICAL FUNCTION 08550253
859: C REFERENCE. THE IF-BLOCK OF LEVEL ONE SHOULD BE EXECUTED. 08560253
860: C 08570253
861: C 08580253
862: IVTNUM = 20 08590253
863: IF (ICZERO) 30200, 0200, 30200 08600253
864: 0200 CONTINUE 08610253
865: IVCOMP = 0 08620253
866: LVON01 = .FALSE. 08630253
867: IF ( LFIS01( LVON01 ) ) THEN 08640253
868: IVCOMP = 1 08650253
869: END IF 08660253
870: IVCORR = 1 08670253
871: 40200 IF ( IVCOMP - 1 ) 20200, 10200, 20200 08680253
872: 30200 IVDELE = IVDELE + 1 08690253
873: WRITE (I02,80000) IVTNUM 08700253
874: IF (ICZERO) 10200, 0211, 20200 08710253
875: 10200 IVPASS = IVPASS + 1 08720253
876: WRITE (I02,80002) IVTNUM 08730253
877: GO TO 0211 08740253
878: 20200 IVFAIL = IVFAIL + 1 08750253
879: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 08760253
880: 0211 CONTINUE 08770253
881: C 08780253
882: C 08790253
883: C THE FOLLOWING SERIES OF TESTS ARE TO CHECK THE PRECEDENCE OF 08800253
884: C OPERATORS. THESE INCLUDE ARITHMETIC, RELATIONAL, AND LOGICAL 08810253
885: C OPERATORS. ARITHMETIC OPERATORS ARE CHECKED FIRST FROM THE 08820253
886: C EVALUATION OF CERTAIN ARITHMETIC EXPRESSIONS THAT USE ONLY INTEGER08830253
887: C VALUES IN THE COMPUTATIONS. ALL INTERMEDIATE AND FINAL VALUES ARE08840253
888: C LESS THAN 32767. AFTER EACH OF THE STATEMENTS IS TESTED BY ITSELF08850253
889: C THEN THE RELATIONAL OPERATORS ARE TESTED USING THE INTEGER VALUES 08860253
890: C OBTAINED IN EACH OF THE ARITHMETIC EXPRESSIONS. IN THIS TEST THE 08870253
891: C RELATIONAL EXPRESSIONS ARE COMBINED WITH LOGICAL OPERATORS TO 08880253
892: C PRODUCE A LOGICAL EXPRESSION. FINALLY THE ENTIRE SET OF SIX (6) 08890253
893: C ARITHMETIC , RELATIONAL, AND LOGICAL EXPRESSIONS IS COMBINED INTO 08900253
894: C ONE LOGICAL IF STATEMENT. 08910253
895: C 08920253
896: C 08930253
897: C 08940253
898: C **** FCVS PROGRAM 253 - TEST 021 **** 08950253
899: C 08960253
900: C TEST 021 CHECKS THE ORDER OF EVALUATION WHEN AN ARITHMETIC 08970253
901: C EXPRESSION HAS PARENTHESES AND A SERIES OF EXPONENTIATION. THE 08980253
902: C ORDER OF EVALUATION IS SHOWN BELOW - 08990253
903: C 09000253
904: C 1 + 2 * ( 4 - 2 ) ** 2 ** 3 - 4 / 2 09010253
905: C 1 + 2 * ( 2 ) ** 2 ** 3 - 4 / 2 09020253
906: C 1 + 2 * 2 ** 8 - 4 / 2 09030253
907: C 1 + 2 * 256 - 4 / 2 09040253
908: C 1 + 512 - 2 09050253
909: C 513 - 2 09060253
910: C 511 09070253
911: C 09080253
912: IVTNUM = 21 09090253
913: IF (ICZERO) 30210, 0210, 30210 09100253
914: 0210 CONTINUE 09110253
915: IVON01 = 1 09120253
916: IVON02 = 2 09130253
917: IVON03 = 4 09140253
918: IVON04 = 2 09150253
919: IVON05 = 4 09160253
920: IVON06 = 2 09170253
921: IVCOMP = IVON01 + IVON02 * ( IVON03 - IVON04 ) ** 2 ** 3 - IVON05 09180253
922: 1 / IVON06 09190253
923: IVCORR = 511 09200253
924: 40210 IF ( IVCOMP - 511 ) 20210, 10210, 20210 09210253
925: 30210 IVDELE = IVDELE + 1 09220253
926: WRITE (I02,80000) IVTNUM 09230253
927: IF (ICZERO) 10210, 0221, 20210 09240253
928: 10210 IVPASS = IVPASS + 1 09250253
929: WRITE (I02,80002) IVTNUM 09260253
930: GO TO 0221 09270253
931: 20210 IVFAIL = IVFAIL + 1 09280253
932: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 09290253
933: 0221 CONTINUE 09300253
934: C 09310253
935: C **** FCVS PROGRAM 253 - TEST 022 **** 09320253
936: C 09330253
937: C TEST 022 IS A SERIES OF DIVISIONS FOLLOWED BY A SERIES OF 09340253
938: C MULTIPLICATIONS ALL WITHOUT ANY PARENTHESES. 09350253
939: C 09360253
940: C 16 / 2 / 2 / 2 * 4 * 8 09370253
941: C 8 / 2 / 2 * 4 * 8 09380253
942: C 4 / 2 * 4 * 8 09390253
943: C 2 * 4 * 8 09400253
944: C 8 * 8 09410253
945: C 64 09420253
946: C 09430253
947: C 09440253
948: IVTNUM = 22 09450253
949: IF (ICZERO) 30220, 0220, 30220 09460253
950: 0220 CONTINUE 09470253
951: IVON07 = 16 09480253
952: IVON08 = 2 09490253
953: IVON09 = 2 09500253
954: IVON10 = 2 09510253
955: IVON11 = 4 09520253
956: IVON12 = 8 09530253
957: IVCOMP = IVON07 / IVON08 / IVON09 / IVON10 * IVON11 * IVON12 09540253
958: IVCORR = 64 09550253
959: 40220 IF ( IVCOMP - 64 ) 20220, 10220, 20220 09560253
960: 30220 IVDELE = IVDELE + 1 09570253
961: WRITE (I02,80000) IVTNUM 09580253
962: IF (ICZERO) 10220, 0231, 20220 09590253
963: 10220 IVPASS = IVPASS + 1 09600253
964: WRITE (I02,80002) IVTNUM 09610253
965: GO TO 0231 09620253
966: 20220 IVFAIL = IVFAIL + 1 09630253
967: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 09640253
968: 0231 CONTINUE 09650253
969: C 09660253
970: C **** FCVS PROGRAM 253 - TEST 023 **** 09670253
971: C 09680253
972: C TEST 023 HAS ONE SUBTRACTION IMBEDDED IN A SERIES OF ADDITIONS 09690253
973: C WITHOUT ANY PARENTHESES. 09700253
974: C 09710253
975: C 3 + 4 - 1 + 5 09720253
976: C 7 - 1 + 5 09730253
977: C 6 + 5 09740253
978: C 11 09750253
979: C 09760253
980: C 09770253
981: IVTNUM = 23 09780253
982: IF (ICZERO) 30230, 0230, 30230 09790253
983: 0230 CONTINUE 09800253
984: IVON13 = 3 09810253
985: IVON14 = 4 09820253
986: IVON15 = 1 09830253
987: IVON16 = 5 09840253
988: IVCOMP = IVON13 + IVON14 - IVON15 + IVON16 09850253
989: IVCORR = 11 09860253
990: 40230 IF ( IVCOMP - 11 ) 20230, 10230, 20230 09870253
991: 30230 IVDELE = IVDELE + 1 09880253
992: WRITE (I02,80000) IVTNUM 09890253
993: IF (ICZERO) 10230, 0241, 20230 09900253
994: 10230 IVPASS = IVPASS + 1 09910253
995: WRITE (I02,80002) IVTNUM 09920253
996: GO TO 0241 09930253
997: 20230 IVFAIL = IVFAIL + 1 09940253
998: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 09950253
999: 0241 CONTINUE 09960253
1000: C 09970253
1001: C **** FCVS PROGRAM 253 - TEST 024 **** 09980253
1002: C 09990253
1003: C TEST 024 HAS ADDITION, SUBTRACTION, MULTIPLICATION, DIVISION, 10000253
1004: C AND EXPONENTIATION WITHOUT PARENTHESES. 10010253
1005: C 10020253
1006: C 4 + 4 - 6 * 3 / 3 ** 2 10030253
1007: C 4 + 4 - 6 * 3 / 9 10040253
1008: C 4 + 4 - 18 / 9 10050253
1009: C 4 + 4 - 2 10060253
1010: C 8 - 2 10070253
1011: C 6 10080253
1012: C 10090253
1013: C 10100253
1014: IVTNUM = 24 10110253
1015: IF (ICZERO) 30240, 0240, 30240 10120253
1016: 0240 CONTINUE 10130253
1017: IVON17 = 4 10140253
1018: IVON18 = 4 10150253
1019: IVON19 = 6 10160253
1020: IVON20 = 3 10170253
1021: IVON21 = 3 10180253
1022: IVON22 = 2 10190253
1023: IVCOMP = IVON17 + IVON18 - IVON19 * IVON20 / IVON21 ** IVON22 10200253
1024: IVCORR = 6 10210253
1025: 40240 IF ( IVCOMP - 6 ) 20240, 10240, 20240 10220253
1026: 30240 IVDELE = IVDELE + 1 10230253
1027: WRITE (I02,80000) IVTNUM 10240253
1028: IF (ICZERO) 10240, 0251, 20240 10250253
1029: 10240 IVPASS = IVPASS + 1 10260253
1030: WRITE (I02,80002) IVTNUM 10270253
1031: GO TO 0251 10280253
1032: 20240 IVFAIL = IVFAIL + 1 10290253
1033: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 10300253
1034: 0251 CONTINUE 10310253
1035: C 10320253
1036: C **** FCVS PROGRAM 253 - TEST 025 **** 10330253
1037: C 10340253
1038: C TEST 025 IS LIKE TEST NUMBER 021 EXCEPT THAT THE PARENTHESES 10350253
1039: C HAVE BEEN REMOVED. THE INTEGER VALUES USED AS INPUT ARE THE SAME.10360253
1040: C REMOVAL OF THE PARENTHESES CHANGES THE ORDER OF EVALUATION SO THE 10370253
1041: C FINAL INTEGER RESULT IS DIFFERENT. 10380253
1042: C 10390253
1043: C 1 + 2 * 4 - 2 ** 2 ** 3 - 4 / 2 10400253
1044: C 1 + 2 * 4 - 2 ** 8 - 4 / 2 10410253
1045: C 1 + 2 * 4 - 256 - 4 / 2 10420253
1046: C 1 + 8 - 256 - 2 10430253
1047: C 9 - 256 - 2 10440253
1048: C -247 - 2 10450253
1049: C -249 10460253
1050: C 10470253
1051: IVTNUM = 25 10480253
1052: IF (ICZERO) 30250, 0250, 30250 10490253
1053: 0250 CONTINUE 10500253
1054: IVON23 = 1 10510253
1055: IVON24 = 2 10520253
1056: IVON25 = 4 10530253
1057: IVON26 = 2 10540253
1058: IVON27 = 4 10550253
1059: IVON28 = 2 10560253
1060: IVCOMP = IVON23 + IVON24 * IVON25 - IVON26 ** 2 ** 3 - IVON27 10570253
1061: 1 / IVON28 10580253
1062: IVCORR = -249 10590253
1063: 40250 IF ( IVCOMP + 249 ) 20250, 10250, 20250 10600253
1064: 30250 IVDELE = IVDELE + 1 10610253
1065: WRITE (I02,80000) IVTNUM 10620253
1066: IF (ICZERO) 10250, 0261, 20250 10630253
1067: 10250 IVPASS = IVPASS + 1 10640253
1068: WRITE (I02,80002) IVTNUM 10650253
1069: GO TO 0261 10660253
1070: 20250 IVFAIL = IVFAIL + 1 10670253
1071: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 10680253
1072: 0261 CONTINUE 10690253
1073: C 10700253
1074: C **** FCVS PROGRAM 253 - TEST 026 **** 10710253
1075: C 10720253
1076: C TEST 026 IS JUST LIKE TEST NUMBER 022 EXCEPT THAT PARENTHESES 10730253
1077: C HAVE BEEN ADDED. ALTHOUGH THE INTEGER VALUES ARE THE SAME, THE 10740253
1078: C PARENTHESES CHANGE THE ORDER OF EVALUATION SO THAT THE FINAL 10750253
1079: C INTEGER RESULT IS DIFFERENT. 10760253
1080: C 10770253
1081: C 16 / ( 2 / 2 ) / 2 * ( 4 * 8 ) 10780253
1082: C 16 / ( 1 ) / 2 * ( 32 ) 10790253
1083: C 16 / 2 * 32 10800253
1084: C 8 * 32 10810253
1085: C 256 10820253
1086: C 10830253
1087: IVTNUM = 26 10840253
1088: IF (ICZERO) 30260, 0260, 30260 10850253
1089: 0260 CONTINUE 10860253
1090: IVON29 = 16 10870253
1091: IVON30 = 2 10880253
1092: IVON31 = 2 10890253
1093: IVON32 = 2 10900253
1094: IVON33 = 4 10910253
1095: IVON34 = 8 10920253
1096: IVCOMP = IVON29 / ( IVON30 / IVON31 ) / IVON32 * ( IVON33 * 10930253
1097: 1 IVON34 ) 10940253
1098: IVCORR = 256 10950253
1099: 40260 IF ( IVCOMP - 256 ) 20260, 10260, 20260 10960253
1100: 30260 IVDELE = IVDELE + 1 10970253
1101: WRITE (I02,80000) IVTNUM 10980253
1102: IF (ICZERO) 10260, 0271, 20260 10990253
1103: 10260 IVPASS = IVPASS + 1 11000253
1104: WRITE (I02,80002) IVTNUM 11010253
1105: GO TO 0271 11020253
1106: 20260 IVFAIL = IVFAIL + 1 11030253
1107: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 11040253
1108: 0271 CONTINUE 11050253
1109: C 11060253
1110: C **** FCVS PROGRAM 253 - TEST 027 **** 11070253
1111: C 11080253
1112: C TEST 027 COMBINES THE INTEGER RESULTS OBTAINED IN THE PREVIOUS 11090253
1113: C SIX TESTS AND USES RELATIONAL AND LOGICAL OPERATORS IN ONE 11100253
1114: C LOGICAL EXPRESSION. RELATIONAL EXPRESSIONS ARE EVALUATED FIRST 11110253
1115: C FOLLOWED BY THE LOGICAL OPERATORS .NOT. , .AND., AND .OR. IN THAT 11120253
1116: C ORDER. 11130253
1117: C 11140253
1118: C 511 .LT. 64 .OR. .NOT. 11 .LE. 6 .AND. -249 .LE. 256 11150253
1119: C F .OR. .NOT. F .AND. T 11160253
1120: C F .OR. T .AND. T 11170253
1121: C F .OR. T 11180253
1122: C T 11190253
1123: C 11200253
1124: C 11210253
1125: IVTNUM = 27 11220253
1126: IF (ICZERO) 30270, 0270, 30270 11230253
1127: 0270 CONTINUE 11240253
1128: IVON35 = 511 11250253
1129: IVON36 = 64 11260253
1130: IVON37 = 11 11270253
1131: IVON38 = 6 11280253
1132: IVON39 = -249 11290253
1133: IVON40 = 256 11300253
1134: IVCOMP = 0 11310253
1135: LVON01 = IVON35 .LT. IVON36 .OR. .NOT. IVON37 .LE. IVON38 .AND. 11320253
1136: 1 IVON39 .LE. IVON40 11330253
1137: IF ( LVON01 ) IVCOMP = 1 11340253
1138: IVCORR = 1 11350253
1139: 40270 IF ( IVCOMP - 1 ) 20270, 10270, 20270 11360253
1140: 30270 IVDELE = IVDELE + 1 11370253
1141: WRITE (I02,80000) IVTNUM 11380253
1142: IF (ICZERO) 10270, 0281, 20270 11390253
1143: 10270 IVPASS = IVPASS + 1 11400253
1144: WRITE (I02,80002) IVTNUM 11410253
1145: GO TO 0281 11420253
1146: 20270 IVFAIL = IVFAIL + 1 11430253
1147: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 11440253
1148: 0281 CONTINUE 11450253
1149: C 11460253
1150: C **** FCVS PROGRAM 253 - TEST 028 **** 11470253
1151: C 11480253
1152: C TEST 028 IS THE BIGGIE. IT COMBINES ALL OF THE INTEGER VALUES 11490253
1153: C AND RESULTS IN THE PREVIOUS SEVEN (7) TESTS. IF THERE WERE ANY 11500253
1154: C ERRORS IN ANY OF THE PREVIOUS SEVEN TESTS, THEN THIS TEST SHOULD 11510253
1155: C ALSO FAIL. 11520253
1156: C 11530253
1157: C 11540253
1158: IVTNUM = 28 11550253
1159: IF (ICZERO) 30280, 0280, 30280 11560253
1160: 0280 CONTINUE 11570253
1161: IVCOMP = 0 11580253
1162: IF ( IVON01 + IVON02 * ( IVON03 - IVON04 ) ** 2 ** 3 - IVON05 / 11590253
1163: 1IVON06 .LT. IVON07 / IVON08 / IVON09 / IVON10 * IVON11 * IVON12 11600253
1164: 2.OR. .NOT. IVON13 + IVON14 - IVON15 + IVON16 .LE. IVON17 + IVON18 11610253
1165: 3- IVON19 * IVON20 / IVON21 ** IVON22 .AND. IVON23 + IVON24 * 11620253
1166: 4IVON25 - IVON26 ** 2 ** 3 - IVON27 / IVON28 .LE. IVON29 / ( IVON3011630253
1167: 5 / IVON31 ) / IVON32 * ( IVON33 * IVON34 ) ) IVCOMP = 1 11640253
1168: IVCORR = 1 11650253
1169: 40280 IF ( IVCOMP - 1 ) 20280, 10280, 20280 11660253
1170: 30280 IVDELE = IVDELE + 1 11670253
1171: WRITE (I02,80000) IVTNUM 11680253
1172: IF (ICZERO) 10280, 0291, 20280 11690253
1173: 10280 IVPASS = IVPASS + 1 11700253
1174: WRITE (I02,80002) IVTNUM 11710253
1175: GO TO 0291 11720253
1176: 20280 IVFAIL = IVFAIL + 1 11730253
1177: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 11740253
1178: 0291 CONTINUE 11750253
1179: C 11760253
1180: C 11770253
1181: C WRITE OUT TEST SUMMARY 11780253
1182: C 11790253
1183: WRITE (I02,90004) 11800253
1184: WRITE (I02,90014) 11810253
1185: WRITE (I02,90004) 11820253
1186: WRITE (I02,90000) 11830253
1187: WRITE (I02,90004) 11840253
1188: WRITE (I02,90020) IVFAIL 11850253
1189: WRITE (I02,90022) IVPASS 11860253
1190: WRITE (I02,90024) IVDELE 11870253
1191: STOP 11880253
1192: 90001 FORMAT (1H ,24X,5HFM253) 11890253
1193: 90000 FORMAT (1H ,20X,20HEND OF PROGRAM FM253) 11900253
1194: C 11910253
1195: C FORMATS FOR TEST DETAIL LINES 11920253
1196: C 11930253
1197: 80000 FORMAT (1H ,4X,I5,6X,7HDELETED) 11940253
1198: 80002 FORMAT (1H ,4X,I5,7X,4HPASS) 11950253
1199: 80010 FORMAT (1H ,4X,I5,7X,4HFAIL,10X,I6,9X,I6) 11960253
1200: 80012 FORMAT (1H ,4X,I5,7X,4HFAIL,4X,E12.5,3X,E12.5) 11970253
1201: 80018 FORMAT (1H ,4X,I5,7X,4HFAIL,2X,A14,1X,A14) 11980253
1202: C 11990253
1203: C FORMAT STATEMENTS FOR PAGE HEADERS 12000253
1204: C 12010253
1205: 90002 FORMAT (1H1) 12020253
1206: 90004 FORMAT (1H ) 12030253
1207: 90006 FORMAT (1H ,10X,34HFORTRAN COMPILER VALIDATION SYSTEM) 12040253
1208: 90008 FORMAT (1H ,21X,11HVERSION 1.0) 12050253
1209: 90010 FORMAT (1H ,8X,38HFOR OFFICIAL USE ONLY - COPYRIGHT 1978) 12060253
1210: 90012 FORMAT (1H ,5X,4HTEST,5X,9HPASS/FAIL,5X,8HCOMPUTED,8X,7HCORRECT) 12070253
1211: 90014 FORMAT (1H ,5X,46H----------------------------------------------) 12080253
1212: 90016 FORMAT (1H ,18X,17HSUBSET LEVEL TEST) 12090253
1213: C 12100253
1214: C FORMAT STATEMENTS FOR RUN SUMMARY 12110253
1215: C 12120253
1216: 90020 FORMAT (1H ,19X,I5,13H TESTS FAILED) 12130253
1217: 90022 FORMAT (1H ,19X,I5,13H TESTS PASSED) 12140253
1218: 90024 FORMAT (1H ,19X,I5,14H TESTS DELETED) 12150253
1219: END 12160253
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.