![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to FM352.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 FM352.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 FM352 00010352
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 00020352
6: C 00030352
7: C THIS PROGRAM CHECKS BASIC RELATIONAL EXPRESSIONS INVOLVING 00040352
8: C OPERANDS OF REAL DATA TYPE. IN EACH TEST, NOT ONLY THE RELATIONAL00050352
9: C EXPRESSION IS TESTED, BUT THE TRICHOTOMY LAW OF MATHEMATICAL 00060352
10: C RELATIONSHIPS IS ALSO TESTED (E.G., IF A .LT. B, THEN A CAN NOT 00070352
11: C BE .GT. THAN B, AND A CAN NOT BE .EQ. B). A TEST VARIABLE 00080352
12: C (IVCOMP) IS USED TO REPORT THE RESULT OF THE TEST AS FOLLOWS, 00090352
13: C IVCOMP = 0 IF BOTH THE TESTED RELATIONAL OPERATOR AND THE 00100352
14: C TRICHOTOMY TEST PASS. 00110352
15: C IVCOMP = 1 IF THE RELATIONAL TEST FAILS AND THE TRICHOTOMY 00120352
16: C TEST PASSES (WHICH WOULD INDICATE THAT A TESTED 00130352
17: C NOT .LT., .GT., OR .EQ. B). 00140352
18: C IVCOMP = 2 IF THE RELATIONAL TEST PASSES AND THE TRICHOTOMY 00150352
19: C TEST FAILS (WHICH WOULD INDICATE THAT A TESTED 00160352
20: C .LT., .GT., AND .EQ. B). 00170352
21: C IVCOMP = 3 IF BOTH THE RELATIONAL TEST AND THE TRICHOTOMY 00180352
22: C TEST FAIL (WHICH WOULD INDICATE THE RELATIONAL 00190352
23: C EXPRESSION TESTED OPPOSITE TO THAT EXPECTED 00200352
24: C (E.G., WHERE A WAS SUPPOSED TO BE .LT. B, IN 00210352
25: C FACT A .LT. B WAS FOUND TO BE FALSE AND A .GE. B 00220352
26: C WAS FOUND TO BE TRUE). 00230352
27: C 00240352
28: C 00250352
29: C REFERENCES - 00260352
30: C 00270352
31: C AMERICAN NATIONAL STANDARD PROGRAMMING LANGUAGE FORTRAN, X3.9-197700280352
32: C SECTION 4.4, REAL TYPE 00290352
33: C SECTION 6.3, RELATIONAL EXPRESSIONS 00300352
34: C SECTION 6.5, PRECEDENCE OF OPERATORS 00310352
35: C SECTION 6.6, EVALUATION OF EXPRESSIONS 00320352
36: C 00330352
37: C 00340352
38: C ******************************************************************00350352
39: C A COMPILER VALIDATION SYSTEM FOR THE FORTRAN LANGUAGE 00360352
40: C BASED ON SPECIFICATIONS AS DEFINED IN AMERICAN STANDARD FORTRAN 00370352
41: C X3.9-1978, HAS BEEN DEVELOPED BY THE DEPARTMENT OF THE NAVY. THE 00380352
42: C FORTRAN COMPILER VALIDATION SYSTEM (FCVS) CONSISTS OF AUDIT 00390352
43: C ROUTINES, THEIR RELATED DATA, AND AN EXECUTIVE SYSTEM. EACH AUDIT00400352
44: C ROUTINE IS A FORTRAN PROGRAM OR SUBPROGRAM WHICH INCLUDES TESTS 00410352
45: C OF SPECIFIC LANGUAGE ELEMENTS AND SUPPORTING PROCEDURES INDICATING00420352
46: C THE RESULT OF EXECUTING THESE TESTS. 00430352
47: C 00440352
48: C THIS PARTICULAR PROGRAM OR SUBPROGRAM CONTAINS ONLY FEATURES 00450352
49: C FOUND IN THE SUBSET LEVEL OF THE STANDARD. 00460352
50: C 00470352
51: C SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00480352
52: C DEPARTMENT OF THE NAVY 00490352
53: C FEDERAL COBOL COMPILER TESTING SERVICE 00500352
54: C WASHINGTON, D.C. 20376 00510352
55: C 00520352
56: C ******************************************************************00530352
57: C 00540352
58: C 00550352
59: IMPLICIT LOGICAL (L) 00560352
60: IMPLICIT CHARACTER*14 (C) 00570352
61: C 00580352
62: DIMENSION RADN11(2) 00590352
63: RFOS01(RDON01,RDON02) = RDON01 + RDON02 00600352
64: C 00610352
65: C 00620352
66: C 00630352
67: C INITIALIZATION SECTION. 00640352
68: C 00650352
69: C INITIALIZE CONSTANTS 00660352
70: C ******************** 00670352
71: C I01 CONTAINS THE LOGICAL UNIT NUMBER FOR THE CARD READER 00680352
72: I01 = 5 00690352
73: C I02 CONTAINS THE LOGICAL UNIT NUMBER FOR THE PRINTER 00700352
74: I02 = 6 00710352
75: C SYSTEM ENVIRONMENT SECTION 00720352
76: C 00730352
77: I01 = 5 00740352
78: C THE CX010 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I01 = 5 00750352
79: C (UNIT NUMBER FOR CARD READER). 00760352
80: CX011 THIS CARD IS REPLACED BY CONTENTS OF FEXEC X-011 CONTROL CARD00770352
81: C THE CX011 CARD IS FOR SYSTEMS WHICH REQUIRE ADDITIONAL 00780352
82: C FORTRAN STATEMENTS FOR FILES ASSOCIATED WITH CX010 ABOVE. 00790352
83: C 00800352
84: I02 = 6 00810352
85: C THE CX020 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I02 = 6 00820352
86: C (UNIT NUMBER FOR PRINTER). 00830352
87: CX021 THIS CARD IS PEPLACED BY CONTENTS OF FEXEC X-021 CONTROL CARD.00840352
88: C THE CX021 CARD IS FOR SYSTEMS WHICH REQUIRE ADDITIONAL 00850352
89: C FORTRAN STATEMENTS FOR FILES ASSOCIATED WITH CX020 ABOVE. 00860352
90: C 00870352
91: IVPASS = 0 00880352
92: IVFAIL = 0 00890352
93: IVDELE = 0 00900352
94: ICZERO = 0 00910352
95: C 00920352
96: C WRITE OUT PAGE HEADERS 00930352
97: C 00940352
98: WRITE (I02,90002) 00950352
99: WRITE (I02,90006) 00960352
100: WRITE (I02,90008) 00970352
101: WRITE (I02,90004) 00980352
102: WRITE (I02,90010) 00990352
103: WRITE (I02,90004) 01000352
104: WRITE (I02,90016) 01010352
105: WRITE (I02,90001) 01020352
106: WRITE (I02,90004) 01030352
107: WRITE (I02,90012) 01040352
108: WRITE (I02,90014) 01050352
109: WRITE (I02,90004) 01060352
110: C 01070352
111: C 01080352
112: C TESTS 1 THROUGH 13 CHECK BASIC RELATIONAL EXPRESSIONS USING 01090352
113: C ONLY REAL VARIABLE OPERANDS. ALL THE VARIABLES ARE ASSIGNED REAL 01100352
114: C CONSTANTS WITH EXPONENTIAL FORMAT. 01110352
115: C 01120352
116: C 01130352
117: C **** FCVS PROGRAM 352 - TEST 001 **** 01140352
118: C 01150352
119: C TEST 1 CHECKS THE .LT. OPERATOR USING TWO REAL OPERANDS 01160352
120: C WHERE THE MANTISSAS ARE EQUAL BUT THE EXPONENTS ARE DIFFERENT. 01170352
121: C 01180352
122: IVTNUM = 1 01190352
123: IF (ICZERO) 30010, 0010, 30010 01200352
124: 0010 CONTINUE 01210352
125: RVON01 = 1.0001 E17 01220352
126: RVON02 = 1.0001 E18 01230352
127: IVCOMP = 0 01240352
128: IVCORR = 0 01250352
129: 40010 IF(RVON01 .LT. RVON02) GO TO 40011 01260352
130: IVCOMP = 1 01270352
131: 40011 IF (RVON01 .GE. RVON02) IVCOMP = IVCOMP + 2 01280352
132: IF (IVCOMP) 20010, 10010, 20010 01290352
133: 30010 IVDELE = IVDELE + 1 01300352
134: WRITE (I02,80000) IVTNUM 01310352
135: IF (ICZERO) 10010, 0021, 20010 01320352
136: 10010 IVPASS = IVPASS + 1 01330352
137: WRITE (I02,80002) IVTNUM 01340352
138: GO TO 0021 01350352
139: 20010 IVFAIL = IVFAIL + 1 01360352
140: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 01370352
141: 0021 CONTINUE 01380352
142: C 01390352
143: C **** FCVS PROGRAM 352 - TEST 002 **** 01400352
144: C 01410352
145: C TEST 2 CHECKS THE .LT. OPERATOR USING TWO REAL OPERANDS 01420352
146: C WHERE THE EXPONENTS ARE EQUAL BUT THE MANTISSAS ARE DIFFERENT. 01430352
147: C 01440352
148: IVTNUM = 2 01450352
149: IF (ICZERO) 30020, 0020, 30020 01460352
150: 0020 CONTINUE 01470352
151: RVON01 = 1.0001 E17 01480352
152: RVON02 = 1.9999 E17 01490352
153: IVCOMP = 0 01500352
154: IVCORR = 0 01510352
155: 40020 IF (RVON01 .LT. RVON02) GO TO 40021 01520352
156: IVCOMP = 1 01530352
157: 40021 IF (RVON01 .GE. RVON02) IVCOMP = IVCOMP + 2 01540352
158: IF (IVCOMP) 20020, 10020, 20020 01550352
159: 30020 IVDELE = IVDELE + 1 01560352
160: WRITE (I02,80000) IVTNUM 01570352
161: IF (ICZERO) 10020, 0031, 20020 01580352
162: 10020 IVPASS = IVPASS + 1 01590352
163: WRITE (I02,80002) IVTNUM 01600352
164: GO TO 0031 01610352
165: 20020 IVFAIL = IVFAIL + 1 01620352
166: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 01630352
167: 0031 CONTINUE 01640352
168: C 01650352
169: C **** FCVS PROGRAM 352 - TEST 003 **** 01660352
170: C 01670352
171: C TEST 3 CHECKS THE .LE. OPERATOR USING TWO REAL OPERANDS 01680352
172: C WHERE THE MANTISSAS ARE EQUAL BUT THE EXPONENTS ARE DIFFERENT. 01690352
173: C 01700352
174: IVTNUM = 3 01710352
175: IF (ICZERO) 30030, 0030, 30030 01720352
176: 0030 CONTINUE 01730352
177: RVON01 = 1.0001 E17 01740352
178: RVON02 = 1.0001 E18 01750352
179: IVCOMP = 0 01760352
180: IVCORR = 0 01770352
181: 40030 IF (RVON01 .LE. RVON02) GO TO 40031 01780352
182: IVCOMP = 1 01790352
183: 40031 IF (RVON01 .GT. RVON02) IVCOMP = IVCOMP + 2 01800352
184: IF (IVCOMP) 20030, 10030, 20030 01810352
185: 30030 IVDELE = IVDELE + 1 01820352
186: WRITE (I02,80000) IVTNUM 01830352
187: IF (ICZERO) 10030, 0041, 20030 01840352
188: 10030 IVPASS = IVPASS + 1 01850352
189: WRITE (I02,80002) IVTNUM 01860352
190: GO TO 0041 01870352
191: 20030 IVFAIL = IVFAIL + 1 01880352
192: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 01890352
193: 0041 CONTINUE 01900352
194: C 01910352
195: C **** FCVS PROGRAM 352 - TEST 004 **** 01920352
196: C 01930352
197: C TEST 4 CHECKS THE .LE. OPERATOR USING TWO REAL OPERANDS 01940352
198: C WHERE THE EXPONENTS ARE EQUAL BUT THE MANTISSAS ARE DIFFERENT. 01950352
199: C 01960352
200: IVTNUM = 4 01970352
201: IF (ICZERO) 30040, 0040, 30040 01980352
202: 0040 CONTINUE 01990352
203: RVON01 = 1.0001 E17 02000352
204: RVON02 = 1.9999 E17 02010352
205: IVCOMP = 0 02020352
206: IVCORR = 0 02030352
207: 40040 IF (RVON01 .LE. RVON02) GO TO 40041 02040352
208: IVCOMP = 1 02050352
209: 40041 IF (RVON01 .GT. RVON02) IVCOMP = IVCOMP + 2 02060352
210: IF (IVCOMP) 20040, 10040, 20040 02070352
211: 30040 IVDELE = IVDELE + 1 02080352
212: WRITE (I02,80000) IVTNUM 02090352
213: IF (ICZERO) 10040, 0051, 20040 02100352
214: 10040 IVPASS = IVPASS + 1 02110352
215: WRITE (I02,80002) IVTNUM 02120352
216: GO TO 0051 02130352
217: 20040 IVFAIL = IVFAIL + 1 02140352
218: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 02150352
219: 0051 CONTINUE 02160352
220: C 02170352
221: C **** FCVS PROGRAM 352 - TEST 005 **** 02180352
222: C 02190352
223: C TEST 5 CHECKS THE .LE. OPERATOR USING TWO REAL OPERANDS 02200352
224: C WHICH HAVE BEEN ASSIGNED THE SAME REAL CONSTANT. 02210352
225: C 02220352
226: IVTNUM = 5 02230352
227: IF (ICZERO) 30050, 0050, 30050 02240352
228: 0050 CONTINUE 02250352
229: RVON01 = 1.0001 E17 02260352
230: RVON02 = 1.0001 E17 02270352
231: IVCOMP = 0 02280352
232: IVCORR = 0 02290352
233: 40050 IF (RVON01 .LE. RVON02) GO TO 40051 02300352
234: IVCOMP = 1 02310352
235: 40051 IF (RVON01 .GT. RVON02) IVCOMP = IVCOMP + 2 02320352
236: IF (IVCOMP) 20050, 10050, 20050 02330352
237: 30050 IVDELE = IVDELE + 1 02340352
238: WRITE (I02,80000) IVTNUM 02350352
239: IF (ICZERO) 10050, 0061, 20050 02360352
240: 10050 IVPASS = IVPASS + 1 02370352
241: WRITE (I02,80002) IVTNUM 02380352
242: GO TO 0061 02390352
243: 20050 IVFAIL = IVFAIL + 1 02400352
244: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 02410352
245: 0061 CONTINUE 02420352
246: C 02430352
247: C **** FCVS PROGRAM 352 - TEST 006 **** 02440352
248: C 02450352
249: C TEST 6 CHECKS THE .NE. OPERATOR USING TWO REAL OPERANDS 02460352
250: C WHERE THE MANTISSAS ARE EQUAL BUT THE EXPONENTS ARE DIFFERENT. 02470352
251: C 02480352
252: IVTNUM = 6 02490352
253: IF (ICZERO) 30060, 0060, 30060 02500352
254: 0060 CONTINUE 02510352
255: RVON01 = 1.0001 E17 02520352
256: RVON02 = 1.0001 E18 02530352
257: IVCOMP = 0 02540352
258: IVCORR = 0 02550352
259: 40060 IF (RVON01 .NE. RVON02) GO TO 40061 02560352
260: IVCOMP = 1 02570352
261: 40061 IF (RVON01 .EQ. RVON02) IVCOMP = IVCOMP + 2 02580352
262: IF (IVCOMP) 20060, 10060, 20060 02590352
263: 30060 IVDELE = IVDELE + 1 02600352
264: WRITE (I02,80000) IVTNUM 02610352
265: IF (ICZERO) 10060, 0071, 20060 02620352
266: 10060 IVPASS = IVPASS + 1 02630352
267: WRITE (I02,80002) IVTNUM 02640352
268: GO TO 0071 02650352
269: 20060 IVFAIL = IVFAIL + 1 02660352
270: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 02670352
271: 0071 CONTINUE 02680352
272: C 02690352
273: C **** FCVS PROGRAM 352 - TEST 007 **** 02700352
274: C 02710352
275: C TEST 7 CHECKS THE .NE. OPERATOR USING TWO REAL OPERANDS 02720352
276: C WHERE THE EXPONENTS ARE EQUAL BUT THE MANTISSAS ARE DIFFERENT. 02730352
277: C 02740352
278: IVTNUM = 7 02750352
279: IF (ICZERO) 30070, 0070, 30070 02760352
280: 0070 CONTINUE 02770352
281: RVON01 = 1.0001 E17 02780352
282: RVON02 = 1.9999 E17 02790352
283: IVCOMP = 0 02800352
284: IVCORR = 0 02810352
285: 40070 IF (RVON01 .NE. RVON02) GO TO 40071 02820352
286: IVCOMP = 1 02830352
287: 40071 IF (RVON01 .EQ. RVON02) IVCOMP = IVCOMP + 2 02840352
288: IF (IVCOMP) 20070, 10070, 20070 02850352
289: 30070 IVDELE = IVDELE + 1 02860352
290: WRITE (I02,80000) IVTNUM 02870352
291: IF (ICZERO) 10070, 0081, 20070 02880352
292: 10070 IVPASS = IVPASS + 1 02890352
293: WRITE (I02,80002) IVTNUM 02900352
294: GO TO 0081 02910352
295: 20070 IVFAIL = IVFAIL + 1 02920352
296: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 02930352
297: 0081 CONTINUE 02940352
298: C 02950352
299: C **** FCVS PROGRAM 352 - TEST 008 **** 02960352
300: C 02970352
301: C TEST 8 CHECKS THE .EQ. OPERATOR USING TWO REAL OPERANDS 02980352
302: C WHICH HAVE BEEN ASSIGNED THE SAME REAL CONSTANT. 02990352
303: C 03000352
304: IVTNUM = 8 03010352
305: IF (ICZERO) 30080, 0080, 30080 03020352
306: 0080 CONTINUE 03030352
307: RVON01 = 1.0001 E17 03040352
308: RVON02 = 1.0001 E17 03050352
309: IVCOMP = 0 03060352
310: IVCORR = 0 03070352
311: 40080 IF (RVON01 .EQ. RVON02) GO TO 40081 03080352
312: IVCOMP = 1 03090352
313: 40081 IF (RVON01 .NE. RVON02) IVCOMP = IVCOMP + 2 03100352
314: IF (IVCOMP) 20080, 10080, 20080 03110352
315: 30080 IVDELE = IVDELE + 1 03120352
316: WRITE (I02,80000) IVTNUM 03130352
317: IF (ICZERO) 10080, 0091, 20080 03140352
318: 10080 IVPASS = IVPASS + 1 03150352
319: WRITE (I02,80002) IVTNUM 03160352
320: GO TO 0091 03170352
321: 20080 IVFAIL = IVFAIL + 1 03180352
322: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 03190352
323: 0091 CONTINUE 03200352
324: C 03210352
325: C **** FCVS PROGRAM 352 - TEST 009 **** 03220352
326: C 03230352
327: C TEST 9 CHECKS THE .GT. OPERATOR USING TWO REAL OPERANDS 03240352
328: C WHERE THE MANTISSAS ARE EQUAL BUT THE EXPONENTS ARE DIFFERENT. 03250352
329: C 03260352
330: IVTNUM = 9 03270352
331: IF (ICZERO) 30090, 0090, 30090 03280352
332: 0090 CONTINUE 03290352
333: RVON01 = 1.0001 E18 03300352
334: RVON02 = 1.0001 E17 03310352
335: IVCOMP = 0 03320352
336: IVCORR = 0 03330352
337: 40090 IF(RVON01 .GT. RVON02) GO TO 40091 03340352
338: IVCOMP = 1 03350352
339: 40091 IF (RVON01 .LE. RVON02) IVCOMP = IVCOMP + 2 03360352
340: IF (IVCOMP) 20090, 10090, 20090 03370352
341: 30090 IVDELE = IVDELE + 1 03380352
342: WRITE (I02,80000) IVTNUM 03390352
343: IF (ICZERO) 10090, 0101, 20090 03400352
344: 10090 IVPASS = IVPASS + 1 03410352
345: WRITE (I02,80002) IVTNUM 03420352
346: GO TO 0101 03430352
347: 20090 IVFAIL = IVFAIL + 1 03440352
348: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 03450352
349: 0101 CONTINUE 03460352
350: C 03470352
351: C **** FCVS PROGRAM 352 - TEST 010 **** 03480352
352: C 03490352
353: C TEST 10 CHECKS THE .GT. OPERATOR USING TWO REAL OPERANDS 03500352
354: C WHERE THE EXPONENTS ARE EQUAL BUT THE MANTISSAS ARE DIFFERENT. 03510352
355: C 03520352
356: IVTNUM = 10 03530352
357: IF (ICZERO) 30100, 0100, 30100 03540352
358: 0100 CONTINUE 03550352
359: RVON01 = 1.9999 E17 03560352
360: RVON02 = 1.0001 E17 03570352
361: IVCOMP = 0 03580352
362: IVCORR = 0 03590352
363: 40100 IF (RVON01 .GT. RVON02) GO TO 40101 03600352
364: IVCOMP = 1 03610352
365: 40101 IF (RVON01 .LE. RVON02) IVCOMP = IVCOMP + 2 03620352
366: IF (IVCOMP) 20100, 10100, 20100 03630352
367: 30100 IVDELE = IVDELE + 1 03640352
368: WRITE (I02,80000) IVTNUM 03650352
369: IF (ICZERO) 10100, 0111, 20100 03660352
370: 10100 IVPASS = IVPASS + 1 03670352
371: WRITE (I02,80002) IVTNUM 03680352
372: GO TO 0111 03690352
373: 20100 IVFAIL = IVFAIL + 1 03700352
374: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 03710352
375: 0111 CONTINUE 03720352
376: C 03730352
377: C **** FCVS PROGRAM 352 - TEST 011 **** 03740352
378: C 03750352
379: C TEST 11 CHECKS THE .GE. OPERATOR USING TWO REAL OPERANDS 03760352
380: C WHERE THE MANTISSAS ARE EQUAL BUT THE EXPONENTS ARE DIFFERENT. 03770352
381: C 03780352
382: IVTNUM = 11 03790352
383: IF (ICZERO) 30110, 0110, 30110 03800352
384: 0110 CONTINUE 03810352
385: RVON01 = 1.0001 E18 03820352
386: RVON02 = 1.0001 E17 03830352
387: IVCOMP = 0 03840352
388: IVCORR = 0 03850352
389: 40110 IF (RVON01 .GE. RVON02) GO TO 40111 03860352
390: IVCOMP = 1 03870352
391: 40111 IF (RVON01 .LT. RVON02) IVCOMP = IVCOMP + 2 03880352
392: IF (IVCOMP) 20110, 10110, 20110 03890352
393: 30110 IVDELE = IVDELE + 1 03900352
394: WRITE (I02,80000) IVTNUM 03910352
395: IF (ICZERO) 10110, 0121, 20110 03920352
396: 10110 IVPASS = IVPASS + 1 03930352
397: WRITE (I02,80002) IVTNUM 03940352
398: GO TO 0121 03950352
399: 20110 IVFAIL = IVFAIL + 1 03960352
400: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 03970352
401: 0121 CONTINUE 03980352
402: C 03990352
403: C **** FCVS PROGRAM 352 - TEST 012 **** 04000352
404: C 04010352
405: C TEST 12 CHECKS THE .GE. OPERATOR USING TWO REAL OPERANDS 04020352
406: C WHERE THE EXPONENTS ARE EQUAL BUT THE MANTISSAS ARE DIFFERENT. 04030352
407: C 04040352
408: IVTNUM = 12 04050352
409: IF (ICZERO) 30120, 0120, 30120 04060352
410: 0120 CONTINUE 04070352
411: RVON01 = 1.9999 E17 04080352
412: RVON02 = 1.0001 E17 04090352
413: IVCOMP = 0 04100352
414: IVCORR = 0 04110352
415: 40120 IF (RVON01 .GE. RVON02) GO TO 40121 04120352
416: IVCOMP = 1 04130352
417: 40121 IF (RVON01 .LT. RVON02) IVCOMP = IVCOMP + 2 04140352
418: IF (IVCOMP) 20120, 10120, 20120 04150352
419: 30120 IVDELE = IVDELE + 1 04160352
420: WRITE (I02,80000) IVTNUM 04170352
421: IF (ICZERO) 10120, 0131, 20120 04180352
422: 10120 IVPASS = IVPASS + 1 04190352
423: WRITE (I02,80002) IVTNUM 04200352
424: GO TO 0131 04210352
425: 20120 IVFAIL = IVFAIL + 1 04220352
426: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 04230352
427: 0131 CONTINUE 04240352
428: C 04250352
429: C **** FCVS PROGRAM 352 - TEST 013 **** 04260352
430: C 04270352
431: C TEST 13 CHECKS THE .GE. OPERATOR USING TWO REAL OPERANDS 04280352
432: C WHERE EACH HAS BEEN ASSIGNED THE SAME REAL CONSTANT. 04290352
433: C 04300352
434: IVTNUM = 13 04310352
435: IF (ICZERO) 30130, 0130, 30130 04320352
436: 0130 CONTINUE 04330352
437: RVON01 = 1.0001 E17 04340352
438: RVON02 = 1.0001 E17 04350352
439: IVCOMP = 0 04360352
440: IVCORR = 0 04370352
441: 40130 IF (RVON01 .GE. RVON02) GO TO 40131 04380352
442: IVCOMP = 1 04390352
443: 40131 IF (RVON01 .LT. RVON02) IVCOMP = IVCOMP + 2 04400352
444: IF (IVCOMP) 20130, 10130, 20130 04410352
445: 30130 IVDELE = IVDELE + 1 04420352
446: WRITE (I02,80000) IVTNUM 04430352
447: IF (ICZERO) 10130, 0141, 20130 04440352
448: 10130 IVPASS = IVPASS + 1 04450352
449: WRITE (I02,80002) IVTNUM 04460352
450: GO TO 0141 04470352
451: 20130 IVFAIL = IVFAIL + 1 04480352
452: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 04490352
453: 0141 CONTINUE 04500352
454: C 04510352
455: C TESTS 14 THROUGH 28 REPETITIVELY CHECK THE .LT. RELATIONSHIP 04520352
456: C USING ALL TYPES AND ORDERINGS OF TWO REAL OPERANDS. 04530352
457: C 04540352
458: C 04550352
459: C TESTS 14 THROUGH 16 CHECK REAL-VARIABLE .LT OTHER-REAL-TYPES.04560352
460: C 04570352
461: C 04580352
462: C **** FCVS PROGRAM 352 - TEST 014 **** 04590352
463: C 04600352
464: C TEST 14 CHECKS REAL-VARIABLE .LT. REAL-CONSTANT 04610352
465: C 04620352
466: IVTNUM = 14 04630352
467: IF (ICZERO) 30140, 0140, 30140 04640352
468: 0140 CONTINUE 04650352
469: RVON01 = 1.0001 E17 04660352
470: IVCOMP = 0 04670352
471: IVCORR = 0 04680352
472: 40140 IF (RVON01 .LT. 1.9999 E17) GO TO 40141 04690352
473: IVCOMP = 1 04700352
474: 40141 IF (RVON01 .GE. 1.9999 E17) IVCOMP = IVCOMP + 2 04710352
475: IF (IVCOMP) 20140, 10140, 20140 04720352
476: 30140 IVDELE = IVDELE + 1 04730352
477: WRITE (I02,80000) IVTNUM 04740352
478: IF (ICZERO) 10140, 0151, 20140 04750352
479: 10140 IVPASS = IVPASS + 1 04760352
480: WRITE (I02,80002) IVTNUM 04770352
481: GO TO 0151 04780352
482: 20140 IVFAIL = IVFAIL + 1 04790352
483: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 04800352
484: 0151 CONTINUE 04810352
485: C 04820352
486: C **** FCVS PROGRAM 352 - TEST 015 **** 04830352
487: C 04840352
488: C TEST 15 CHECKS REAL-VARIABLE .LT. ARRAY-ELEMENT 04850352
489: C 04860352
490: IVTNUM = 15 04870352
491: IF (ICZERO) 30150, 0150, 30150 04880352
492: 0150 CONTINUE 04890352
493: RADN11(1) = 1.9999 E17 04900352
494: RVON01 = 1.0001 E17 04910352
495: IVCOMP = 0 04920352
496: IVCORR = 0 04930352
497: 40150 IF (RVON01 .LT. RADN11(1)) GO TO 40151 04940352
498: IVCOMP = 1 04950352
499: 40151 IF (RVON01 .GE. RADN11(1)) IVCOMP = IVCOMP + 2 04960352
500: IF (IVCOMP) 20150, 10150, 20150 04970352
501: 30150 IVDELE = IVDELE + 1 04980352
502: WRITE (I02,80000) IVTNUM 04990352
503: IF (ICZERO) 10150, 0161, 20150 05000352
504: 10150 IVPASS = IVPASS + 1 05010352
505: WRITE (I02,80002) IVTNUM 05020352
506: GO TO 0161 05030352
507: 20150 IVFAIL = IVFAIL + 1 05040352
508: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 05050352
509: 0161 CONTINUE 05060352
510: C 05070352
511: C **** FCVS PROGRAM 352 - TEST 016 **** 05080352
512: C 05090352
513: C TEST 16 CHECKS REAL-VARIABLE .LT. FUNCTION-REFERENCE 05100352
514: C 05110352
515: IVTNUM = 16 05120352
516: IF (ICZERO) 30160, 0160, 30160 05130352
517: 0160 CONTINUE 05140352
518: RVON01 = 1.0001 E17 05150352
519: RVON02 = 1 E17 05160352
520: RVON03 = 0.9999 E17 05170352
521: IVCOMP = 0 05180352
522: IVCORR = 0 05190352
523: 40160 IF (RVON01 .LT. RFOS01(RVON02,RVON03)) GO TO 40161 05200352
524: IVCOMP = 1 05210352
525: 40161 IF (RVON01 .GE. RFOS01(RVON02,RVON03)) IVCOMP = IVCOMP + 2 05220352
526: IF (IVCOMP) 20160, 10160, 20160 05230352
527: 30160 IVDELE = IVDELE + 1 05240352
528: WRITE (I02,80000) IVTNUM 05250352
529: IF (ICZERO) 10160, 0171, 20160 05260352
530: 10160 IVPASS = IVPASS + 1 05270352
531: WRITE (I02,80002) IVTNUM 05280352
532: GO TO 0171 05290352
533: 20160 IVFAIL = IVFAIL + 1 05300352
534: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 05310352
535: 0171 CONTINUE 05320352
536: C 05330352
537: C TESTS 17 THROUGH 20 CHECK REAL-CONSTANT .LT. OTHER-REAL-TYPES05340352
538: C 05350352
539: C 05360352
540: C **** FCVS PROGRAM 352 - TEST 017 **** 05370352
541: C 05380352
542: C TEST 17 CHECKS REAL-CONSTANT .LT. REAL-CONSTANT 05390352
543: C 05400352
544: IVTNUM = 17 05410352
545: IF (ICZERO) 30170, 0170, 30170 05420352
546: 0170 CONTINUE 05430352
547: IVCOMP = 0 05440352
548: IVCORR = 0 05450352
549: 40170 IF (1.0001 E17 .LT. 1.9999 E17) GO TO 40171 05460352
550: IVCOMP = 1 05470352
551: 40171 IF (1.0001 E17 .GE. 1.9999 E17) IVCOMP = IVCOMP + 2 05480352
552: IF (IVCOMP) 20170, 10170, 20170 05490352
553: 30170 IVDELE = IVDELE + 1 05500352
554: WRITE (I02,80000) IVTNUM 05510352
555: IF (ICZERO) 10170, 0181, 20170 05520352
556: 10170 IVPASS = IVPASS + 1 05530352
557: WRITE (I02,80002) IVTNUM 05540352
558: GO TO 0181 05550352
559: 20170 IVFAIL = IVFAIL + 1 05560352
560: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 05570352
561: 0181 CONTINUE 05580352
562: C 05590352
563: C **** FCVS PROGRAM 352 - TEST 018 **** 05600352
564: C 05610352
565: C TEST 18 CHECKS REAL-CONSTANT .LT. REAL-ARRAY-ELEMENT 05620352
566: C 05630352
567: IVTNUM = 18 05640352
568: IF (ICZERO) 30180, 0180, 30180 05650352
569: 0180 CONTINUE 05660352
570: RADN11(1) = 1.9999 E17 05670352
571: IVCOMP = 0 05680352
572: IVCORR = 0 05690352
573: 40180 IF (1.0001 E17 .LT. RADN11(1)) GO TO 40181 05700352
574: IVCOMP = 1 05710352
575: 40181 IF (1.0001 E17 .GE. RADN11(1)) IVCOMP = IVCOMP + 2 05720352
576: IF (IVCOMP) 20180, 10180, 20180 05730352
577: 30180 IVDELE = IVDELE + 1 05740352
578: WRITE (I02,80000) IVTNUM 05750352
579: IF (ICZERO) 10180, 0191, 20180 05760352
580: 10180 IVPASS = IVPASS + 1 05770352
581: WRITE (I02,80002) IVTNUM 05780352
582: GO TO 0191 05790352
583: 20180 IVFAIL = IVFAIL + 1 05800352
584: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 05810352
585: 0191 CONTINUE 05820352
586: C 05830352
587: C **** FCVS PROGRAM 352 - TEST 019 **** 05840352
588: C 05850352
589: C TEST 19 CHECKS REAL-CONSTANT .LT. REAL-VARIABLE 05860352
590: C 05870352
591: IVTNUM = 19 05880352
592: IF (ICZERO) 30190, 0190, 30190 05890352
593: 0190 CONTINUE 05900352
594: RVON01 = 1.9999 E17 05910352
595: IVCOMP = 0 05920352
596: IVCORR = 0 05930352
597: 40190 IF (1.0001 E17 .LT. RVON01) GO TO 40191 05940352
598: IVCOMP = 1 05950352
599: 40191 IF (1.0001 E17 .GE. RVON01) IVCOMP = IVCOMP + 2 05960352
600: IF (IVCOMP) 20190, 10190, 20190 05970352
601: 30190 IVDELE = IVDELE + 1 05980352
602: WRITE (I02,80000) IVTNUM 05990352
603: IF (ICZERO) 10190, 0201, 20190 06000352
604: 10190 IVPASS = IVPASS + 1 06010352
605: WRITE (I02,80002) IVTNUM 06020352
606: GO TO 0201 06030352
607: 20190 IVFAIL = IVFAIL + 1 06040352
608: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 06050352
609: 0201 CONTINUE 06060352
610: C 06070352
611: C **** FCVS PROGRAM 352 - TEST 020 **** 06080352
612: C 06090352
613: C TEST 20 CHECKS REAL-CONSTANT .LT. REAL-FUNCTION-REFERENCE 06100352
614: C 06110352
615: IVTNUM = 20 06120352
616: IF (ICZERO) 30200, 0200, 30200 06130352
617: 0200 CONTINUE 06140352
618: RVON01 = 1 E17 06150352
619: RVON02 = 0.9999 E17 06160352
620: IVCOMP = 0 06170352
621: IVCORR = 0 06180352
622: 40200 IF (1.0001 E17 .LT. RFOS01(RVON01,RVON02)) GO TO 40201 06190352
623: IVCOMP = 1 06200352
624: 40201 IF (1.0001 E17 .GE. RFOS01(RVON01,RVON02)) IVCOMP = IVCOMP + 2 06210352
625: IF (IVCOMP) 20200, 10200, 20200 06220352
626: 30200 IVDELE = IVDELE + 1 06230352
627: WRITE (I02,80000) IVTNUM 06240352
628: IF (ICZERO) 10200, 0211, 20200 06250352
629: 10200 IVPASS = IVPASS + 1 06260352
630: WRITE (I02,80002) IVTNUM 06270352
631: GO TO 0211 06280352
632: 20200 IVFAIL = IVFAIL + 1 06290352
633: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 06300352
634: 0211 CONTINUE 06310352
635: C 06320352
636: C TESTS 21 THROUGH 24 CHECK REAL-ARRAY-ELEMENT .LT. OTHER-REALS06330352
637: C 06340352
638: C 06350352
639: C **** FCVS PROGRAM 352 - TEST 021 **** 06360352
640: C 06370352
641: C TEST 21 CHECKS REAL-ARRAY-ELEMENT .LT. REAL-CONSTANT 06380352
642: C 06390352
643: IVTNUM = 21 06400352
644: IF (ICZERO) 30210, 0210, 30210 06410352
645: 0210 CONTINUE 06420352
646: RADN11(1) = 1.0001 E17 06430352
647: IVCOMP = 0 06440352
648: IVCORR = 0 06450352
649: 40210 IF (RADN11(1) .LT. 1.9999 E17) GO TO 40211 06460352
650: IVCOMP = 1 06470352
651: 40211 IF (RADN11(1) .GE. 1.9999 E17) IVCOMP = IVCOMP + 2 06480352
652: IF (IVCOMP) 20210, 10210, 20210 06490352
653: 30210 IVDELE = IVDELE + 1 06500352
654: WRITE (I02,80000) IVTNUM 06510352
655: IF (ICZERO) 10210, 0221, 20210 06520352
656: 10210 IVPASS = IVPASS + 1 06530352
657: WRITE (I02,80002) IVTNUM 06540352
658: GO TO 0221 06550352
659: 20210 IVFAIL = IVFAIL + 1 06560352
660: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 06570352
661: 0221 CONTINUE 06580352
662: C 06590352
663: C **** FCVS PROGRAM 352 - TEST 022 **** 06600352
664: C 06610352
665: C TEST 22 CHECKS REAL-ARRAY-ELEMENT .LT. REAL-ARRAY-ELEMENT 06620352
666: C 06630352
667: IVTNUM = 22 06640352
668: IF (ICZERO) 30220, 0220, 30220 06650352
669: 0220 CONTINUE 06660352
670: RADN11(1) = 1.0001 E17 06670352
671: RADN11(2) = 1.9999 E17 06680352
672: IVCOMP = 0 06690352
673: IVCORR = 0 06700352
674: 40220 IF (RADN11(1) .LT. RADN11(2)) GO TO 40221 06710352
675: IVCOMP = 1 06720352
676: 40221 IF (RADN11(1) .GE. RADN11(2)) IVCOMP = IVCOMP + 2 06730352
677: IF (IVCOMP) 20220, 10220, 20220 06740352
678: 30220 IVDELE = IVDELE + 1 06750352
679: WRITE (I02,80000) IVTNUM 06760352
680: IF (ICZERO) 10220, 0231, 20220 06770352
681: 10220 IVPASS = IVPASS + 1 06780352
682: WRITE (I02,80002) IVTNUM 06790352
683: GO TO 0231 06800352
684: 20220 IVFAIL = IVFAIL + 1 06810352
685: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 06820352
686: 0231 CONTINUE 06830352
687: C 06840352
688: C **** FCVS PROGRAM 352 - TEST 023 **** 06850352
689: C 06860352
690: C TEST 23 CHECKS REAL-ARRAY-ELEMENT .LT. REAL-VARIABLE 06870352
691: C 06880352
692: IVTNUM = 23 06890352
693: IF (ICZERO) 30230, 0230, 30230 06900352
694: 0230 CONTINUE 06910352
695: RVON01 = 1.9999 E17 06920352
696: RADN11(1) = 1.0001 E17 06930352
697: IVCORR = 0 06940352
698: IVCOMP = 0 06950352
699: 40230 IF (RADN11(1) .LT. RVON01) GO TO 40231 06960352
700: IVCOMP = 1 06970352
701: 40231 IF (RADN11(1) .GE. RVON01) IVCOMP = IVCOMP + 2 06980352
702: IF (IVCOMP) 20230, 10230, 20230 06990352
703: 30230 IVDELE = IVDELE + 1 07000352
704: WRITE (I02,80000) IVTNUM 07010352
705: IF (ICZERO) 10230, 0241, 20230 07020352
706: 10230 IVPASS = IVPASS + 1 07030352
707: WRITE (I02,80002) IVTNUM 07040352
708: GO TO 0241 07050352
709: 20230 IVFAIL = IVFAIL + 1 07060352
710: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 07070352
711: 0241 CONTINUE 07080352
712: C 07090352
713: C **** FCVS PROGRAM 352 - TEST 024 **** 07100352
714: C 07110352
715: C TEST 24 CHECKS REAL-ARRAY-ELEMENT .LT. REAL-FUNCTION-REF. 07120352
716: C 07130352
717: IVTNUM = 24 07140352
718: IF (ICZERO) 30240, 0240, 30240 07150352
719: 0240 CONTINUE 07160352
720: RVON01 = 1.0000 E17 07170352
721: RVON02 = 0.9999 E17 07180352
722: RADN11(1) = 1.0001 E17 07190352
723: IVCORR = 0 07200352
724: IVCOMP = 0 07210352
725: 40240 IF (RADN11(1) .LT. RFOS01(RVON01,RVON02)) GO TO 40241 07220352
726: IVCOMP = 1 07230352
727: 40241 IF (RADN11(1) .GE. RFOS01(RVON01,RVON02)) IVCOMP = IVCOMP + 2 07240352
728: IF (IVCOMP) 20240, 10240, 20240 07250352
729: 30240 IVDELE = IVDELE + 1 07260352
730: WRITE (I02,80000) IVTNUM 07270352
731: IF (ICZERO) 10240, 0251, 20240 07280352
732: 10240 IVPASS = IVPASS + 1 07290352
733: WRITE (I02,80002) IVTNUM 07300352
734: GO TO 0251 07310352
735: 20240 IVFAIL = IVFAIL + 1 07320352
736: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 07330352
737: 0251 CONTINUE 07340352
738: C 07350352
739: C TESTS 25 THROUGH 28 CHECK REAL-FUNCTION-REFERENCE .LT. 07360352
740: C OTHER-REAL-TYPES 07370352
741: C 07380352
742: C 07390352
743: C **** FCVS PROGRAM 352 - TEST 025 **** 07400352
744: C 07410352
745: C TEST 25 CHECKS REAL-FUNCTION-REFERENCE .LT. REAL-CONSTANT 07420352
746: C 07430352
747: IVTNUM = 25 07440352
748: IF (ICZERO) 30250, 0250, 30250 07450352
749: 0250 CONTINUE 07460352
750: RVON01 = 1.0000 E17 07470352
751: RVON02 = 0.0001 E17 07480352
752: IVCOMP = 0 07490352
753: IVCORR = 0 07500352
754: 40250 IF (RFOS01(RVON01,RVON02) .LT. 1.9999 E17) GO TO 40251 07510352
755: IVCOMP = 1 07520352
756: 40251 IF (RFOS01(RVON01,RVON02) .GE. 1.9999 E17) IVCOMP = IVCOMP + 2 07530352
757: IF (IVCOMP) 20250, 10250, 20250 07540352
758: 30250 IVDELE = IVDELE + 1 07550352
759: WRITE (I02,80000) IVTNUM 07560352
760: IF (ICZERO) 10250, 0261, 20250 07570352
761: 10250 IVPASS = IVPASS + 1 07580352
762: WRITE (I02,80002) IVTNUM 07590352
763: GO TO 0261 07600352
764: 20250 IVFAIL = IVFAIL + 1 07610352
765: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 07620352
766: 0261 CONTINUE 07630352
767: C 07640352
768: C **** FCVS PROGRAM 352 - TEST 026 **** 07650352
769: C 07660352
770: C TEST 26 CHECKS REAL-FUNCTION-REFERENCE .LT. REAL-ARRAY-ELEMNT07670352
771: C 07680352
772: IVTNUM = 26 07690352
773: IF (ICZERO) 30260, 0260, 30260 07700352
774: 0260 CONTINUE 07710352
775: RVON01 = 1 E17 07720352
776: RVON02 = 0.0001 E17 07730352
777: RADN11(1) = 1.9999 E17 07740352
778: IVCOMP = 0 07750352
779: IVCORR = 0 07760352
780: 40260 IF (RFOS01(RVON01,RVON02) .LT. RADN11(1)) GO TO 40261 07770352
781: IVCOMP = 1 07780352
782: 40261 IF (RFOS01(RVON01,RVON02) .GE. RADN11(1)) IVCOMP = IVCOMP + 2 07790352
783: IF (IVCOMP) 20260, 10260, 20260 07800352
784: 30260 IVDELE = IVDELE + 1 07810352
785: WRITE (I02,80000) IVTNUM 07820352
786: IF (ICZERO) 10260, 0271, 20260 07830352
787: 10260 IVPASS = IVPASS + 1 07840352
788: WRITE (I02,80002) IVTNUM 07850352
789: GO TO 0271 07860352
790: 20260 IVFAIL = IVFAIL + 1 07870352
791: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 07880352
792: 0271 CONTINUE 07890352
793: C 07900352
794: C **** FCVS PROGRAM 352 - TEST 027 **** 07910352
795: C 07920352
796: C TEST 27 CHECKS REAL-FUNCTION-REFERENCE .LT. REAL-VARIABLE 07930352
797: C 07940352
798: IVTNUM = 27 07950352
799: IF (ICZERO) 30270, 0270, 30270 07960352
800: 0270 CONTINUE 07970352
801: RVON01 = 1 E17 07980352
802: RVON02 = 0.0001 E17 07990352
803: RVON03 = 1.9999 E17 08000352
804: IVCOMP = 0 08010352
805: IVCORR = 0 08020352
806: 40270 IF (RFOS01(RVON01,RVON02) .LT. RVON03) GO TO 40271 08030352
807: IVCOMP = 1 08040352
808: 40271 IF (RFOS01(RVON01,RVON02) .GE. RVON03) IVCOMP = IVCOMP + 2 08050352
809: IF (IVCOMP) 20270, 10270, 20270 08060352
810: 30270 IVDELE = IVDELE + 1 08070352
811: WRITE (I02,80000) IVTNUM 08080352
812: IF (ICZERO) 10270, 0281, 20270 08090352
813: 10270 IVPASS = IVPASS + 1 08100352
814: WRITE (I02,80002) IVTNUM 08110352
815: GO TO 0281 08120352
816: 20270 IVFAIL = IVFAIL + 1 08130352
817: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 08140352
818: 0281 CONTINUE 08150352
819: C 08160352
820: C **** FCVS PROGRAM 352 - TEST 028 **** 08170352
821: C 08180352
822: C TEST 28 CHECKS REAL-FUNCTION-REFERENCE .LT REAL-FUNCTION-REF.08190352
823: C 08200352
824: IVTNUM = 28 08210352
825: IF (ICZERO) 30280, 0280, 30280 08220352
826: 0280 CONTINUE 08230352
827: RVON01 = 1 E17 08240352
828: RVON02 = 0.0001 E17 08250352
829: RVON03 = 0.9999 E17 08260352
830: IVCOMP = 0 08270352
831: IVCORR = 0 08280352
832: 40280 IF (RFOS01(RVON01,RVON02) .LT. RFOS01(RVON01,RVON03)) GO TO 40281 08290352
833: IVCOMP = 1 08300352
834: 40281 IF (RFOS01(RVON01,RVON02) .GE. RFOS01(RVON01,RVON03)) 08310352
835: 1 IVCOMP = IVCOMP + 2 08320352
836: IF (IVCOMP) 20280, 10280, 20280 08330352
837: 30280 IVDELE = IVDELE + 1 08340352
838: WRITE (I02,80000) IVTNUM 08350352
839: IF (ICZERO) 10280, 0291, 20280 08360352
840: 10280 IVPASS = IVPASS + 1 08370352
841: WRITE (I02,80002) IVTNUM 08380352
842: GO TO 0291 08390352
843: 20280 IVFAIL = IVFAIL + 1 08400352
844: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 08410352
845: 0291 CONTINUE 08420352
846: C 08430352
847: C 08440352
848: C WRITE OUT TEST SUMMARY 08450352
849: C 08460352
850: WRITE (I02,90004) 08470352
851: WRITE (I02,90014) 08480352
852: WRITE (I02,90004) 08490352
853: WRITE (I02,90000) 08500352
854: WRITE (I02,90004) 08510352
855: WRITE (I02,90020) IVFAIL 08520352
856: WRITE (I02,90022) IVPASS 08530352
857: WRITE (I02,90024) IVDELE 08540352
858: STOP 08550352
859: 90001 FORMAT (1H ,24X,5HFM352) 08560352
860: 90000 FORMAT (1H ,20X,20HEND OF PROGRAM FM352) 08570352
861: C 08580352
862: C FORMATS FOR TEST DETAIL LINES 08590352
863: C 08600352
864: 80000 FORMAT (1H ,4X,I5,6X,7HDELETED) 08610352
865: 80002 FORMAT (1H ,4X,I5,7X,4HPASS) 08620352
866: 80010 FORMAT (1H ,4X,I5,7X,4HFAIL,10X,I6,9X,I6) 08630352
867: 80012 FORMAT (1H ,4X,I5,7X,4HFAIL,4X,E12.5,3X,E12.5) 08640352
868: 80018 FORMAT (1H ,4X,I5,7X,4HFAIL,2X,A14,1X,A14) 08650352
869: C 08660352
870: C FORMAT STATEMENTS FOR PAGE HEADERS 08670352
871: C 08680352
872: 90002 FORMAT (1H1) 08690352
873: 90004 FORMAT (1H ) 08700352
874: 90006 FORMAT (1H ,10X,34HFORTRAN COMPILER VALIDATION SYSTEM) 08710352
875: 90008 FORMAT (1H ,21X,11HVERSION 1.0) 08720352
876: 90010 FORMAT (1H ,8X,38HFOR OFFICIAL USE ONLY - COPYRIGHT 1978) 08730352
877: 90012 FORMAT (1H ,5X,4HTEST,5X,9HPASS/FAIL,5X,8HCOMPUTED,8X,7HCORRECT) 08740352
878: 90014 FORMAT (1H ,5X,46H----------------------------------------------) 08750352
879: 90016 FORMAT (1H ,18X,17HSUBSET LEVEL TEST) 08760352
880: C 08770352
881: C FORMAT STATEMENTS FOR RUN SUMMARY 08780352
882: C 08790352
883: 90020 FORMAT (1H ,19X,I5,13H TESTS FAILED) 08800352
884: 90022 FORMAT (1H ,19X,I5,13H TESTS PASSED) 08810352
885: 90024 FORMAT (1H ,19X,I5,14H TESTS DELETED) 08820352
886: END 08830352
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.