![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to FM351.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 FM351.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 FM351 00010351
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 00020351
6: C 00030351
7: C THIS PROGRAM CONTAINS TESTS FOR COMPOUND ARITHMETIC 00040351
8: C EXPRESSIONS WHICH NECESSITATE THE APPLICATION OF THE RULES 00050351
9: C FOR ARITHMETIC OPERATOR PRECEDENCE. THESE TESTS INCLUDE ONES 00060351
10: C WHICH EXERCIZE THE 00070351
11: C 00080351
12: C (1) USE OF ALL ARITHMETIC OPERATOR TYPES IN THE SAME STATEMENT. 00090351
13: C (2) USE OF PARENTHESES TO OVERRIDE DEFAULT PRECEDENCES. 00100351
14: C (3) USE OF ALL CLASSES OF PRIMARY OPERANDS. 00110351
15: C (4) USE OF NESTED FUNCTION REFERENCES. 00120351
16: C (5) USE OF MIXED DATA TYPES. 00130351
17: C 00140351
18: C REFERENCES - 00150351
19: C 00160351
20: C AMERICAN NATIONAL STANDARD PROGRAMMING LANGUAGE FORTRAN, X3.9-197700170351
21: C 00180351
22: C SECTION 6.1 ARITHMETIC EXPRESSIONS 00190351
23: C SECTION 6.5 PRECEDENCE OF OPERATORS 00200351
24: C SECTION 6.6 EVALUATION OF EXPRESSIONS 00210351
25: C 00220351
26: C 00230351
27: C ******************************************************************00240351
28: C A COMPILER VALIDATION SYSTEM FOR THE FORTRAN LANGUAGE 00250351
29: C BASED ON SPECIFICATIONS AS DEFINED IN AMERICAN STANDARD FORTRAN 00260351
30: C X3.9-1978, HAS BEEN DEVELOPED BY THE DEPARTMENT OF THE NAVY. THE 00270351
31: C FORTRAN COMPILER VALIDATION SYSTEM (FCVS) CONSISTS OF AUDIT 00280351
32: C ROUTINES, THEIR RELATED DATA, AND AN EXECUTIVE SYSTEM. EACH AUDIT00290351
33: C ROUTINE IS A FORTRAN PROGRAM OR SUBPROGRAM WHICH INCLUDES TESTS 00300351
34: C OF SPECIFIC LANGUAGE ELEMENTS AND SUPPORTING PROCEDURES INDICATING00310351
35: C THE RESULT OF EXECUTING THESE TESTS. 00320351
36: C 00330351
37: C THIS PARTICULAR PROGRAM OR SUBPROGRAM CONTAINS ONLY FEATURES 00340351
38: C FOUND IN THE SUBSET LEVEL OF THE STANDARD. 00350351
39: C 00360351
40: C SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00370351
41: C DEPARTMENT OF THE NAVY 00380351
42: C FEDERAL COBOL COMPILER TESTING SERVICE 00390351
43: C WASHINGTON, D.C. 20376 00400351
44: C 00410351
45: C ******************************************************************00420351
46: C 00430351
47: C 00440351
48: IMPLICIT LOGICAL (L) 00450351
49: IMPLICIT CHARACTER*14 (C) 00460351
50: C 00470351
51: DIMENSION IADN11(5), RADN11(5) 00480351
52: IFOS01(IDON01,IDON02,IDON03) = IDON01 ** IDON02 ** IDON03 00490351
53: IFOS02(IDON04,IDON05) = IADN11(IDON04) / IADN11(IDON05) 00500351
54: IFOS04(IDON09,IDON10) = IADN11(IDON09) + IABS(IDON10) 00510351
55: IFOS03(IDON06,IDON07,IDON08) = IFOS04(IDON06,IDON07) * IDON08 00520351
56: RFOS01(RDON01,RDON02,RDON03) = RDON01 ** RDON02 ** RDON03 00530351
57: RFOS02(IDON11,IDON12) = RADN11(IDON11) / RADN11(IDON12) 00540351
58: RFOS04(IDON13,RDON10) = RADN11(IDON13) + ABS(RDON10) 00550351
59: RFOS03(RDON06,RDON07,RDON08) = RFOS04(INT(RDON06),RDON07) * RDON0800560351
60: IFOS05(IDON14,IDON16) = RADN11(IDON14) + IABS(IDON16) 00570351
61: RFOS06(RDON17,IDON18,RDON19) = IFOS05(INT(RDON17),IDON18) * RDON1900580351
62: C 00590351
63: C 00600351
64: C 00610351
65: C INITIALIZATION SECTION. 00620351
66: C 00630351
67: C INITIALIZE CONSTANTS 00640351
68: C ******************** 00650351
69: C I01 CONTAINS THE LOGICAL UNIT NUMBER FOR THE CARD READER 00660351
70: I01 = 5 00670351
71: C I02 CONTAINS THE LOGICAL UNIT NUMBER FOR THE PRINTER 00680351
72: I02 = 6 00690351
73: C SYSTEM ENVIRONMENT SECTION 00700351
74: C 00710351
75: I01 = 5 00720351
76: C THE CX010 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I01 = 5 00730351
77: C (UNIT NUMBER FOR CARD READER). 00740351
78: CX011 THIS CARD IS REPLACED BY CONTENTS OF FEXEC X-011 CONTROL CARD00750351
79: C THE CX011 CARD IS FOR SYSTEMS WHICH REQUIRE ADDITIONAL 00760351
80: C FORTRAN STATEMENTS FOR FILES ASSOCIATED WITH CX010 ABOVE. 00770351
81: C 00780351
82: I02 = 6 00790351
83: C THE CX020 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I02 = 6 00800351
84: C (UNIT NUMBER FOR PRINTER). 00810351
85: CX021 THIS CARD IS PEPLACED BY CONTENTS OF FEXEC X-021 CONTROL CARD.00820351
86: C THE CX021 CARD IS FOR SYSTEMS WHICH REQUIRE ADDITIONAL 00830351
87: C FORTRAN STATEMENTS FOR FILES ASSOCIATED WITH CX020 ABOVE. 00840351
88: C 00850351
89: IVPASS = 0 00860351
90: IVFAIL = 0 00870351
91: IVDELE = 0 00880351
92: ICZERO = 0 00890351
93: C 00900351
94: C WRITE OUT PAGE HEADERS 00910351
95: C 00920351
96: WRITE (I02,90002) 00930351
97: WRITE (I02,90006) 00940351
98: WRITE (I02,90008) 00950351
99: WRITE (I02,90004) 00960351
100: WRITE (I02,90010) 00970351
101: WRITE (I02,90004) 00980351
102: WRITE (I02,90016) 00990351
103: WRITE (I02,90001) 01000351
104: WRITE (I02,90004) 01010351
105: WRITE (I02,90012) 01020351
106: WRITE (I02,90014) 01030351
107: WRITE (I02,90004) 01040351
108: C 01050351
109: C 01060351
110: C TESTS 1 THROUGH 10 DEAL ENTIRELY WITH INTEGER EXPRESSIONS. 01070351
111: C 01080351
112: C 01090351
113: C **** FCVS PROGRAM 351 - TEST 001 **** 01100351
114: C 01110351
115: C TEST 1 CHECKS AN INTEGER EXPRESSION WHERE ALL FIVE ARITHMETIC 01120351
116: C OPERATORS ARE USED AND ALL OPERAND PRIMARIES ARE SIMPLE INTEGER 01130351
117: C VARIABLES. NO PARENTHESES ARE USED TO UPSET DEFAULT PRECEDENCES. 01140351
118: C 01150351
119: IVTNUM = 1 01160351
120: IF (ICZERO) 30010, 0010, 30010 01170351
121: 0010 CONTINUE 01180351
122: IVON01 = 7 01190351
123: IVON02 = 3 01200351
124: IVON03 = 573 01210351
125: IVON04 = 23 01220351
126: IVON05 = 3 01230351
127: IVON06 = -7 01240351
128: IVCOMP = IVON01 ** IVON02 + IVON03 - IVON04 * IVON05 / IVON06 01250351
129: IVCORR = 925 01260351
130: 40010 IF (IVCOMP - 925) 20010, 10010, 20010 01270351
131: 30010 IVDELE = IVDELE + 1 01280351
132: WRITE (I02,80000) IVTNUM 01290351
133: IF (ICZERO) 10010, 0021, 20010 01300351
134: 10010 IVPASS = IVPASS + 1 01310351
135: WRITE (I02,80002) IVTNUM 01320351
136: GO TO 0021 01330351
137: 20010 IVFAIL = IVFAIL + 1 01340351
138: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 01350351
139: 0021 CONTINUE 01360351
140: C 01370351
141: C **** FCVS PROGRAM 351 - TEST 002 **** 01380351
142: C 01390351
143: C TEST 2, LIKE TEST 1, CHECKS AN INTEGER EXPRESSION WHERE ALL 01400351
144: C FIVE ARITHMETIC OPERATORS ARE USED AND ALL OPERANDS ARE SIMPLE 01410351
145: C INTEGER VARIABLES; BUT IN THIS TEST, PARENTHESES ARE USED, AS IS 01420351
146: C A UNARY OPERATOR. 01430351
147: C 01440351
148: IVTNUM = 2 01450351
149: IF (ICZERO) 30020, 0020, 30020 01460351
150: 0020 CONTINUE 01470351
151: IVON01 = 7 01480351
152: IVON02 = 3 01490351
153: IVON03 = 5 01500351
154: IVON04 = -3 01510351
155: IVON05 = 3 01520351
156: IVCOMP = -(IVON01 / IVON02) + (IVON03 * IVON04 ** IVON05) 01530351
157: IVCORR = -137 01540351
158: 40020 IF (IVCOMP + 137) 20020, 10020, 20020 01550351
159: 30020 IVDELE = IVDELE + 1 01560351
160: WRITE (I02,80000) IVTNUM 01570351
161: IF (ICZERO) 10020, 0031, 20020 01580351
162: 10020 IVPASS = IVPASS + 1 01590351
163: WRITE (I02,80002) IVTNUM 01600351
164: GO TO 0031 01610351
165: 20020 IVFAIL = IVFAIL + 1 01620351
166: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 01630351
167: 0031 CONTINUE 01640351
168: C 01650351
169: C **** FCVS PROGRAM 351 - TEST 003 **** 01660351
170: C 01670351
171: C TEST 3 IS SIMILAR TO TEST 2 EXCEPT THAT IT EMPLOYS NESTED 01680351
172: C PARENTHESES. 01690351
173: C 01700351
174: IVTNUM = 3 01710351
175: IF (ICZERO) 30030, 0030, 30030 01720351
176: 0030 CONTINUE 01730351
177: IVON01 = 5 01740351
178: IVON02 = 3 01750351
179: IVON03 = 5 01760351
180: IVON04 = 17 01770351
181: IVON05 = 14 01780351
182: IVON06 = 3 01790351
183: IVCOMP = IVON01 ** (-(IVON02 + (IVON03 - IVON04)) - (IVON05 / 01800351
184: 1 IVON06)) 01810351
185: IVCORR = 3125 01820351
186: 40030 IF (IVCOMP - 3125) 20030, 10030, 20030 01830351
187: 30030 IVDELE = IVDELE + 1 01840351
188: WRITE (I02,80000) IVTNUM 01850351
189: IF (ICZERO) 10030, 0041, 20030 01860351
190: 10030 IVPASS = IVPASS + 1 01870351
191: WRITE (I02,80002) IVTNUM 01880351
192: GO TO 0041 01890351
193: 20030 IVFAIL = IVFAIL + 1 01900351
194: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 01910351
195: 0041 CONTINUE 01920351
196: C 01930351
197: C **** FCVS PROGRAM 351 - TEST 004 **** 01940351
198: C 01950351
199: C TEST 4 IS SIMILAR TO TEST 2 AND 3 EXCEPT THAT THE 01960351
200: C PARENTHESES USED ARE EFFECTIVELY EXTRANEOUS. 01970351
201: C 01980351
202: IVTNUM = 4 01990351
203: IF (ICZERO) 30040, 0040, 30040 02000351
204: 0040 CONTINUE 02010351
205: IVON01 = 3 02020351
206: IVON02 = 4 02030351
207: IVON03 = 5 02040351
208: IVON04 = 2 02050351
209: IVON05 = 3 02060351
210: IVON06 = 4 02070351
211: IVCOMP = ((IVON01) ** (IVON02) + (IVON03) - (IVON04) * 02080351
212: 1 (IVON05) / (IVON06)) 02090351
213: IVCORR = 85 02100351
214: 40040 IF (IVCOMP - 85) 20040, 10040, 20040 02110351
215: 30040 IVDELE = IVDELE + 1 02120351
216: WRITE (I02,80000) IVTNUM 02130351
217: IF (ICZERO) 10040, 0051, 20040 02140351
218: 10040 IVPASS = IVPASS + 1 02150351
219: WRITE (I02,80002) IVTNUM 02160351
220: GO TO 0051 02170351
221: 20040 IVFAIL = IVFAIL + 1 02180351
222: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 02190351
223: 0051 CONTINUE 02200351
224: C 02210351
225: C **** FCVS PROGRAM 351 - TEST 005 **** 02220351
226: C 02230351
227: C TEST 5 CONTINUES THE TESTING OF EXPRESSIONS USING ONLY 02240351
228: C INTEGER VARIABLE OPERANDS CONNECTED BY ARITHMETIC OPERATORS, 02250351
229: C AND USING PARENTHESES TO OVERRIDE PRECEDENCES. 02260351
230: C 02270351
231: IVTNUM = 5 02280351
232: IF (ICZERO) 30050, 0050, 30050 02290351
233: 0050 CONTINUE 02300351
234: IVON01 = 57 02310351
235: IVON02 = -3 02320351
236: IVON03 = 4 02330351
237: IVON04 = -1 02340351
238: IVON05 = -5 02350351
239: IVON06 = -2 02360351
240: IVCOMP = -IVON01 ** (IVON02 + IVON03 - IVON04) * 02370351
241: 1 (IVON05 / IVON06) 02380351
242: IVCORR = -6498 02390351
243: 40050 IF (IVCOMP + 6498) 20050, 10050, 20050 02400351
244: 30050 IVDELE = IVDELE + 1 02410351
245: WRITE (I02,80000) IVTNUM 02420351
246: IF (ICZERO) 10050, 0061, 20050 02430351
247: 10050 IVPASS = IVPASS + 1 02440351
248: WRITE (I02,80002) IVTNUM 02450351
249: GO TO 0061 02460351
250: 20050 IVFAIL = IVFAIL + 1 02470351
251: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 02480351
252: 0061 CONTINUE 02490351
253: C 02500351
254: C **** FCVS PROGRAM 351 - TEST 006 **** 02510351
255: C 02520351
256: C TEST 6 CONTINUES THE TESTING OF EXPRESSIONS USING ONLY 02530351
257: C INTEGER VARIABLE OPERANDS CONNECTED BY ARITHMETIC OPERATORS, 02540351
258: C AND USING PARENTHESES TO OVERRIDE PRECEDENCES. 02550351
259: C 02560351
260: IVTNUM = 6 02570351
261: IF (ICZERO) 30060, 0060, 30060 02580351
262: 0060 CONTINUE 02590351
263: IVON01 = 5 02600351
264: IVON02 = 3 02610351
265: IVON03 = 4 02620351
266: IVON04 = 5496 02630351
267: IVON05 = 7 02640351
268: IVON06 = -3 02650351
269: IVCOMP = ((IVON01 * (IVON02 / IVON03)) + IVON04) / IVON05 - 02660351
270: 1 (-IVON06) 02670351
271: IVCORR = 782 02680351
272: 40060 IF (IVCOMP - 782) 20060, 10060, 20060 02690351
273: 30060 IVDELE = IVDELE + 1 02700351
274: WRITE (I02,80000) IVTNUM 02710351
275: IF (ICZERO) 10060, 0071, 20060 02720351
276: 10060 IVPASS = IVPASS + 1 02730351
277: WRITE (I02,80002) IVTNUM 02740351
278: GO TO 0071 02750351
279: 20060 IVFAIL = IVFAIL + 1 02760351
280: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 02770351
281: 0071 CONTINUE 02780351
282: C 02790351
283: C **** FCVS PROGRAM 351 - TEST 007 **** 02800351
284: C 02810351
285: C IN TEST 7, AN INTEGER EXPRESSION INVOLVING ALL FIVE 02820351
286: C ARITHMETIC OPERATORS TOGETHER WITH PARENTHESES IS EVALUATED, 02830351
287: C BUT UNLIKE TESTS 1 THROUGH 6 WHERE ALL OPERANDS WERE INTEGER 02840351
288: C VARIABLES, THE OPERANDS IN TEST 7 ARE CLASSED AS INTEGER 02850351
289: C VARIABLES, INTEGER CONSTANTS, INTEGER ARRAY ELEMENTS, AND INTEGER 02860351
290: C FUNCTION REFERENCES. 02870351
291: C 02880351
292: IVTNUM = 7 02890351
293: IF (ICZERO) 30070, 0070, 30070 02900351
294: 0070 CONTINUE 02910351
295: IVON01 = 573 02920351
296: IVON02 = 1 02930351
297: IVON03 = 3 02940351
298: IVON04 = 2 02950351
299: IVON05 = 3 02960351
300: IADN11(3) = 3071 02970351
301: IVCOMP = (IVON01 + 1) - (5 + IADN11(IVON03)) / 02980351
302: 1 (IFOS01(IVON03,IVON04,IVON05) ** IVON02) 02990351
303: IVCORR = 574 03000351
304: 40070 IF (IVCOMP - 574) 20070, 10070, 20070 03010351
305: 30070 IVDELE = IVDELE + 1 03020351
306: WRITE (I02,80000) IVTNUM 03030351
307: IF (ICZERO) 10070, 0081, 20070 03040351
308: 10070 IVPASS = IVPASS + 1 03050351
309: WRITE (I02,80002) IVTNUM 03060351
310: GO TO 0081 03070351
311: 20070 IVFAIL = IVFAIL + 1 03080351
312: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 03090351
313: 0081 CONTINUE 03100351
314: C 03110351
315: C **** FCVS PROGRAM 351 - TEST 008 **** 03120351
316: C 03130351
317: C TEST 8 IS IDENTICAL TO TEST 7 EXCEPT THAT PARENTHESES ARE 03140351
318: C USED TO CHANGE THE ORDER OF SUB-EXPRESSION EVALUATION. 03150351
319: C 03160351
320: IVTNUM = 8 03170351
321: IF (ICZERO) 30080, 0080, 30080 03180351
322: 0080 CONTINUE 03190351
323: IVON01 = 573 03200351
324: IVON02 = 1 03210351
325: IVON03 = 3 03220351
326: IVON04 = 2 03230351
327: IVON05 = 3 03240351
328: IADN11(3) = 3071 03250351
329: IVCOMP = ((IVON01 + 1) - (5 + IADN11(IVON03))) / 03260351
330: 1 IFOS01(IVON03,IVON04,IVON05) ** IVON02 03270351
331: IVCORR = 0 03280351
332: 40080 IF (IVCOMP) 20080, 10080, 20080 03290351
333: 30080 IVDELE = IVDELE + 1 03300351
334: WRITE (I02,80000) IVTNUM 03310351
335: IF (ICZERO) 10080, 0091, 20080 03320351
336: 10080 IVPASS = IVPASS + 1 03330351
337: WRITE (I02,80002) IVTNUM 03340351
338: GO TO 0091 03350351
339: 20080 IVFAIL = IVFAIL + 1 03360351
340: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 03370351
341: 0091 CONTINUE 03380351
342: C 03390351
343: C **** FCVS PROGRAM 351 - TEST 009 **** 03400351
344: C 03410351
345: C TEST 9 IS SIMILAR TO TESTS 7 AND 8 EXCEPT THAT THE 03420351
346: C FUNCTION REFERENCE IN TURN EVALUATES ARRAY ELEMENTS. 03430351
347: C 03440351
348: IVTNUM = 9 03450351
349: IF (ICZERO) 30090, 0090, 30090 03460351
350: 0090 CONTINUE 03470351
351: IVON01 = 7 03480351
352: IVON02 = 3 03490351
353: IVON03 = 2 03500351
354: IVON04 = 1 03510351
355: IVON05 = 4 03520351
356: IADN11(1) = 5 03530351
357: IADN11(2) = 2 03540351
358: IADN11(4) = 2 03550351
359: IVCOMP = (IVON01 - 8 * IFOS02(IVON04,IVON03)) / IADN11(IVON05) + 03560351
360: 1 13 ** IVON02 03570351
361: IVCORR = 2193 03580351
362: 40090 IF (IVCOMP - 2193) 20090, 10090, 20090 03590351
363: 30090 IVDELE = IVDELE + 1 03600351
364: WRITE (I02,80000) IVTNUM 03610351
365: IF (ICZERO) 10090, 0101, 20090 03620351
366: 10090 IVPASS = IVPASS + 1 03630351
367: WRITE (I02,80002) IVTNUM 03640351
368: GO TO 0101 03650351
369: 20090 IVFAIL = IVFAIL + 1 03660351
370: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 03670351
371: 0101 CONTINUE 03680351
372: C 03690351
373: C **** FCVS PROGRAM 351 - TEST 010 **** 03700351
374: C 03710351
375: C TEST 10 EVALUATES AN INTEGER EXPRESSION WHICH CONTAINS 03720351
376: C FUNCTION REFERENCES NESTED TO THREE LEVELS. THE OUTER TWO 03730351
377: C LEVELS ARE STATEMENT FUNCTION REFERENCES AND THE INNERMOST LEVEL 03740351
378: C IS AN INTRINSIC FUNCTION REFERENCE. 03750351
379: C 03760351
380: IVTNUM = 10 03770351
381: IF (ICZERO) 30100, 0100, 30100 03780351
382: 0100 CONTINUE 03790351
383: IVON01 = -51 03800351
384: IVON02 = 4 03810351
385: IVON03 = -101 03820351
386: IVON04 = 13 03830351
387: IVON05 = 3 03840351
388: IVON06 = 5 03850351
389: IVON07 = -37 03860351
390: IADN11(4) = 87 03870351
391: IADN11(5) = 409 03880351
392: IVCOMP = (IVON01 + IFOS03(IVON02,IVON03,IVON04)) * IVON05 - 03890351
393: 1 IFOS04(IVON06,IVON07) 03900351
394: IVCORR = 6733 03910351
395: 40100 IF (IVCOMP - 6733) 20100, 10100, 20100 03920351
396: 30100 IVDELE = IVDELE + 1 03930351
397: WRITE (I02,80000) IVTNUM 03940351
398: IF (ICZERO) 10100, 0111, 20100 03950351
399: 10100 IVPASS = IVPASS + 1 03960351
400: WRITE (I02,80002) IVTNUM 03970351
401: GO TO 0111 03980351
402: 20100 IVFAIL = IVFAIL + 1 03990351
403: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 04000351
404: 0111 CONTINUE 04010351
405: C 04020351
406: C TESTS 11 THROUGH 20 REPEAT TESTS 1 THROUGH 10 EXCEPT THAT 04030351
407: C TESTS 11 THROUGH 20 DEAL ENTIRELY WITH REAL ARITHMETIC 04040351
408: C EXPRESSIONS. 04050351
409: C 04060351
410: C 04070351
411: C **** FCVS PROGRAM 351 - TEST 011 **** 04080351
412: C 04090351
413: C TEST 11 TESTS A REAL EXPRESSION WHERE ALL FIVE ARITHMETIC 04100351
414: C OPERATORS ARE USED AND ALL OPERAND PRIMARIES ARE SIMPLE REAL 04110351
415: C VARIABLES. 04120351
416: C 04130351
417: IVTNUM = 11 04140351
418: IF (ICZERO) 30110, 0110, 30110 04150351
419: 0110 CONTINUE 04160351
420: RVON01 = 3.2 04170351
421: RVON02 = 23.051 04180351
422: RVON03 = 1545 E7 04190351
423: RVON04 = -23.457 04200351
424: RVON05 = .02 E3 04210351
425: RVON06 = 7.210745323 E-10 04220351
426: RVCOMP = RVON01 ** RVON02 + RVON03 - RVON04 * RVON05 / RVON06 04230351
427: RVCORR = 1.10683 E12 04240351
428: 40110 IF (RVCOMP - 1.1063 E12) 20110, 10110, 40111 04250351
429: 40111 IF (RVCOMP - 1.1073 E12) 10110, 10110, 20110 04260351
430: 30110 IVDELE = IVDELE + 1 04270351
431: WRITE (I02,80000) IVTNUM 04280351
432: IF (ICZERO) 10110, 0121, 20110 04290351
433: 10110 IVPASS = IVPASS + 1 04300351
434: WRITE (I02,80002) IVTNUM 04310351
435: GO TO 0121 04320351
436: 20110 IVFAIL = IVFAIL + 1 04330351
437: WRITE (I02,80012) IVTNUM, RVCOMP, RVCORR 04340351
438: 0121 CONTINUE 04350351
439: C 04360351
440: C **** FCVS PROGRAM 351 - TEST 012 **** 04370351
441: C 04380351
442: C TEST 12, LIKE TEST 11, CHECKS A REAL EXPRESSION WHERE ALL 04390351
443: C FIVE ARITHMETIC OPERATORS ARE USED AND ALL OPERANDS ARE REAL 04400351
444: C VARIABLES, BUT IN TEST 12, PARENTHESES ARE USED, AS IS ALSO A 04410351
445: C UNARY OPERATOR. 04420351
446: C 04430351
447: IVTNUM = 12 04440351
448: IF (ICZERO) 30120, 0120, 30120 04450351
449: 0120 CONTINUE 04460351
450: RVON01 = 3.2 04470351
451: RVON02 = 23.051 04480351
452: RVON03 = 1545 E-3 04490351
453: RVON04 = 5.75 E-1 04500351
454: RVON05 = 2.22 E+1 04510351
455: RVCOMP = -(RVON01 / RVON02) + (RVON03 * RVON04 ** RVON05) 04520351
456: RVCORR = -.13882 04530351
457: 40120 IF (RVCOMP + .13887) 20120, 10120, 40121 04540351
458: 40121 IF (RVCOMP + .13877) 10120, 10120, 20120 04550351
459: 30120 IVDELE = IVDELE + 1 04560351
460: WRITE (I02,80000) IVTNUM 04570351
461: IF (ICZERO) 10120, 0131, 20120 04580351
462: 10120 IVPASS = IVPASS + 1 04590351
463: WRITE (I02,80002) IVTNUM 04600351
464: GO TO 0131 04610351
465: 20120 IVFAIL = IVFAIL + 1 04620351
466: WRITE (I02,80012) IVTNUM, RVCOMP, RVCORR 04630351
467: 0131 CONTINUE 04640351
468: C 04650351
469: C **** FCVS PROGRAM 351 - TEST 013 **** 04660351
470: C 04670351
471: C TEST 13 IS SIMILAR TO TEST 12 EXCEPT THAT TEST 13 EMPLOYS 04680351
472: C NESTED PARENTHESES. 04690351
473: C 04700351
474: IVTNUM = 13 04710351
475: IF (ICZERO) 30130, 0130, 30130 04720351
476: 0130 CONTINUE 04730351
477: RVON01 = 3.2 04740351
478: RVON02 = -63.051 04750351
479: RVON03 = 1545 E-3 04760351
480: RVON04 = 5.75 E-1 04770351
481: RVON05 = 2.22 E1 04780351
482: RVON06 = 0.523 04790351
483: RVCOMP = RVON01 ** (-(RVON02 + (RVON03 - RVON04)) - 04800351
484: 1 (RVON05 / RVON06)) 04810351
485: RVCORR = 8.27757 E9 04820351
486: 40130 IF (RVCOMP - 8.2770 E9) 20130, 10130, 40131 04830351
487: 40131 IF (RVCOMP - 8.2780 E9) 10130, 10130, 20130 04840351
488: 30130 IVDELE = IVDELE + 1 04850351
489: WRITE (I02,80000) IVTNUM 04860351
490: IF (ICZERO) 10130, 0141, 20130 04870351
491: 10130 IVPASS = IVPASS + 1 04880351
492: WRITE (I02,80002) IVTNUM 04890351
493: GO TO 0141 04900351
494: 20130 IVFAIL = IVFAIL + 1 04910351
495: WRITE (I02,80012) IVTNUM, RVCOMP, RVCORR 04920351
496: 0141 CONTINUE 04930351
497: C 04940351
498: C **** FCVS PROGRAM 351 - TEST 014 **** 04950351
499: C 04960351
500: C TEST 14 IS SIMILAR TO TESTS 12 AND 13 EXCEPT THAT THE 04970351
501: C PARENTHESES USED ARE EFFECTIVELY EXTRANEOUS. 04980351
502: C 04990351
503: IVTNUM = 14 05000351
504: IF (ICZERO) 30140, 0140, 30140 05010351
505: 0140 CONTINUE 05020351
506: RVON01 = 5.4515 E18 05030351
507: RVON02 = .076923 05040351
508: RVON03 = 23 E-2 05050351
509: RVON04 = 7 E7 05060351
510: RVON05 = 45.23 E5 05070351
511: RVON06 = 5.65375 E12 05080351
512: RVCOMP = ((RVON01) ** (RVON02) + (RVON03) - (RVON04) * (RVON05) / 05090351
513: 1 (RVON06)) 05100351
514: RVCORR = -28.147 05110351
515: 40140 IF (RVCOMP + 28.152) 20140, 10140, 40141 05120351
516: 40141 IF (RVCOMP + 28.142) 10140, 10140, 20140 05130351
517: 30140 IVDELE = IVDELE + 1 05140351
518: WRITE (I02,80000) IVTNUM 05150351
519: IF (ICZERO) 10140, 0151, 20140 05160351
520: 10140 IVPASS = IVPASS + 1 05170351
521: WRITE (I02,80002) IVTNUM 05180351
522: GO TO 0151 05190351
523: 20140 IVFAIL = IVFAIL + 1 05200351
524: WRITE (I02,80012) IVTNUM, RVCOMP, RVCORR 05210351
525: 0151 CONTINUE 05220351
526: C 05230351
527: C **** FCVS PROGRAM 351 - TEST 015 **** 05240351
528: C 05250351
529: C TEST 15 CONTINUES THE TESTING OF EXPRESSIONS USING ONLY 05260351
530: C REAL VARIABLE OPERANDS CONNECTED BY ARITHMETIC OPERATORS, AND 05270351
531: C USING PARENTHESES TO OVERRIDE PRECEDENCES. 05280351
532: C 05290351
533: IVTNUM = 15 05300351
534: IF (ICZERO) 30150, 0150, 30150 05310351
535: 0150 CONTINUE 05320351
536: RVON01 = .11341 E1 05330351
537: RVON02 = 7.1417 05340351
538: RVON03 = 5.2113 E1 05350351
539: RVON04 = 10.001 05360351
540: RVON05 = 7.241 E5 05370351
541: RVON06 = 5.7777 E-3 05380351
542: RVCOMP = -RVON01 ** (RVON02 + RVON03 - RVON04) * (RVON05 / RVON06)05390351
543: RVCORR = -6.1635 E10 05400351
544: 40150 IF (RVCOMP + 6.1640 E10) 20150, 10150, 40151 05410351
545: 40151 IF (RVCOMP + 6.1630 E10) 10150, 10150, 20150 05420351
546: 30150 IVDELE = IVDELE + 1 05430351
547: WRITE (I02,80000) IVTNUM 05440351
548: IF (ICZERO) 10150, 0161, 20150 05450351
549: 10150 IVPASS = IVPASS + 1 05460351
550: WRITE (I02,80002) IVTNUM 05470351
551: GO TO 0161 05480351
552: 20150 IVFAIL = IVFAIL + 1 05490351
553: WRITE (I02,80012) IVTNUM, RVCOMP, RVCORR 05500351
554: 0161 CONTINUE 05510351
555: C 05520351
556: C **** FCVS PROGRAM 351 - TEST 016 **** 05530351
557: C 05540351
558: C TEST 16 CONTINUES THE TESTING OF EXPRESSIONS USING ONLY 05550351
559: C REAL VARIABLE OPERANDS CONNECTED BY ARITHMETIC OPERATORS, AND 05560351
560: C USING PARENTHESES TO OVERRIDE PRECEDENCES. 05570351
561: C 05580351
562: IVTNUM = 16 05590351
563: IF (ICZERO) 30160, 0160, 30160 05600351
564: 0160 CONTINUE 05610351
565: RVON01 = 6.4003 E18 05620351
566: RVON02 = -3.7717 E-2 05630351
567: RVON03 = -5.1195 E3 05640351
568: RVON04 = 1.7521 E14 05650351
569: RVON05 = 1.0533 E3 05660351
570: RVON06 = -9.4207 E11 05670351
571: RVCOMP = ((RVON01 * (RVON02 / RVON03)) + RVON04) / RVON05 - 05680351
572: 1 (-RVON06) 05690351
573: RVCORR = -7.3096 E11 05700351
574: 40160 IF (RVCOMP + 7.3101 E11) 20160, 10160, 40161 05710351
575: 40161 IF (RVCOMP + 7.3091 E11) 10160, 10160, 20160 05720351
576: 30160 IVDELE = IVDELE + 1 05730351
577: WRITE (I02,80000) IVTNUM 05740351
578: IF (ICZERO) 10160, 0171, 20160 05750351
579: 10160 IVPASS = IVPASS + 1 05760351
580: WRITE (I02,80002) IVTNUM 05770351
581: GO TO 0171 05780351
582: 20160 IVFAIL = IVFAIL + 1 05790351
583: WRITE (I02,80012) IVTNUM, RVCOMP, RVCORR 05800351
584: 0171 CONTINUE 05810351
585: C 05820351
586: C **** FCVS PROGRAM 351 - TEST 017 **** 05830351
587: C 05840351
588: C IN TEST 17, A REAL EXPRESSION INVOLVING ALL FIVE ARITHMETIC 05850351
589: C OPERATORS IS EVALUATED, BUT UNLIKE TESTS 11 THROUGH 16 WHERE 05860351
590: C ALL OPERANDS WERE REAL VARIABLES, THE OPERANDS IN TEST 17 ARE 05870351
591: C CLASSED AS REAL VARIABLES, REAL CONSTANTS, REAL ARRAY ELEMENTS, 05880351
592: C AND REAL FUNCTION REFERENCES. 05890351
593: C 05900351
594: IVTNUM = 17 05910351
595: IF (ICZERO) 30170, 0170, 30170 05920351
596: 0170 CONTINUE 05930351
597: RVON01 = 5.247 E10 05940351
598: IVON01 = 3 05950351
599: RVON02 = 1.07 E1 05960351
600: RVON03 = 5.23 05970351
601: RVON04 = 1.001 05980351
602: RVON05 = 1.573 05990351
603: RADN11(3) = 0.3947 E18 06000351
604: RVCOMP = (RVON01 + 3.491 E10) - (4 E17 + RADN11(IVON01)) / 06010351
605: 1 (RFOS01(RVON03,RVON04,RVON05) ** RVON02) 06020351
606: RVCORR = 7.1526 E10 06030351
607: 40170 IF (RVCOMP - 7.1521 E10) 20170, 10170, 40171 06040351
608: 40171 IF (RVCOMP - 7.1531 E10) 10170, 10170, 20170 06050351
609: 30170 IVDELE = IVDELE + 1 06060351
610: WRITE (I02,80000) IVTNUM 06070351
611: IF (ICZERO) 10170, 0181, 20170 06080351
612: 10170 IVPASS = IVPASS + 1 06090351
613: WRITE (I02,80002) IVTNUM 06100351
614: GO TO 0181 06110351
615: 20170 IVFAIL = IVFAIL + 1 06120351
616: WRITE (I02,80012) IVTNUM, RVCOMP, RVCORR 06130351
617: 0181 CONTINUE 06140351
618: C 06150351
619: C **** FCVS PROGRAM 351 - TEST 018 **** 06160351
620: C 06170351
621: C TEST 18 IS IDENTICAL TO TEST 17 EXCEPT THAT PARENTHESES ARE 06180351
622: C USED TO CHANGE THE ORDER OF SUB-EXPRESSION EVALUATION. 06190351
623: C 06200351
624: IVTNUM = 18 06210351
625: IF (ICZERO) 30180, 0180, 30180 06220351
626: 0180 CONTINUE 06230351
627: RVON01 = 5.247 E10 06240351
628: IVON01 = 3 06250351
629: RVON02 = 1.07 E1 06260351
630: RVON03 = 5.23 06270351
631: RVON04 = 1.001 06280351
632: RVON05 = 1.573 06290351
633: RADN11(3) = 0.3947 E18 06300351
634: RVCOMP = ((RVON01 + 3.491 E10) - (4 E17 + RADN11(IVON01))) / 06310351
635: 1 RFOS01(RVON03,RVON04,RVON05) ** RVON02 06320351
636: RVCORR = -1.5854 E10 06330351
637: 40180 IF (RVCOMP + 1.5859 E10) 20180, 10180, 40181 06340351
638: 40181 IF (RVCOMP + 1.5849 E10) 10180, 10180, 20180 06350351
639: 30180 IVDELE = IVDELE + 1 06360351
640: WRITE (I02,80000) IVTNUM 06370351
641: IF (ICZERO) 10180, 0191, 20180 06380351
642: 10180 IVPASS = IVPASS + 1 06390351
643: WRITE (I02,80002) IVTNUM 06400351
644: GO TO 0191 06410351
645: 20180 IVFAIL = IVFAIL + 1 06420351
646: WRITE (I02,80012) IVTNUM, RVCOMP, RVCORR 06430351
647: 0191 CONTINUE 06440351
648: C 06450351
649: C **** FCVS PROGRAM 351 - TEST 019 **** 06460351
650: C 06470351
651: C TEST 19 IS SIMILAR TO TESTS 17 AND 18 EXCEPT THAT THE 06480351
652: C FUNCTION REFERENCES IN TURN EVALUATE ARRAY ELEMENTS. 06490351
653: C 06500351
654: IVTNUM = 19 06510351
655: IF (ICZERO) 30190, 0190, 30190 06520351
656: 0190 CONTINUE 06530351
657: RVON01 = 5.026 E2 06540351
658: RVON02 = 1.386 E1 06550351
659: IVON03 = 2 06560351
660: RVON04 = 1.9999 06570351
661: RVON05 = 4.0127 06580351
662: RADN11(1) = 3.004 E18 06590351
663: RADN11(2) = 2.5705 E-1 06600351
664: RADN11(4) = 7.993 E16 06610351
665: RVCOMP = (RVON01 - 5.902 * RFOS02(INT(RVON04),INT(RVON05))) / 06620351
666: 1 RADN11(IVON03) + 1.5372 ** RVON02 06630351
667: RVCORR = 1.4797 E3 06640351
668: 40190 IF (RVCORR - 1.4792 E3) 20190, 10190, 40191 06650351
669: 40191 IF (RVCORR - 1.4802 E3) 10190, 10190, 20190 06660351
670: 30190 IVDELE = IVDELE + 1 06670351
671: WRITE (I02,80000) IVTNUM 06680351
672: IF (ICZERO) 10190, 0201, 20190 06690351
673: 10190 IVPASS = IVPASS + 1 06700351
674: WRITE (I02,80002) IVTNUM 06710351
675: GO TO 0201 06720351
676: 20190 IVFAIL = IVFAIL + 1 06730351
677: WRITE (I02,80012) IVTNUM, RVCOMP, RVCORR 06740351
678: 0201 CONTINUE 06750351
679: C 06760351
680: C **** FCVS PROGRAM 351 - TEST 020 **** 06770351
681: C 06780351
682: C TEST 20 EVALUATES A REAL EXPRESSION WHICH CONTAINS FUNCTION 06790351
683: C REFERENCES NESTED TO THREE LEVELS. THE OUTER TWO LEVELS ARE 06800351
684: C STATEMENT FUNCTION REFERENCES AND THE INNERMOST LEVEL IS AN 06810351
685: C INTRINSIC FUNCTION REFERENCE. 06820351
686: C 06830351
687: IVTNUM = 20 06840351
688: IF (ICZERO) 30200, 0200, 30200 06850351
689: 0200 CONTINUE 06860351
690: RVON01 = 4.7117 E05 06870351
691: RVON02 = 5.987 06880351
692: RVON03 = 2.00000 E5 06890351
693: RVON04 = 1.0 E2 06900351
694: RVON05 = 1.5222 E9 06910351
695: IVON06 = 4 06920351
696: RVON07 = -3.2107 E14 06930351
697: RADN11(4) = 7.425 E14 06940351
698: RADN11(5) = -2.4015 E5 06950351
699: RVCOMP = (RVON01 + RFOS03(RVON02,RVON03,RVON04)) * RVON05 - 06960351
700: 1 RFOS04(IVON06,RVON07) 06970351
701: RVCORR = -6.4580 E15 06980351
702: 40200 IF (RVCOMP + 6.4585 E15) 20200, 10200, 40201 06990351
703: 40201 IF (RVCOMP + 6.4575 E15) 10200, 10200, 20200 07000351
704: 30200 IVDELE = IVDELE + 1 07010351
705: WRITE (I02,80000) IVTNUM 07020351
706: IF (ICZERO) 10200, 0211, 20200 07030351
707: 10200 IVPASS = IVPASS + 1 07040351
708: WRITE (I02,80002) IVTNUM 07050351
709: GO TO 0211 07060351
710: 20200 IVFAIL = IVFAIL + 1 07070351
711: WRITE (I02,80012) IVTNUM, RVCOMP, RVCORR 07080351
712: 0211 CONTINUE 07090351
713: C 07100351
714: C TESTS 21 THROUGH 25 DEAL WITH MIXTURES OF REAL AND INTEGER 07110351
715: C EXPRESSIONS; I.E., THESE ARE TESTS WHICH EVALUATE EXPRESSIONS 07120351
716: C CONTAINING BOTH REAL SUB-EXPRESSIONS AND INTEGER SUB-EXPRESSIONS 07130351
717: C AND THEN ASSIGN THE RESULTS TO EITHER AN INTEGER OR A REAL 07140351
718: C VARIABLE. 07150351
719: C 07160351
720: C 07170351
721: C **** FCVS PROGRAM 351 - TEST 021 **** 07180351
722: C 07190351
723: C TEST 21 USES ALL FIVE ARITHMETIC OPERATORS AND A COMBINATION 07200351
724: C OF INTEGER AND REAL VARIABLES. NO PARENTHESES ARE USED. FINAL 07210351
725: C ASSIGNMENT IS TO AN INTEGER VARIABLE. 07220351
726: C 07230351
727: IVTNUM = 21 07240351
728: IF (ICZERO) 30210, 0210, 30210 07250351
729: 0210 CONTINUE 07260351
730: IVON01 = 17 07270351
731: IVON02 = 3 07280351
732: RVON03 = 5.4732 E+2 07290351
733: RVON04 = 1.523 07300351
734: IVON05 = 798 07310351
735: IVCOMP = IVON01 ** IVON02 + RVON03 - RVON04 * IVON05 / IVON01 07320351
736: IVCORR = 5388 07330351
737: 40210 IF (IVCOMP - 5388) 20210, 10210, 20210 07340351
738: 30210 IVDELE = IVDELE + 1 07350351
739: WRITE (I02,80000) IVTNUM 07360351
740: IF (ICZERO) 10210, 0221, 20210 07370351
741: 10210 IVPASS = IVPASS + 1 07380351
742: WRITE (I02,80002) IVTNUM 07390351
743: GO TO 0221 07400351
744: 20210 IVFAIL = IVFAIL + 1 07410351
745: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 07420351
746: 0221 CONTINUE 07430351
747: C 07440351
748: C **** FCVS PROGRAM 351 - TEST 022 **** 07450351
749: C 07460351
750: C TEST 22 IS LIKE TEST 21 EXCEPT THAT PARENTHESES ARE USED, 07470351
751: C AS IS A UNARY OPERATOR. FINAL ASSIGNMENT IS TO A REAL VARIABLE. 07480351
752: C 07490351
753: IVTNUM = 22 07500351
754: IF (ICZERO) 30220, 0220, 30220 07510351
755: 0220 CONTINUE 07520351
756: IVON01 = 798 07530351
757: IVON02 = 17 07540351
758: RVON03 = 9.34578 E-2 07550351
759: IVON04 = 15985 07560351
760: RVON05 = 0.72357 07570351
761: RVCOMP = -(IVON01 / IVON02) + (RVON03 * IVON04 ** RVON05) 07580351
762: RVCORR = 5.68717 E1 07590351
763: 40220 IF (RVCOMP - 5.6866 E1) 20220, 10220, 40221 07600351
764: 40221 IF (RVCOMP - 5.6876 E1) 10220, 10220, 20220 07610351
765: 30220 IVDELE = IVDELE + 1 07620351
766: WRITE (I02,80000) IVTNUM 07630351
767: IF (ICZERO) 10220, 0231, 20220 07640351
768: 10220 IVPASS = IVPASS + 1 07650351
769: WRITE (I02,80002) IVTNUM 07660351
770: GO TO 0231 07670351
771: 20220 IVFAIL = IVFAIL + 1 07680351
772: WRITE (I02,80012) IVTNUM, RVCOMP, RVCORR 07690351
773: 0231 CONTINUE 07700351
774: C 07710351
775: C **** FCVS PROGRAM 351 - TEST 023 **** 07720351
776: C 07730351
777: C TEST 23 IS SIMILAR TO TEST 22 EXCEPT THAT IT EMPLOYS NESTED 07740351
778: C PARENTHESES. 07750351
779: C 07760351
780: IVTNUM = 23 07770351
781: IF (ICZERO) 30230, 0230, 30230 07780351
782: 0230 CONTINUE 07790351
783: IVON01 = 2 07800351
784: IVON02 = 183 07810351
785: RVON03 = 58.7025 07820351
786: IVON04 = 197 07830351
787: IVON05 = 87 07840351
788: RVON06 = 2.4611 E15 07850351
789: RVCOMP = IVON01 ** (-(IVON02 + (RVON03 - IVON04)) - 07860351
790: 1 (IVON05 / RVON06)) 07870351
791: RVCORR = 3.4931 E-14 07880351
792: 40230 IF (RVCOMP - 3.4926 E-14) 20230, 10230, 40231 07890351
793: 40231 IF (RVCOMP - 3.4936 E-14) 10230, 10230, 20230 07900351
794: 30230 IVDELE = IVDELE + 1 07910351
795: WRITE (I02,80000) IVTNUM 07920351
796: IF (ICZERO) 10230, 0241, 20230 07930351
797: 10230 IVPASS = IVPASS + 1 07940351
798: WRITE (I02,80002) IVTNUM 07950351
799: GO TO 0241 07960351
800: 20230 IVFAIL = IVFAIL + 1 07970351
801: WRITE (I02,80012) IVTNUM, RVCOMP, RVCORR 07980351
802: 0241 CONTINUE 07990351
803: C 08000351
804: C **** FCVS PROGRAM 351 - TEST 024 **** 08010351
805: C 08020351
806: C TEST 24 IS IDENTICAL TO TEST 23 EXCEPT THAT THE FINAL 08030351
807: C ASSIGNMENT IS TO AN INTEGER VARIABLE INSTEAD OF A REAL VARIABLE. 08040351
808: C 08050351
809: IVTNUM = 24 08060351
810: IF (ICZERO) 30240, 0240, 30240 08070351
811: 0240 CONTINUE 08080351
812: IVON01 = 2 08090351
813: IVON02 = 183 08100351
814: RVON03 = 58.7025 08110351
815: IVON04 = 197 08120351
816: IVON05 = 87 08130351
817: RVON06 = 2.4611 E15 08140351
818: IVCOMP = IVON01 ** (-(IVON02 + (RVON03 - IVON04)) - 08150351
819: 1 (IVON05 / RVON06)) 08160351
820: IVCORR = 0 08170351
821: 40240 IF (IVCOMP) 20240, 10240, 20240 08180351
822: 30240 IVDELE = IVDELE + 1 08190351
823: WRITE (I02,80000) IVTNUM 08200351
824: IF (ICZERO) 10240, 0251, 20240 08210351
825: 10240 IVPASS = IVPASS + 1 08220351
826: WRITE (I02,80002) IVTNUM 08230351
827: GO TO 0251 08240351
828: 20240 IVFAIL = IVFAIL + 1 08250351
829: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 08260351
830: 0251 CONTINUE 08270351
831: C 08280351
832: C **** FCVS PROGRAM 351 - TEST 025 **** 08290351
833: C 08300351
834: C TEST 25 IS SIMILAR TO TESTS 9 AND 19 EXCEPT THAT A MIXTURE 08310351
835: C OF REAL AND INTEGER OPERANDS ARE USED, AND FINAL ASSIGNMENT IS 08320351
836: C TO A REAL VARIABLE. 08330351
837: C 08340351
838: IVTNUM = 25 08350351
839: IF (ICZERO) 30250, 0250, 30250 08360351
840: 0250 CONTINUE 08370351
841: RVON01 = 4.7117 08380351
842: RVON02 = 5.998 08390351
843: IVON03 = 2 08400351
844: RVON04 = 1E2 08410351
845: IVON05 = 20 08420351
846: IVON06 = 4 08430351
847: IVON07 = -3 08440351
848: RADN11(4) = 7.425 08450351
849: RADN11(5) = -2.4015 08460351
850: RVCOMP = (RVON01 + RFOS06(AINT(RVON02),IVON03,RVON04)) * IVON05 - 08470351
851: 1 IFOS05(IVON06,IVON07) 08480351
852: RVCORR = 84.234 08490351
853: 40250 IF (RVCOMP - 84.229) 20250, 10250, 40251 08500351
854: 40251 IF (RVCOMP - 84.239) 10250, 10250, 20250 08510351
855: 30250 IVDELE = IVDELE + 1 08520351
856: WRITE (I02,80000) IVTNUM 08530351
857: IF (ICZERO) 10250, 0261, 20250 08540351
858: 10250 IVPASS = IVPASS + 1 08550351
859: WRITE (I02,80002) IVTNUM 08560351
860: GO TO 0261 08570351
861: 20250 IVFAIL = IVFAIL + 1 08580351
862: WRITE (I02,80012) IVTNUM, RVCOMP, RVCORR 08590351
863: 0261 CONTINUE 08600351
864: C 08610351
865: C 08620351
866: C WRITE OUT TEST SUMMARY 08630351
867: C 08640351
868: WRITE (I02,90004) 08650351
869: WRITE (I02,90014) 08660351
870: WRITE (I02,90004) 08670351
871: WRITE (I02,90000) 08680351
872: WRITE (I02,90004) 08690351
873: WRITE (I02,90020) IVFAIL 08700351
874: WRITE (I02,90022) IVPASS 08710351
875: WRITE (I02,90024) IVDELE 08720351
876: STOP 08730351
877: 90001 FORMAT (1H ,24X,5HFM351) 08740351
878: 90000 FORMAT (1H ,20X,20HEND OF PROGRAM FM351) 08750351
879: C 08760351
880: C FORMATS FOR TEST DETAIL LINES 08770351
881: C 08780351
882: 80000 FORMAT (1H ,4X,I5,6X,7HDELETED) 08790351
883: 80002 FORMAT (1H ,4X,I5,7X,4HPASS) 08800351
884: 80010 FORMAT (1H ,4X,I5,7X,4HFAIL,10X,I6,9X,I6) 08810351
885: 80012 FORMAT (1H ,4X,I5,7X,4HFAIL,4X,E12.5,3X,E12.5) 08820351
886: 80018 FORMAT (1H ,4X,I5,7X,4HFAIL,2X,A14,1X,A14) 08830351
887: C 08840351
888: C FORMAT STATEMENTS FOR PAGE HEADERS 08850351
889: C 08860351
890: 90002 FORMAT (1H1) 08870351
891: 90004 FORMAT (1H ) 08880351
892: 90006 FORMAT (1H ,10X,34HFORTRAN COMPILER VALIDATION SYSTEM) 08890351
893: 90008 FORMAT (1H ,21X,11HVERSION 1.0) 08900351
894: 90010 FORMAT (1H ,8X,38HFOR OFFICIAL USE ONLY - COPYRIGHT 1978) 08910351
895: 90012 FORMAT (1H ,5X,4HTEST,5X,9HPASS/FAIL,5X,8HCOMPUTED,8X,7HCORRECT) 08920351
896: 90014 FORMAT (1H ,5X,46H----------------------------------------------) 08930351
897: 90016 FORMAT (1H ,18X,17HSUBSET LEVEL TEST) 08940351
898: C 08950351
899: C FORMAT STATEMENTS FOR RUN SUMMARY 08960351
900: C 08970351
901: 90020 FORMAT (1H ,19X,I5,13H TESTS FAILED) 08980351
902: 90022 FORMAT (1H ,19X,I5,13H TESTS PASSED) 08990351
903: 90024 FORMAT (1H ,19X,I5,14H TESTS DELETED) 09000351
904: END 09010351
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.