![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to FM353.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 FM353.f CVS log | Up to [Power 6/32 Unix Tahoe 4.2BSD] / cci / usr / src / usr.bin / f77 / testf77 / tests |
1.1 root 1: C***********************************************************************00010353
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***** FORTRAN 77 00020353
6: C***** FM353 XINT - (150) 00030353
7: C***** 00040353
8: C***********************************************************************00050353
9: C***** GENERAL PURPOSE SUBSET REF00060353
10: C***** TEST INTRINSIC FUNCTION - IFIX - (CONVERSION FROM 15.3 00070353
11: C***** REAL TO INTEGER) (TABLE 5)00080353
12: C***** TEST INTRINSIC FUNCTION - INT - (TRUNCATION -- SIGN 00090353
13: C***** OF A * LARGEST INTEGER LE ABS(A) ) 00100353
14: C***** 00110353
15: C***** 00120353
16: CBB** ********************** BBCCOMNT **********************************00130353
17: C**** 00140353
18: C**** 1978 FORTRAN COMPILER VALIDATION SYSTEM 00150353
19: C**** VERSION 2.0 00160353
20: C**** 00170353
21: C**** 00180353
22: C**** SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00190353
23: C**** GENERAL SERVICES ADMINISTRATION 00200353
24: C**** FEDERAL SOFTWARE TESTING CENTER 00210353
25: C**** 5203 LEESBURG PIKE, SUITE 1100 00220353
26: C**** FALLS CHURCH, VA. 22041 00230353
27: C**** 00240353
28: C**** (703) 756-6153 00250353
29: C**** 00260353
30: CBE** ********************** BBCCOMNT **********************************00270353
31: CBB** ********************** BBCINITA **********************************00280353
32: C**** SPECIFICATION STATEMENTS 00290353
33: C**** 00300353
34: CHARACTER ZVERS*13, ZVERSD*17, ZDATE*17, ZPROG*5, ZCOMPL*20, 00310353
35: 1 ZNAME*20, ZTAPE*10, ZPROJ*13, REMRKS*31, ZTAPED*13 00320353
36: CBE** ********************** BBCINITA **********************************00330353
37: CBB** ********************** BBCINITB **********************************00340353
38: C**** INITIALIZE SECTION 00350353
39: DATA ZVERS, ZVERSD, ZDATE 00360353
40: 1 /'VERSION 2.0 ', '82/08/02*18.33.46', '*NO DATE*TIME'/ 00370353
41: DATA ZCOMPL, ZNAME, ZTAPE 00380353
42: 1 /'*NONE SPECIFIED*', '*NO COMPANY NAME*', '*NO TAPE*'/ 00390353
43: DATA ZPROJ, ZTAPED, ZPROG 00400353
44: 1 /'*NO PROJECT*', '*NO TAPE DATE', 'XXXXX'/ 00410353
45: DATA REMRKS /' '/ 00420353
46: C**** THE FOLLOWING 9 COMMENT LINES (CZ01, CZ02, ...) CAN BE REPLACED 00430353
47: C**** FOR IDENTIFYING THE TEST ENVIRONMENT 00440353
48: C**** 00450353
49: CZ01 ZVERS = 'VERSION OF THE COMPILER VALIDATION SYSTEM' 00460353
50: CZ02 ZVERSD = 'CREATION DATE/TIME OF THE COMPILER VALIDATION SYSTEM' 00470353
51: CZ03 ZPROG = 'PROGRAM NAME' 00480353
52: ZDATE = '07-Nov-85 ' *RP
53: ZCOMPL = 'CCI 5.2 ' *RP
54: ZPROJ = 'TC-85- -410' *RP
55: ZNAME = ' ' *RP
56: ZTAPE = ' ' *RP
57: ZTAPED = '850703 ' *RP
58: C 00550353
59: IVPASS = 0 00560353
60: IVFAIL = 0 00570353
61: IVDELE = 0 00580353
62: IVINSP = 0 00590353
63: IVTOTL = 0 00600353
64: IVTOTN = 0 00610353
65: ICZERO = 0 00620353
66: C 00630353
67: C I01 CONTAINS THE LOGICAL UNIT NUMBER FOR THE CARD READER. 00640353
68: I01 = 05 00650353
69: C I02 CONTAINS THE LOGICAL UNIT NUMBER FOR THE PRINTER. 00660353
70: I02 = 06 00670353
71: C 00680353
72: I01 = 5 00690353
73: C THE CX010 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I01 = 5 00700353
74: CX011 REPLACED BY FEXEC X-011 CONTROL CARD. CX011 IS FOR SYSTEMS 00710353
75: C REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX010. 00720353
76: C 00730353
77: I02 = 6 00740353
78: C THE CX020 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I02= 6 00750353
79: CX021 REPLACED BY FEXEC X-021 CONTROL CARD. CX021 IS FOR SYSTEMS 00760353
80: C REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX020. 00770353
81: C 00780353
82: CBE** ********************** BBCINITB **********************************00790353
83: NUVI = I02 00800353
84: IVTOTL = 14 00810353
85: ZPROG='FM353' 00820353
86: CBB** ********************** BBCHED0A **********************************00830353
87: C**** 00840353
88: C**** WRITE REPORT TITLE 00850353
89: C**** 00860353
90: WRITE (I02, 90002) 00870353
91: WRITE (I02, 90006) 00880353
92: WRITE (I02, 90007) 00890353
93: WRITE (I02, 90008) ZVERS, ZVERSD 00900353
94: WRITE (I02, 90009) ZPROG, ZPROG 00910353
95: WRITE (I02, 90010) ZDATE, ZCOMPL 00920353
96: CBE** ********************** BBCHED0A **********************************00930353
97: C***** 00940353
98: C***** HEADER FOR SEGMENT 150 00950353
99: WRITE (NUVI,15001) 00960353
100: 15001 FORMAT (1H ,/ 2X,34HXINT - (150) INTRINSIC FUNCTIONS-- /17X, 00970353
101: 1 28H IFIX, INT (TYPE CONVERSION)/ 2X, 00980353
102: 2 18HSUBSET REF. - 15.3) 00990353
103: C***** 01000353
104: CBB** ********************** BBCHED0B **********************************01010353
105: C**** WRITE DETAIL REPORT HEADERS 01020353
106: C**** 01030353
107: WRITE (I02,90004) 01040353
108: WRITE (I02,90004) 01050353
109: WRITE (I02,90013) 01060353
110: WRITE (I02,90014) 01070353
111: WRITE (I02,90015) IVTOTL 01080353
112: CBE** ********************** BBCHED0B **********************************01090353
113: 15003 FORMAT(1X,2X,I3,4X,7HINSPECT,5X, I5, 5X, I5) 01100353
114: 15004 FORMAT( /48X,30H BELOW ANSWERS SHOULD BE ZERO /49X, 01110353
115: 1 25HFOR TEST SEGMENT TO PASS ) 01120353
116: 15005 FORMAT (49X,26H- EACH TEST HAS TWO PARTS.) 01130353
117: WRITE (NUVI, 15005) 01140353
118: WRITE(NUVI, 15004) 01150353
119: WRITE(NUVI,15002) 01160353
120: 15002 FORMAT (23X, 5H IFIX, 5X, 5H INT ) 01170353
121: C***** 01180353
122: CT001* TEST 1 THE VALUE ZERO 01190353
123: IVTNUM = 1 01200353
124: RACVS = 0.0 01210353
125: IAAVI = IFIX(RACVS) 01220353
126: IABVI = INT(RACVS) 01230353
127: IADVI = IAAVI - 0 01240353
128: IAEVI = IABVI - 0 01250353
129: WRITE(NUVI,15003) IVTNUM,IADVI, IAEVI 01260353
130: CT002* TEST 2 A VALUE IN (0,1) 01270353
131: IVTNUM = 2 01280353
132: RACVS = 0.375 01290353
133: IAAVI = IFIX(RACVS) 01300353
134: IABVI = INT(RACVS) 01310353
135: IADVI = IAAVI - 0 01320353
136: IAEVI = IABVI - 0 01330353
137: WRITE(NUVI,15003) IVTNUM, IADVI, IAEVI 01340353
138: CT003* TEST 3 THE VALUE ONE 01350353
139: IVTNUM = 3 01360353
140: RACVS = 1.00001 01370353
141: IAAVI = IFIX(RACVS) 01380353
142: IABVI = INT(RACVS) 01390353
143: IADVI = IAAVI - 1 01400353
144: IAEVI = IABVI - 1 01410353
145: WRITE(NUVI,15003) IVTNUM, IADVI, IAEVI 01420353
146: CT004* TEST 4 AN INTEGRAL VALUE OTHER THAN 0 OR 1 01430353
147: IVTNUM = 4 01440353
148: RACVS = 6.00001 01450353
149: IAAVI = IFIX(RACVS) 01460353
150: IABVI = INT(RACVS) 01470353
151: IADVI = IAAVI - 6 01480353
152: IAEVI = IABVI - 6 01490353
153: WRITE(NUVI,15003) IVTNUM, IADVI, IAEVI 01500353
154: CT005* TEST 5 A VALUE IN (X,X+1) 01510353
155: IVTNUM = 5 01520353
156: RACVS = 3.75 01530353
157: IAAVI = IFIX(RACVS) 01540353
158: IABVI = INT(RACVS) 01550353
159: IADVI = IAAVI - 3 01560353
160: IAEVI = IABVI - 3 01570353
161: WRITE(NUVI,15003) IVTNUM, IADVI, IAEVI 01580353
162: CT006* TEST 6 A NEGATIVE VALUE WITH MAGNITUDE IN (0,1) 01590353
163: IVTNUM = 6 01600353
164: RACVS = -0.375 01610353
165: IAAVI = IFIX(RACVS) 01620353
166: IABVI = INT(RACVS) 01630353
167: IADVI = IAAVI - 0 01640353
168: IAEVI = IABVI - 0 01650353
169: WRITE(NUVI,15003) IVTNUM, IADVI, IAEVI 01660353
170: CT007* TEST 7 THE VALUE -1 01670353
171: IVTNUM = 7 01680353
172: RACVS = -1.00001 01690353
173: IAAVI = IFIX(RACVS) 01700353
174: IABVI = INT(RACVS) 01710353
175: IADVI = IAAVI + 1 01720353
176: IAEVI = IABVI + 1 01730353
177: WRITE(NUVI,15003) IVTNUM, IADVI, IAEVI 01740353
178: CT008* TEST 8 A NEGATIVE INTEGRAL VALUE 01750353
179: IVTNUM = 8 01760353
180: RACVS = -6.00001 01770353
181: IAAVI = IFIX(RACVS) 01780353
182: IABVI = INT(RACVS) 01790353
183: IADVI = IAAVI + 6 01800353
184: IAEVI = IABVI + 6 01810353
185: WRITE(NUVI,15003) IVTNUM, IADVI, IAEVI 01820353
186: CT009* TEST 9 A NEGATIVE VALUE WITH MAGNITUDE IN (X,X+1) 01830353
187: IVTNUM = 9 01840353
188: RACVS = -3.75 01850353
189: IAAVI = IFIX(RACVS) 01860353
190: IABVI = INT(RACVS) 01870353
191: IADVI = IAAVI + 3 01880353
192: IAEVI = IABVI + 3 01890353
193: WRITE(NUVI,15003) IVTNUM, IADVI, IAEVI 01900353
194: CT010* TEST 10 ZERO PREFIXED WITH A MINUS SIGN 01910353
195: IVTNUM = 10 01920353
196: RACVS = 0 01930353
197: IAAVI = IFIX(-RACVS) 01940353
198: IABVI = INT(-RACVS) 01950353
199: IADVI = IAAVI - 0 01960353
200: IAEVI = IABVI - 0 01970353
201: WRITE(NUVI,15003) IVTNUM, IADVI, IAEVI 01980353
202: CT011* TEST 011 IFIX, INT USED IN AN ARITHMETIC EXPRESSION 01990353
203: IVTNUM = 011 02000353
204: RAAVS = 3.75 02010353
205: IAFVI = 3 02020353
206: IAAVI = 25 + IAFVI * IFIX(RAAVS) 02030353
207: IABVI = 25 + IAFVI * INT(RAAVS) 02040353
208: IADVI = IAAVI - 34 02050353
209: IAEVI = IABVI - 34 02060353
210: WRITE(NUVI,15003) IVTNUM, IADVI, IAEVI 02070353
211: CT012* TEST 12 AN ARITHMETIC EXPRESSION PRESENTED TO IFIX, INT 02080353
212: IVTNUM = 12 02090353
213: RAAVS = 25.5 02100353
214: RABVS = 12.25 02110353
215: IAAVI = IFIX(RAAVS - RABVS) 02120353
216: IABVI = INT(RAAVS - RABVS) 02130353
217: IADVI = IAAVI - 13 02140353
218: IAEVI = IABVI - 13 02150353
219: WRITE(NUVI,15003) IVTNUM, IADVI, IAEVI 02160353
220: CT013* TEST 13 COMPARE AUTOMATIC TYPE CONVERSION TO EXPLICIT 02170353
221: IVTNUM = 13 02180353
222: RAAVS = 11.75 02190353
223: RABVS = 12.625 02200353
224: IAAVI = IFIX(RAAVS + RABVS) 02210353
225: IABVI = INT(RAAVS + RABVS) 02220353
226: IACVI = RAAVS + RABVS 02230353
227: IADVI = IAAVI - IACVI 02240353
228: IAEVI = IABVI - IACVI 02250353
229: WRITE(NUVI,15003) IVTNUM, IADVI, IAEVI 02260353
230: CT014* TEST 14 ARGUMENT OF LOW MAGNITUDE 02270353
231: IVTNUM = 14 02280353
232: RACVS = -3.05923E-33 02290353
233: IAAVI = IFIX(RACVS) 02300353
234: IABVI = INT(RACVS) 02310353
235: IADVI = IAAVI - 0 02320353
236: IAEVI = IABVI - 0 02330353
237: WRITE(NUVI,15003) IVTNUM, IADVI, IAEVI 02340353
238: C***** 02350353
239: C***** 02360353
240: IVINSP = 14 02370353
241: CBB** ********************** BBCSUM0 **********************************02380353
242: C**** WRITE OUT TEST SUMMARY 02390353
243: C**** 02400353
244: IVTOTN = IVPASS + IVFAIL + IVDELE + IVINSP 02410353
245: WRITE (I02, 90004) 02420353
246: WRITE (I02, 90014) 02430353
247: WRITE (I02, 90004) 02440353
248: WRITE (I02, 90020) IVPASS 02450353
249: WRITE (I02, 90022) IVFAIL 02460353
250: WRITE (I02, 90024) IVDELE 02470353
251: WRITE (I02, 90026) IVINSP 02480353
252: WRITE (I02, 90028) IVTOTN, IVTOTL 02490353
253: CBE** ********************** BBCSUM0 **********************************02500353
254: CBB** ********************** BBCFOOT0 **********************************02510353
255: C**** WRITE OUT REPORT FOOTINGS 02520353
256: C**** 02530353
257: WRITE (I02,90016) ZPROG, ZPROG 02540353
258: WRITE (I02,90018) ZPROJ, ZNAME, ZTAPE, ZTAPED 02550353
259: WRITE (I02,90019) 02560353
260: CBE** ********************** BBCFOOT0 **********************************02570353
261: CBB** ********************** BBCFMT0A **********************************02580353
262: C**** FORMATS FOR TEST DETAIL LINES 02590353
263: C**** 02600353
264: 80000 FORMAT (1H ,2X,I3,4X,7HDELETED,32X,A31) 02610353
265: 80002 FORMAT (1H ,2X,I3,4X,7H PASS ,32X,A31) 02620353
266: 80004 FORMAT (1H ,2X,I3,4X,7HINSPECT,32X,A31) 02630353
267: 80008 FORMAT (1H ,2X,I3,4X,7H FAIL ,32X,A31) 02640353
268: 80010 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,15X,10HCOMPUTED= , 02650353
269: 1I6,/,1H ,15X,10HCORRECT= ,I6) 02660353
270: 80012 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 02670353
271: 1E12.5,/,1H ,16X,10HCORRECT= ,E12.5) 02680353
272: 80018 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 02690353
273: 1A21,/,1H ,16X,10HCORRECT= ,A21) 02700353
274: 80020 FORMAT (1H ,16X,10HCOMPUTED= ,A21,1X,A31) 02710353
275: 80022 FORMAT (1H ,16X,10HCORRECT= ,A21,1X,A31) 02720353
276: 80024 FORMAT (1H ,16X,10HCOMPUTED= ,I6,16X,A31) 02730353
277: 80026 FORMAT (1H ,16X,10HCORRECT= ,I6,16X,A31) 02740353
278: 80028 FORMAT (1H ,16X,10HCOMPUTED= ,E12.5,10X,A31) 02750353
279: 80030 FORMAT (1H ,16X,10HCORRECT= ,E12.5,10X,A31) 02760353
280: 80050 FORMAT (1H ,48X,A31) 02770353
281: CBE** ********************** BBCFMT0A **********************************02780353
282: CBB** ********************** BBCFMT0B **********************************02790353
283: C**** FORMAT STATEMENTS FOR PAGE HEADERS 02800353
284: C**** 02810353
285: 90002 FORMAT (1H1) 02820353
286: 90004 FORMAT (1H ) 02830353
287: 90006 FORMAT (1H ,20X,31HFEDERAL SOFTWARE TESTING CENTER) 02840353
288: 90007 FORMAT (1H ,19X,34HFORTRAN COMPILER VALIDATION SYSTEM) 02850353
289: 90008 FORMAT (1H ,21X,A13,A17) 02860353
290: 90009 FORMAT (1H ,/,2H *,A5,6HBEGIN*,12X,15HTEST RESULTS - ,A5,/) 02870353
291: 90010 FORMAT (1H ,8X,16HTEST DATE*TIME= ,A17,15H - COMPILER= ,A20) 02880353
292: 90013 FORMAT (1H ,8H TEST ,10HPASS/FAIL ,6X,17HDISPLAYED RESULTS, 02890353
293: 1 7X,7HREMARKS,24X) 02900353
294: 90014 FORMAT (1H ,46H----------------------------------------------, 02910353
295: 1 33H---------------------------------) 02920353
296: 90015 FORMAT (1H ,48X,17HTHIS PROGRAM HAS ,I3,6H TESTS,/) 02930353
297: C**** 02940353
298: C**** FORMAT STATEMENTS FOR REPORT FOOTINGS 02950353
299: C**** 02960353
300: 90016 FORMAT (1H ,/,2H *,A5,4HEND*,14X,14HEND OF TEST - ,A5,/) 02970353
301: 90018 FORMAT (1H ,A13,13X,A20,7H * ,A10,1H/, 02980353
302: 1 A13) 02990353
303: 90019 FORMAT (1H ,26HFOR OFFICIAL USE ONLY ,35X,15HCOPYRIGHT 1982) 03000353
304: C**** 03010353
305: C**** FORMAT STATEMENTS FOR RUN SUMMARY 03020353
306: C**** 03030353
307: 90020 FORMAT (1H ,21X,I5,13H TESTS PASSED) 03040353
308: 90022 FORMAT (1H ,21X,I5,13H TESTS FAILED) 03050353
309: 90024 FORMAT (1H ,21X,I5,14H TESTS DELETED) 03060353
310: 90026 FORMAT (1H ,21X,I5,25H TESTS REQUIRE INSPECTION) 03070353
311: 90028 FORMAT (1H ,21X,I5,4H OF ,I3,15H TESTS EXECUTED) 03080353
312: CBE** ********************** BBCFMT0B **********************************03090353
313: C***** 03100353
314: C***** END OF TEST SEGMENT 150 03110353
315: STOP 03120353
316: END 03130353
317: 03140353
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.