![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to FM201.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 FM201.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 FM201 00010201
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 00020201
6: C 00030201
7: C THIS ROUTINE VERIFIES THAT 00040201
8: C 00050201
9: C (1) THE VALUE OF A SIGNED ZERO IS THE SAME AS THE VALUE OF 00060201
10: C AN UNSIGNED ZERO FOR INTEGER AND REAL VARIABLES. 00070201
11: C 00080201
12: C (2) A BASIC REAL CONSTANT MAY BE WRITTEN WITH MORE DIGITS 00090201
13: C THAN A PROCESSOR WILL USE TO APPROXIMATE THE VALUE OF 00100201
14: C THE CONSTANT. 00110201
15: C 00120201
16: C (3) AN IMPLICIT STATEMENT CAN BE USED TO CHANGE THE DEFAULT 00130201
17: C IMPLICIT INTEGER AND REAL TYPING. 00140201
18: C 00150201
19: C (4) THE IMPLICIT INTEGER AND REAL TYPING OF AN IMPLICIT 00160201
20: C STATEMENT MAY BE OVERRIDDEN BY THE APPEARANCE OF A 00170201
21: C VARIABLE NAME IN A TYPE-STATEMENT. 00180201
22: C 00190201
23: C REFERENCES 00200201
24: C AMERICAN NATIONAL STANDARD PROGRAMMING LANGUAGE FORTRAN, 00210201
25: C X3.9-1978 00220201
26: C 00230201
27: C SECTION 4.1.3, DATA TYPE PROPERTIES 00240201
28: C SECTION 4.4.1, BASIC REAL CONSTANT 00250201
29: C SECTION 6.1.5, INTEGER DIVISION 00260201
30: C SECTION 8.4, TYPE-STATEMENTS 00270201
31: C SECTION 8.5, IMPLICIT STATEMENT 00280201
32: C 00290201
33: C 00300201
34: C ******************************************************************00310201
35: C A COMPILER VALIDATION SYSTEM FOR THE FORTRAN LANGUAGE 00320201
36: C BASED ON SPECIFICATIONS AS DEFINED IN AMERICAN STANDARD FORTRAN 00330201
37: C X3.9-1978, HAS BEEN DEVELOPED BY THE DEPARTMENT OF THE NAVY. THE 00340201
38: C FORTRAN COMPILER VALIDATION SYSTEM (FCVS) CONSISTS OF AUDIT 00350201
39: C ROUTINES, THEIR RELATED DATA, AND AN EXECUTIVE SYSTEM. EACH AUDIT00360201
40: C ROUTINE IS A FORTRAN PROGRAM OR SUBPROGRAM WHICH INCLUDES TESTS 00370201
41: C OF SPECIFIC LANGUAGE ELEMENTS AND SUPPORTING PROCEDURES INDICATING00380201
42: C THE RESULT OF EXECUTING THESE TESTS. 00390201
43: C 00400201
44: C THIS PARTICULAR PROGRAM OR SUBPROGRAM CONTAINS ONLY FEATURES 00410201
45: C FOUND IN THE SUBSET LEVEL OF THE STANDARD. 00420201
46: C 00430201
47: C SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00440201
48: C DEPARTMENT OF THE NAVY 00450201
49: C FEDERAL COBOL COMPILER TESTING SERVICE 00460201
50: C WASHINGTON, D.C. 20376 00470201
51: C 00480201
52: C ******************************************************************00490201
53: C 00500201
54: C 00510201
55: IMPLICIT LOGICAL (L) 00520201
56: IMPLICIT CHARACTER*14 (C) 00530201
57: C 00540201
58: IMPLICIT INTEGER (Y, V-X), REAL (M) 00550201
59: REAL RVTN01, RVTN02, RVTN03, YVTN02 00560201
60: INTEGER IVTN01, IVTN02, MVTN02 00570201
61: C THE ABOVE THREE STATEMENTS ARE REFERENCED IN TESTS 29 THRU 35. 00580201
62: C 00590201
63: C 00600201
64: C 00610201
65: C INITIALIZATION SECTION. 00620201
66: C 00630201
67: C INITIALIZE CONSTANTS 00640201
68: C ******************** 00650201
69: C I01 CONTAINS THE LOGICAL UNIT NUMBER FOR THE CARD READER 00660201
70: I01 = 5 00670201
71: C I02 CONTAINS THE LOGICAL UNIT NUMBER FOR THE PRINTER 00680201
72: I02 = 6 00690201
73: C SYSTEM ENVIRONMENT SECTION 00700201
74: C 00710201
75: I01 = 5 00720201
76: C THE CX010 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I01 = 5 00730201
77: C (UNIT NUMBER FOR CARD READER). 00740201
78: CX011 THIS CARD IS REPLACED BY CONTENTS OF FEXEC X-011 CONTROL CARD00750201
79: C THE CX011 CARD IS FOR SYSTEMS WHICH REQUIRE ADDITIONAL 00760201
80: C FORTRAN STATEMENTS FOR FILES ASSOCIATED WITH CX010 ABOVE. 00770201
81: C 00780201
82: I02 = 6 00790201
83: C THE CX020 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I02 = 6 00800201
84: C (UNIT NUMBER FOR PRINTER). 00810201
85: CX021 THIS CARD IS PEPLACED BY CONTENTS OF FEXEC X-021 CONTROL CARD.00820201
86: C THE CX021 CARD IS FOR SYSTEMS WHICH REQUIRE ADDITIONAL 00830201
87: C FORTRAN STATEMENTS FOR FILES ASSOCIATED WITH CX020 ABOVE. 00840201
88: C 00850201
89: IVPASS = 0 00860201
90: IVFAIL = 0 00870201
91: IVDELE = 0 00880201
92: ICZERO = 0 00890201
93: C 00900201
94: C WRITE OUT PAGE HEADERS 00910201
95: C 00920201
96: WRITE (I02,90002) 00930201
97: WRITE (I02,90006) 00940201
98: WRITE (I02,90008) 00950201
99: WRITE (I02,90004) 00960201
100: WRITE (I02,90010) 00970201
101: WRITE (I02,90004) 00980201
102: WRITE (I02,90016) 00990201
103: WRITE (I02,90001) 01000201
104: WRITE (I02,90004) 01010201
105: WRITE (I02,90012) 01020201
106: WRITE (I02,90014) 01030201
107: WRITE (I02,90004) 01040201
108: C 01050201
109: C 01060201
110: C TEST 14 THROUGH TEST 17 COMPARE INTEGER VARIABLES WHICH ARE 01070201
111: C SET TO SIGNED ZERO AND UNSIGNED ZERO VALUES BY THE FOLLOWING 01080201
112: C STATEMENTS 01090201
113: C 01100201
114: IVON01 = 0 01110201
115: IVON02 = -0 01120201
116: IVON03 = +0 01130201
117: C 01140201
118: C REFERENCE X3.9-1978, SECTION 4.1.3, DATA TYPE PROPERTIES 01150201
119: C 01160201
120: C **** FCVS PROGRAM 201 - TEST 014 **** 01170201
121: C 01180201
122: C COMPARE 0 TO -0 01190201
123: C 01200201
124: IVTNUM = 14 01210201
125: IF (ICZERO) 30140, 0140, 30140 01220201
126: 0140 CONTINUE 01230201
127: IVCOMP = 1 01240201
128: IVCORR = 0 01250201
129: IF (IVON01 .EQ. IVON02) IVCOMP = 0 01260201
130: 40140 IF (IVCOMP) 20140, 10140, 20140 01270201
131: 30140 IVDELE = IVDELE + 1 01280201
132: WRITE (I02,80000) IVTNUM 01290201
133: IF (ICZERO) 10140, 0151, 20140 01300201
134: 10140 IVPASS = IVPASS + 1 01310201
135: WRITE (I02,80002) IVTNUM 01320201
136: GO TO 0151 01330201
137: 20140 IVFAIL = IVFAIL + 1 01340201
138: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 01350201
139: 0151 CONTINUE 01360201
140: C 01370201
141: C **** FCVS PROGRAM 201 - TEST 015 **** 01380201
142: C 01390201
143: C COMPARE 0 TO +0 01400201
144: C 01410201
145: IVTNUM = 15 01420201
146: IF (ICZERO) 30150, 0150, 30150 01430201
147: 0150 CONTINUE 01440201
148: IVCOMP = 1 01450201
149: IVCORR = 0 01460201
150: IF (IVON01 .EQ. IVON03) IVCOMP = 0 01470201
151: 40150 IF (IVCOMP) 20150, 10150, 20150 01480201
152: 30150 IVDELE = IVDELE + 1 01490201
153: WRITE (I02,80000) IVTNUM 01500201
154: IF (ICZERO) 10150, 0161, 20150 01510201
155: 10150 IVPASS = IVPASS + 1 01520201
156: WRITE (I02,80002) IVTNUM 01530201
157: GO TO 0161 01540201
158: 20150 IVFAIL = IVFAIL + 1 01550201
159: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 01560201
160: 0161 CONTINUE 01570201
161: C 01580201
162: C **** FCVS PROGRAM 201 - TEST 016 **** 01590201
163: C 01600201
164: C COMPARE -0 TO +0 01610201
165: C 01620201
166: IVTNUM = 16 01630201
167: IF (ICZERO) 30160, 0160, 30160 01640201
168: 0160 CONTINUE 01650201
169: IVCOMP = 1 01660201
170: IVCORR = 0 01670201
171: IF (IVON02 .EQ. IVON03) IVCOMP = 0 01680201
172: 40160 IF (IVCOMP) 20160, 10160, 20160 01690201
173: 30160 IVDELE = IVDELE + 1 01700201
174: WRITE (I02,80000) IVTNUM 01710201
175: IF (ICZERO) 10160, 0171, 20160 01720201
176: 10160 IVPASS = IVPASS + 1 01730201
177: WRITE (I02,80002) IVTNUM 01740201
178: GO TO 0171 01750201
179: 20160 IVFAIL = IVFAIL + 1 01760201
180: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 01770201
181: 0171 CONTINUE 01780201
182: C 01790201
183: C **** FCVS PROGRAM 201 - TEST 017 **** 01800201
184: C 01810201
185: C MINUS ZERO (-0) SHOULD NOT BE LESS THAN PLUS ZERO (+0) 01820201
186: C 01830201
187: IVTNUM = 17 01840201
188: IF (ICZERO) 30170, 0170, 30170 01850201
189: 0170 CONTINUE 01860201
190: IVCOMP = 1 01870201
191: IVCORR = 0 01880201
192: IF (IVON02 .LT. IVON03) GO TO 20170 01890201
193: IVCOMP = 0 01900201
194: GO TO 10170 01910201
195: 30170 IVDELE = IVDELE + 1 01920201
196: WRITE (I02,80000) IVTNUM 01930201
197: IF (ICZERO) 10170, 0181, 20170 01940201
198: 10170 IVPASS = IVPASS + 1 01950201
199: WRITE (I02,80002) IVTNUM 01960201
200: GO TO 0181 01970201
201: 20170 IVFAIL = IVFAIL + 1 01980201
202: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 01990201
203: 0181 CONTINUE 02000201
204: C 02010201
205: C TEST 18 THROUGH TEST 24 COMPARE REAL VARIABLES WHICH ARE SET 02020201
206: C TO SIGNED ZERO AND UNSIGNED ZERO VALUES BY THE FOLLOWING 02030201
207: C STATEMENTS 02040201
208: C 02050201
209: RVON01 = 0.0 02060201
210: RVON02 = -0.0 02070201
211: RVON03 = +0.0 02080201
212: RVON04 = -0.0E+01 02090201
213: RVON05 = -0E+10 02100201
214: C 02110201
215: C REFERENCE X3.9-1978, SECTION 4.1.3, DATA TYPE PROPERTIES 02120201
216: C 02130201
217: C **** FCVS PROGRAM 201 - TEST 018 **** 02140201
218: C 02150201
219: C COMPARE 0.0 TO -0.0 02160201
220: C 02170201
221: IVTNUM = 18 02180201
222: IF (ICZERO) 30180, 0180, 30180 02190201
223: 0180 CONTINUE 02200201
224: IVCOMP = 1 02210201
225: IVCORR = 0 02220201
226: IF (RVON01 .EQ. RVON02) IVCOMP = 0 02230201
227: 40180 IF (IVCOMP) 20180, 10180, 20180 02240201
228: 30180 IVDELE = IVDELE + 1 02250201
229: WRITE (I02,80000) IVTNUM 02260201
230: IF (ICZERO) 10180, 0191, 20180 02270201
231: 10180 IVPASS = IVPASS + 1 02280201
232: WRITE (I02,80002) IVTNUM 02290201
233: GO TO 0191 02300201
234: 20180 IVFAIL = IVFAIL + 1 02310201
235: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 02320201
236: 0191 CONTINUE 02330201
237: C 02340201
238: C **** FCVS PROGRAM 201 - TEST 019 **** 02350201
239: C 02360201
240: C COMPARE 0.0 TO +0.0 02370201
241: C 02380201
242: IVTNUM = 19 02390201
243: IF (ICZERO) 30190, 0190, 30190 02400201
244: 0190 CONTINUE 02410201
245: IVCOMP = 1 02420201
246: IVCORR = 0 02430201
247: IF (RVON01 .EQ. RVON03) IVCOMP = 0 02440201
248: 40190 IF (IVCOMP) 20190, 10190, 20190 02450201
249: 30190 IVDELE = IVDELE + 1 02460201
250: WRITE (I02,80000) IVTNUM 02470201
251: IF (ICZERO) 10190, 0201, 20190 02480201
252: 10190 IVPASS = IVPASS + 1 02490201
253: WRITE (I02,80002) IVTNUM 02500201
254: GO TO 0201 02510201
255: 20190 IVFAIL = IVFAIL + 1 02520201
256: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 02530201
257: 0201 CONTINUE 02540201
258: C 02550201
259: C **** FCVS PROGRAM 201 - TEST 020 **** 02560201
260: C 02570201
261: C COMPARE -0.0 TO +0.0 02580201
262: C 02590201
263: IVTNUM = 20 02600201
264: IF (ICZERO) 30200, 0200, 30200 02610201
265: 0200 CONTINUE 02620201
266: IVCOMP = 1 02630201
267: IVCORR = 0 02640201
268: IF (RVON02 .EQ. RVON03) IVCOMP = 0 02650201
269: 40200 IF (IVCOMP) 20200, 10200, 20200 02660201
270: 30200 IVDELE = IVDELE + 1 02670201
271: WRITE (I02,80000) IVTNUM 02680201
272: IF (ICZERO) 10200, 0211, 20200 02690201
273: 10200 IVPASS = IVPASS + 1 02700201
274: WRITE (I02,80002) IVTNUM 02710201
275: GO TO 0211 02720201
276: 20200 IVFAIL = IVFAIL + 1 02730201
277: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 02740201
278: 0211 CONTINUE 02750201
279: C 02760201
280: C **** FCVS PROGRAM 201 - TEST 021 **** 02770201
281: C 02780201
282: C MINUS ZERO (-0.0) SHOULD NOT BE LESS THAN PLUS ZERO (+0.0) 02790201
283: C 02800201
284: IVTNUM = 21 02810201
285: IF (ICZERO) 30210, 0210, 30210 02820201
286: 0210 CONTINUE 02830201
287: IVCOMP = 1 02840201
288: IVCORR = 0 02850201
289: IF (RVON02 .LT. RVON03) GO TO 20210 02860201
290: IVCOMP = 0 02870201
291: GO TO 10210 02880201
292: 30210 IVDELE = IVDELE + 1 02890201
293: WRITE (I02,80000) IVTNUM 02900201
294: IF (ICZERO) 10210, 0221, 20210 02910201
295: 10210 IVPASS = IVPASS + 1 02920201
296: WRITE (I02,80002) IVTNUM 02930201
297: GO TO 0221 02940201
298: 20210 IVFAIL = IVFAIL + 1 02950201
299: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 02960201
300: 0221 CONTINUE 02970201
301: C 02980201
302: C **** FCVS PROGRAM 201 - TEST 022 **** 02990201
303: C 03000201
304: C COMPARE -0.0E+01 TO 0.0 03010201
305: C 03020201
306: IVTNUM = 22 03030201
307: IF (ICZERO) 30220, 0220, 30220 03040201
308: 0220 CONTINUE 03050201
309: IVCOMP = 1 03060201
310: IVCORR = 0 03070201
311: IF (RVON04 .EQ. RVON01) IVCOMP = 0 03080201
312: 40220 IF (IVCOMP) 20220, 10220, 20220 03090201
313: 30220 IVDELE = IVDELE + 1 03100201
314: WRITE (I02,80000) IVTNUM 03110201
315: IF (ICZERO) 10220, 0231, 20220 03120201
316: 10220 IVPASS = IVPASS + 1 03130201
317: WRITE (I02,80002) IVTNUM 03140201
318: GO TO 0231 03150201
319: 20220 IVFAIL = IVFAIL + 1 03160201
320: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 03170201
321: 0231 CONTINUE 03180201
322: C 03190201
323: C **** FCVS PROGRAM 201 - TEST 023 **** 03200201
324: C 03210201
325: C COMPARE -0E+10 TO 0.0 03220201
326: C 03230201
327: IVTNUM = 23 03240201
328: IF (ICZERO) 30230, 0230, 30230 03250201
329: 0230 CONTINUE 03260201
330: IVCOMP = 1 03270201
331: IVCORR = 0 03280201
332: IF (RVON05 .EQ. RVON01) IVCOMP = 0 03290201
333: 40230 IF (IVCOMP) 20230, 10230, 20230 03300201
334: 30230 IVDELE = IVDELE + 1 03310201
335: WRITE (I02,80000) IVTNUM 03320201
336: IF (ICZERO) 10230, 0241, 20230 03330201
337: 10230 IVPASS = IVPASS + 1 03340201
338: WRITE (I02,80002) IVTNUM 03350201
339: GO TO 0241 03360201
340: 20230 IVFAIL = IVFAIL + 1 03370201
341: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 03380201
342: 0241 CONTINUE 03390201
343: C 03400201
344: C **** FCVS PROGRAM 201 - TEST 024 **** 03410201
345: C 03420201
346: C COMPARE -0E+10 TO +0.0 03430201
347: C 03440201
348: IVTNUM = 24 03450201
349: IF (ICZERO) 30240, 0240, 30240 03460201
350: 0240 CONTINUE 03470201
351: IVCOMP = 1 03480201
352: IVCORR = 0 03490201
353: IF (RVON05 .NE. RVON03) GO TO 20240 03500201
354: IVCOMP = 0 03510201
355: GO TO 10240 03520201
356: 30240 IVDELE = IVDELE + 1 03530201
357: WRITE (I02,80000) IVTNUM 03540201
358: IF (ICZERO) 10240, 0251, 20240 03550201
359: 10240 IVPASS = IVPASS + 1 03560201
360: WRITE (I02,80002) IVTNUM 03570201
361: GO TO 0251 03580201
362: 20240 IVFAIL = IVFAIL + 1 03590201
363: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 03600201
364: 0251 CONTINUE 03610201
365: C 03620201
366: C TEST 25 THROUGH TEST 28 VERIFY THAT A BASIC REAL CONSTANT MAY 03630201
367: C BE WRITTEN WITH MORE DIGITS THAN A PROCESSOR WILL USE TO APPROXI- 03640201
368: C MATE THE VALUE OF THE CONSTANT. 03650201
369: C 03660201
370: C REFERENCE X3.9-1978, SECTION 4.4.1, BASIC REAL CONSTANT 03670201
371: C 03680201
372: C 03690201
373: C **** FCVS PROGRAM 201 - TEST 025 **** 03700201
374: C 03710201
375: C EIGHT DIGITS IN BASIC REAL CONSTANT 03720201
376: C 03730201
377: IVTNUM = 25 03740201
378: IF (ICZERO) 30250, 0250, 30250 03750201
379: 0250 CONTINUE 03760201
380: RVON06 = 0.0 03770201
381: RVCOMP = 0.0 03780201
382: RVON06 = 3.1561234 03790201
383: RVCOMP = RVON06 03800201
384: RVCORR = 3.1561 03810201
385: 40250 IF (RVCOMP - 3.1556) 20250, 10250, 40251 03820201
386: 40251 IF (RVCOMP - 3.1566) 10250, 10250, 20250 03830201
387: 30250 IVDELE = IVDELE + 1 03840201
388: WRITE (I02,80000) IVTNUM 03850201
389: IF (ICZERO) 10250, 0261, 20250 03860201
390: 10250 IVPASS = IVPASS + 1 03870201
391: WRITE (I02,80002) IVTNUM 03880201
392: GO TO 0261 03890201
393: 20250 IVFAIL = IVFAIL + 1 03900201
394: WRITE (I02,80012) IVTNUM, RVCOMP, RVCORR 03910201
395: 0261 CONTINUE 03920201
396: C 03930201
397: C **** FCVS PROGRAM 201 - TEST 026 **** 03940201
398: C 03950201
399: C EIGHT DIGITS IN BASIC REAL CONSTANT PLUS A REAL EXPONENT. 03960201
400: C 03970201
401: IVTNUM = 26 03980201
402: IF (ICZERO) 30260, 0260, 30260 03990201
403: 0260 CONTINUE 04000201
404: RVON06 = 0.0 04010201
405: RVCOMP = 0.0 04020201
406: RVON06 = .31561234E+01 04030201
407: RVCOMP = RVON06 04040201
408: RVCORR = 3.1561 04050201
409: 40260 IF (RVCOMP - 3.1556) 20260, 10260, 40261 04060201
410: 40261 IF (RVCOMP - 3.1566) 10260, 10260, 20260 04070201
411: 30260 IVDELE = IVDELE + 1 04080201
412: WRITE (I02,80000) IVTNUM 04090201
413: IF (ICZERO) 10260, 0271, 20260 04100201
414: 10260 IVPASS = IVPASS + 1 04110201
415: WRITE (I02,80002) IVTNUM 04120201
416: GO TO 0271 04130201
417: 20260 IVFAIL = IVFAIL + 1 04140201
418: WRITE (I02,80012) IVTNUM, RVCOMP, RVCORR 04150201
419: 0271 CONTINUE 04160201
420: C 04170201
421: C **** FCVS PROGRAM 201 - TEST 027 **** 04180201
422: C 04190201
423: C TWELVE DIGITS IN BASIC REAL CONSTANT. 04200201
424: C 04210201
425: IVTNUM = 27 04220201
426: IF (ICZERO) 30270, 0270, 30270 04230201
427: 0270 CONTINUE 04240201
428: RVON06 = 0.0 04250201
429: RVCOMP = 0.0 04260201
430: RVON06 = 315612347833 E-11 04270201
431: RVCOMP = RVON06 04280201
432: RVCORR = 3.1561 04290201
433: 40270 IF (RVCOMP - 3.1556) 20270, 10270, 40271 04300201
434: 40271 IF (RVCOMP - 3.1566) 10270, 10270, 20270 04310201
435: 30270 IVDELE = IVDELE + 1 04320201
436: WRITE (I02,80000) IVTNUM 04330201
437: IF (ICZERO) 10270, 0281, 20270 04340201
438: 10270 IVPASS = IVPASS + 1 04350201
439: WRITE (I02,80002) IVTNUM 04360201
440: GO TO 0281 04370201
441: 20270 IVFAIL = IVFAIL + 1 04380201
442: WRITE (I02,80012) IVTNUM, RVCOMP, RVCORR 04390201
443: 0281 CONTINUE 04400201
444: C 04410201
445: C **** FCVS PROGRAM 201 - TEST 028 **** 04420201
446: C 04430201
447: C TWENTY-FIVE DIGITS IN BASIC REAL CONSTANT. 04440201
448: C 04450201
449: IVTNUM = 28 04460201
450: IF (ICZERO) 30280, 0280, 30280 04470201
451: 0280 CONTINUE 04480201
452: RVON06 = 0.0 04490201
453: RVCOMP = 0.0 04500201
454: RVON06 = 31.56123478334867532834672E-1 04510201
455: RVCOMP = RVON06 04520201
456: RVCORR = 3.1561 04530201
457: 40280 IF (RVCOMP - 3.1556) 20280, 10280, 40281 04540201
458: 40281 IF (RVCOMP - 3.1566) 10280, 10280, 20280 04550201
459: 30280 IVDELE = IVDELE + 1 04560201
460: WRITE (I02,80000) IVTNUM 04570201
461: IF (ICZERO) 10280, 0291, 20280 04580201
462: 10280 IVPASS = IVPASS + 1 04590201
463: WRITE (I02,80002) IVTNUM 04600201
464: GO TO 0291 04610201
465: 20280 IVFAIL = IVFAIL + 1 04620201
466: WRITE (I02,80012) IVTNUM, RVCOMP, RVCORR 04630201
467: 0291 CONTINUE 04640201
468: C 04650201
469: C TEST 29 THROUGH TEST 33 REFERENCE VARIABLES WHOSE TYPE WAS 04660201
470: C SPECIFIED BY AN IMPLICIT STATEMENT. DIVISION IS USED TO VERIFY 04670201
471: C THAT THE TYPE IS INTEGER OR REAL. 04680201
472: C 04690201
473: C REFERENCE X3.9-1978, SECTION 8.5, IMPLICIT STATEMENT 04700201
474: C 04710201
475: C 04720201
476: C **** FCVS PROGRAM 201 - TEST 029 **** 04730201
477: C 04740201
478: C VERIFY YVIN01 IS AN INTEGER VARIABLE. 04750201
479: C 04760201
480: IVTNUM = 29 04770201
481: IF (ICZERO) 30290, 0290, 30290 04780201
482: 0290 CONTINUE 04790201
483: RVCOMP = 10.0 04800201
484: YVIN01 = 4.0 04810201
485: RVCOMP = YVIN01/5 04820201
486: RVCORR = 0.0 04830201
487: 40290 IF (RVCOMP) 20290, 10290, 20290 04840201
488: 30290 IVDELE = IVDELE + 1 04850201
489: WRITE (I02,80000) IVTNUM 04860201
490: IF (ICZERO) 10290, 0301, 20290 04870201
491: 10290 IVPASS = IVPASS + 1 04880201
492: WRITE (I02,80002) IVTNUM 04890201
493: GO TO 0301 04900201
494: 20290 IVFAIL = IVFAIL + 1 04910201
495: WRITE (I02,80012) IVTNUM, RVCOMP, RVCORR 04920201
496: 0301 CONTINUE 04930201
497: C 04940201
498: C **** FCVS PROGRAM 201 - TEST 030 **** 04950201
499: C 04960201
500: C VERIFY VVIN01 IS AN INTEGER VARIABLE 04970201
501: C 04980201
502: IVTNUM = 30 04990201
503: IF (ICZERO) 30300, 0300, 30300 05000201
504: 0300 CONTINUE 05010201
505: RVCOMP = 10.0 05020201
506: VVIN01 = 4.0 05030201
507: RVCOMP = VVIN01/5 05040201
508: RVCORR = 0.0 05050201
509: 40300 IF (RVCOMP) 20300, 10300, 20300 05060201
510: 30300 IVDELE = IVDELE + 1 05070201
511: WRITE (I02,80000) IVTNUM 05080201
512: IF (ICZERO) 10300, 0311, 20300 05090201
513: 10300 IVPASS = IVPASS + 1 05100201
514: WRITE (I02,80002) IVTNUM 05110201
515: GO TO 0311 05120201
516: 20300 IVFAIL = IVFAIL + 1 05130201
517: WRITE (I02,80012) IVTNUM, RVCOMP, RVCORR 05140201
518: 0311 CONTINUE 05150201
519: C 05160201
520: C **** FCVS PROGRAM 201 - TEST 031 **** 05170201
521: C 05180201
522: C VERIFY WVIN01 IS AN INTEGER VARIABLE. 05190201
523: C 05200201
524: IVTNUM = 31 05210201
525: IF (ICZERO) 30310, 0310, 30310 05220201
526: 0310 CONTINUE 05230201
527: RVCOMP = 10.0 05240201
528: WVIN01 = 4.0 05250201
529: RVCOMP = WVIN01/5 05260201
530: RVCORR = 0.0 05270201
531: 40310 IF (RVCOMP) 20310, 10310, 20310 05280201
532: 30310 IVDELE = IVDELE + 1 05290201
533: WRITE (I02,80000) IVTNUM 05300201
534: IF (ICZERO) 10310, 0321, 20310 05310201
535: 10310 IVPASS = IVPASS + 1 05320201
536: WRITE (I02,80002) IVTNUM 05330201
537: GO TO 0321 05340201
538: 20310 IVFAIL = IVFAIL + 1 05350201
539: WRITE (I02,80012) IVTNUM, RVCOMP, RVCORR 05360201
540: 0321 CONTINUE 05370201
541: C 05380201
542: C **** FCVS PROGRAM 201 - TEST 032 **** 05390201
543: C 05400201
544: C VERIFY XVIN01 IS AN INTEGER VARIABLE. 05410201
545: C 05420201
546: IVTNUM = 32 05430201
547: IF (ICZERO) 30320, 0320, 30320 05440201
548: 0320 CONTINUE 05450201
549: XVIN01 = 4 05460201
550: RVCOMP = 10.0 05470201
551: RVCOMP = XVIN01/5 05480201
552: RVCORR = 0.0 05490201
553: 40320 IF (RVCOMP) 20320, 10320, 20320 05500201
554: 30320 IVDELE = IVDELE + 1 05510201
555: WRITE (I02,80000) IVTNUM 05520201
556: IF (ICZERO) 10320, 0331, 20320 05530201
557: 10320 IVPASS = IVPASS + 1 05540201
558: WRITE (I02,80002) IVTNUM 05550201
559: GO TO 0331 05560201
560: 20320 IVFAIL = IVFAIL + 1 05570201
561: WRITE (I02,80012) IVTNUM, RVCOMP, RVCORR 05580201
562: 0331 CONTINUE 05590201
563: C 05600201
564: C **** FCVS PROGRAM 201 - TEST 033 **** 05610201
565: C 05620201
566: C VERIFY MVIN01 IS A REAL VARIABLE. 05630201
567: C 05640201
568: IVTNUM = 33 05650201
569: IF (ICZERO) 30330, 0330, 30330 05660201
570: 0330 CONTINUE 05670201
571: RVCOMP = 10.0 05680201
572: MVIN01 = 4 05690201
573: RVCOMP = MVIN01/5 05700201
574: RVCORR = 0.8 05710201
575: 40330 IF (RVCOMP - 0.79995) 20330, 10330, 40331 05720201
576: 40331 IF (RVCOMP - 0.80005) 10330, 10330, 20330 05730201
577: 30330 IVDELE = IVDELE + 1 05740201
578: WRITE (I02,80000) IVTNUM 05750201
579: IF (ICZERO) 10330, 0341, 20330 05760201
580: 10330 IVPASS = IVPASS + 1 05770201
581: WRITE (I02,80002) IVTNUM 05780201
582: GO TO 0341 05790201
583: 20330 IVFAIL = IVFAIL + 1 05800201
584: WRITE (I02,80012) IVTNUM, RVCOMP, RVCORR 05810201
585: 0341 CONTINUE 05820201
586: C 05830201
587: C TEST 34 AND TEST 35 VERIFY THAT THE IMPLICIT TYPE SPECIFICA- 05840201
588: C TION FOR A VARIABLE IS OVERRIDDEN BY THE APPEARANCE OF THAT 05850201
589: C VARIABLE NAME IN A TYPE-STATEMENT. 05860201
590: C 05870201
591: C REFERENCE X3.9-1977, SECTION 8.4, TYPE-STATEMENTS 05880201
592: C SECTION 8.5, IMPLICIT STATEMENT 05890201
593: C 05900201
594: C 05910201
595: C **** FCVS PROGRAM 201 - TEST 034 **** 05920201
596: C 05930201
597: C VERIFY YVTN02 IS A REAL VARIABLE. 05940201
598: C 05950201
599: IVTNUM = 34 05960201
600: IF (ICZERO) 30340, 0340, 30340 05970201
601: 0340 CONTINUE 05980201
602: RVCOMP = 10.0 05990201
603: YVTN02 = 4 06000201
604: RVCOMP = YVTN02/5 06010201
605: RVCORR = 0.8 06020201
606: 40340 IF (RVCOMP - 0.79995) 20340, 10340, 40341 06030201
607: 40341 IF (RVCOMP - 0.80005) 10340, 10340, 20340 06040201
608: 30340 IVDELE = IVDELE + 1 06050201
609: WRITE (I02,80000) IVTNUM 06060201
610: IF (ICZERO) 10340, 0351, 20340 06070201
611: 10340 IVPASS = IVPASS + 1 06080201
612: WRITE (I02,80002) IVTNUM 06090201
613: GO TO 0351 06100201
614: 20340 IVFAIL = IVFAIL + 1 06110201
615: WRITE (I02,80012) IVTNUM, RVCOMP, RVCORR 06120201
616: 0351 CONTINUE 06130201
617: C 06140201
618: C **** FCVS PROGRAM 201 - TEST 035 **** 06150201
619: C 06160201
620: C VERIFY MVTN02 IS AN INTEGER VARIABLE. 06170201
621: C 06180201
622: IVTNUM = 35 06190201
623: IF (ICZERO) 30350, 0350, 30350 06200201
624: 0350 CONTINUE 06210201
625: RVCOMP = 10.0 06220201
626: MVTN02 = 4.0 06230201
627: RVCOMP = MVTN02/5 06240201
628: RVCORR = 0.0 06250201
629: 40350 IF (RVCOMP) 20350, 10350, 20350 06260201
630: 30350 IVDELE = IVDELE + 1 06270201
631: WRITE (I02,80000) IVTNUM 06280201
632: IF (ICZERO) 10350, 0361, 20350 06290201
633: 10350 IVPASS = IVPASS + 1 06300201
634: WRITE (I02,80002) IVTNUM 06310201
635: GO TO 0361 06320201
636: 20350 IVFAIL = IVFAIL + 1 06330201
637: WRITE (I02,80012) IVTNUM, RVCOMP, RVCORR 06340201
638: 0361 CONTINUE 06350201
639: C 06360201
640: C 06370201
641: C WRITE OUT TEST SUMMARY 06380201
642: C 06390201
643: WRITE (I02,90004) 06400201
644: WRITE (I02,90014) 06410201
645: WRITE (I02,90004) 06420201
646: WRITE (I02,90000) 06430201
647: WRITE (I02,90004) 06440201
648: WRITE (I02,90020) IVFAIL 06450201
649: WRITE (I02,90022) IVPASS 06460201
650: WRITE (I02,90024) IVDELE 06470201
651: STOP 06480201
652: 90001 FORMAT (1H ,24X,5HFM201) 06490201
653: 90000 FORMAT (1H ,20X,20HEND OF PROGRAM FM201) 06500201
654: C 06510201
655: C FORMATS FOR TEST DETAIL LINES 06520201
656: C 06530201
657: 80000 FORMAT (1H ,4X,I5,6X,7HDELETED) 06540201
658: 80002 FORMAT (1H ,4X,I5,7X,4HPASS) 06550201
659: 80010 FORMAT (1H ,4X,I5,7X,4HFAIL,10X,I6,9X,I6) 06560201
660: 80012 FORMAT (1H ,4X,I5,7X,4HFAIL,4X,E12.5,3X,E12.5) 06570201
661: 80018 FORMAT (1H ,4X,I5,7X,4HFAIL,2X,A14,1X,A14) 06580201
662: C 06590201
663: C FORMAT STATEMENTS FOR PAGE HEADERS 06600201
664: C 06610201
665: 90002 FORMAT (1H1) 06620201
666: 90004 FORMAT (1H ) 06630201
667: 90006 FORMAT (1H ,10X,34HFORTRAN COMPILER VALIDATION SYSTEM) 06640201
668: 90008 FORMAT (1H ,21X,11HVERSION 1.0) 06650201
669: 90010 FORMAT (1H ,8X,38HFOR OFFICIAL USE ONLY - COPYRIGHT 1978) 06660201
670: 90012 FORMAT (1H ,5X,4HTEST,5X,9HPASS/FAIL,5X,8HCOMPUTED,8X,7HCORRECT) 06670201
671: 90014 FORMAT (1H ,5X,46H----------------------------------------------) 06680201
672: 90016 FORMAT (1H ,18X,17HSUBSET LEVEL TEST) 06690201
673: C 06700201
674: C FORMAT STATEMENTS FOR RUN SUMMARY 06710201
675: C 06720201
676: 90020 FORMAT (1H ,19X,I5,13H TESTS FAILED) 06730201
677: 90022 FORMAT (1H ,19X,I5,13H TESTS PASSED) 06740201
678: 90024 FORMAT (1H ,19X,I5,14H TESTS DELETED) 06750201
679: END 06760201
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.