![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to FM907.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 FM907.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***********************************************************************00010907
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 00020907
6: C***** FM907 00030907
7: C***** LSTDO2 - (373) 00040907
8: C***** 00050907
9: C***********************************************************************00060907
10: C***** GENERAL PURPOSE ANS REF 00070907
11: C***** TEST LIST DIRECTED OUTPUT 13.6 00080907
12: C***** DOUBLE PRECISION AND COMPLEX DATA TYPES INCLUDED 12.4 00090907
13: C***** 00100907
14: CBB** ********************** BBCCOMNT **********************************00110907
15: C**** 00120907
16: C**** 1978 FORTRAN COMPILER VALIDATION SYSTEM 00130907
17: C**** VERSION 2.0 00140907
18: C**** 00150907
19: C**** 00160907
20: C**** SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00170907
21: C**** GENERAL SERVICES ADMINISTRATION 00180907
22: C**** FEDERAL SOFTWARE TESTING CENTER 00190907
23: C**** 5203 LEESBURG PIKE, SUITE 1100 00200907
24: C**** FALLS CHURCH, VA. 22041 00210907
25: C**** 00220907
26: C**** (703) 756-6153 00230907
27: C**** 00240907
28: CBE** ********************** BBCCOMNT **********************************00250907
29: C***** 00260907
30: C***** S P E C I F I C A T I O N S SEGMENT 373 00270907
31: DOUBLE PRECISION AVD, BVD, CVD 00280907
32: COMPLEX AVC, BVC, CVC, DVC 00290907
33: CHARACTER A4VK*4 00300907
34: C***** 00310907
35: CBB** ********************** BBCINITA **********************************00320907
36: C**** SPECIFICATION STATEMENTS 00330907
37: C**** 00340907
38: CHARACTER ZVERS*13, ZVERSD*17, ZDATE*17, ZPROG*5, ZCOMPL*20, 00350907
39: 1 ZNAME*20, ZTAPE*10, ZPROJ*13, REMRKS*31, ZTAPED*13 00360907
40: CBE** ********************** BBCINITA **********************************00370907
41: CBB** ********************** BBCINITB **********************************00380907
42: C**** INITIALIZE SECTION 00390907
43: DATA ZVERS, ZVERSD, ZDATE 00400907
44: 1 /'VERSION 2.0 ', '82/08/02*18.33.46', '*NO DATE*TIME'/ 00410907
45: DATA ZCOMPL, ZNAME, ZTAPE 00420907
46: 1 /'*NONE SPECIFIED*', '*NO COMPANY NAME*', '*NO TAPE*'/ 00430907
47: DATA ZPROJ, ZTAPED, ZPROG 00440907
48: 1 /'*NO PROJECT*', '*NO TAPE DATE', 'XXXXX'/ 00450907
49: DATA REMRKS /' '/ 00460907
50: C**** THE FOLLOWING 9 COMMENT LINES (CZ01, CZ02, ...) CAN BE REPLACED 00470907
51: C**** FOR IDENTIFYING THE TEST ENVIRONMENT 00480907
52: C**** 00490907
53: CZ01 ZVERS = 'VERSION OF THE COMPILER VALIDATION SYSTEM' 00500907
54: CZ02 ZVERSD = 'CREATION DATE/TIME OF THE COMPILER VALIDATION SYSTEM' 00510907
55: CZ03 ZPROG = 'PROGRAM NAME' 00520907
56: ZDATE = '07-Nov-85 ' *RP
57: ZCOMPL = 'CCI 5.2 ' *RP
58: ZPROJ = 'TC-85- -410' *RP
59: ZNAME = ' ' *RP
60: ZTAPE = ' ' *RP
61: ZTAPED = '850703 ' *RP
62: C 00590907
63: IVPASS = 0 00600907
64: IVFAIL = 0 00610907
65: IVDELE = 0 00620907
66: IVINSP = 0 00630907
67: IVTOTL = 0 00640907
68: IVTOTN = 0 00650907
69: ICZERO = 0 00660907
70: C 00670907
71: C I01 CONTAINS THE LOGICAL UNIT NUMBER FOR THE CARD READER. 00680907
72: I01 = 05 00690907
73: C I02 CONTAINS THE LOGICAL UNIT NUMBER FOR THE PRINTER. 00700907
74: I02 = 06 00710907
75: C 00720907
76: I01 = 5 00730907
77: C THE CX010 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I01 = 5 00740907
78: CX011 REPLACED BY FEXEC X-011 CONTROL CARD. CX011 IS FOR SYSTEMS 00750907
79: C REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX010. 00760907
80: C 00770907
81: I02 = 6 00780907
82: C THE CX020 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I02= 6 00790907
83: CX021 REPLACED BY FEXEC X-021 CONTROL CARD. CX021 IS FOR SYSTEMS 00800907
84: C REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX020. 00810907
85: C 00820907
86: CBE** ********************** BBCINITB **********************************00830907
87: NUVI = I02 00840907
88: IVTOTL = 8 00850907
89: ZPROG = 'FM907' 00860907
90: CBB** ********************** BBCHED0A **********************************00870907
91: C**** 00880907
92: C**** WRITE REPORT TITLE 00890907
93: C**** 00900907
94: WRITE (I02, 90002) 00910907
95: WRITE (I02, 90006) 00920907
96: WRITE (I02, 90007) 00930907
97: WRITE (I02, 90008) ZVERS, ZVERSD 00940907
98: WRITE (I02, 90009) ZPROG, ZPROG 00950907
99: WRITE (I02, 90010) ZDATE, ZCOMPL 00960907
100: CBE** ********************** BBCHED0A **********************************00970907
101: C***** 00980907
102: C***** HEADING FOR SEGMENT 373 00990907
103: WRITE(NUVI,37300) 01000907
104: 37300 FORMAT(1H , /16H LSTDO2 - (373) , 01010907
105: 1 21H LIST DIRECTED OUTPUT, 01020907
106: 2 32H FOR D.P. AND COMPLEX DATA TYPES// 01030907
107: 3 22H ANS REF. - 13.6 12.4) 01040907
108: CBB** ********************** BBCHED0B **********************************01050907
109: C**** WRITE DETAIL REPORT HEADERS 01060907
110: C**** 01070907
111: WRITE (I02,90004) 01080907
112: WRITE (I02,90004) 01090907
113: WRITE (I02,90013) 01100907
114: WRITE (I02,90014) 01110907
115: WRITE (I02,90015) IVTOTL 01120907
116: CBE** ********************** BBCHED0B **********************************01130907
117: WRITE (NUVI, 70000) 01140907
118: 70000 FORMAT (1H ,48X,31HTHE CORRECT LINE OF EACH TEST / 01150907
119: 1 1H ,48X,31HIS HOLLERITH INFORMATION. / 01160907
120: 2 1H ,48X,31HCOLUMN SPACING, LINE BREAKS, / 01170907
121: 3 1H ,48X,31HAND THE NUMBER OF DECIMAL / 01180907
122: 4 1H ,48X,31HPLACES FOR DOUBLE PRECISION / 01190907
123: 5 1H ,48X,31HOR COMPLEX NUMBERS ARE / 01200907
124: 6 1H ,48X,31HPROCESSOR DEPENDENT. / 01210907
125: 7 1H ,48X,31HEITHER E OR F FORMAT MAY BE / 01220907
126: 8 1H ,48X,31HUSED FOR DOUBLE PRECISION OR / 01230907
127: 9 1H ,48X,31HCOMPLEX NUMBERS. /) 01240907
128: CT001* TEST 1 - DOUBLE PRECISION 01250907
129: IVTNUM = 1 01260907
130: WRITE (NUVI, 80004) IVTNUM 01270907
131: WRITE (NUVI, 80020) 01280907
132: AVD = 2.5D0 01290907
133: WRITE(NUVI, *) AVD 01300907
134: IVINSP = IVINSP + 1 01310907
135: WRITE (NUVI, 80022) 01320907
136: WRITE (NUVI, 70011) 01330907
137: 70011 FORMAT (1H ,6X,3H2.5) 01340907
138: CT002* TEST 2 - COMPLEX 01350907
139: IVTNUM = 2 01360907
140: WRITE (NUVI, 80004) IVTNUM 01370907
141: WRITE (NUVI, 80020) 01380907
142: AVC = (3.0, 4.0) 01390907
143: WRITE(NUVI, *) AVC 01400907
144: IVINSP = IVINSP + 1 01410907
145: WRITE (NUVI, 80022) 01420907
146: WRITE (NUVI, 70021) 01430907
147: 70021 FORMAT(1H ,6X,10H (3.0,4.0)) 01440907
148: CT003* TEST 3 - SEVERAL DOUBLE PRECISION 01450907
149: IVTNUM = 3 01460907
150: WRITE (NUVI, 80004) IVTNUM 01470907
151: WRITE (NUVI, 80020) 01480907
152: AVD = 2.5D0 01490907
153: BVD = 2.5D-10 01500907
154: CVD = 2.5D+10 01510907
155: WRITE(NUVI, *) AVD, BVD, CVD 01520907
156: IVINSP = IVINSP + 1 01530907
157: WRITE (NUVI, 80022) 01540907
158: WRITE (NUVI, 70031) 01550907
159: 70031 FORMAT(1H ,6X,21H2.5 2.5D-10 2.5D+10) 01560907
160: CT004* TEST 4 - SEVERAL COMPLEX 01570907
161: IVTNUM = 4 01580907
162: WRITE (NUVI, 80004) IVTNUM 01590907
163: WRITE (NUVI, 80020) 01600907
164: AVC = (0.0, 1.0) 01610907
165: BVC = (8.0, 10.0) 01620907
166: CVC = (-5.0, 0.0) 01630907
167: DVC = (0.0, 0.0) 01640907
168: WRITE(NUVI,*) AVC, BVC, CVC, DVC 01650907
169: IVINSP = IVINSP + 1 01660907
170: WRITE (NUVI, 80022) 01670907
171: WRITE (NUVI, 70041) 01680907
172: 70041 FORMAT(1H ,6X,48H (0.0,1.0) (8.0,10.0) (-5.0,0.0) (0.0,01690907
173: 10.0)) 01700907
174: CT005* TEST 5 - MIXED LIST 01710907
175: IVTNUM = 5 01720907
176: WRITE (NUVI, 80004) IVTNUM 01730907
177: WRITE (NUVI, 80020) 01740907
178: AVC = (3.0, 4.0) 01750907
179: BVC = (-3.0, -4.0) 01760907
180: AVD = 5.0D0 01770907
181: BVD = -5.0D0 01780907
182: WRITE(NUVI,*) AVC, AVD, BVD, BVC 01790907
183: IVINSP = IVINSP + 1 01800907
184: WRITE (NUVI, 80022) 01810907
185: WRITE (NUVI, 70051) 01820907
186: 70051 FORMAT(1H ,6X,35H (3.0,4.0) 5.0 -5.0 (-3.0,-4.0)) 01830907
187: CT006* TEST 6 - MIXED MODE EXPRESSION 01840907
188: IVTNUM = 6 01850907
189: WRITE (NUVI, 80004) IVTNUM 01860907
190: WRITE (NUVI, 80020) 01870907
191: AVC = (2.0, 3.0) 01880907
192: IVI = 3 01890907
193: WRITE(NUVI, *) AVC * IVI 01900907
194: IVINSP = IVINSP + 1 01910907
195: WRITE (NUVI, 80022) 01920907
196: WRITE (NUVI, 70061) 01930907
197: 70061 FORMAT(1H ,6X,10H (6.0,9.0)) 01940907
198: CT007* TEST 7 - MIXED MODE EXPRESSION 01950907
199: IVTNUM = 7 01960907
200: WRITE (NUVI, 80004) IVTNUM 01970907
201: WRITE (NUVI, 80020) 01980907
202: IVI = 2 01990907
203: AVS = 6.5 02000907
204: WRITE(NUVI, *) AVS / IVI 02010907
205: IVINSP = IVINSP + 1 02020907
206: WRITE (NUVI, 80022) 02030907
207: WRITE (NUVI, 70071) 02040907
208: 70071 FORMAT(1H ,6X,4H3.25) 02050907
209: CT008* TEST 8 - MIXED LIST 02060907
210: IVTNUM = 8 02070907
211: WRITE (NUVI, 80004) IVTNUM 02080907
212: WRITE (NUVI, 80020) 02090907
213: A4VK = 'GOOD' 02100907
214: AVS = 2.5 02110907
215: AVC = (4, -6) 02120907
216: WRITE(NUVI, *) AVC / 2, .TRUE., AVS ** 3, A4VK // 'BYE', 02130907
217: 1 ' FOR NOW' 02140907
218: IVINSP = IVINSP + 1 02150907
219: WRITE (NUVI, 80022) 02160907
220: WRITE (NUVI, 70081) 02170907
221: 70081 FORMAT(1H ,6X,40H (2.0,-3.0) T 15.625 GOODBYE FOR NOW) 02180907
222: CBB** ********************** BBCSUM0 **********************************02190907
223: C**** WRITE OUT TEST SUMMARY 02200907
224: C**** 02210907
225: IVTOTN = IVPASS + IVFAIL + IVDELE + IVINSP 02220907
226: WRITE (I02, 90004) 02230907
227: WRITE (I02, 90014) 02240907
228: WRITE (I02, 90004) 02250907
229: WRITE (I02, 90020) IVPASS 02260907
230: WRITE (I02, 90022) IVFAIL 02270907
231: WRITE (I02, 90024) IVDELE 02280907
232: WRITE (I02, 90026) IVINSP 02290907
233: WRITE (I02, 90028) IVTOTN, IVTOTL 02300907
234: CBE** ********************** BBCSUM0 **********************************02310907
235: CBB** ********************** BBCFOOT0 **********************************02320907
236: C**** WRITE OUT REPORT FOOTINGS 02330907
237: C**** 02340907
238: WRITE (I02,90016) ZPROG, ZPROG 02350907
239: WRITE (I02,90018) ZPROJ, ZNAME, ZTAPE, ZTAPED 02360907
240: WRITE (I02,90019) 02370907
241: CBE** ********************** BBCFOOT0 **********************************02380907
242: CBB** ********************** BBCFMT0A **********************************02390907
243: C**** FORMATS FOR TEST DETAIL LINES 02400907
244: C**** 02410907
245: 80000 FORMAT (1H ,2X,I3,4X,7HDELETED,32X,A31) 02420907
246: 80002 FORMAT (1H ,2X,I3,4X,7H PASS ,32X,A31) 02430907
247: 80004 FORMAT (1H ,2X,I3,4X,7HINSPECT,32X,A31) 02440907
248: 80008 FORMAT (1H ,2X,I3,4X,7H FAIL ,32X,A31) 02450907
249: 80010 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,15X,10HCOMPUTED= , 02460907
250: 1I6,/,1H ,15X,10HCORRECT= ,I6) 02470907
251: 80012 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 02480907
252: 1E12.5,/,1H ,16X,10HCORRECT= ,E12.5) 02490907
253: 80018 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 02500907
254: 1A21,/,1H ,16X,10HCORRECT= ,A21) 02510907
255: 80020 FORMAT (1H ,16X,10HCOMPUTED= ,A21,1X,A31) 02520907
256: 80022 FORMAT (1H ,16X,10HCORRECT= ,A21,1X,A31) 02530907
257: 80024 FORMAT (1H ,16X,10HCOMPUTED= ,I6,16X,A31) 02540907
258: 80026 FORMAT (1H ,16X,10HCORRECT= ,I6,16X,A31) 02550907
259: 80028 FORMAT (1H ,16X,10HCOMPUTED= ,E12.5,10X,A31) 02560907
260: 80030 FORMAT (1H ,16X,10HCORRECT= ,E12.5,10X,A31) 02570907
261: 80050 FORMAT (1H ,48X,A31) 02580907
262: CBE** ********************** BBCFMT0A **********************************02590907
263: CBB** ********************** BBCFMAT1 **********************************02600907
264: C**** FORMATS FOR TEST DETAIL LINES - FULL LANGUAGE 02610907
265: C**** 02620907
266: 80031 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 02630907
267: 1D17.10,/,1H ,16X,10HCORRECT= ,D17.10) 02640907
268: 80033 FORMAT (1H ,16X,10HCOMPUTED= ,D17.10,10X,A31) 02650907
269: 80035 FORMAT (1H ,16X,10HCORRECT= ,D17.10,10X,A31) 02660907
270: 80037 FORMAT (1H ,16X,10HCOMPUTED= ,1H(,E12.5,2H, ,E12.5,1H),6X,A31) 02670907
271: 80039 FORMAT (1H ,16X,10HCORRECT= ,1H(,E12.5,2H, ,E12.5,1H),6X,A31) 02680907
272: 80041 FORMAT (1H ,16X,10HCOMPUTED= ,1H(,F12.5,2H, ,F12.5,1H),6X,A31) 02690907
273: 80043 FORMAT (1H ,16X,10HCORRECT= ,1H(,F12.5,2H, ,F12.5,1H),6X,A31) 02700907
274: 80045 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 02710907
275: 11H(,F12.5,2H, ,F12.5,1H)/,1H ,16X,10HCORRECT= , 02720907
276: 21H(,F12.5,2H, ,F12.5,1H)) 02730907
277: CBE** ********************** BBCFMAT1 **********************************02740907
278: CBB** ********************** BBCFMT0B **********************************02750907
279: C**** FORMAT STATEMENTS FOR PAGE HEADERS 02760907
280: C**** 02770907
281: 90002 FORMAT (1H1) 02780907
282: 90004 FORMAT (1H ) 02790907
283: 90006 FORMAT (1H ,20X,31HFEDERAL SOFTWARE TESTING CENTER) 02800907
284: 90007 FORMAT (1H ,19X,34HFORTRAN COMPILER VALIDATION SYSTEM) 02810907
285: 90008 FORMAT (1H ,21X,A13,A17) 02820907
286: 90009 FORMAT (1H ,/,2H *,A5,6HBEGIN*,12X,15HTEST RESULTS - ,A5,/) 02830907
287: 90010 FORMAT (1H ,8X,16HTEST DATE*TIME= ,A17,15H - COMPILER= ,A20) 02840907
288: 90013 FORMAT (1H ,8H TEST ,10HPASS/FAIL ,6X,17HDISPLAYED RESULTS, 02850907
289: 1 7X,7HREMARKS,24X) 02860907
290: 90014 FORMAT (1H ,46H----------------------------------------------, 02870907
291: 1 33H---------------------------------) 02880907
292: 90015 FORMAT (1H ,48X,17HTHIS PROGRAM HAS ,I3,6H TESTS,/) 02890907
293: C**** 02900907
294: C**** FORMAT STATEMENTS FOR REPORT FOOTINGS 02910907
295: C**** 02920907
296: 90016 FORMAT (1H ,/,2H *,A5,4HEND*,14X,14HEND OF TEST - ,A5,/) 02930907
297: 90018 FORMAT (1H ,A13,13X,A20,7H * ,A10,1H/, 02940907
298: 1 A13) 02950907
299: 90019 FORMAT (1H ,26HFOR OFFICIAL USE ONLY ,35X,15HCOPYRIGHT 1982) 02960907
300: C**** 02970907
301: C**** FORMAT STATEMENTS FOR RUN SUMMARY 02980907
302: C**** 02990907
303: 90020 FORMAT (1H ,21X,I5,13H TESTS PASSED) 03000907
304: 90022 FORMAT (1H ,21X,I5,13H TESTS FAILED) 03010907
305: 90024 FORMAT (1H ,21X,I5,14H TESTS DELETED) 03020907
306: 90026 FORMAT (1H ,21X,I5,25H TESTS REQUIRE INSPECTION) 03030907
307: 90028 FORMAT (1H ,21X,I5,4H OF ,I3,15H TESTS EXECUTED) 03040907
308: CBE** ********************** BBCFMT0B **********************************03050907
309: C***** 03060907
310: C***** END OF TEST SEGMENT 373 03070907
311: STOP 03080907
312: END 03090907
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.