![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to FM834.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 FM834.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***********************************************************************00010834
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 00020834
6: C***** FM834 00030834
7: C***** YGEN7 - (212) 00040834
8: C***** 00050834
9: C***********************************************************************00060834
10: C***** GENERAL PURPOSE ANS REF 00070834
11: C***** TEST GENERIC FUNCTIONS 15.3 00080834
12: C***** USES GENERIC FUNCTIONS AS ARGUMENTS TO TABLE 5 00090834
13: C***** OTHER GENERIC FUNCTIONS 00100834
14: C***** 00110834
15: CBB** ********************** BBCCOMNT **********************************00120834
16: C**** 00130834
17: C**** 1978 FORTRAN COMPILER VALIDATION SYSTEM 00140834
18: C**** VERSION 2.0 00150834
19: C**** 00160834
20: C**** 00170834
21: C**** SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00180834
22: C**** GENERAL SERVICES ADMINISTRATION 00190834
23: C**** FEDERAL SOFTWARE TESTING CENTER 00200834
24: C**** 5203 LEESBURG PIKE, SUITE 1100 00210834
25: C**** FALLS CHURCH, VA. 22041 00220834
26: C**** 00230834
27: C**** (703) 756-6153 00240834
28: C**** 00250834
29: CBE** ********************** BBCCOMNT **********************************00260834
30: C***** 00270834
31: C***** S P E C I F I C A T I O N S SEGMENT 212 00280834
32: DOUBLE PRECISION AVD, DVCORR 00290834
33: COMPLEX AVC, ZVCORR 00300834
34: REAL R2E(2) 00310834
35: EQUIVALENCE (AVC, R2E) 00320834
36: C***** 00330834
37: CBB** ********************** BBCINITA **********************************00340834
38: C**** SPECIFICATION STATEMENTS 00350834
39: C**** 00360834
40: CHARACTER ZVERS*13, ZVERSD*17, ZDATE*17, ZPROG*5, ZCOMPL*20, 00370834
41: 1 ZNAME*20, ZTAPE*10, ZPROJ*13, REMRKS*31, ZTAPED*13 00380834
42: CBE** ********************** BBCINITA **********************************00390834
43: CBB** ********************** BBCINITB **********************************00400834
44: C**** INITIALIZE SECTION 00410834
45: DATA ZVERS, ZVERSD, ZDATE 00420834
46: 1 /'VERSION 2.0 ', '82/08/02*18.33.46', '*NO DATE*TIME'/ 00430834
47: DATA ZCOMPL, ZNAME, ZTAPE 00440834
48: 1 /'*NONE SPECIFIED*', '*NO COMPANY NAME*', '*NO TAPE*'/ 00450834
49: DATA ZPROJ, ZTAPED, ZPROG 00460834
50: 1 /'*NO PROJECT*', '*NO TAPE DATE', 'XXXXX'/ 00470834
51: DATA REMRKS /' '/ 00480834
52: C**** THE FOLLOWING 9 COMMENT LINES (CZ01, CZ02, ...) CAN BE REPLACED 00490834
53: C**** FOR IDENTIFYING THE TEST ENVIRONMENT 00500834
54: C**** 00510834
55: CZ01 ZVERS = 'VERSION OF THE COMPILER VALIDATION SYSTEM' 00520834
56: CZ02 ZVERSD = 'CREATION DATE/TIME OF THE COMPILER VALIDATION SYSTEM' 00530834
57: CZ03 ZPROG = 'PROGRAM NAME' 00540834
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 00610834
65: IVPASS = 0 00620834
66: IVFAIL = 0 00630834
67: IVDELE = 0 00640834
68: IVINSP = 0 00650834
69: IVTOTL = 0 00660834
70: IVTOTN = 0 00670834
71: ICZERO = 0 00680834
72: C 00690834
73: C I01 CONTAINS THE LOGICAL UNIT NUMBER FOR THE CARD READER. 00700834
74: I01 = 05 00710834
75: C I02 CONTAINS THE LOGICAL UNIT NUMBER FOR THE PRINTER. 00720834
76: I02 = 06 00730834
77: C 00740834
78: I01 = 5 00750834
79: C THE CX010 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I01 = 5 00760834
80: CX011 REPLACED BY FEXEC X-011 CONTROL CARD. CX011 IS FOR SYSTEMS 00770834
81: C REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX010. 00780834
82: C 00790834
83: I02 = 6 00800834
84: C THE CX020 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I02= 6 00810834
85: CX021 REPLACED BY FEXEC X-021 CONTROL CARD. CX021 IS FOR SYSTEMS 00820834
86: C REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX020. 00830834
87: C 00840834
88: CBE** ********************** BBCINITB **********************************00850834
89: NUVI = I02 00860834
90: IVTOTL = 7 00870834
91: ZPROG = 'FM834' 00880834
92: CBB** ********************** BBCHED0A **********************************00890834
93: C**** 00900834
94: C**** WRITE REPORT TITLE 00910834
95: C**** 00920834
96: WRITE (I02, 90002) 00930834
97: WRITE (I02, 90006) 00940834
98: WRITE (I02, 90007) 00950834
99: WRITE (I02, 90008) ZVERS, ZVERSD 00960834
100: WRITE (I02, 90009) ZPROG, ZPROG 00970834
101: WRITE (I02, 90010) ZDATE, ZCOMPL 00980834
102: CBE** ********************** BBCHED0A **********************************00990834
103: C***** 01000834
104: C***** HEADER FOR SEGMENT 212 01010834
105: WRITE(NUVI,21200) 01020834
106: 21200 FORMAT( 1H , / 35H YGEN7 - (212) GENERIC FUNCTIONS --// 01030834
107: 1 33H AS ARGUMENTS TO OTHER FUNCTIONS// 01040834
108: 2 17H ANS REF. - 15.3) 01050834
109: CBB** ********************** BBCHED0B **********************************01060834
110: C**** WRITE DETAIL REPORT HEADERS 01070834
111: C**** 01080834
112: WRITE (I02,90004) 01090834
113: WRITE (I02,90004) 01100834
114: WRITE (I02,90013) 01110834
115: WRITE (I02,90014) 01120834
116: WRITE (I02,90015) IVTOTL 01130834
117: CBE** ********************** BBCHED0B **********************************01140834
118: C***** 01150834
119: CT001* TEST 1 TEST OF ABS AND MIN WITH INTEGERS 01160834
120: C***** 01170834
121: IVTNUM = 1 01180834
122: LVI = 2 - ABS( MIN( -3, -8)) 01190834
123: IF (LVI + 6) 20010, 10010, 20010 01200834
124: 10010 IVPASS = IVPASS + 1 01210834
125: WRITE (NUVI, 80002) IVTNUM 01220834
126: GO TO 0011 01230834
127: 20010 IVFAIL = IVFAIL + 1 01240834
128: IVCORR = -6 01250834
129: WRITE (NUVI, 80010) IVTNUM, LVI, IVCORR 01260834
130: 0011 CONTINUE 01270834
131: CT002* TEST 2 TEST OF MOD AND SIGN WITH INTEGERS 01280834
132: IVTNUM = 2 01290834
133: LVI = 25 * MOD( SIGN( 14, -2), 3) 01300834
134: IF (LVI + 50) 20020, 10020, 20020 01310834
135: 10020 IVPASS = IVPASS + 1 01320834
136: WRITE (NUVI, 80002) IVTNUM 01330834
137: GO TO 0021 01340834
138: 20020 IVFAIL = IVFAIL + 1 01350834
139: IVCORR = -50 01360834
140: WRITE (NUVI, 80010) IVTNUM, LVI, IVCORR 01370834
141: 0021 CONTINUE 01380834
142: CT003* TEST 3 TEST OF COS AND SQRT WITH REALS 01390834
143: IVTNUM = 3 01400834
144: AVS = 2.0 * COS( 1.25 + SQRT( 3.50)) 01410834
145: IF (AVS + 0.19997E+01) 20030, 10030, 40030 01420834
146: 40030 IF (AVS + 0.19994E+01) 10030, 10030, 20030 01430834
147: 10030 IVPASS = IVPASS + 1 01440834
148: WRITE (NUVI, 80002) IVTNUM 01450834
149: GO TO 0031 01460834
150: 20030 IVFAIL = IVFAIL + 1 01470834
151: RVCORR = -1.9995689 01480834
152: WRITE (NUVI, 80012) IVTNUM, AVS, RVCORR 01490834
153: 0031 CONTINUE 01500834
154: CT004* TEST 4 TEST OF MAX, LOG AND LOG10 WITH REALS 01510834
155: IVTNUM = 4 01520834
156: AVS = MAX( LOG( 274.125), 4.5 * LOG10( 121.75)) 01530834
157: IF (AVS - 0.93841E+01) 20040, 10040, 40040 01540834
158: 40040 IF (AVS - 0.93851E+01) 10040, 10040, 20040 01550834
159: 10040 IVPASS = IVPASS + 1 01560834
160: WRITE (NUVI, 80002) IVTNUM 01570834
161: GO TO 0041 01580834
162: 20040 IVFAIL = IVFAIL + 1 01590834
163: RVCORR = 9.3846103 01600834
164: WRITE (NUVI, 80012) IVTNUM, AVS, RVCORR 01610834
165: 0041 CONTINUE 01620834
166: CT005* TEST 5 TEST OF EXP AND MOD WITH DOUBLE PREC 01630834
167: IVTNUM = 5 01640834
168: AVD = 1.0D0 - EXP(5.25D0 + MOD(76.0D0, 2.5D0)) 01650834
169: IF (AVD + 0.5170128250D+03) 20050, 10050, 40050 01660834
170: 40050 IF (AVD + 0.5170128244D+03) 10050, 10050, 20050 01670834
171: 10050 IVPASS = IVPASS + 1 01680834
172: WRITE (NUVI, 80002) IVTNUM 01690834
173: GO TO 0051 01700834
174: 20050 IVFAIL = IVFAIL + 1 01710834
175: DVCORR = -517.01282466834D0 01720834
176: WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 01730834
177: 0051 CONTINUE 01740834
178: CT006* TEST 6 TEST OF SINH, ABS, TAN AND ATAN 01750834
179: IVTNUM = 6 01760834
180: AVD = SINH( ABS( TAN( 3.25D0) - ATAN( 1.1D-1)) - 0.01D0) 01770834
181: IF (AVD + 0.9274631705D-02) 20060, 10060, 40060 01780834
182: 40060 IF (AVD + 0.9274631695D-02) 10060, 10060, 20060 01790834
183: 10060 IVPASS = IVPASS + 1 01800834
184: WRITE (NUVI, 80002) IVTNUM 01810834
185: GO TO 0061 01820834
186: 20060 IVFAIL = IVFAIL + 1 01830834
187: DVCORR = -0.92746316996764D-2 01840834
188: WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 01850834
189: 0061 CONTINUE 01860834
190: CT007* TEST 7 TEST OF EXP WITH COMPLEX AND COS WITH REAL 01870834
191: IVTNUM = 7 01880834
192: AVC = EXP( CMPLX(3.5, COS(0.925))) * CMPLX(1.0, 1.50) 01890834
193: IF (R2E(1) + 0.82578E+00) 20070, 40072, 40071 01900834
194: 40071 IF (R2E(1) + 0.82569E+00) 40072, 40072, 20070 01910834
195: 40072 IF (R2E(2) - 0.59691E+02) 20070, 10070, 40070 01920834
196: 40070 IF (R2E(2) - 0.59697E+02) 10070, 10070, 20070 01930834
197: 10070 IVPASS = IVPASS + 1 01940834
198: WRITE (NUVI, 80002) IVTNUM 01950834
199: GO TO 0071 01960834
200: 20070 IVFAIL = IVFAIL + 1 01970834
201: ZVCORR = (-0.8257397, 59.6940191) 01980834
202: WRITE (NUVI, 80045) IVTNUM, AVC, ZVCORR 01990834
203: 0071 CONTINUE 02000834
204: CBB** ********************** BBCSUM0 **********************************02010834
205: C**** WRITE OUT TEST SUMMARY 02020834
206: C**** 02030834
207: IVTOTN = IVPASS + IVFAIL + IVDELE + IVINSP 02040834
208: WRITE (I02, 90004) 02050834
209: WRITE (I02, 90014) 02060834
210: WRITE (I02, 90004) 02070834
211: WRITE (I02, 90020) IVPASS 02080834
212: WRITE (I02, 90022) IVFAIL 02090834
213: WRITE (I02, 90024) IVDELE 02100834
214: WRITE (I02, 90026) IVINSP 02110834
215: WRITE (I02, 90028) IVTOTN, IVTOTL 02120834
216: CBE** ********************** BBCSUM0 **********************************02130834
217: CBB** ********************** BBCFOOT0 **********************************02140834
218: C**** WRITE OUT REPORT FOOTINGS 02150834
219: C**** 02160834
220: WRITE (I02,90016) ZPROG, ZPROG 02170834
221: WRITE (I02,90018) ZPROJ, ZNAME, ZTAPE, ZTAPED 02180834
222: WRITE (I02,90019) 02190834
223: CBE** ********************** BBCFOOT0 **********************************02200834
224: CBB** ********************** BBCFMT0A **********************************02210834
225: C**** FORMATS FOR TEST DETAIL LINES 02220834
226: C**** 02230834
227: 80000 FORMAT (1H ,2X,I3,4X,7HDELETED,32X,A31) 02240834
228: 80002 FORMAT (1H ,2X,I3,4X,7H PASS ,32X,A31) 02250834
229: 80004 FORMAT (1H ,2X,I3,4X,7HINSPECT,32X,A31) 02260834
230: 80008 FORMAT (1H ,2X,I3,4X,7H FAIL ,32X,A31) 02270834
231: 80010 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,15X,10HCOMPUTED= , 02280834
232: 1I6,/,1H ,15X,10HCORRECT= ,I6) 02290834
233: 80012 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 02300834
234: 1E12.5,/,1H ,16X,10HCORRECT= ,E12.5) 02310834
235: 80018 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 02320834
236: 1A21,/,1H ,16X,10HCORRECT= ,A21) 02330834
237: 80020 FORMAT (1H ,16X,10HCOMPUTED= ,A21,1X,A31) 02340834
238: 80022 FORMAT (1H ,16X,10HCORRECT= ,A21,1X,A31) 02350834
239: 80024 FORMAT (1H ,16X,10HCOMPUTED= ,I6,16X,A31) 02360834
240: 80026 FORMAT (1H ,16X,10HCORRECT= ,I6,16X,A31) 02370834
241: 80028 FORMAT (1H ,16X,10HCOMPUTED= ,E12.5,10X,A31) 02380834
242: 80030 FORMAT (1H ,16X,10HCORRECT= ,E12.5,10X,A31) 02390834
243: 80050 FORMAT (1H ,48X,A31) 02400834
244: CBE** ********************** BBCFMT0A **********************************02410834
245: CBB** ********************** BBCFMAT1 **********************************02420834
246: C**** FORMATS FOR TEST DETAIL LINES - FULL LANGUAGE 02430834
247: C**** 02440834
248: 80031 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 02450834
249: 1D17.10,/,1H ,16X,10HCORRECT= ,D17.10) 02460834
250: 80033 FORMAT (1H ,16X,10HCOMPUTED= ,D17.10,10X,A31) 02470834
251: 80035 FORMAT (1H ,16X,10HCORRECT= ,D17.10,10X,A31) 02480834
252: 80037 FORMAT (1H ,16X,10HCOMPUTED= ,1H(,E12.5,2H, ,E12.5,1H),6X,A31) 02490834
253: 80039 FORMAT (1H ,16X,10HCORRECT= ,1H(,E12.5,2H, ,E12.5,1H),6X,A31) 02500834
254: 80041 FORMAT (1H ,16X,10HCOMPUTED= ,1H(,F12.5,2H, ,F12.5,1H),6X,A31) 02510834
255: 80043 FORMAT (1H ,16X,10HCORRECT= ,1H(,F12.5,2H, ,F12.5,1H),6X,A31) 02520834
256: 80045 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 02530834
257: 11H(,F12.5,2H, ,F12.5,1H)/,1H ,16X,10HCORRECT= , 02540834
258: 21H(,F12.5,2H, ,F12.5,1H)) 02550834
259: CBE** ********************** BBCFMAT1 **********************************02560834
260: CBB** ********************** BBCFMT0B **********************************02570834
261: C**** FORMAT STATEMENTS FOR PAGE HEADERS 02580834
262: C**** 02590834
263: 90002 FORMAT (1H1) 02600834
264: 90004 FORMAT (1H ) 02610834
265: 90006 FORMAT (1H ,20X,31HFEDERAL SOFTWARE TESTING CENTER) 02620834
266: 90007 FORMAT (1H ,19X,34HFORTRAN COMPILER VALIDATION SYSTEM) 02630834
267: 90008 FORMAT (1H ,21X,A13,A17) 02640834
268: 90009 FORMAT (1H ,/,2H *,A5,6HBEGIN*,12X,15HTEST RESULTS - ,A5,/) 02650834
269: 90010 FORMAT (1H ,8X,16HTEST DATE*TIME= ,A17,15H - COMPILER= ,A20) 02660834
270: 90013 FORMAT (1H ,8H TEST ,10HPASS/FAIL ,6X,17HDISPLAYED RESULTS, 02670834
271: 1 7X,7HREMARKS,24X) 02680834
272: 90014 FORMAT (1H ,46H----------------------------------------------, 02690834
273: 1 33H---------------------------------) 02700834
274: 90015 FORMAT (1H ,48X,17HTHIS PROGRAM HAS ,I3,6H TESTS,/) 02710834
275: C**** 02720834
276: C**** FORMAT STATEMENTS FOR REPORT FOOTINGS 02730834
277: C**** 02740834
278: 90016 FORMAT (1H ,/,2H *,A5,4HEND*,14X,14HEND OF TEST - ,A5,/) 02750834
279: 90018 FORMAT (1H ,A13,13X,A20,7H * ,A10,1H/, 02760834
280: 1 A13) 02770834
281: 90019 FORMAT (1H ,26HFOR OFFICIAL USE ONLY ,35X,15HCOPYRIGHT 1982) 02780834
282: C**** 02790834
283: C**** FORMAT STATEMENTS FOR RUN SUMMARY 02800834
284: C**** 02810834
285: 90020 FORMAT (1H ,21X,I5,13H TESTS PASSED) 02820834
286: 90022 FORMAT (1H ,21X,I5,13H TESTS FAILED) 02830834
287: 90024 FORMAT (1H ,21X,I5,14H TESTS DELETED) 02840834
288: 90026 FORMAT (1H ,21X,I5,25H TESTS REQUIRE INSPECTION) 02850834
289: 90028 FORMAT (1H ,21X,I5,4H OF ,I3,15H TESTS EXECUTED) 02860834
290: CBE** ********************** BBCFMT0B **********************************02870834
291: C***** 02880834
292: C***** END OF TEST SEGMENT 212 02890834
293: STOP 02900834
294: END 02910834
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.