![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to FM506.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 FM506.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***********************************************************************00010506
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 00020506
6: C***** FM506 00030506
7: C***** BLKD3 - (262) 00040506
8: C***** USES BLOCK DATA SUBPROGRAM AN507 AND SUBROUTINE SN508 00050506
9: C***********************************************************************00060506
10: C***** TESTING OF BLOCK DATA SUBPROGRAMS ANS REF 00070506
11: C***** VARYING CHARACTER VARIABLE LENGTHS 16 00080506
12: C***** THIS SEGMENT USES SEGMENTS 704 AND 705, BLOCK DATA PROGRAM 00090506
13: C***** AN507 AND SUBROUTINE SN508 00100506
14: C***** 00110506
15: CBB** ********************** BBCCOMNT **********************************00120506
16: C**** 00130506
17: C**** 1978 FORTRAN COMPILER VALIDATION SYSTEM 00140506
18: C**** VERSION 2.0 00150506
19: C**** 00160506
20: C**** 00170506
21: C**** SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00180506
22: C**** GENERAL SERVICES ADMINISTRATION 00190506
23: C**** FEDERAL SOFTWARE TESTING CENTER 00200506
24: C**** 5203 LEESBURG PIKE, SUITE 1100 00210506
25: C**** FALLS CHURCH, VA. 22041 00220506
26: C**** 00230506
27: C**** (703) 756-6153 00240506
28: C**** 00250506
29: CBE** ********************** BBCCOMNT **********************************00260506
30: C***** 00270506
31: C***** S P E C I F I C A T I O N S SEGMENT 262 00280506
32: C***** 00290506
33: C***** CHARACTER*3 C3XVK, F3XVK 00300506
34: C***** CHARACTER*2 D2XVK 00310506
35: C***** CHARACTER*5 E5XVK 00320506
36: C***** COMMON /BLK8/ C3XVK, D2XVK, E5XVK, F3XVK 00330506
37: C***** 00340506
38: NUVI = 4 00350506
39: C***** 00360506
40: CALL SN508(NUVI) 00370506
41: C***** 00380506
42: C***** END OF TEST SEGMENT 262 00390506
43: STOP 00400506
44: END 00410506
45: C***********************************************************************00010507
46: C DATE***82/08/02*18.33.46
47: C OWNER PRE/850703/TC-85- -410/ /FSTC/278FCVS*F78UBP20/
48: C AUDIT FCVS78 V2.0
49: C***** FORTRAN 77 00020507
50: C***** FM507 BDS3 - (704) 00030507
51: C***** BLOCK DATA SUBPROGRAM AN507 USED BY FM506 00040507
52: C***********************************************************************00050507
53: C***** 00060507
54: C***** GENERAL PURPOSE 00070507
55: C***** THIS SEGMENT CONTAINS A BLOCK DATA SUBPROGRAM THAT IS 00080507
56: C***** TO BE RUN WITH TEST SEGMENT FM506 (262) 00090507
57: C***** THIS SEGMENT WILL TEST CHARACTER VARIABLES WITH VARYING 00100507
58: C***** LENGHTS IN COMMON AREAS 00110507
59: C***** 00120507
60: CBB** ********************** BBCCOMNT **********************************00130507
61: C**** 00140507
62: C**** 1978 FORTRAN COMPILER VALIDATION SYSTEM 00150507
63: C**** VERSION 2.0 00160507
64: C**** 00170507
65: C**** 00180507
66: C**** SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00190507
67: C**** GENERAL SERVICES ADMINISTRATION 00200507
68: C**** FEDERAL SOFTWARE TESTING CENTER 00210507
69: C**** 5203 LEESBURG PIKE, SUITE 1100 00220507
70: C**** FALLS CHURCH, VA. 22041 00230507
71: C**** 00240507
72: C**** (703) 756-6153 00250507
73: C**** 00260507
74: CBE** ********************** BBCCOMNT **********************************00270507
75: BLOCK DATA AN507 00280507
76: C***** 00290507
77: CHARACTER*3 C3XVK, F3XVK 00300507
78: CHARACTER*2 D2XVK 00310507
79: CHARACTER*5 E5XVK 00320507
80: COMMON /BLK8/ C3XVK, D2XVK, E5XVK, F3XVK 00330507
81: DATA C3XVK, D2XVK, E5XVK, F3XVK /'123', 'GH', 'LONGS', 'END'/ 00340507
82: C***** 00350507
83: END 00360507
84: C***********************************************************************00010508
85: C DATE***82/08/02*18.33.46
86: C OWNER PRE/850703/TC-85- -410/ /FSTC/278FCVS*F78UBP20/
87: C AUDIT FCVS78 V2.0
88: C***** FORTRAN 77 00020508
89: C***** FM508 BLKD3Q - (705) 00030508
90: C***** THIS SUBROUTINE IS CALLED BY FM506 00040508
91: C***********************************************************************00050508
92: C***** 00060508
93: C***** GENERAL PURPOSE 00070508
94: C***** THIS SEGMENT IS TO BE RUN WITH TEST SEGMENT 262 00080508
95: C***** THIS SEGMENT CONTAINS A SUBROUTINE THAT CHECKS TO SEE IF 00090508
96: C***** IF THE BLOCK DATA PROGRAM CORRECTLY INITIALIZED CHARACTER 00100508
97: C***** VARIABLES INTERMIXED WITH DIFFERENT LENGTHS 00110508
98: C***** 00120508
99: SUBROUTINE SN508 (NWVI) 00130508
100: C***** 00140508
101: CBB** ********************** BBCCOMNT **********************************00150508
102: C**** 00160508
103: C**** 1978 FORTRAN COMPILER VALIDATION SYSTEM 00170508
104: C**** VERSION 2.0 00180508
105: C**** 00190508
106: C**** 00200508
107: C**** SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00210508
108: C**** GENERAL SERVICES ADMINISTRATION 00220508
109: C**** FEDERAL SOFTWARE TESTING CENTER 00230508
110: C**** 5203 LEESBURG PIKE, SUITE 1100 00240508
111: C**** FALLS CHURCH, VA. 22041 00250508
112: C**** 00260508
113: C**** (703) 756-6153 00270508
114: C**** 00280508
115: CBE** ********************** BBCCOMNT **********************************00290508
116: CHARACTER*3 C3XVK, F3XVK 00300508
117: CHARACTER*2 D2XVK 00310508
118: CHARACTER*5 E5XVK, CVCORR 00320508
119: COMMON /BLK8/ C3XVK, D2XVK, E5XVK, F3XVK 00330508
120: CBB** ********************** BBCINITA **********************************00340508
121: C**** SPECIFICATION STATEMENTS 00350508
122: C**** 00360508
123: CHARACTER ZVERS*13, ZVERSD*17, ZDATE*17, ZPROG*5, ZCOMPL*20, 00370508
124: 1 ZNAME*20, ZTAPE*10, ZPROJ*13, REMRKS*31, ZTAPED*13 00380508
125: CBE** ********************** BBCINITA **********************************00390508
126: CBB** ********************** BBCINITB **********************************00400508
127: C**** INITIALIZE SECTION 00410508
128: DATA ZVERS, ZVERSD, ZDATE 00420508
129: 1 /'VERSION 2.0 ', '82/08/02*18.33.46', '*NO DATE*TIME'/ 00430508
130: DATA ZCOMPL, ZNAME, ZTAPE 00440508
131: 1 /'*NONE SPECIFIED*', '*NO COMPANY NAME*', '*NO TAPE*'/ 00450508
132: DATA ZPROJ, ZTAPED, ZPROG 00460508
133: 1 /'*NO PROJECT*', '*NO TAPE DATE', 'XXXXX'/ 00470508
134: DATA REMRKS /' '/ 00480508
135: C**** THE FOLLOWING 9 COMMENT LINES (CZ01, CZ02, ...) CAN BE REPLACED 00490508
136: C**** FOR IDENTIFYING THE TEST ENVIRONMENT 00500508
137: C**** 00510508
138: CZ01 ZVERS = 'VERSION OF THE COMPILER VALIDATION SYSTEM' 00520508
139: CZ02 ZVERSD = 'CREATION DATE/TIME OF THE COMPILER VALIDATION SYSTEM' 00530508
140: CZ03 ZPROG = 'PROGRAM NAME' 00540508
141: ZDATE = '07-Nov-85 ' *RP
142: ZCOMPL = 'CCI 5.2 ' *RP
143: ZPROJ = 'TC-85- -410' *RP
144: ZNAME = ' ' *RP
145: ZTAPE = ' ' *RP
146: ZTAPED = '850703 ' *RP
147: C 00610508
148: IVPASS = 0 00620508
149: IVFAIL = 0 00630508
150: IVDELE = 0 00640508
151: IVINSP = 0 00650508
152: IVTOTL = 0 00660508
153: IVTOTN = 0 00670508
154: ICZERO = 0 00680508
155: C 00690508
156: C I01 CONTAINS THE LOGICAL UNIT NUMBER FOR THE CARD READER. 00700508
157: I01 = 05 00710508
158: C I02 CONTAINS THE LOGICAL UNIT NUMBER FOR THE PRINTER. 00720508
159: I02 = 06 00730508
160: C 00740508
161: I01 = 5 00750508
162: C THE CX010 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I01 = 5 00760508
163: CX011 REPLACED BY FEXEC X-011 CONTROL CARD. CX011 IS FOR SYSTEMS 00770508
164: C REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX010. 00780508
165: C 00790508
166: I02 = 6 00800508
167: C THE CX020 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I02= 6 00810508
168: CX021 REPLACED BY FEXEC X-021 CONTROL CARD. CX021 IS FOR SYSTEMS 00820508
169: C REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX020. 00830508
170: C 00840508
171: CBE** ********************** BBCINITB **********************************00850508
172: NUVI = I02 00860508
173: IVTOTL = 4 00870508
174: ZPROG = 'FM506' 00880508
175: CBB** ********************** BBCHED0A **********************************00890508
176: C**** 00900508
177: C**** WRITE REPORT TITLE 00910508
178: C**** 00920508
179: WRITE (I02, 90002) 00930508
180: WRITE (I02, 90006) 00940508
181: WRITE (I02, 90007) 00950508
182: WRITE (I02, 90008) ZVERS, ZVERSD 00960508
183: WRITE (I02, 90009) ZPROG, ZPROG 00970508
184: WRITE (I02, 90010) ZDATE, ZCOMPL 00980508
185: CBE** ********************** BBCHED0A **********************************00990508
186: C***** 01000508
187: WRITE(NUVI,26200) 01010508
188: 26200 FORMAT( 1H , / 39H BLKD3 - (262) BLOCK DATA SUBPROGRAM --// 01020508
189: 1 36H VARYING CHARACTER VARIABLE LENGTHS// 01030508
190: 2 15H ANS REF. - 16) 01040508
191: CBB** ********************** BBCHED0B **********************************01050508
192: C**** WRITE DETAIL REPORT HEADERS 01060508
193: C**** 01070508
194: WRITE (I02,90004) 01080508
195: WRITE (I02,90004) 01090508
196: WRITE (I02,90013) 01100508
197: WRITE (I02,90014) 01110508
198: WRITE (I02,90015) IVTOTL 01120508
199: CBE** ********************** BBCHED0B **********************************01130508
200: C***** 01140508
201: CT001* TEST 1 3 CHARACTER VARIABLE 01150508
202: IVTNUM = 1 01160508
203: IVCOMP = 0 01170508
204: IF (C3XVK.EQ.'123') IVCOMP = 1 01180508
205: IF (IVCOMP - 1) 20010, 10010, 20010 01190508
206: 10010 IVPASS = IVPASS + 1 01200508
207: WRITE (NUVI, 80002) IVTNUM 01210508
208: GO TO 0011 01220508
209: 20010 IVFAIL = IVFAIL + 1 01230508
210: CVCORR = '123' 01240508
211: WRITE (NUVI, 80018) IVTNUM, C3XVK, CVCORR 01250508
212: 0011 CONTINUE 01260508
213: CT002* TEST 2 2 CHARACTER VARIABLE 01270508
214: IVTNUM = 2 01280508
215: IVCOMP = 0 01290508
216: IF (D2XVK.EQ.'GH') IVCOMP = 1 01300508
217: IF (IVCOMP - 1) 20020, 10020, 20020 01310508
218: 10020 IVPASS = IVPASS + 1 01320508
219: WRITE (NUVI, 80002) IVTNUM 01330508
220: GO TO 0021 01340508
221: 20020 IVFAIL = IVFAIL + 1 01350508
222: CVCORR = 'GH' 01360508
223: WRITE (NUVI, 80018) IVTNUM, D2XVK, CVCORR 01370508
224: 0021 CONTINUE 01380508
225: CT003* TEST 3 5 CHARACTER VARIABLE 01390508
226: IVTNUM = 3 01400508
227: IVCOMP = 0 01410508
228: IF (E5XVK.EQ.'LONGS') IVCOMP = 1 01420508
229: IF (IVCOMP - 1) 20030, 10030, 20030 01430508
230: 10030 IVPASS = IVPASS + 1 01440508
231: WRITE (NUVI, 80002) IVTNUM 01450508
232: GO TO 0031 01460508
233: 20030 IVFAIL = IVFAIL + 1 01470508
234: CVCORR = 'LONGS' 01480508
235: WRITE (NUVI, 80018) IVTNUM, E5XVK, CVCORR 01490508
236: 0031 CONTINUE 01500508
237: CT004* TEST 4 3 CHARACTER VARIABLE 01510508
238: IVTNUM = 4 01520508
239: IVCOMP = 0 01530508
240: IF (F3XVK.EQ.'END') IVCOMP = 1 01540508
241: IF (IVCOMP - 1) 20040, 10040, 20040 01550508
242: 10040 IVPASS = IVPASS + 1 01560508
243: WRITE (NUVI, 80002) IVTNUM 01570508
244: GO TO 0041 01580508
245: 20040 IVFAIL = IVFAIL + 1 01590508
246: CVCORR = 'END' 01600508
247: WRITE (NUVI, 80018) IVTNUM, F3XVK, CVCORR 01610508
248: 0041 CONTINUE 01620508
249: C***** 01630508
250: CBB** ********************** BBCSUM0 **********************************01640508
251: C**** WRITE OUT TEST SUMMARY 01650508
252: C**** 01660508
253: IVTOTN = IVPASS + IVFAIL + IVDELE + IVINSP 01670508
254: WRITE (I02, 90004) 01680508
255: WRITE (I02, 90014) 01690508
256: WRITE (I02, 90004) 01700508
257: WRITE (I02, 90020) IVPASS 01710508
258: WRITE (I02, 90022) IVFAIL 01720508
259: WRITE (I02, 90024) IVDELE 01730508
260: WRITE (I02, 90026) IVINSP 01740508
261: WRITE (I02, 90028) IVTOTN, IVTOTL 01750508
262: CBE** ********************** BBCSUM0 **********************************01760508
263: CBB** ********************** BBCFOOT0 **********************************01770508
264: C**** WRITE OUT REPORT FOOTINGS 01780508
265: C**** 01790508
266: WRITE (I02,90016) ZPROG, ZPROG 01800508
267: WRITE (I02,90018) ZPROJ, ZNAME, ZTAPE, ZTAPED 01810508
268: WRITE (I02,90019) 01820508
269: CBE** ********************** BBCFOOT0 **********************************01830508
270: CBB** ********************** BBCFMT0A **********************************01840508
271: C**** FORMATS FOR TEST DETAIL LINES 01850508
272: C**** 01860508
273: 80000 FORMAT (1H ,2X,I3,4X,7HDELETED,32X,A31) 01870508
274: 80002 FORMAT (1H ,2X,I3,4X,7H PASS ,32X,A31) 01880508
275: 80004 FORMAT (1H ,2X,I3,4X,7HINSPECT,32X,A31) 01890508
276: 80008 FORMAT (1H ,2X,I3,4X,7H FAIL ,32X,A31) 01900508
277: 80010 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,15X,10HCOMPUTED= , 01910508
278: 1I6,/,1H ,15X,10HCORRECT= ,I6) 01920508
279: 80012 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 01930508
280: 1E12.5,/,1H ,16X,10HCORRECT= ,E12.5) 01940508
281: 80018 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 01950508
282: 1A21,/,1H ,16X,10HCORRECT= ,A21) 01960508
283: 80020 FORMAT (1H ,16X,10HCOMPUTED= ,A21,1X,A31) 01970508
284: 80022 FORMAT (1H ,16X,10HCORRECT= ,A21,1X,A31) 01980508
285: 80024 FORMAT (1H ,16X,10HCOMPUTED= ,I6,16X,A31) 01990508
286: 80026 FORMAT (1H ,16X,10HCORRECT= ,I6,16X,A31) 02000508
287: 80028 FORMAT (1H ,16X,10HCOMPUTED= ,E12.5,10X,A31) 02010508
288: 80030 FORMAT (1H ,16X,10HCORRECT= ,E12.5,10X,A31) 02020508
289: 80050 FORMAT (1H ,48X,A31) 02030508
290: CBE** ********************** BBCFMT0A **********************************02040508
291: CBB** ********************** BBCFMAT1 **********************************02050508
292: C**** FORMATS FOR TEST DETAIL LINES - FULL LANGUAGE 02060508
293: C**** 02070508
294: 80031 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 02080508
295: 1D17.10,/,1H ,16X,10HCORRECT= ,D17.10) 02090508
296: 80033 FORMAT (1H ,16X,10HCOMPUTED= ,D17.10,10X,A31) 02100508
297: 80035 FORMAT (1H ,16X,10HCORRECT= ,D17.10,10X,A31) 02110508
298: 80037 FORMAT (1H ,16X,10HCOMPUTED= ,1H(,E12.5,2H, ,E12.5,1H),6X,A31) 02120508
299: 80039 FORMAT (1H ,16X,10HCORRECT= ,1H(,E12.5,2H, ,E12.5,1H),6X,A31) 02130508
300: 80041 FORMAT (1H ,16X,10HCOMPUTED= ,1H(,F12.5,2H, ,F12.5,1H),6X,A31) 02140508
301: 80043 FORMAT (1H ,16X,10HCORRECT= ,1H(,F12.5,2H, ,F12.5,1H),6X,A31) 02150508
302: 80045 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 02160508
303: 11H(,F12.5,2H, ,F12.5,1H)/,1H ,16X,10HCORRECT= , 02170508
304: 21H(,F12.5,2H, ,F12.5,1H)) 02180508
305: CBE** ********************** BBCFMAT1 **********************************02190508
306: CBB** ********************** BBCFMT0B **********************************02200508
307: C**** FORMAT STATEMENTS FOR PAGE HEADERS 02210508
308: C**** 02220508
309: 90002 FORMAT (1H1) 02230508
310: 90004 FORMAT (1H ) 02240508
311: 90006 FORMAT (1H ,20X,31HFEDERAL SOFTWARE TESTING CENTER) 02250508
312: 90007 FORMAT (1H ,19X,34HFORTRAN COMPILER VALIDATION SYSTEM) 02260508
313: 90008 FORMAT (1H ,21X,A13,A17) 02270508
314: 90009 FORMAT (1H ,/,2H *,A5,6HBEGIN*,12X,15HTEST RESULTS - ,A5,/) 02280508
315: 90010 FORMAT (1H ,8X,16HTEST DATE*TIME= ,A17,15H - COMPILER= ,A20) 02290508
316: 90013 FORMAT (1H ,8H TEST ,10HPASS/FAIL ,6X,17HDISPLAYED RESULTS, 02300508
317: 1 7X,7HREMARKS,24X) 02310508
318: 90014 FORMAT (1H ,46H----------------------------------------------, 02320508
319: 1 33H---------------------------------) 02330508
320: 90015 FORMAT (1H ,48X,17HTHIS PROGRAM HAS ,I3,6H TESTS,/) 02340508
321: C**** 02350508
322: C**** FORMAT STATEMENTS FOR REPORT FOOTINGS 02360508
323: C**** 02370508
324: 90016 FORMAT (1H ,/,2H *,A5,4HEND*,14X,14HEND OF TEST - ,A5,/) 02380508
325: 90018 FORMAT (1H ,A13,13X,A20,7H * ,A10,1H/, 02390508
326: 1 A13) 02400508
327: 90019 FORMAT (1H ,26HFOR OFFICIAL USE ONLY ,35X,15HCOPYRIGHT 1982) 02410508
328: C**** 02420508
329: C**** FORMAT STATEMENTS FOR RUN SUMMARY 02430508
330: C**** 02440508
331: 90020 FORMAT (1H ,21X,I5,13H TESTS PASSED) 02450508
332: 90022 FORMAT (1H ,21X,I5,13H TESTS FAILED) 02460508
333: 90024 FORMAT (1H ,21X,I5,14H TESTS DELETED) 02470508
334: 90026 FORMAT (1H ,21X,I5,25H TESTS REQUIRE INSPECTION) 02480508
335: 90028 FORMAT (1H ,21X,I5,4H OF ,I3,15H TESTS EXECUTED) 02490508
336: CBE** ********************** BBCFMT0B **********************************02500508
337: C***** 02510508
338: END 02520508
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.