![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to FM810.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 FM810.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***********************************************************************00010810
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 00020810
6: C***** FM810 YDMMX - (173) 00030810
7: C***** 00040810
8: C***********************************************************************00050810
9: C***** GENERAL PURPOSE ANS REF 00060810
10: C***** TESTS THE USE OF INTEGER, REAL, DOUBLE PRECISION, 15.3 00070810
11: C***** AND MIXED MODE EXPRESSIONS CONTAINING REFERENCES TO 15.10 00080810
12: C***** THE INTRINSIC FUNCTIONS OF THE FULL LANGUAGE 6.1.4 00090810
13: C***** 00100810
14: C***** GENERAL COMMENTS 00110810
15: C***** SEGMENTS TESTING XINT, XREAL, XAINT, XABS, XAMOD, 00120810
16: C***** XSIGN, XDIM, XMAX, XMIN, YIDINT, YSNGL 00130810
17: C***** YDINT, YDABS, YCABS, YDMOD, YDSIGN, 00140810
18: C***** YDMAX1, YDMIN1, YDBLE, YCONJG ASSUMED WORKING 00150810
19: CBB** ********************** BBCCOMNT **********************************00160810
20: C**** 00170810
21: C**** 1978 FORTRAN COMPILER VALIDATION SYSTEM 00180810
22: C**** VERSION 2.0 00190810
23: C**** 00200810
24: C**** 00210810
25: C**** SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00220810
26: C**** GENERAL SERVICES ADMINISTRATION 00230810
27: C**** FEDERAL SOFTWARE TESTING CENTER 00240810
28: C**** 5203 LEESBURG PIKE, SUITE 1100 00250810
29: C**** FALLS CHURCH, VA. 22041 00260810
30: C**** 00270810
31: C**** (703) 756-6153 00280810
32: C**** 00290810
33: CBE** ********************** BBCCOMNT **********************************00300810
34: C***** 00310810
35: C***** S P E C I F I C A T I O N S SEGMENT 173 00320810
36: DOUBLE PRECISION DXAVD,DXBVD,DXDVD,DXEVD,DXFVD,DXGVD,DVCORR 00330810
37: CBB** ********************** BBCINITA **********************************00340810
38: C**** SPECIFICATION STATEMENTS 00350810
39: C**** 00360810
40: CHARACTER ZVERS*13, ZVERSD*17, ZDATE*17, ZPROG*5, ZCOMPL*20, 00370810
41: 1 ZNAME*20, ZTAPE*10, ZPROJ*13, REMRKS*31, ZTAPED*13 00380810
42: CBE** ********************** BBCINITA **********************************00390810
43: CBB** ********************** BBCINITB **********************************00400810
44: C**** INITIALIZE SECTION 00410810
45: DATA ZVERS, ZVERSD, ZDATE 00420810
46: 1 /'VERSION 2.0 ', '82/08/02*18.33.46', '*NO DATE*TIME'/ 00430810
47: DATA ZCOMPL, ZNAME, ZTAPE 00440810
48: 1 /'*NONE SPECIFIED*', '*NO COMPANY NAME*', '*NO TAPE*'/ 00450810
49: DATA ZPROJ, ZTAPED, ZPROG 00460810
50: 1 /'*NO PROJECT*', '*NO TAPE DATE', 'XXXXX'/ 00470810
51: DATA REMRKS /' '/ 00480810
52: C**** THE FOLLOWING 9 COMMENT LINES (CZ01, CZ02, ...) CAN BE REPLACED 00490810
53: C**** FOR IDENTIFYING THE TEST ENVIRONMENT 00500810
54: C**** 00510810
55: CZ01 ZVERS = 'VERSION OF THE COMPILER VALIDATION SYSTEM' 00520810
56: CZ02 ZVERSD = 'CREATION DATE/TIME OF THE COMPILER VALIDATION SYSTEM' 00530810
57: CZ03 ZPROG = 'PROGRAM NAME' 00540810
58: ZDATE = '07-Nov-85 ' *RP
59: ZCOMPL = 'CCI 5.2 ' *RP
60: ZPROJ = 'TC-85- -410' *RP
61: ZNAME = ' ' *RP
62: ZTAPE = ' ' *RP
63: ZTAPED = '850703 ' *RP
64: C 00610810
65: IVPASS = 0 00620810
66: IVFAIL = 0 00630810
67: IVDELE = 0 00640810
68: IVINSP = 0 00650810
69: IVTOTL = 0 00660810
70: IVTOTN = 0 00670810
71: ICZERO = 0 00680810
72: C 00690810
73: C I01 CONTAINS THE LOGICAL UNIT NUMBER FOR THE CARD READER. 00700810
74: I01 = 05 00710810
75: C I02 CONTAINS THE LOGICAL UNIT NUMBER FOR THE PRINTER. 00720810
76: I02 = 06 00730810
77: C 00740810
78: I01 = 5 00750810
79: C THE CX010 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I01 = 5 00760810
80: CX011 REPLACED BY FEXEC X-011 CONTROL CARD. CX011 IS FOR SYSTEMS 00770810
81: C REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX010. 00780810
82: C 00790810
83: I02 = 6 00800810
84: C THE CX020 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I02= 6 00810810
85: CX021 REPLACED BY FEXEC X-021 CONTROL CARD. CX021 IS FOR SYSTEMS 00820810
86: C REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX020. 00830810
87: C 00840810
88: CBE** ********************** BBCINITB **********************************00850810
89: NUVI = I02 00860810
90: IVTOTL = 10 00870810
91: ZPROG = 'FM810' 00880810
92: CBB** ********************** BBCHED0A **********************************00890810
93: C**** 00900810
94: C**** WRITE REPORT TITLE 00910810
95: C**** 00920810
96: WRITE (I02, 90002) 00930810
97: WRITE (I02, 90006) 00940810
98: WRITE (I02, 90007) 00950810
99: WRITE (I02, 90008) ZVERS, ZVERSD 00960810
100: WRITE (I02, 90009) ZPROG, ZPROG 00970810
101: WRITE (I02, 90010) ZDATE, ZCOMPL 00980810
102: CBE** ********************** BBCHED0A **********************************00990810
103: C***** 01000810
104: C***** 01010810
105: C***** HEADER FOR SEGMENT 173 WRITTEN 01020810
106: WRITE (NUVI,17301) 01030810
107: 17301 FORMAT(1H , //1X, 35HYDMMX - (173) INTRINSIC FUNCTIONS--// 01040810
108: 1 16X, 22HINTEGER, REAL AND D.P./, 01050810
109: 2 16X, 26HAND MIXED MODE EXPRESSIONS// 01060810
110: 3 2X, 29HANS REF. - 15.3, 15.10, 6.1.4) 01070810
111: CBB** ********************** BBCHED0B **********************************01080810
112: C**** WRITE DETAIL REPORT HEADERS 01090810
113: C**** 01100810
114: WRITE (I02,90004) 01110810
115: WRITE (I02,90004) 01120810
116: WRITE (I02,90013) 01130810
117: WRITE (I02,90014) 01140810
118: WRITE (I02,90015) IVTOTL 01150810
119: CBE** ********************** BBCHED0B **********************************01160810
120: C***** 01170810
121: CT001* TEST 1 01180810
122: IVTNUM = 1 01190810
123: DXBVD = 3.5D0 01200810
124: IXAVI = IDINT(DXBVD) + 2 01210810
125: IF (IXAVI - 5) 20010, 10010, 20010 01220810
126: 10010 IVPASS = IVPASS + 1 01230810
127: WRITE (NUVI, 80002) IVTNUM 01240810
128: GO TO 0011 01250810
129: 20010 IVFAIL = IVFAIL + 1 01260810
130: IVCORR = 5 01270810
131: WRITE (NUVI, 80010) IVTNUM, IXAVI, IVCORR 01280810
132: 0011 CONTINUE 01290810
133: CT002* TEST 2 01300810
134: IVTNUM = 2 01310810
135: DXBVD = 5.25D0 01320810
136: RXAVS = SNGL(DXBVD) * 3.0 01330810
137: IF (RXAVS - 15.749) 20020, 10020, 40020 01340810
138: 40020 IF (RXAVS - 15.751) 10020, 10020, 20020 01350810
139: 10020 IVPASS = IVPASS + 1 01360810
140: WRITE (NUVI, 80002) IVTNUM 01370810
141: GO TO 0021 01380810
142: 20020 IVFAIL = IVFAIL + 1 01390810
143: RVCORR = 15.75 01400810
144: WRITE (NUVI, 80012) IVTNUM, RXAVS, RVCORR 01410810
145: 0021 CONTINUE 01420810
146: CT003* TEST 3 01430810
147: IVTNUM = 3 01440810
148: DXBVD = 3.2D0 01450810
149: DXAVD = DINT(DXBVD) ** 2.0 01460810
150: IF (DXAVD - 8.999999995D0) 20030, 10030, 40030 01470810
151: 40030 IF (DXAVD - 9.000000005D0) 10030, 10030, 20030 01480810
152: 10030 IVPASS = IVPASS + 1 01490810
153: WRITE (NUVI, 80002) IVTNUM 01500810
154: GO TO 0031 01510810
155: 20030 IVFAIL = IVFAIL + 1 01520810
156: DVCORR = 9.0D0 01530810
157: WRITE (NUVI, 80031) IVTNUM, DXAVD, DVCORR 01540810
158: 0031 CONTINUE 01550810
159: CT004* TEST 4 01560810
160: IVTNUM = 4 01570810
161: DXBVD = 3.2D0 01580810
162: DXAVD = DNINT(DXBVD) + 2.5 01590810
163: IF (DXAVD - 5.499999997D0) 20040, 10040, 40040 01600810
164: 40040 IF (DXAVD - 5.500000003D0) 10040, 10040, 20040 01610810
165: 10040 IVPASS = IVPASS + 1 01620810
166: WRITE (NUVI, 80002) IVTNUM 01630810
167: GO TO 0041 01640810
168: 20040 IVFAIL = IVFAIL + 1 01650810
169: DVCORR = 5.5D0 01660810
170: WRITE (NUVI, 80031) IVTNUM, DXAVD, DVCORR 01670810
171: 0041 CONTINUE 01680810
172: CT005* TEST 5 01690810
173: IVTNUM = 5 01700810
174: DXBVD = 3.5D0 01710810
175: RXAVS = IDINT(DXBVD) * 2.5 01720810
176: IF (RXAVS - 7.4996) 20050, 10050, 40050 01730810
177: 40050 IF (RXAVS - 7.5004) 10050, 10050, 20050 01740810
178: 10050 IVPASS = IVPASS + 1 01750810
179: WRITE (NUVI, 80002) IVTNUM 01760810
180: GO TO 0051 01770810
181: 20050 IVFAIL = IVFAIL + 1 01780810
182: RVCORR = 7.5 01790810
183: WRITE (NUVI, 80012) IVTNUM, RXAVS, RVCORR 01800810
184: 0051 CONTINUE 01810810
185: CT006* TEST 6 01820810
186: IVTNUM = 6 01830810
187: DXBVD = -2.5D0 01840810
188: DXAVD = DABS(DXBVD) * 2 01850810
189: IF (DXAVD - 4.999999997D0) 20060, 10060, 40060 01860810
190: 40060 IF (DXAVD - 5.000000003D0) 10060, 10060, 20060 01870810
191: 10060 IVPASS = IVPASS + 1 01880810
192: WRITE (NUVI, 80002) IVTNUM 01890810
193: GO TO 0061 01900810
194: 20060 IVFAIL = IVFAIL + 1 01910810
195: DVCORR = 5.0D0 01920810
196: WRITE (NUVI, 80031) IVTNUM, DXAVD, DVCORR 01930810
197: 0061 CONTINUE 01940810
198: CT007* TEST 7 01950810
199: IVTNUM = 7 01960810
200: DXBVD = 5.0D0 01970810
201: DXDVD = 2.0D0 01980810
202: DXEVD = 3.0D0 01990810
203: DXFVD = -1.0D0 02000810
204: DXAVD = DMOD(DXBVD, DXDVD) * 3 + DSIGN(DXEVD, DXFVD) 02010810
205: IF (DXAVD + 5.0D-10) 20070, 10070, 40070 02020810
206: 40070 IF (DXAVD - 5.0D-10) 10070, 10070, 20070 02030810
207: 10070 IVPASS = IVPASS + 1 02040810
208: WRITE (NUVI, 80002) IVTNUM 02050810
209: GO TO 0071 02060810
210: 20070 IVFAIL = IVFAIL + 1 02070810
211: DVCORR = 0.0D0 02080810
212: WRITE (NUVI, 80031) IVTNUM, DXAVD, DVCORR 02090810
213: 0071 CONTINUE 02100810
214: CT008* TEST 8 02110810
215: IVTNUM = 8 02120810
216: DXBVD = 1.5D1 02130810
217: DXDVD = 0.5D1 02140810
218: RXBVS = 5.0 02150810
219: RXDVS = 2.0 02160810
220: DXAVD = DDIM(DXBVD, DXDVD) / DPROD(RXBVS, RXDVS) 02170810
221: IF (DXAVD - 0.9999999995D0) 20080, 10080, 40080 02180810
222: 40080 IF (DXAVD - 1.000000001D0) 10080, 10080, 20080 02190810
223: 10080 IVPASS = IVPASS + 1 02200810
224: WRITE (NUVI, 80002) IVTNUM 02210810
225: GO TO 0081 02220810
226: 20080 IVFAIL = IVFAIL + 1 02230810
227: DVCORR = 1.0D0 02240810
228: WRITE (NUVI, 80031) IVTNUM, DXAVD, DVCORR 02250810
229: 0081 CONTINUE 02260810
230: CT009* TEST 9 02270810
231: IVTNUM = 9 02280810
232: DXBVD = 5.5D0 02290810
233: DXDVD = 2.5D0 02300810
234: DXEVD = 1.0D0 02310810
235: RXBVS = 1.0 02320810
236: DXAVD = (10 - DMAX1(DXBVD, DXDVD)) * (DMIN1(DXEVD, DXDVD) 02330810
237: 1 + DBLE(RXBVS)) 02340810
238: IF (DXAVD - 8.999999995D0) 20090, 10090, 40090 02350810
239: 40090 IF (DXAVD - 9.000000005D0) 10090, 10090, 20090 02360810
240: 10090 IVPASS = IVPASS + 1 02370810
241: WRITE (NUVI, 80002) IVTNUM 02380810
242: GO TO 0091 02390810
243: 20090 IVFAIL = IVFAIL + 1 02400810
244: DVCORR = 9.0D0 02410810
245: WRITE (NUVI, 80031) IVTNUM, DXAVD, DVCORR 02420810
246: 0091 CONTINUE 02430810
247: CT010* TEST 10 02440810
248: IVTNUM = 10 02450810
249: DXBVD = 0.635D2 02460810
250: RXBVS = 5.0 02470810
251: DXDVD = 5.7D0 02480810
252: DXEVD = -6.0D0 02490810
253: DXFVD = 1.0D0 02500810
254: DXGVD = 3.0D0 02510810
255: DXAVD = (IDINT(DXBVD) + 1.0) / (7 - DBLE(RXBVS)) - 02520810
256: 1 (DINT(DXDVD) + 5 + 5.5) * (DSIGN(DXEVD, DXFVD) / 02530810
257: 2 SNGL(DXGVD)) 02540810
258: IF (DXAVD - 0.9999999995D0) 20100, 10100, 40100 02550810
259: 40100 IF (DXAVD - 1.000000001D0) 10100, 10100, 20100 02560810
260: 10100 IVPASS = IVPASS + 1 02570810
261: WRITE (NUVI, 80002) IVTNUM 02580810
262: GO TO 0101 02590810
263: 20100 IVFAIL = IVFAIL + 1 02600810
264: DVCORR = 1.0D0 02610810
265: WRITE (NUVI, 80031) IVTNUM, DXAVD, DVCORR 02620810
266: 0101 CONTINUE 02630810
267: C***** 02640810
268: CBB** ********************** BBCSUM0 **********************************02650810
269: C**** WRITE OUT TEST SUMMARY 02660810
270: C**** 02670810
271: IVTOTN = IVPASS + IVFAIL + IVDELE + IVINSP 02680810
272: WRITE (I02, 90004) 02690810
273: WRITE (I02, 90014) 02700810
274: WRITE (I02, 90004) 02710810
275: WRITE (I02, 90020) IVPASS 02720810
276: WRITE (I02, 90022) IVFAIL 02730810
277: WRITE (I02, 90024) IVDELE 02740810
278: WRITE (I02, 90026) IVINSP 02750810
279: WRITE (I02, 90028) IVTOTN, IVTOTL 02760810
280: CBE** ********************** BBCSUM0 **********************************02770810
281: CBB** ********************** BBCFOOT0 **********************************02780810
282: C**** WRITE OUT REPORT FOOTINGS 02790810
283: C**** 02800810
284: WRITE (I02,90016) ZPROG, ZPROG 02810810
285: WRITE (I02,90018) ZPROJ, ZNAME, ZTAPE, ZTAPED 02820810
286: WRITE (I02,90019) 02830810
287: CBE** ********************** BBCFOOT0 **********************************02840810
288: CBB** ********************** BBCFMT0A **********************************02850810
289: C**** FORMATS FOR TEST DETAIL LINES 02860810
290: C**** 02870810
291: 80000 FORMAT (1H ,2X,I3,4X,7HDELETED,32X,A31) 02880810
292: 80002 FORMAT (1H ,2X,I3,4X,7H PASS ,32X,A31) 02890810
293: 80004 FORMAT (1H ,2X,I3,4X,7HINSPECT,32X,A31) 02900810
294: 80008 FORMAT (1H ,2X,I3,4X,7H FAIL ,32X,A31) 02910810
295: 80010 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,15X,10HCOMPUTED= , 02920810
296: 1I6,/,1H ,15X,10HCORRECT= ,I6) 02930810
297: 80012 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 02940810
298: 1E12.5,/,1H ,16X,10HCORRECT= ,E12.5) 02950810
299: 80018 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 02960810
300: 1A21,/,1H ,16X,10HCORRECT= ,A21) 02970810
301: 80020 FORMAT (1H ,16X,10HCOMPUTED= ,A21,1X,A31) 02980810
302: 80022 FORMAT (1H ,16X,10HCORRECT= ,A21,1X,A31) 02990810
303: 80024 FORMAT (1H ,16X,10HCOMPUTED= ,I6,16X,A31) 03000810
304: 80026 FORMAT (1H ,16X,10HCORRECT= ,I6,16X,A31) 03010810
305: 80028 FORMAT (1H ,16X,10HCOMPUTED= ,E12.5,10X,A31) 03020810
306: 80030 FORMAT (1H ,16X,10HCORRECT= ,E12.5,10X,A31) 03030810
307: 80050 FORMAT (1H ,48X,A31) 03040810
308: CBE** ********************** BBCFMT0A **********************************03050810
309: CBB** ********************** BBCFMAT1 **********************************03060810
310: C**** FORMATS FOR TEST DETAIL LINES - FULL LANGUAGE 03070810
311: C**** 03080810
312: 80031 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 03090810
313: 1D17.10,/,1H ,16X,10HCORRECT= ,D17.10) 03100810
314: 80033 FORMAT (1H ,16X,10HCOMPUTED= ,D17.10,10X,A31) 03110810
315: 80035 FORMAT (1H ,16X,10HCORRECT= ,D17.10,10X,A31) 03120810
316: 80037 FORMAT (1H ,16X,10HCOMPUTED= ,1H(,E12.5,2H, ,E12.5,1H),6X,A31) 03130810
317: 80039 FORMAT (1H ,16X,10HCORRECT= ,1H(,E12.5,2H, ,E12.5,1H),6X,A31) 03140810
318: 80041 FORMAT (1H ,16X,10HCOMPUTED= ,1H(,F12.5,2H, ,F12.5,1H),6X,A31) 03150810
319: 80043 FORMAT (1H ,16X,10HCORRECT= ,1H(,F12.5,2H, ,F12.5,1H),6X,A31) 03160810
320: 80045 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 03170810
321: 11H(,F12.5,2H, ,F12.5,1H)/,1H ,16X,10HCORRECT= , 03180810
322: 21H(,F12.5,2H, ,F12.5,1H)) 03190810
323: CBE** ********************** BBCFMAT1 **********************************03200810
324: CBB** ********************** BBCFMT0B **********************************03210810
325: C**** FORMAT STATEMENTS FOR PAGE HEADERS 03220810
326: C**** 03230810
327: 90002 FORMAT (1H1) 03240810
328: 90004 FORMAT (1H ) 03250810
329: 90006 FORMAT (1H ,20X,31HFEDERAL SOFTWARE TESTING CENTER) 03260810
330: 90007 FORMAT (1H ,19X,34HFORTRAN COMPILER VALIDATION SYSTEM) 03270810
331: 90008 FORMAT (1H ,21X,A13,A17) 03280810
332: 90009 FORMAT (1H ,/,2H *,A5,6HBEGIN*,12X,15HTEST RESULTS - ,A5,/) 03290810
333: 90010 FORMAT (1H ,8X,16HTEST DATE*TIME= ,A17,15H - COMPILER= ,A20) 03300810
334: 90013 FORMAT (1H ,8H TEST ,10HPASS/FAIL ,6X,17HDISPLAYED RESULTS, 03310810
335: 1 7X,7HREMARKS,24X) 03320810
336: 90014 FORMAT (1H ,46H----------------------------------------------, 03330810
337: 1 33H---------------------------------) 03340810
338: 90015 FORMAT (1H ,48X,17HTHIS PROGRAM HAS ,I3,6H TESTS,/) 03350810
339: C**** 03360810
340: C**** FORMAT STATEMENTS FOR REPORT FOOTINGS 03370810
341: C**** 03380810
342: 90016 FORMAT (1H ,/,2H *,A5,4HEND*,14X,14HEND OF TEST - ,A5,/) 03390810
343: 90018 FORMAT (1H ,A13,13X,A20,7H * ,A10,1H/, 03400810
344: 1 A13) 03410810
345: 90019 FORMAT (1H ,26HFOR OFFICIAL USE ONLY ,35X,15HCOPYRIGHT 1982) 03420810
346: C**** 03430810
347: C**** FORMAT STATEMENTS FOR RUN SUMMARY 03440810
348: C**** 03450810
349: 90020 FORMAT (1H ,21X,I5,13H TESTS PASSED) 03460810
350: 90022 FORMAT (1H ,21X,I5,13H TESTS FAILED) 03470810
351: 90024 FORMAT (1H ,21X,I5,14H TESTS DELETED) 03480810
352: 90026 FORMAT (1H ,21X,I5,25H TESTS REQUIRE INSPECTION) 03490810
353: 90028 FORMAT (1H ,21X,I5,4H OF ,I3,15H TESTS EXECUTED) 03500810
354: CBE** ********************** BBCFMT0B **********************************03510810
355: C***** END OF TEST SEGMENT 173 03520810
356: STOP 03530810
357: END 03540810
358: 03550810
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.