![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to FM404.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 FM404.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***********************************************************************00010404
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 00020404
6: C***** FM404 AFMTS - (022) 00030404
7: C***** 00040404
8: C***********************************************************************00050404
9: C***** GENERAL PURPOSE SUBSET REFS00060404
10: C***** TO TEST SIMPLE FORMAT AND FORMATTED DATA 12.9.5.200070404
11: C***** TRANSFER STATEMENTS IN EXTERNAL SEQUENTIAL I/O SO 13.1.1 00080404
12: C***** THAT THESE FEATURES MAY BE USED IN OTHER TEST 12.8.1 00090404
13: C***** PROGRAM SEGMENTS FOR CHARACTER DATA TYPES. 4.8 00100404
14: C***** 00110404
15: C***** RESTRICTIONS OBSERVED 00120404
16: C***** * ALL FORMAT STATEMENTS ARE LABELED 12.8.2 00130404
17: C***** * H AND X DESCRIPTORS ARE NEVER REPEATED 13.1.1 00140404
18: C***** * FIELD WIDTH IS NEVER ZERO 13.5.11 00150404
19: C***** * IF AN I/O LIST SPECIFIES AT LEAST ONE LIST ITEM 13.3 00160404
20: C***** AT LEAST ONE REPEATABLE EDIT DESCRIPTOR MUST EXIST 00170404
21: C***** IN THE FORMAT SPECIFICATION. 00180404
22: C***** * ITEMS IN I/O LIST CORRESPOND TO FORMAT DESCRIPTORS 13.3 00190404
23: C***** 00200404
24: CBB** ********************** BBCCOMNT **********************************00210404
25: C**** 00220404
26: C**** 1978 FORTRAN COMPILER VALIDATION SYSTEM 00230404
27: C**** VERSION 2.0 00240404
28: C**** 00250404
29: C**** 00260404
30: C**** SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00270404
31: C**** GENERAL SERVICES ADMINISTRATION 00280404
32: C**** FEDERAL SOFTWARE TESTING CENTER 00290404
33: C**** 5203 LEESBURG PIKE, SUITE 1100 00300404
34: C**** FALLS CHURCH, VA. 22041 00310404
35: C**** 00320404
36: C**** (703) 756-6153 00330404
37: C**** 00340404
38: CBE** ********************** BBCCOMNT **********************************00350404
39: C***** 00360404
40: C INPUT DATA TO THIS SEG. CONSISTS OF 6 DATA CARD IMAGES IN COLS. 1 - 5500370404
41: COL. 1--------------------------------------------47 00380404
42: CARD 1 QRSTMNOPIJKLYZ127890ABCD3456EFGHUVWX/(),.' =+-* 00390404
43: CARD 2 AABABCABCDABCDEABCDEFWXYZWXYZWXYZWXYZWXYZWXYZ 00400404
44: CARD 3 112123123412345123456 00410404
45: CARD 4 GGGGHHHHIIIIJJJJ 00420404
46: CARD 5 ----LLLL 00430404
47: CARD 6 ....NNNN 00440404
48: C***** 00450404
49: C***** S P E C I F I C A T I O N S SEGMENT 022 00460404
50: C***** 00470404
51: CHARACTER*1 A1VK 00480404
52: CHARACTER*2 A2VK 00490404
53: CHARACTER*3 A3VK 00500404
54: CHARACTER*4 A4VK, A41K(6), A43K(2,2,3) 00510404
55: CHARACTER*5 A5VK 00520404
56: CHARACTER*6 A6VK 00530404
57: C***** 00540404
58: CBB** ********************** BBCINITA **********************************00550404
59: C**** SPECIFICATION STATEMENTS 00560404
60: C**** 00570404
61: CHARACTER ZVERS*13, ZVERSD*17, ZDATE*17, ZPROG*5, ZCOMPL*20, 00580404
62: 1 ZNAME*20, ZTAPE*10, ZPROJ*13, REMRKS*31, ZTAPED*13 00590404
63: CBE** ********************** BBCINITA **********************************00600404
64: CBB** ********************** BBCINITB **********************************00610404
65: C**** INITIALIZE SECTION 00620404
66: DATA ZVERS, ZVERSD, ZDATE 00630404
67: 1 /'VERSION 2.0 ', '82/08/02*18.33.46', '*NO DATE*TIME'/ 00640404
68: DATA ZCOMPL, ZNAME, ZTAPE 00650404
69: 1 /'*NONE SPECIFIED*', '*NO COMPANY NAME*', '*NO TAPE*'/ 00660404
70: DATA ZPROJ, ZTAPED, ZPROG 00670404
71: 1 /'*NO PROJECT*', '*NO TAPE DATE', 'XXXXX'/ 00680404
72: DATA REMRKS /' '/ 00690404
73: C**** THE FOLLOWING 9 COMMENT LINES (CZ01, CZ02, ...) CAN BE REPLACED 00700404
74: C**** FOR IDENTIFYING THE TEST ENVIRONMENT 00710404
75: C**** 00720404
76: CZ01 ZVERS = 'VERSION OF THE COMPILER VALIDATION SYSTEM' 00730404
77: CZ02 ZVERSD = 'CREATION DATE/TIME OF THE COMPILER VALIDATION SYSTEM' 00740404
78: CZ03 ZPROG = 'PROGRAM NAME' 00750404
79: ZDATE = '07-Nov-85 ' *RP
80: ZCOMPL = 'CCI 5.2 ' *RP
81: ZPROJ = 'TC-85- -410' *RP
82: ZNAME = ' ' *RP
83: ZTAPE = ' ' *RP
84: ZTAPED = '850703 ' *RP
85: C 00820404
86: IVPASS = 0 00830404
87: IVFAIL = 0 00840404
88: IVDELE = 0 00850404
89: IVINSP = 0 00860404
90: IVTOTL = 0 00870404
91: IVTOTN = 0 00880404
92: ICZERO = 0 00890404
93: C 00900404
94: C I01 CONTAINS THE LOGICAL UNIT NUMBER FOR THE CARD READER. 00910404
95: I01 = 05 00920404
96: C I02 CONTAINS THE LOGICAL UNIT NUMBER FOR THE PRINTER. 00930404
97: I02 = 06 00940404
98: C 00950404
99: I01 = 5 00960404
100: C THE CX010 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I01 = 5 00970404
101: CX011 REPLACED BY FEXEC X-011 CONTROL CARD. CX011 IS FOR SYSTEMS 00980404
102: C REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX010. 00990404
103: C 01000404
104: I02 = 6 01010404
105: C THE CX020 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I02= 6 01020404
106: CX021 REPLACED BY FEXEC X-021 CONTROL CARD. CX021 IS FOR SYSTEMS 01030404
107: C REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX020. 01040404
108: C 01050404
109: CBE** ********************** BBCINITB **********************************01060404
110: IRVI = I01 01070404
111: NUVI = I02 01080404
112: IVTOTL = 5 01090404
113: ZPROG = 'FM404' 01100404
114: CBB** ********************** BBCHED0A **********************************01110404
115: C**** 01120404
116: C**** WRITE REPORT TITLE 01130404
117: C**** 01140404
118: WRITE (I02, 90002) 01150404
119: WRITE (I02, 90006) 01160404
120: WRITE (I02, 90007) 01170404
121: WRITE (I02, 90008) ZVERS, ZVERSD 01180404
122: WRITE (I02, 90009) ZPROG, ZPROG 01190404
123: WRITE (I02, 90010) ZDATE, ZCOMPL 01200404
124: CBE** ********************** BBCHED0A **********************************01210404
125: C***** 01220404
126: C***** HEADER FOR SEGMENT 22 01230404
127: WRITE (NUVI,02200) 01240404
128: 02200 FORMAT(1H , /1X,38H AFMTS - (022) FORMATTED DATA TRANSFER// 01250404
129: 1 1X,19H USING A-CONVERSION//1X, 01260404
130: 2 38H SUBSET REFS - 12.9.5.2 13.3 13.5.11) 01270404
131: CBB** ********************** BBCHED0B **********************************01280404
132: C**** WRITE DETAIL REPORT HEADERS 01290404
133: C**** 01300404
134: WRITE (I02,90004) 01310404
135: WRITE (I02,90004) 01320404
136: WRITE (I02,90013) 01330404
137: WRITE (I02,90014) 01340404
138: WRITE (I02,90015) IVTOTL 01350404
139: CBE** ********************** BBCHED0B **********************************01360404
140: C***** 01370404
141: C***** TESTS THAT ALL FORTRAN (SUBSET) CHARACTERS MAY BE READ. 3.101380404
142: C***** 01390404
143: C***** INPUT CARD 1 01400404
144: READ(IRVI, 02201) A43K(1,1,1), A43K(1,1,2), A43K(1,1,3), 01410404
145: 1 A43K(1,2,1), A43K(1,2,2), A43K(1,2,3), A43K(2,1,1), 01420404
146: 2 A43K(2,1,2), A43K(2,1,3), A6VK, A5VK 01430404
147: 02201 FORMAT(9A4, A6, A5) 01440404
148: CT001* TEST 1 01450404
149: IVTNUM = 1 01460404
150: REMRKS = '2 COMPUTED LINES EXPECTED' 01470404
151: WRITE (NUVI, 80004) IVTNUM, REMRKS 01480404
152: WRITE (NUVI, 80020) 01490404
153: WRITE(NUVI, 70010) A43K(1,2,3), A43K(2,1,2), A43K(1,1,3), 01500404
154: 1 A43K(1,1,2), A43K(1,1,1), A43K(2,1,3), A43K(1,2,1), 01510404
155: 2 A43K(2,1,1), A43K(1,2,2), A5VK, A6VK 01520404
156: 70010 FORMAT(26X,9A4/25X,A5,A6) 01530404
157: IVINSP = IVINSP + 1 01540404
158: WRITE (NUVI, 70011) 01550404
159: 70011 FORMAT(1H ,16X,10HCORRECT: ,22X,32HCORRESPONDING LINE(S) MUST M01560404
160: 1ATCH) 01570404
161: WRITE (NUVI, 70012) 01580404
162: 70012 FORMAT(26X, 36HABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890/ 01590404
163: 1 26X,10H=+-*/(),.') 01600404
164: C***** 01610404
165: C***** AW CONVERSION IS USED IN THE FORMAT STATEMENTS. 3.5.1101620404
166: C***** SOME FORMAT DESCRIPTORS ARE REPEATED. 01630404
167: C***** THE FOLLOWING THREE CASES ARE USED FOR BOTH INPUT AND OUTPUT. 01640404
168: C***** INPUT FIELD WIDTH = CHARACTER VARIABLE LENGTH 01650404
169: C***** INPUT FIELD WIDTH < CHARACTER VARIABLE LENGTH 01660404
170: C***** INPUT FIELD WIDTH > CHARACTER VARIABLE LENGTH 01670404
171: C***** 01680404
172: C***** INPUT CARD 2 01690404
173: READ(IRVI, 02203) A41K(1), A41K(2), A41K(3), A41K(4), A41K(5), 01700404
174: 1 A41K(6), A1VK, A2VK, A3VK, A4VK, A5VK, A6VK 01710404
175: 02203 FORMAT(A1, A2, 1A3, A4, A5, 1(A6), A4, 2A4, 3(A4)) 01720404
176: CT002* TEST 2 01730404
177: IVTNUM = 2 01740404
178: REMRKS = '2 COMPUTED LINES EXPECTED' 01750404
179: WRITE (NUVI, 80004) IVTNUM, REMRKS 01760404
180: WRITE (NUVI, 80020) 01770404
181: WRITE(NUVI, 70020) A41K(1), A41K(2), A41K(3), A41K(4), A41K(5), 01780404
182: 1 A41K(6), A6VK, A5VK, A4VK, A3VK, A2VK, A1VK 01790404
183: 70020 FORMAT(26X,A4,A4,4A4/26X,A6,A5,A4,A3,A2,A1) 01800404
184: IVINSP = IVINSP + 1 01810404
185: WRITE (NUVI, 70011) 01820404
186: WRITE (NUVI, 70022) 01830404
187: 70022 FORMAT(26X,24HA AB ABC ABCDBCDECDEF/ 01840404
188: 1 26X,21HWXYZ WXYZ WXYZXYZYZZ) 01850404
189: C***** 01860404
190: CT003* TEST 3 01870404
191: IVTNUM = 3 01880404
192: REMRKS = '2 COMPUTED LINES EXPECTED' 01890404
193: WRITE (NUVI, 80004) IVTNUM, REMRKS 01900404
194: WRITE (NUVI, 80020) 01910404
195: WRITE(NUVI, 70030) A41K(1), A41K(2), A41K(3), A41K(4), A41K(5), 01920404
196: 1 A41K(6), A1VK, A2VK, A3VK, A4VK, A5VK, A6VK 01930404
197: 70030 FORMAT(26X,A1,A2,A3,A4,A5,A6/23X,4(A4),A4,A4) 01940404
198: IVINSP = IVINSP + 1 01950404
199: WRITE (NUVI, 70011) 01960404
200: WRITE (NUVI, 70032) 01970404
201: 70032 FORMAT(26X,21HAABABCABCD BCDE CDEF/ 01980404
202: 1 26X,21HZ YZ XYZWXYZWXYZWXYZ) 01990404
203: C***** 02000404
204: C***** A CONVERSION IS USED IN THE FORMAT STATEMENTS. 3.5.1102010404
205: C***** SOME FORMAT DESCRIPTORS ARE REPEATED. 02020404
206: C***** READ WITH A-EDIT DESCRIPTOR, A STRING, FOLLOWED BY ANOTHER 02030404
207: C***** FIELD TO SHOW THAT THE POINTER PICKS UP THE NEXT FIELD 02040404
208: C***** FOLLOWING THE COUNT OF THE LENGTH OF THE DECLARED VARIABLE. 02050404
209: C***** 02060404
210: C***** INPUT CARD 3 02070404
211: READ(IRVI, 02206) A1VK, A2VK, A3VK, A4VK, A5VK, A6VK 02080404
212: 02206 FORMAT(A, 2A, 3(A)) 02090404
213: CT004* TEST 4 02100404
214: IVTNUM = 4 02110404
215: WRITE (NUVI, 80004) IVTNUM 02120404
216: WRITE (NUVI, 80020) 02130404
217: WRITE(NUVI, 70040) A1VK, A2VK, A3VK, A4VK, A5VK, A6VK 02140404
218: 70040 FORMAT(26X,6A) 02150404
219: IVINSP = IVINSP + 1 02160404
220: WRITE (NUVI, 80022) 02170404
221: WRITE (NUVI, 70042) 02180404
222: 70042 FORMAT(26X,21H112123123412345123456) 02190404
223: C***** 02200404
224: C***** TEST THAT A SLASH ON INPUT CAUSES THE UNPROCESSED CHARACTERS 02210404
225: C***** TO BE SKIPPED. 13.5.402220404
226: C***** ALSO TEST THAT AN APOSTROPHE MAY BE USED INSTEAD OF AN 13.5.102230404
227: C***** H-EDIT DESCRIPTOR. 13.5.202240404
228: C***** 02250404
229: C***** INPUT CARD 4 02260404
230: READ(IRVI, 02208) A41K(2), A41K(1), A41K(4), A41K(3) 02270404
231: 02208 FORMAT(4A4) 02280404
232: C***** INPUT CARDS 5-6 02290404
233: READ(IRVI, 02209) A41K(2), A41K(4), A41K(3) 02300404
234: 02209 FORMAT(A4 / 2A4) 02310404
235: CT005* TEST 5 02320404
236: IVTNUM = 5 02330404
237: REMRKS = '2 IDENTICAL COMPUTED LINES ' 02340404
238: WRITE (NUVI, 80004) IVTNUM, REMRKS 02350404
239: REMRKS = 'EXPECTED ' 02360404
240: WRITE (NUVI, 80050) REMRKS 02370404
241: WRITE (NUVI, 80020) 02380404
242: WRITE(NUVI, 70050) A41K(2), A41K(1), A41K(4), A41K(3) 02390404
243: 70050 FORMAT(26X,'----HHHH....NNNN'/26X,3(A4),A4) 02400404
244: IVINSP = IVINSP + 1 02410404
245: WRITE (NUVI, 70011) 02420404
246: WRITE (NUVI, 70052) 02430404
247: 70052 FORMAT (26X,16H----HHHH....NNNN) 02440404
248: C***** 02450404
249: CBB** ********************** BBCSUM0 **********************************02460404
250: C**** WRITE OUT TEST SUMMARY 02470404
251: C**** 02480404
252: IVTOTN = IVPASS + IVFAIL + IVDELE + IVINSP 02490404
253: WRITE (I02, 90004) 02500404
254: WRITE (I02, 90014) 02510404
255: WRITE (I02, 90004) 02520404
256: WRITE (I02, 90020) IVPASS 02530404
257: WRITE (I02, 90022) IVFAIL 02540404
258: WRITE (I02, 90024) IVDELE 02550404
259: WRITE (I02, 90026) IVINSP 02560404
260: WRITE (I02, 90028) IVTOTN, IVTOTL 02570404
261: CBE** ********************** BBCSUM0 **********************************02580404
262: CBB** ********************** BBCFOOT0 **********************************02590404
263: C**** WRITE OUT REPORT FOOTINGS 02600404
264: C**** 02610404
265: WRITE (I02,90016) ZPROG, ZPROG 02620404
266: WRITE (I02,90018) ZPROJ, ZNAME, ZTAPE, ZTAPED 02630404
267: WRITE (I02,90019) 02640404
268: CBE** ********************** BBCFOOT0 **********************************02650404
269: CBB** ********************** BBCFMT0A **********************************02660404
270: C**** FORMATS FOR TEST DETAIL LINES 02670404
271: C**** 02680404
272: 80000 FORMAT (1H ,2X,I3,4X,7HDELETED,32X,A31) 02690404
273: 80002 FORMAT (1H ,2X,I3,4X,7H PASS ,32X,A31) 02700404
274: 80004 FORMAT (1H ,2X,I3,4X,7HINSPECT,32X,A31) 02710404
275: 80008 FORMAT (1H ,2X,I3,4X,7H FAIL ,32X,A31) 02720404
276: 80010 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,15X,10HCOMPUTED= , 02730404
277: 1I6,/,1H ,15X,10HCORRECT= ,I6) 02740404
278: 80012 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 02750404
279: 1E12.5,/,1H ,16X,10HCORRECT= ,E12.5) 02760404
280: 80018 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 02770404
281: 1A21,/,1H ,16X,10HCORRECT= ,A21) 02780404
282: 80020 FORMAT (1H ,16X,10HCOMPUTED= ,A21,1X,A31) 02790404
283: 80022 FORMAT (1H ,16X,10HCORRECT= ,A21,1X,A31) 02800404
284: 80024 FORMAT (1H ,16X,10HCOMPUTED= ,I6,16X,A31) 02810404
285: 80026 FORMAT (1H ,16X,10HCORRECT= ,I6,16X,A31) 02820404
286: 80028 FORMAT (1H ,16X,10HCOMPUTED= ,E12.5,10X,A31) 02830404
287: 80030 FORMAT (1H ,16X,10HCORRECT= ,E12.5,10X,A31) 02840404
288: 80050 FORMAT (1H ,48X,A31) 02850404
289: CBE** ********************** BBCFMT0A **********************************02860404
290: CBB** ********************** BBCFMT0B **********************************02870404
291: C**** FORMAT STATEMENTS FOR PAGE HEADERS 02880404
292: C**** 02890404
293: 90002 FORMAT (1H1) 02900404
294: 90004 FORMAT (1H ) 02910404
295: 90006 FORMAT (1H ,20X,31HFEDERAL SOFTWARE TESTING CENTER) 02920404
296: 90007 FORMAT (1H ,19X,34HFORTRAN COMPILER VALIDATION SYSTEM) 02930404
297: 90008 FORMAT (1H ,21X,A13,A17) 02940404
298: 90009 FORMAT (1H ,/,2H *,A5,6HBEGIN*,12X,15HTEST RESULTS - ,A5,/) 02950404
299: 90010 FORMAT (1H ,8X,16HTEST DATE*TIME= ,A17,15H - COMPILER= ,A20) 02960404
300: 90013 FORMAT (1H ,8H TEST ,10HPASS/FAIL ,6X,17HDISPLAYED RESULTS, 02970404
301: 1 7X,7HREMARKS,24X) 02980404
302: 90014 FORMAT (1H ,46H----------------------------------------------, 02990404
303: 1 33H---------------------------------) 03000404
304: 90015 FORMAT (1H ,48X,17HTHIS PROGRAM HAS ,I3,6H TESTS,/) 03010404
305: C**** 03020404
306: C**** FORMAT STATEMENTS FOR REPORT FOOTINGS 03030404
307: C**** 03040404
308: 90016 FORMAT (1H ,/,2H *,A5,4HEND*,14X,14HEND OF TEST - ,A5,/) 03050404
309: 90018 FORMAT (1H ,A13,13X,A20,7H * ,A10,1H/, 03060404
310: 1 A13) 03070404
311: 90019 FORMAT (1H ,26HFOR OFFICIAL USE ONLY ,35X,15HCOPYRIGHT 1982) 03080404
312: C**** 03090404
313: C**** FORMAT STATEMENTS FOR RUN SUMMARY 03100404
314: C**** 03110404
315: 90020 FORMAT (1H ,21X,I5,13H TESTS PASSED) 03120404
316: 90022 FORMAT (1H ,21X,I5,13H TESTS FAILED) 03130404
317: 90024 FORMAT (1H ,21X,I5,14H TESTS DELETED) 03140404
318: 90026 FORMAT (1H ,21X,I5,25H TESTS REQUIRE INSPECTION) 03150404
319: 90028 FORMAT (1H ,21X,I5,4H OF ,I3,15H TESTS EXECUTED) 03160404
320: CBE** ********************** BBCFMT0B **********************************03170404
321: C***** 03180404
322: C***** END OF TEST SEGMENT 022 03190404
323: STOP 03200404
324: END 03210404
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.