![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to FM901.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 FM901.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***********************************************************************00010901
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 00020901
6: C***** FM901 AFMTF - (023) 00030901
7: C***** 00040901
8: C***********************************************************************00050901
9: C***** GENERAL PURPOSE ANS REFS00060901
10: C***** TO TEST SIMPLE FORMAT AND FORMATTED DATA 12.9.5.200070901
11: C***** TRANSFER STATEMENTS IN EXTERNAL SEQUENTIAL I/O SO 13.1.1 00080901
12: C***** THAT THESE FEATURES MAY BE USED IN OTHER TEST 12.8.1 00090901
13: C***** PROGRAM SEGMENTS FOR CHARACTER DATA TYPES. 4.8 00100901
14: C***** TO TEST READ AND WRITE OF SUBSTRINGS. 5.7 00110901
15: C***** 00120901
16: C***** RESTRICTIONS OBSERVED 00130901
17: C***** * ALL FORMAT STATEMENTS ARE LABELED 12.8.2 00140901
18: C***** * H AND X DESCRIPTORS ARE NEVER REPEATED 13.1.1 00150901
19: C***** * FIELD WIDTH IS NEVER ZERO 13.5.11 00160901
20: C***** * IF AN I/O LIST SPECIFIES AT LEAST ONE LIST ITEM 13.3 00170901
21: C***** AT LEAST ONE REPEATABLE EDIT DESCRIPTOR MUST EXIST 00180901
22: C***** IN THE FORMAT SPECIFICATION. 00190901
23: C***** * ITEMS IN I/O LIST CORRESPOND TO FORMAT DESCRIPTORS 13.3 00200901
24: C***** 00210901
25: CBB** ********************** BBCCOMNT **********************************00220901
26: C**** 00230901
27: C**** 1978 FORTRAN COMPILER VALIDATION SYSTEM 00240901
28: C**** VERSION 2.0 00250901
29: C**** 00260901
30: C**** 00270901
31: C**** SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00280901
32: C**** GENERAL SERVICES ADMINISTRATION 00290901
33: C**** FEDERAL SOFTWARE TESTING CENTER 00300901
34: C**** 5203 LEESBURG PIKE, SUITE 1100 00310901
35: C**** FALLS CHURCH, VA. 22041 00320901
36: C**** 00330901
37: C**** (703) 756-6153 00340901
38: C**** 00350901
39: CBE** ********************** BBCCOMNT **********************************00360901
40: C***** 00370901
41: C INPUT DATA TO THIS SEG. CONSISTS OF 5 DATA CARD IMAGES IN COLS. 1 - 5200380901
42: COL. 1-------------------------------------------------52 00390901
43: CARD 1 XYZ123:45$'),.JKLABCDEF67890MNOPQRSTUVW =+-*/(GHI 00400901
44: CARD 2 ONEFIVENINEELEVENSEVENTHREE 00410901
45: CARD 3 SQUARE THE WORLD IN 40 NIGHTS 00420901
46: CARD 4 DAYS 80AROUND 00430901
47: CARD 5 TO XXXXX NOT TO XXXX- THAT IS THE QUESTIONXXBE ORBE 00440901
48: C***** 00450901
49: C***** S P E C I F I C A T I O N S SEGMENT 023 00460901
50: C***** 00470901
51: CHARACTER*13 A13VK 00480901
52: CHARACTER*27 A27VK 00490901
53: CHARACTER*29 A29VK 00500901
54: CHARACTER*36 A36VK 00510901
55: CHARACTER*43 B43VK 00520901
56: C***** 00530901
57: CBB** ********************** BBCINITA **********************************00540901
58: C**** SPECIFICATION STATEMENTS 00550901
59: C**** 00560901
60: CHARACTER ZVERS*13, ZVERSD*17, ZDATE*17, ZPROG*5, ZCOMPL*20, 00570901
61: 1 ZNAME*20, ZTAPE*10, ZPROJ*13, REMRKS*31, ZTAPED*13 00580901
62: CBE** ********************** BBCINITA **********************************00590901
63: CBB** ********************** BBCINITB **********************************00600901
64: C**** INITIALIZE SECTION 00610901
65: DATA ZVERS, ZVERSD, ZDATE 00620901
66: 1 /'VERSION 2.0 ', '82/08/02*18.33.46', '*NO DATE*TIME'/ 00630901
67: DATA ZCOMPL, ZNAME, ZTAPE 00640901
68: 1 /'*NONE SPECIFIED*', '*NO COMPANY NAME*', '*NO TAPE*'/ 00650901
69: DATA ZPROJ, ZTAPED, ZPROG 00660901
70: 1 /'*NO PROJECT*', '*NO TAPE DATE', 'XXXXX'/ 00670901
71: DATA REMRKS /' '/ 00680901
72: C**** THE FOLLOWING 9 COMMENT LINES (CZ01, CZ02, ...) CAN BE REPLACED 00690901
73: C**** FOR IDENTIFYING THE TEST ENVIRONMENT 00700901
74: C**** 00710901
75: CZ01 ZVERS = 'VERSION OF THE COMPILER VALIDATION SYSTEM' 00720901
76: CZ02 ZVERSD = 'CREATION DATE/TIME OF THE COMPILER VALIDATION SYSTEM' 00730901
77: CZ03 ZPROG = 'PROGRAM NAME' 00740901
78: ZDATE = '07-Nov-85 ' *RP
79: ZCOMPL = 'CCI 5.2 ' *RP
80: ZPROJ = 'TC-85- -410' *RP
81: ZNAME = ' ' *RP
82: ZTAPE = ' ' *RP
83: ZTAPED = '850703 ' *RP
84: C 00810901
85: IVPASS = 0 00820901
86: IVFAIL = 0 00830901
87: IVDELE = 0 00840901
88: IVINSP = 0 00850901
89: IVTOTL = 0 00860901
90: IVTOTN = 0 00870901
91: ICZERO = 0 00880901
92: C 00890901
93: C I01 CONTAINS THE LOGICAL UNIT NUMBER FOR THE CARD READER. 00900901
94: I01 = 05 00910901
95: C I02 CONTAINS THE LOGICAL UNIT NUMBER FOR THE PRINTER. 00920901
96: I02 = 06 00930901
97: C 00940901
98: I01 = 5 00950901
99: C THE CX010 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I01 = 5 00960901
100: CX011 REPLACED BY FEXEC X-011 CONTROL CARD. CX011 IS FOR SYSTEMS 00970901
101: C REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX010. 00980901
102: C 00990901
103: I02 = 6 01000901
104: C THE CX020 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I02= 6 01010901
105: CX021 REPLACED BY FEXEC X-021 CONTROL CARD. CX021 IS FOR SYSTEMS 01020901
106: C REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX020. 01030901
107: C 01040901
108: CBE** ********************** BBCINITB **********************************01050901
109: IRVI = I01 01060901
110: NUVI = I02 01070901
111: IVTOTL = 4 01080901
112: ZPROG = 'FM901' 01090901
113: CBB** ********************** BBCHED0A **********************************01100901
114: C**** 01110901
115: C**** WRITE REPORT TITLE 01120901
116: C**** 01130901
117: WRITE (I02, 90002) 01140901
118: WRITE (I02, 90006) 01150901
119: WRITE (I02, 90007) 01160901
120: WRITE (I02, 90008) ZVERS, ZVERSD 01170901
121: WRITE (I02, 90009) ZPROG, ZPROG 01180901
122: WRITE (I02, 90010) ZDATE, ZCOMPL 01190901
123: CBE** ********************** BBCHED0A **********************************01200901
124: C***** 01210901
125: C***** HEADER FOR SEGMENT 23 01220901
126: WRITE (NUVI,02300) 01230901
127: 02300 FORMAT(1H , /1X,38H AFMTF - (023) FORMATTED DATA TRANSFER// 01240901
128: 1 1X,35H USING A-CONVERSION WITH SUBSTRINGS//1X, 01250901
129: 2 31H REFS - 12.9.5.2 13.3 13.5.11) 01260901
130: CBB** ********************** BBCHED0B **********************************01270901
131: C**** WRITE DETAIL REPORT HEADERS 01280901
132: C**** 01290901
133: WRITE (I02,90004) 01300901
134: WRITE (I02,90004) 01310901
135: WRITE (I02,90013) 01320901
136: WRITE (I02,90014) 01330901
137: WRITE (I02,90015) IVTOTL 01340901
138: CBE** ********************** BBCHED0B **********************************01350901
139: C***** 01360901
140: C***** TEST THAT DATA MAY BE READ IN A SERIES OF SUBSTRINGS, 5.701370901
141: C***** NOT NECESSARILY IN THE ORDER OF POSITION IN THE STRING, 12.8.201380901
142: C***** AND CAN BE WRITTEN AS A CHARACTER STRING. 13.5.1101390901
143: C***** SHOW ALSO THAT THE FULL FORTRAN CHARACTER SET CAN BE READ 3.101400901
144: C***** (INCLUDES $ AND :) 01410901
145: C***** 01420901
146: C***** INPUT CARD 1 01430901
147: READ(IRVI, 02301) A36VK(24:29), A13VK(13:13), A36VK(30:31), 01440901
148: 1 A13VK(11:12), A13VK(8:10), A36VK(10:12), A36VK(:6), 01450901
149: 2 A36VK(32:), A36VK(13:23), A13VK(1:7), A36VK(7:9) 01460901
150: 02301 FORMAT(A6, A1, 2A2, A3, A3, A6, A5, A11, A7, A3) 01470901
151: CT001* TEST 1 01480901
152: IVTNUM = 1 01490901
153: REMRKS = '2 SETS OF 2 COMPUTED LINES ' 01500901
154: WRITE (NUVI, 80004) IVTNUM, REMRKS 01510901
155: REMRKS = 'EXPECTED ' 01520901
156: WRITE (NUVI, 80050) REMRKS 01530901
157: WRITE (NUVI, 80020) 01540901
158: WRITE (NUVI, 70010) A36VK(1:6), A36VK(7:9), A36VK(10:12), 01550901
159: 1 A36VK(13:23), A36VK(24:29), A36VK(30:31), A36VK(32:36), 01560901
160: 2 A36VK, A13VK(:7), A13VK(8:10), A13VK(11:12), A13VK(13:), 01570901
161: 3 A13VK 01580901
162: 70010 FORMAT (26X,A6,2(A3),A11,A6,A2,A5/26X,A36//26X,A7,A3,A2,A1/ 01590901
163: 1 26X,A13) 01600901
164: IVINSP = IVINSP + 1 01610901
165: WRITE (NUVI, 70011) 01620901
166: 70011 FORMAT(1H ,16X,10HCORRECT: ,22X,32HCORRESPONDING LINE(S) MUST M01630901
167: 1ATCH) 01640901
168: WRITE (NUVI, 70012) 01650901
169: 70012 FORMAT(26X,36HABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890/ 01660901
170: 1 26X,13H =+-*/(),.$':) 01670901
171: C***** 01680901
172: C***** TEST THAT A CHARACTER VARIABLE CAN BE OUTPUT AS SUBSTRINGS. 01690901
173: C***** 13.5.1101700901
174: C***** INPUT CARD 2 01710901
175: READ(IRVI, 02303) A27VK 01720901
176: 02303 FORMAT(A27) 01730901
177: CT002* TEST 2 01740901
178: IVTNUM = 2 01750901
179: WRITE (NUVI, 80004) IVTNUM 01760901
180: WRITE (NUVI, 80020) 01770901
181: WRITE(NUVI, 70020) A27VK(1:3), A27VK(23:27), A27VK(4:7), 01780901
182: 1 A27VK(18:22), A27VK(8:11), A27VK(12:17) 01790901
183: 70020 FORMAT(26X,A3,A6,A5,A6,A5,A7) 01800901
184: IVINSP = IVINSP + 1 01810901
185: WRITE (NUVI, 80022) 01820901
186: WRITE (NUVI, 70022) 01830901
187: 70022 FORMAT(26X,32HONE THREE FIVE SEVEN NINE ELEVEN) 01840901
188: C***** 01850901
189: C***** TEST THAT A SUBSTRING CAN BE READ IN, AND PARTIALLY REPLACE 01860901
190: C***** A PREVIOUSLY READ CHARACTER STRING. 13.5.1101870901
191: C***** THIS SHOWS THAT THE LENGTH IS DERIVED FROM THE SUBSTRING, 01880901
192: C***** AND NOT THE CHARACTER VARIABLE LENGTH. 01890901
193: C***** 01900901
194: C***** INPUT CARDS 3-4 01910901
195: READ(IRVI, 02305) A29VK, A29VK(24:29), A29VK(21:22), A29VK(1:6)01920901
196: 02305 FORMAT(A29/A,2A) 01930901
197: CT003* TEST 3 01940901
198: IVTNUM = 3 01950901
199: WRITE (NUVI, 80004) IVTNUM 01960901
200: WRITE (NUVI, 80020) 01970901
201: WRITE(NUVI, 70030) A29VK(1:3), A29VK(4:21), A29VK(22:29) 01980901
202: 70030 FORMAT (26X,3(A)) 01990901
203: IVINSP = IVINSP + 1 02000901
204: WRITE (NUVI, 80022) 02010901
205: WRITE (NUVI, 70032) 02020901
206: 70032 FORMAT(25X,30H AROUND THE WORLD IN 80 DAYS ) 02030901
207: C***** 02040901
208: C***** SPECIFIED FIELD WIDTH IN A A-EDIT DESCRIPTOR 02050901
209: C***** IS DIFFERENT FROM SUBSTRING LENGTH 02060901
210: C***** 02070901
211: C***** INPUT CARD 5 02080901
212: READ(IRVI, 02307) B43VK, B43VK(4:8), B43VK(17:20) 02090901
213: 02307 FORMAT(A43, A7, A2) 02100901
214: CT004* TEST 4 02110901
215: IVTNUM = 4 02120901
216: WRITE (NUVI, 80004) IVTNUM 02130901
217: WRITE (NUVI, 80020) 02140901
218: WRITE (NUVI, 70040) B43VK(:) 02150901
219: 70040 FORMAT (26X,A20) 02160901
220: IVINSP = IVINSP + 1 02170901
221: WRITE (NUVI, 80022) 02180901
222: WRITE (NUVI, 70042) 02190901
223: 70042 FORMAT(26X,20HTO BE OR NOT TO BE ) 02200901
224: C***** 02210901
225: CBB** ********************** BBCSUM0 **********************************02220901
226: C**** WRITE OUT TEST SUMMARY 02230901
227: C**** 02240901
228: IVTOTN = IVPASS + IVFAIL + IVDELE + IVINSP 02250901
229: WRITE (I02, 90004) 02260901
230: WRITE (I02, 90014) 02270901
231: WRITE (I02, 90004) 02280901
232: WRITE (I02, 90020) IVPASS 02290901
233: WRITE (I02, 90022) IVFAIL 02300901
234: WRITE (I02, 90024) IVDELE 02310901
235: WRITE (I02, 90026) IVINSP 02320901
236: WRITE (I02, 90028) IVTOTN, IVTOTL 02330901
237: CBE** ********************** BBCSUM0 **********************************02340901
238: CBB** ********************** BBCFOOT0 **********************************02350901
239: C**** WRITE OUT REPORT FOOTINGS 02360901
240: C**** 02370901
241: WRITE (I02,90016) ZPROG, ZPROG 02380901
242: WRITE (I02,90018) ZPROJ, ZNAME, ZTAPE, ZTAPED 02390901
243: WRITE (I02,90019) 02400901
244: CBE** ********************** BBCFOOT0 **********************************02410901
245: CBB** ********************** BBCFMT0A **********************************02420901
246: C**** FORMATS FOR TEST DETAIL LINES 02430901
247: C**** 02440901
248: 80000 FORMAT (1H ,2X,I3,4X,7HDELETED,32X,A31) 02450901
249: 80002 FORMAT (1H ,2X,I3,4X,7H PASS ,32X,A31) 02460901
250: 80004 FORMAT (1H ,2X,I3,4X,7HINSPECT,32X,A31) 02470901
251: 80008 FORMAT (1H ,2X,I3,4X,7H FAIL ,32X,A31) 02480901
252: 80010 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,15X,10HCOMPUTED= , 02490901
253: 1I6,/,1H ,15X,10HCORRECT= ,I6) 02500901
254: 80012 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 02510901
255: 1E12.5,/,1H ,16X,10HCORRECT= ,E12.5) 02520901
256: 80018 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 02530901
257: 1A21,/,1H ,16X,10HCORRECT= ,A21) 02540901
258: 80020 FORMAT (1H ,16X,10HCOMPUTED= ,A21,1X,A31) 02550901
259: 80022 FORMAT (1H ,16X,10HCORRECT= ,A21,1X,A31) 02560901
260: 80024 FORMAT (1H ,16X,10HCOMPUTED= ,I6,16X,A31) 02570901
261: 80026 FORMAT (1H ,16X,10HCORRECT= ,I6,16X,A31) 02580901
262: 80028 FORMAT (1H ,16X,10HCOMPUTED= ,E12.5,10X,A31) 02590901
263: 80030 FORMAT (1H ,16X,10HCORRECT= ,E12.5,10X,A31) 02600901
264: 80050 FORMAT (1H ,48X,A31) 02610901
265: CBE** ********************** BBCFMT0A **********************************02620901
266: CBB** ********************** BBCFMAT1 **********************************02630901
267: C**** FORMATS FOR TEST DETAIL LINES - FULL LANGUAGE 02640901
268: C**** 02650901
269: 80031 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 02660901
270: 1D17.10,/,1H ,16X,10HCORRECT= ,D17.10) 02670901
271: 80033 FORMAT (1H ,16X,10HCOMPUTED= ,D17.10,10X,A31) 02680901
272: 80035 FORMAT (1H ,16X,10HCORRECT= ,D17.10,10X,A31) 02690901
273: 80037 FORMAT (1H ,16X,10HCOMPUTED= ,1H(,E12.5,2H, ,E12.5,1H),6X,A31) 02700901
274: 80039 FORMAT (1H ,16X,10HCORRECT= ,1H(,E12.5,2H, ,E12.5,1H),6X,A31) 02710901
275: 80041 FORMAT (1H ,16X,10HCOMPUTED= ,1H(,F12.5,2H, ,F12.5,1H),6X,A31) 02720901
276: 80043 FORMAT (1H ,16X,10HCORRECT= ,1H(,F12.5,2H, ,F12.5,1H),6X,A31) 02730901
277: 80045 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 02740901
278: 11H(,F12.5,2H, ,F12.5,1H)/,1H ,16X,10HCORRECT= , 02750901
279: 21H(,F12.5,2H, ,F12.5,1H)) 02760901
280: CBE** ********************** BBCFMAT1 **********************************02770901
281: CBB** ********************** BBCFMT0B **********************************02780901
282: C**** FORMAT STATEMENTS FOR PAGE HEADERS 02790901
283: C**** 02800901
284: 90002 FORMAT (1H1) 02810901
285: 90004 FORMAT (1H ) 02820901
286: 90006 FORMAT (1H ,20X,31HFEDERAL SOFTWARE TESTING CENTER) 02830901
287: 90007 FORMAT (1H ,19X,34HFORTRAN COMPILER VALIDATION SYSTEM) 02840901
288: 90008 FORMAT (1H ,21X,A13,A17) 02850901
289: 90009 FORMAT (1H ,/,2H *,A5,6HBEGIN*,12X,15HTEST RESULTS - ,A5,/) 02860901
290: 90010 FORMAT (1H ,8X,16HTEST DATE*TIME= ,A17,15H - COMPILER= ,A20) 02870901
291: 90013 FORMAT (1H ,8H TEST ,10HPASS/FAIL ,6X,17HDISPLAYED RESULTS, 02880901
292: 1 7X,7HREMARKS,24X) 02890901
293: 90014 FORMAT (1H ,46H----------------------------------------------, 02900901
294: 1 33H---------------------------------) 02910901
295: 90015 FORMAT (1H ,48X,17HTHIS PROGRAM HAS ,I3,6H TESTS,/) 02920901
296: C**** 02930901
297: C**** FORMAT STATEMENTS FOR REPORT FOOTINGS 02940901
298: C**** 02950901
299: 90016 FORMAT (1H ,/,2H *,A5,4HEND*,14X,14HEND OF TEST - ,A5,/) 02960901
300: 90018 FORMAT (1H ,A13,13X,A20,7H * ,A10,1H/, 02970901
301: 1 A13) 02980901
302: 90019 FORMAT (1H ,26HFOR OFFICIAL USE ONLY ,35X,15HCOPYRIGHT 1982) 02990901
303: C**** 03000901
304: C**** FORMAT STATEMENTS FOR RUN SUMMARY 03010901
305: C**** 03020901
306: 90020 FORMAT (1H ,21X,I5,13H TESTS PASSED) 03030901
307: 90022 FORMAT (1H ,21X,I5,13H TESTS FAILED) 03040901
308: 90024 FORMAT (1H ,21X,I5,14H TESTS DELETED) 03050901
309: 90026 FORMAT (1H ,21X,I5,25H TESTS REQUIRE INSPECTION) 03060901
310: 90028 FORMAT (1H ,21X,I5,4H OF ,I3,15H TESTS EXECUTED) 03070901
311: CBE** ********************** BBCFMT0B **********************************03080901
312: C***** 03090901
313: C***** END OF TEST SEGMENT 023 03100901
314: STOP 03110901
315: END 03120901
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.