![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to FM711.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 FM711.f CVS log | Up to [Power 6/32 Unix Tahoe 4.2BSD] / cci / usr / src / usr.bin / f77 / testf77 / tests |
1.1 root 1: PROGRAM FM711 00010711
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 00020711
6: C THIS ROUTINE TESTS ADJUSTABLE ARRAYS AND ADJUSTABLE ANS REF.00030711
7: C DIMENSIONS, AND THE USE OF ARRAY 5.5.1 00040711
8: C NAMES. 5.6 00050711
9: C 00060711
10: C THIS ROUTINE USES ROUTINES 712-714 AS SUBROUTINES. 00070711
11: C 00080711
12: CBB** ********************** BBCCOMNT **********************************00090711
13: C**** 00100711
14: C**** 1978 FORTRAN COMPILER VALIDATION SYSTEM 00110711
15: C**** VERSION 2.0 00120711
16: C**** 00130711
17: C**** 00140711
18: C**** SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00150711
19: C**** GENERAL SERVICES ADMINISTRATION 00160711
20: C**** FEDERAL SOFTWARE TESTING CENTER 00170711
21: C**** 5203 LEESBURG PIKE, SUITE 1100 00180711
22: C**** FALLS CHURCH, VA. 22041 00190711
23: C**** 00200711
24: C**** (703) 756-6153 00210711
25: C**** 00220711
26: CBE** ********************** BBCCOMNT **********************************00230711
27: IMPLICIT DOUBLE PRECISION (D), COMPLEX (Z), LOGICAL (L) 00240711
28: IMPLICIT CHARACTER*27 (C) 00250711
29: CBB** ********************** BBCINITA **********************************00260711
30: C**** SPECIFICATION STATEMENTS 00270711
31: C**** 00280711
32: CHARACTER ZVERS*13, ZVERSD*17, ZDATE*17, ZPROG*5, ZCOMPL*20, 00290711
33: 1 ZNAME*20, ZTAPE*10, ZPROJ*13, REMRKS*31, ZTAPED*13 00300711
34: CBE** ********************** BBCINITA **********************************00310711
35: C 00320711
36: INTEGER I2D001(3,5) 00330711
37: CHARACTER CVCOMP*20,CVCORR*20,C1N001(3)*5,C1N002(4)*5,CVN001*10 00340711
38: COMMON ICC001, ICC002 00350711
39: DATA I2D001 / 11,21,31,12,22,32,13,23,33,14,24,34,15,25,35 / 00360711
40: DATA C1N001 / '-3412', ' 108', '+9792' / 00370711
41: DATA C1N002 / '(10HI', '/O TE', 'ST: ,', ' A10)' / 00380711
42: C 00390711
43: C 00400711
44: CBB** ********************** BBCINITB **********************************00410711
45: C**** INITIALIZE SECTION 00420711
46: DATA ZVERS, ZVERSD, ZDATE 00430711
47: 1 /'VERSION 2.0 ', '82/08/02*18.33.46', '*NO DATE*TIME'/ 00440711
48: DATA ZCOMPL, ZNAME, ZTAPE 00450711
49: 1 /'*NONE SPECIFIED*', '*NO COMPANY NAME*', '*NO TAPE*'/ 00460711
50: DATA ZPROJ, ZTAPED, ZPROG 00470711
51: 1 /'*NO PROJECT*', '*NO TAPE DATE', 'XXXXX'/ 00480711
52: DATA REMRKS /' '/ 00490711
53: C**** THE FOLLOWING 9 COMMENT LINES (CZ01, CZ02, ...) CAN BE REPLACED 00500711
54: C**** FOR IDENTIFYING THE TEST ENVIRONMENT 00510711
55: C**** 00520711
56: CZ01 ZVERS = 'VERSION OF THE COMPILER VALIDATION SYSTEM' 00530711
57: CZ02 ZVERSD = 'CREATION DATE/TIME OF THE COMPILER VALIDATION SYSTEM' 00540711
58: CZ03 ZPROG = 'PROGRAM NAME' 00550711
59: ZDATE = '07-Nov-85 ' *RP
60: ZCOMPL = 'CCI 5.2 ' *RP
61: ZPROJ = 'TC-85- -410' *RP
62: ZNAME = ' ' *RP
63: ZTAPE = ' ' *RP
64: ZTAPED = '850703 ' *RP
65: C 00620711
66: IVPASS = 0 00630711
67: IVFAIL = 0 00640711
68: IVDELE = 0 00650711
69: IVINSP = 0 00660711
70: IVTOTL = 0 00670711
71: IVTOTN = 0 00680711
72: ICZERO = 0 00690711
73: C 00700711
74: C I01 CONTAINS THE LOGICAL UNIT NUMBER FOR THE CARD READER. 00710711
75: I01 = 05 00720711
76: C I02 CONTAINS THE LOGICAL UNIT NUMBER FOR THE PRINTER. 00730711
77: I02 = 06 00740711
78: C 00750711
79: I01 = 5 00760711
80: C THE CX010 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I01 = 5 00770711
81: CX011 REPLACED BY FEXEC X-011 CONTROL CARD. CX011 IS FOR SYSTEMS 00780711
82: C REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX010. 00790711
83: C 00800711
84: I02 = 6 00810711
85: C THE CX020 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I02= 6 00820711
86: CX021 REPLACED BY FEXEC X-021 CONTROL CARD. CX021 IS FOR SYSTEMS 00830711
87: C REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX020. 00840711
88: C 00850711
89: CBE** ********************** BBCINITB **********************************00860711
90: ZPROG='FM711' 00870711
91: IVTOTL = 5 00880711
92: CBB** ********************** BBCHED0A **********************************00890711
93: C**** 00900711
94: C**** WRITE REPORT TITLE 00910711
95: C**** 00920711
96: WRITE (I02, 90002) 00930711
97: WRITE (I02, 90006) 00940711
98: WRITE (I02, 90007) 00950711
99: WRITE (I02, 90008) ZVERS, ZVERSD 00960711
100: WRITE (I02, 90009) ZPROG, ZPROG 00970711
101: WRITE (I02, 90010) ZDATE, ZCOMPL 00980711
102: CBE** ********************** BBCHED0A **********************************00990711
103: CBB** ********************** BBCHED0B **********************************01000711
104: C**** WRITE DETAIL REPORT HEADERS 01010711
105: C**** 01020711
106: WRITE (I02,90004) 01030711
107: WRITE (I02,90004) 01040711
108: WRITE (I02,90013) 01050711
109: WRITE (I02,90014) 01060711
110: WRITE (I02,90015) IVTOTL 01070711
111: CBE** ********************** BBCHED0B **********************************01080711
112: ICC001 = 3 01090711
113: ICC002 = 4 01100711
114: C 01110711
115: C TESTS 1-2 - TEST ADJUSTABLE ARRAYS WHERE THE LOWER AND/OR UPPER 01120711
116: C BOUNDS ARE ARGUMENTS OF A SUBROUTINE OR IN COMMON. 01130711
117: C 01140711
118: C 01150711
119: CT001* TEST 001 **** FCVS PROGRAM 711 **** 01160711
120: C 01170711
121: IVTNUM = 1 01180711
122: IVCOMP = 0 01190711
123: IVCORR = 24 01200711
124: CALL SN712(3,5,I2D001,IVCOMP) 01210711
125: 40010 IF (IVCOMP - 24) 20010, 10010, 20010 01220711
126: 10010 IVPASS = IVPASS + 1 01230711
127: WRITE (I02,80002) IVTNUM 01240711
128: GO TO 0011 01250711
129: 20010 IVFAIL = IVFAIL + 1 01260711
130: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 01270711
131: 0011 CONTINUE 01280711
132: C 01290711
133: CT002* TEST 002 **** FCVS PROGRAM 711 **** 01300711
134: C 01310711
135: IVTNUM = 2 01320711
136: IVCOMP = 0 01330711
137: IVCORR = 113 01340711
138: CALL SN713(1,I2D001,IVCOMP) 01350711
139: 40020 IF (IVCOMP - 113) 20020, 10020, 20020 01360711
140: 10020 IVPASS = IVPASS + 1 01370711
141: WRITE (I02,80002) IVTNUM 01380711
142: GO TO 0021 01390711
143: 20020 IVFAIL = IVFAIL + 1 01400711
144: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 01410711
145: 0021 CONTINUE 01420711
146: C 01430711
147: CT003* TEST 003 **** FCVS PROGRAM 711 **** 01440711
148: C 01450711
149: C TEST THE ABILITY TO USE AN ARRAY ELEMENT NAME 01460711
150: C AS A UNIT IDENTIFIER FOR AN INTERNAL FILE 01470711
151: C IN AN INPUT/OUTPUT STATEMENT 01480711
152: C 01490711
153: IVTNUM = 3 01500711
154: IVCOMP = 0 01510711
155: IVCORR = 9792 01520711
156: READ (UNIT=C1N001(3),FMT=70010) IVCOMP 01530711
157: 70010 FORMAT (I5) 01540711
158: 40030 IF (IVCOMP - 9792) 20030, 10030, 20030 01550711
159: 10030 IVPASS = IVPASS + 1 01560711
160: WRITE (I02,80002) IVTNUM 01570711
161: GO TO 0031 01580711
162: 20030 IVFAIL = IVFAIL + 1 01590711
163: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 01600711
164: 0031 CONTINUE 01610711
165: C 01620711
166: CT004* TEST 004 **** FCVS PROGRAM 711 **** 01630711
167: C TEST THE ABILITY TO USE AN ARRAY NAME 01640711
168: C AS A FORMAT IDENTIFIER IN AN INPUT/OUTPUT 01650711
169: C STATEMENT 01660711
170: C 01670711
171: IVTNUM = 4 01680711
172: CVCOMP = ' ' 01690711
173: CVCORR = 'I/O TEST: THIS IS IT' 01700711
174: CVN001 = 'THIS IS IT' 01710711
175: WRITE (UNIT=CVCOMP, FMT=C1N002) CVN001 01720711
176: IVCOMP = 0 01730711
177: IF (CVCOMP .EQ. 'I/O TEST: THIS IS IT') IVCOMP = 1 01740711
178: IF (IVCOMP - 1) 20040, 10040, 20040 01750711
179: 10040 IVPASS = IVPASS + 1 01760711
180: WRITE (I02,80002) IVTNUM 01770711
181: GO TO 0041 01780711
182: 20040 IVFAIL = IVFAIL + 1 01790711
183: WRITE (I02,80018) IVTNUM, CVCOMP, CVCORR 01800711
184: 0041 CONTINUE 01810711
185: C 01820711
186: CT005* TEST 005 **** FCVS PROGRAM 711 **** 01830711
187: C TEST THE ABILITY TO USE AN ARRAY NAME 01840711
188: C IN A SAVE STATMENT 01850711
189: C 01860711
190: IVTNUM = 5 01870711
191: IVCOMP = 0 01880711
192: IVCORR = 174 01890711
193: CALL SN714(1,IVD001) 01900711
194: CALL SN714(2,IVCOMP) 01910711
195: 40050 IF (IVCOMP - 174) 20050, 10050, 20050 01920711
196: 10050 IVPASS = IVPASS + 1 01930711
197: WRITE (I02,80002) IVTNUM 01940711
198: GO TO 0051 01950711
199: 20050 IVFAIL = IVFAIL + 1 01960711
200: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 01970711
201: 0051 CONTINUE 01980711
202: C 01990711
203: CBB** ********************** BBCSUM0 **********************************02000711
204: C**** WRITE OUT TEST SUMMARY 02010711
205: C**** 02020711
206: IVTOTN = IVPASS + IVFAIL + IVDELE + IVINSP 02030711
207: WRITE (I02, 90004) 02040711
208: WRITE (I02, 90014) 02050711
209: WRITE (I02, 90004) 02060711
210: WRITE (I02, 90020) IVPASS 02070711
211: WRITE (I02, 90022) IVFAIL 02080711
212: WRITE (I02, 90024) IVDELE 02090711
213: WRITE (I02, 90026) IVINSP 02100711
214: WRITE (I02, 90028) IVTOTN, IVTOTL 02110711
215: CBE** ********************** BBCSUM0 **********************************02120711
216: CBB** ********************** BBCFOOT0 **********************************02130711
217: C**** WRITE OUT REPORT FOOTINGS 02140711
218: C**** 02150711
219: WRITE (I02,90016) ZPROG, ZPROG 02160711
220: WRITE (I02,90018) ZPROJ, ZNAME, ZTAPE, ZTAPED 02170711
221: WRITE (I02,90019) 02180711
222: CBE** ********************** BBCFOOT0 **********************************02190711
223: 90001 FORMAT (1H ,56X,5HFM711) 02200711
224: 90000 FORMAT (1H ,50X,20HEND OF PROGRAM FM711) 02210711
225: CBB** ********************** BBCFMT0A **********************************02220711
226: C**** FORMATS FOR TEST DETAIL LINES 02230711
227: C**** 02240711
228: 80000 FORMAT (1H ,2X,I3,4X,7HDELETED,32X,A31) 02250711
229: 80002 FORMAT (1H ,2X,I3,4X,7H PASS ,32X,A31) 02260711
230: 80004 FORMAT (1H ,2X,I3,4X,7HINSPECT,32X,A31) 02270711
231: 80008 FORMAT (1H ,2X,I3,4X,7H FAIL ,32X,A31) 02280711
232: 80010 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,15X,10HCOMPUTED= , 02290711
233: 1I6,/,1H ,15X,10HCORRECT= ,I6) 02300711
234: 80012 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 02310711
235: 1E12.5,/,1H ,16X,10HCORRECT= ,E12.5) 02320711
236: 80018 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 02330711
237: 1A21,/,1H ,16X,10HCORRECT= ,A21) 02340711
238: 80020 FORMAT (1H ,16X,10HCOMPUTED= ,A21,1X,A31) 02350711
239: 80022 FORMAT (1H ,16X,10HCORRECT= ,A21,1X,A31) 02360711
240: 80024 FORMAT (1H ,16X,10HCOMPUTED= ,I6,16X,A31) 02370711
241: 80026 FORMAT (1H ,16X,10HCORRECT= ,I6,16X,A31) 02380711
242: 80028 FORMAT (1H ,16X,10HCOMPUTED= ,E12.5,10X,A31) 02390711
243: 80030 FORMAT (1H ,16X,10HCORRECT= ,E12.5,10X,A31) 02400711
244: 80050 FORMAT (1H ,48X,A31) 02410711
245: CBE** ********************** BBCFMT0A **********************************02420711
246: CBB** ********************** BBCFMAT1 **********************************02430711
247: C**** FORMATS FOR TEST DETAIL LINES - FULL LANGUAGE 02440711
248: C**** 02450711
249: 80031 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 02460711
250: 1D17.10,/,1H ,16X,10HCORRECT= ,D17.10) 02470711
251: 80033 FORMAT (1H ,16X,10HCOMPUTED= ,D17.10,10X,A31) 02480711
252: 80035 FORMAT (1H ,16X,10HCORRECT= ,D17.10,10X,A31) 02490711
253: 80037 FORMAT (1H ,16X,10HCOMPUTED= ,1H(,E12.5,2H, ,E12.5,1H),6X,A31) 02500711
254: 80039 FORMAT (1H ,16X,10HCORRECT= ,1H(,E12.5,2H, ,E12.5,1H),6X,A31) 02510711
255: 80041 FORMAT (1H ,16X,10HCOMPUTED= ,1H(,F12.5,2H, ,F12.5,1H),6X,A31) 02520711
256: 80043 FORMAT (1H ,16X,10HCORRECT= ,1H(,F12.5,2H, ,F12.5,1H),6X,A31) 02530711
257: 80045 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 02540711
258: 11H(,F12.5,2H, ,F12.5,1H)/,1H ,16X,10HCORRECT= , 02550711
259: 21H(,F12.5,2H, ,F12.5,1H)) 02560711
260: CBE** ********************** BBCFMAT1 **********************************02570711
261: CBB** ********************** BBCFMT0B **********************************02580711
262: C**** FORMAT STATEMENTS FOR PAGE HEADERS 02590711
263: C**** 02600711
264: 90002 FORMAT (1H1) 02610711
265: 90004 FORMAT (1H ) 02620711
266: 90006 FORMAT (1H ,20X,31HFEDERAL SOFTWARE TESTING CENTER) 02630711
267: 90007 FORMAT (1H ,19X,34HFORTRAN COMPILER VALIDATION SYSTEM) 02640711
268: 90008 FORMAT (1H ,21X,A13,A17) 02650711
269: 90009 FORMAT (1H ,/,2H *,A5,6HBEGIN*,12X,15HTEST RESULTS - ,A5,/) 02660711
270: 90010 FORMAT (1H ,8X,16HTEST DATE*TIME= ,A17,15H - COMPILER= ,A20) 02670711
271: 90013 FORMAT (1H ,8H TEST ,10HPASS/FAIL ,6X,17HDISPLAYED RESULTS, 02680711
272: 1 7X,7HREMARKS,24X) 02690711
273: 90014 FORMAT (1H ,46H----------------------------------------------, 02700711
274: 1 33H---------------------------------) 02710711
275: 90015 FORMAT (1H ,48X,17HTHIS PROGRAM HAS ,I3,6H TESTS,/) 02720711
276: C**** 02730711
277: C**** FORMAT STATEMENTS FOR REPORT FOOTINGS 02740711
278: C**** 02750711
279: 90016 FORMAT (1H ,/,2H *,A5,4HEND*,14X,14HEND OF TEST - ,A5,/) 02760711
280: 90018 FORMAT (1H ,A13,13X,A20,7H * ,A10,1H/, 02770711
281: 1 A13) 02780711
282: 90019 FORMAT (1H ,26HFOR OFFICIAL USE ONLY ,35X,15HCOPYRIGHT 1982) 02790711
283: C**** 02800711
284: C**** FORMAT STATEMENTS FOR RUN SUMMARY 02810711
285: C**** 02820711
286: 90020 FORMAT (1H ,21X,I5,13H TESTS PASSED) 02830711
287: 90022 FORMAT (1H ,21X,I5,13H TESTS FAILED) 02840711
288: 90024 FORMAT (1H ,21X,I5,14H TESTS DELETED) 02850711
289: 90026 FORMAT (1H ,21X,I5,25H TESTS REQUIRE INSPECTION) 02860711
290: 90028 FORMAT (1H ,21X,I5,4H OF ,I3,15H TESTS EXECUTED) 02870711
291: CBE** ********************** BBCFMT0B **********************************02880711
292: END 02890711
293: C THIS SUBROUTINE IS TO BE RUN WITH ROUTINE 711. 00010712
294: C DATE***82/08/02*18.33.46
295: C OWNER PRE/850703/TC-85- -410/ /FSTC/278FCVS*F78UBP20/
296: C AUDIT FCVS78 V2.0
297: C 00020712
298: C THIS SUBROUTINE TESTS ADJUSTABLE ARRAYS AND ADJUSTABLE 00030712
299: C DIMENSIONS WHERE THE UPPER BOUND 00040712
300: C IS A DUMMY ARGUMENT. 00050712
301: C 00060712
302: SUBROUTINE SN712(IVD001,IVD002,I2D001,IVD003) 00070712
303: INTEGER I2D001(1:IVD001,1:IVD002) 00080712
304: IVD003 = I2D001(2,4) 00090712
305: RETURN 00100712
306: END 00110712
307: C THIS SUBROUTINE IS TO BE RUN WITH ROUTINE 711. 00010713
308: C DATE***82/08/02*18.33.46
309: C OWNER PRE/850703/TC-85- -410/ /FSTC/278FCVS*F78UBP20/
310: C AUDIT FCVS78 V2.0
311: C 00020713
312: C THIS SUBROUTINE TESTS ADJUSTABLE ARRAYS AND ADJUSTABLE 00030713
313: C DIMENSIONS WHERE THE LOWER AND 00040713
314: C UPPER BOUND MAY BE A DUMMY ARGUMENT 00050713
315: C AND/OR IN COMMON. 00060713
316: C 00070713
317: SUBROUTINE SN713(IVD001,I2D001,IVD002) 00080713
318: COMMON ICC001, ICC002 00090713
319: INTEGER I2D001(IVD001:ICC001,2:ICC002) 00100713
320: I2D001(3,4) = 113 00110713
321: IVD002 = I2D001(3,4) 00120713
322: RETURN 00130713
323: END 00140713
324: C THIS SUBROUTINE IS TO BE RUN WITH ROUTINE 711. 00010714
325: C DATE***82/08/02*18.33.46
326: C OWNER PRE/850703/TC-85- -410/ /FSTC/278FCVS*F78UBP20/
327: C AUDIT FCVS78 V2.0
328: C 00020714
329: C THIS SUBROUTINE TESTS THE USE OF ARRAY NAMES IN A 00030714
330: C SAVE STATEMENT. 00040714
331: C 00050714
332: SUBROUTINE SN714(IVD001, IVD002) 00060714
333: INTEGER I2N001(2,2) 00070714
334: SAVE I2N001 00080714
335: IF (IVD001.GT.1) GO TO 70010 00090714
336: I2N001(1,1) = -12 00100714
337: I2N001(1,2) = 137 00110714
338: I2N001(2,1) = 69 00120714
339: I2N001(2,2) = 102 00130714
340: 70010 IVD002 = I2N001(1,2)+I2N001(2,2)/17-(2*I2N001(1,1)-I2N001(2,1))/3 00140714
341: RETURN 00150714
342: END 00160714
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.