![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to FM905.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 FM905.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***********************************************************************00010905
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 00020905
6: C***** FM905 00030905
7: C***** LSTDO1 - (371) 00040905
8: C***** 00050905
9: C***********************************************************************00060905
10: C***** GENERAL PURPOSE ANS REF 00070905
11: C***** TEST LIST DIRECTED OUTPUT ON 13.6 00080905
12: C***** INTEGER, REAL, LOGICAL, AND CHARACTER DATA TYPES 12.4 00090905
13: C***** 00100905
14: CBB** ********************** BBCCOMNT **********************************00110905
15: C**** 00120905
16: C**** 1978 FORTRAN COMPILER VALIDATION SYSTEM 00130905
17: C**** VERSION 2.0 00140905
18: C**** 00150905
19: C**** 00160905
20: C**** SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00170905
21: C**** GENERAL SERVICES ADMINISTRATION 00180905
22: C**** FEDERAL SOFTWARE TESTING CENTER 00190905
23: C**** 5203 LEESBURG PIKE, SUITE 1100 00200905
24: C**** FALLS CHURCH, VA. 22041 00210905
25: C**** 00220905
26: C**** (703) 756-6153 00230905
27: C**** 00240905
28: CBE** ********************** BBCCOMNT **********************************00250905
29: C***** 00260905
30: C***** S P E C I F I C A T I O N S SEGMENT 371 00270905
31: LOGICAL B1B(3), AVB 00280905
32: CHARACTER A5VK*5, A9VK*9, A33VK*33, A82VK*82 00290905
33: CHARACTER A51K(4)*5 00300905
34: C***** 00310905
35: CBB** ********************** BBCINITA **********************************00320905
36: C**** SPECIFICATION STATEMENTS 00330905
37: C**** 00340905
38: CHARACTER ZVERS*13, ZVERSD*17, ZDATE*17, ZPROG*5, ZCOMPL*20, 00350905
39: 1 ZNAME*20, ZTAPE*10, ZPROJ*13, REMRKS*31, ZTAPED*13 00360905
40: CBE** ********************** BBCINITA **********************************00370905
41: CBB** ********************** BBCINITB **********************************00380905
42: C**** INITIALIZE SECTION 00390905
43: DATA ZVERS, ZVERSD, ZDATE 00400905
44: 1 /'VERSION 2.0 ', '82/08/02*18.33.46', '*NO DATE*TIME'/ 00410905
45: DATA ZCOMPL, ZNAME, ZTAPE 00420905
46: 1 /'*NONE SPECIFIED*', '*NO COMPANY NAME*', '*NO TAPE*'/ 00430905
47: DATA ZPROJ, ZTAPED, ZPROG 00440905
48: 1 /'*NO PROJECT*', '*NO TAPE DATE', 'XXXXX'/ 00450905
49: DATA REMRKS /' '/ 00460905
50: C**** THE FOLLOWING 9 COMMENT LINES (CZ01, CZ02, ...) CAN BE REPLACED 00470905
51: C**** FOR IDENTIFYING THE TEST ENVIRONMENT 00480905
52: C**** 00490905
53: CZ01 ZVERS = 'VERSION OF THE COMPILER VALIDATION SYSTEM' 00500905
54: CZ02 ZVERSD = 'CREATION DATE/TIME OF THE COMPILER VALIDATION SYSTEM' 00510905
55: CZ03 ZPROG = 'PROGRAM NAME' 00520905
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 00590905
63: IVPASS = 0 00600905
64: IVFAIL = 0 00610905
65: IVDELE = 0 00620905
66: IVINSP = 0 00630905
67: IVTOTL = 0 00640905
68: IVTOTN = 0 00650905
69: ICZERO = 0 00660905
70: C 00670905
71: C I01 CONTAINS THE LOGICAL UNIT NUMBER FOR THE CARD READER. 00680905
72: I01 = 05 00690905
73: C I02 CONTAINS THE LOGICAL UNIT NUMBER FOR THE PRINTER. 00700905
74: I02 = 06 00710905
75: C 00720905
76: I01 = 5 00730905
77: C THE CX010 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I01 = 5 00740905
78: CX011 REPLACED BY FEXEC X-011 CONTROL CARD. CX011 IS FOR SYSTEMS 00750905
79: C REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX010. 00760905
80: C 00770905
81: I02 = 6 00780905
82: C THE CX020 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I02= 6 00790905
83: CX021 REPLACED BY FEXEC X-021 CONTROL CARD. CX021 IS FOR SYSTEMS 00800905
84: C REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX020. 00810905
85: C 00820905
86: CBE** ********************** BBCINITB **********************************00830905
87: NUVI = I02 00840905
88: IVTOTL = 10 00850905
89: ZPROG = 'FM905' 00860905
90: CBB** ********************** BBCHED0A **********************************00870905
91: C**** 00880905
92: C**** WRITE REPORT TITLE 00890905
93: C**** 00900905
94: WRITE (I02, 90002) 00910905
95: WRITE (I02, 90006) 00920905
96: WRITE (I02, 90007) 00930905
97: WRITE (I02, 90008) ZVERS, ZVERSD 00940905
98: WRITE (I02, 90009) ZPROG, ZPROG 00950905
99: WRITE (I02, 90010) ZDATE, ZCOMPL 00960905
100: CBE** ********************** BBCHED0A **********************************00970905
101: C***** 00980905
102: C***** HEADING FOR SEGMENT 371 00990905
103: WRITE(NUVI,37100) 01000905
104: 37100 FORMAT(1H , /16H LSTDO1 - (371) , 01010905
105: 1 43H LIST DIRECTED OUTPUT FOR SUBSET DATA TYPES// 01020905
106: 2 22H ANS REF. - 13.6 12.4) 01030905
107: CBB** ********************** BBCHED0B **********************************01040905
108: C**** WRITE DETAIL REPORT HEADERS 01050905
109: C**** 01060905
110: WRITE (I02,90004) 01070905
111: WRITE (I02,90004) 01080905
112: WRITE (I02,90013) 01090905
113: WRITE (I02,90014) 01100905
114: WRITE (I02,90015) IVTOTL 01110905
115: CBE** ********************** BBCHED0B **********************************01120905
116: WRITE (NUVI, 70000) 01130905
117: 70000 FORMAT (1H ,48X,31HTHE CORRECT LINE OF EACH TEST / 01140905
118: 1 1H ,48X,31HIS HOLLERITH INFORMATION. / 01150905
119: 2 1H ,48X,31HCOLUMN SPACING, LINE BREAKS, / 01160905
120: 3 1H ,48X,31HAND THE NUMBER OF DECIMAL / 01170905
121: 4 1H ,48X,31HPLACES FOR REAL NUMBERS ARE / 01180905
122: 5 1H ,48X,31HPROCESSOR DEPENDENT. / 01190905
123: 6 1H ,48X,31HEITHER E OR F FORMAT MAY BE / 01200905
124: 7 1H ,48X,31HUSED FOR REAL NUMBERS. /) 01210905
125: CT001* TEST 1 - INTEGER 01220905
126: IVTNUM = 1 01230905
127: WRITE (NUVI, 80004) IVTNUM 01240905
128: WRITE (NUVI, 80020) 01250905
129: IVI = 2 01260905
130: WRITE(NUVI, *) IVI 01270905
131: IVINSP = IVINSP + 1 01280905
132: WRITE (NUVI, 80022) 01290905
133: WRITE (NUVI, 70011) 01300905
134: 70011 FORMAT (1H ,6X,1H2) 01310905
135: CT002* TEST 2 - SEVERAL INTEGERS 01320905
136: IVTNUM = 2 01330905
137: WRITE (NUVI, 80004) IVTNUM 01340905
138: WRITE (NUVI, 80020) 01350905
139: IVI = 1 01360905
140: JVI = 3 01370905
141: KVI = 5 01380905
142: LVI = 7 01390905
143: MVI = 9 01400905
144: WRITE(NUVI, *) IVI, JVI, KVI, LVI, MVI 01410905
145: IVINSP = IVINSP + 1 01420905
146: WRITE (NUVI, 80022) 01430905
147: WRITE (NUVI, 70021) 01440905
148: 70021 FORMAT (1H ,6X,13H1 3 5 7 9) 01450905
149: CT003* TEST 3 - REAL 01460905
150: IVTNUM = 3 01470905
151: WRITE (NUVI, 80004) IVTNUM 01480905
152: WRITE (NUVI, 80020) 01490905
153: AVS = 2.5 01500905
154: WRITE(NUVI, *) AVS 01510905
155: IVINSP = IVINSP + 1 01520905
156: WRITE (NUVI, 80022) 01530905
157: WRITE (NUVI, 70031) 01540905
158: 70031 FORMAT (1H ,6X,3H2.5) 01550905
159: CT004* TEST 4 - SEVERAL REALS 01560905
160: IVTNUM = 4 01570905
161: WRITE (NUVI, 80004) IVTNUM 01580905
162: WRITE (NUVI, 80020) 01590905
163: AVS = 0.25E-10 01600905
164: BVS = 0.25 01610905
165: CVS = 0.25E+3 01620905
166: DVS = 0.25E+10 01630905
167: WRITE(NUVI, *) AVS, BVS, CVS, DVS 01640905
168: IVINSP = IVINSP + 1 01650905
169: WRITE (NUVI, 80022) 01660905
170: WRITE (NUVI, 70041) 01670905
171: 70041 FORMAT(1H ,6X,31H 2.5E-11 0.25 250.0 2.5E+09) 01680*TI
172: CT005* TEST 5 - IMPLIED-DO TO PRINT ARRAY OF LOGICALS 01690905
173: IVTNUM = 5 01700905
174: WRITE (NUVI, 80004) IVTNUM 01710905
175: WRITE (NUVI, 80020) 01720905
176: B1B(1) = .TRUE. 01730905
177: B1B(2) = .FALSE. 01740905
178: B1B(3) = .TRUE. 01750905
179: WRITE(NUVI, *) (B1B(IVI), IVI = 1,3) 01760905
180: IVINSP = IVINSP + 1 01770905
181: WRITE (NUVI, 80022) 01780905
182: WRITE (NUVI, 70051) 01790905
183: 70051 FORMAT(1H ,6X,7HT F T) 01800905
184: CT006* TEST 6 - LIST OF CHARACTER VALUES, USING ARRAY NAME 01810905
185: IVTNUM = 6 01820905
186: WRITE (NUVI, 80004) IVTNUM 01830905
187: WRITE (NUVI, 80020) 01840905
188: A51K(1) = 'ONE ' 01850905
189: A51K(2) = 'TWO ' 01860905
190: A51K(3) = 'THREE' 01870905
191: A51K(4) = 'FOUR ' 01880905
192: WRITE(NUVI, *) A51K 01890905
193: IVINSP = IVINSP + 1 01900905
194: WRITE (NUVI, 80022) 01910905
195: WRITE (NUVI, 70061) 01920905
196: 70061 FORMAT(1H ,6X,20HONE TWO THREEFOUR ) 01930905
197: CT007* TEST 7 - MIXED LIST 01940905
198: IVTNUM = 7 01950905
199: WRITE (NUVI, 80004) IVTNUM 01960905
200: WRITE (NUVI, 80020) 01970905
201: IVI = -3 01980905
202: AVS = 15.25 01990905
203: AVB = .TRUE. 02000905
204: A5VK = 'HELLO' 02010905
205: WRITE(NUVI,*) IVI, AVS, A5VK, AVB 02020905
206: IVINSP = IVINSP + 1 02030905
207: WRITE (NUVI, 80022) 02040905
208: WRITE (NUVI, 70071) 02050905
209: 70071 FORMAT(1H ,6X,19H-3 15.25 HELLO T) 02060905
210: CT008* TEST 8 - CHARACTER CONSTANT CONTAINING EMBEDDED ' 02070905
211: IVTNUM = 8 02080905
212: WRITE (NUVI, 80004) IVTNUM 02090905
213: WRITE (NUVI, 80020) 02100905
214: A9VK = '5 O''CLOCK' 02110905
215: WRITE(NUVI, *) A9VK 02120905
216: IVINSP = IVINSP + 1 02130905
217: WRITE (NUVI, 80022) 02140905
218: WRITE (NUVI, 70081) 02150905
219: 70081 FORMAT(1H ,6X,9H5 O'CLOCK) 02160905
220: CT009* TEST 9 - CHARACTER CONSTANT SPILLING OVER RECORD BOUNDARY 02170905
221: IVTNUM = 9 02180905
222: WRITE (NUVI, 80004) IVTNUM 02190905
223: WRITE (NUVI, 80020) 02200905
224: A5VK = 'SHORT' 02210905
225: A33VK = 'THIS IS A LONGER CHARACTER STRING' 02220905
226: A82VK = '123456789012345678901234567890123456789012345678901234502230905
227: 167890123456789012' 02240905
228: WRITE(NUVI, *) A5VK, A33VK, A82VK 02250905
229: IVINSP = IVINSP + 1 02260905
230: WRITE (NUVI, 80022) 02270905
231: WRITE (NUVI, 70091) 02280905
232: 70091 FORMAT(1H , 40HSHORT THIS IS A LONGER CHARACTER STRING, 02290905
233: 1 40H 123456789012345678901234567890123456789/ 02300905
234: 2 1H ,33H012345678901234567890123456789012) 02310905
235: CT010* TEST 10 - SEVERAL IDENTICAL VALUES 02320905
236: IVTNUM = 10 02330905
237: WRITE (NUVI, 80004) IVTNUM 02340905
238: WRITE (NUVI, 80020) 02350905
239: IVI = 5 02360905
240: JVI = 5 02370905
241: KVI = 5 02380905
242: LVI = 5 02390905
243: MVI = 5 02400905
244: WRITE(NUVI, *) IVI, JVI, KVI, LVI, MVI 02410905
245: IVINSP = IVINSP + 1 02420905
246: WRITE (NUVI, 80022) 02430905
247: WRITE (NUVI, 70101) 02440905
248: 70101 FORMAT(1H ,6X,22H5 5 5 5 5 OR 5*5) 02450905
249: CBB** ********************** BBCSUM0 **********************************02460905
250: C**** WRITE OUT TEST SUMMARY 02470905
251: C**** 02480905
252: IVTOTN = IVPASS + IVFAIL + IVDELE + IVINSP 02490905
253: WRITE (I02, 90004) 02500905
254: WRITE (I02, 90014) 02510905
255: WRITE (I02, 90004) 02520905
256: WRITE (I02, 90020) IVPASS 02530905
257: WRITE (I02, 90022) IVFAIL 02540905
258: WRITE (I02, 90024) IVDELE 02550905
259: WRITE (I02, 90026) IVINSP 02560905
260: WRITE (I02, 90028) IVTOTN, IVTOTL 02570905
261: CBE** ********************** BBCSUM0 **********************************02580905
262: CBB** ********************** BBCFOOT0 **********************************02590905
263: C**** WRITE OUT REPORT FOOTINGS 02600905
264: C**** 02610905
265: WRITE (I02,90016) ZPROG, ZPROG 02620905
266: WRITE (I02,90018) ZPROJ, ZNAME, ZTAPE, ZTAPED 02630905
267: WRITE (I02,90019) 02640905
268: CBE** ********************** BBCFOOT0 **********************************02650905
269: CBB** ********************** BBCFMT0A **********************************02660905
270: C**** FORMATS FOR TEST DETAIL LINES 02670905
271: C**** 02680905
272: 80000 FORMAT (1H ,2X,I3,4X,7HDELETED,32X,A31) 02690905
273: 80002 FORMAT (1H ,2X,I3,4X,7H PASS ,32X,A31) 02700905
274: 80004 FORMAT (1H ,2X,I3,4X,7HINSPECT,32X,A31) 02710905
275: 80008 FORMAT (1H ,2X,I3,4X,7H FAIL ,32X,A31) 02720905
276: 80010 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,15X,10HCOMPUTED= , 02730905
277: 1I6,/,1H ,15X,10HCORRECT= ,I6) 02740905
278: 80012 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 02750905
279: 1E12.5,/,1H ,16X,10HCORRECT= ,E12.5) 02760905
280: 80018 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 02770905
281: 1A21,/,1H ,16X,10HCORRECT= ,A21) 02780905
282: 80020 FORMAT (1H ,16X,10HCOMPUTED= ,A21,1X,A31) 02790905
283: 80022 FORMAT (1H ,16X,10HCORRECT= ,A21,1X,A31) 02800905
284: 80024 FORMAT (1H ,16X,10HCOMPUTED= ,I6,16X,A31) 02810905
285: 80026 FORMAT (1H ,16X,10HCORRECT= ,I6,16X,A31) 02820905
286: 80028 FORMAT (1H ,16X,10HCOMPUTED= ,E12.5,10X,A31) 02830905
287: 80030 FORMAT (1H ,16X,10HCORRECT= ,E12.5,10X,A31) 02840905
288: 80050 FORMAT (1H ,48X,A31) 02850905
289: CBE** ********************** BBCFMT0A **********************************02860905
290: CBB** ********************** BBCFMAT1 **********************************02870905
291: C**** FORMATS FOR TEST DETAIL LINES - FULL LANGUAGE 02880905
292: C**** 02890905
293: 80031 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 02900905
294: 1D17.10,/,1H ,16X,10HCORRECT= ,D17.10) 02910905
295: 80033 FORMAT (1H ,16X,10HCOMPUTED= ,D17.10,10X,A31) 02920905
296: 80035 FORMAT (1H ,16X,10HCORRECT= ,D17.10,10X,A31) 02930905
297: 80037 FORMAT (1H ,16X,10HCOMPUTED= ,1H(,E12.5,2H, ,E12.5,1H),6X,A31) 02940905
298: 80039 FORMAT (1H ,16X,10HCORRECT= ,1H(,E12.5,2H, ,E12.5,1H),6X,A31) 02950905
299: 80041 FORMAT (1H ,16X,10HCOMPUTED= ,1H(,F12.5,2H, ,F12.5,1H),6X,A31) 02960905
300: 80043 FORMAT (1H ,16X,10HCORRECT= ,1H(,F12.5,2H, ,F12.5,1H),6X,A31) 02970905
301: 80045 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 02980905
302: 11H(,F12.5,2H, ,F12.5,1H)/,1H ,16X,10HCORRECT= , 02990905
303: 21H(,F12.5,2H, ,F12.5,1H)) 03000905
304: CBE** ********************** BBCFMAT1 **********************************03010905
305: CBB** ********************** BBCFMT0B **********************************03020905
306: C**** FORMAT STATEMENTS FOR PAGE HEADERS 03030905
307: C**** 03040905
308: 90002 FORMAT (1H1) 03050905
309: 90004 FORMAT (1H ) 03060905
310: 90006 FORMAT (1H ,20X,31HFEDERAL SOFTWARE TESTING CENTER) 03070905
311: 90007 FORMAT (1H ,19X,34HFORTRAN COMPILER VALIDATION SYSTEM) 03080905
312: 90008 FORMAT (1H ,21X,A13,A17) 03090905
313: 90009 FORMAT (1H ,/,2H *,A5,6HBEGIN*,12X,15HTEST RESULTS - ,A5,/) 03100905
314: 90010 FORMAT (1H ,8X,16HTEST DATE*TIME= ,A17,15H - COMPILER= ,A20) 03110905
315: 90013 FORMAT (1H ,8H TEST ,10HPASS/FAIL ,6X,17HDISPLAYED RESULTS, 03120905
316: 1 7X,7HREMARKS,24X) 03130905
317: 90014 FORMAT (1H ,46H----------------------------------------------, 03140905
318: 1 33H---------------------------------) 03150905
319: 90015 FORMAT (1H ,48X,17HTHIS PROGRAM HAS ,I3,6H TESTS,/) 03160905
320: C**** 03170905
321: C**** FORMAT STATEMENTS FOR REPORT FOOTINGS 03180905
322: C**** 03190905
323: 90016 FORMAT (1H ,/,2H *,A5,4HEND*,14X,14HEND OF TEST - ,A5,/) 03200905
324: 90018 FORMAT (1H ,A13,13X,A20,7H * ,A10,1H/, 03210905
325: 1 A13) 03220905
326: 90019 FORMAT (1H ,26HFOR OFFICIAL USE ONLY ,35X,15HCOPYRIGHT 1982) 03230905
327: C**** 03240905
328: C**** FORMAT STATEMENTS FOR RUN SUMMARY 03250905
329: C**** 03260905
330: 90020 FORMAT (1H ,21X,I5,13H TESTS PASSED) 03270905
331: 90022 FORMAT (1H ,21X,I5,13H TESTS FAILED) 03280905
332: 90024 FORMAT (1H ,21X,I5,14H TESTS DELETED) 03290905
333: 90026 FORMAT (1H ,21X,I5,25H TESTS REQUIRE INSPECTION) 03300905
334: 90028 FORMAT (1H ,21X,I5,4H OF ,I3,15H TESTS EXECUTED) 03310905
335: CBE** ********************** BBCFMT0B **********************************03320905
336: C***** 03330905
337: C***** END OF TEST SEGMENT 371 03340905
338: STOP 03350905
339: END 03360905
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.