![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to FM261.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 FM261.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***********************************************************************00010261
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 00020261
6: C***** FM261 00030261
7: C***** BLKIF4 - (303) 00040261
8: C***** THIS PROGRAM CALLS SUBROUTINES SN262, SN263 AND INTEGER 00050261
9: C FUNCTION IF264 00060261
10: C***********************************************************************00070261
11: C***** GENERAL PURPOSE SUBSET REF 00080261
12: C***** TEST BLOCK IF STATEMENTS 11.6 - 11.900090261
13: C***** WITH SUBROUTINE CALLS 15.6 00100261
14: C***** USES SUBROUTINES SN262 (750), SN263 (751) 00110261
15: C***** AND FUNCTION IF264 (752) 00120261
16: CBB** ********************** BBCCOMNT **********************************00130261
17: C**** 00140261
18: C**** 1978 FORTRAN COMPILER VALIDATION SYSTEM 00150261
19: C**** VERSION 2.0 00160261
20: C**** 00170261
21: C**** 00180261
22: C**** SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00190261
23: C**** GENERAL SERVICES ADMINISTRATION 00200261
24: C**** FEDERAL SOFTWARE TESTING CENTER 00210261
25: C**** 5203 LEESBURG PIKE, SUITE 1100 00220261
26: C**** FALLS CHURCH, VA. 22041 00230261
27: C**** 00240261
28: C**** (703) 756-6153 00250261
29: C**** 00260261
30: CBE** ********************** BBCCOMNT **********************************00270261
31: CBB** ********************** BBCINITA **********************************00280261
32: C**** SPECIFICATION STATEMENTS 00290261
33: C**** 00300261
34: CHARACTER ZVERS*13, ZVERSD*17, ZDATE*17, ZPROG*5, ZCOMPL*20, 00310261
35: 1 ZNAME*20, ZTAPE*10, ZPROJ*13, REMRKS*31, ZTAPED*13 00320261
36: CBE** ********************** BBCINITA **********************************00330261
37: CBB** ********************** BBCINITB **********************************00340261
38: C**** INITIALIZE SECTION 00350261
39: DATA ZVERS, ZVERSD, ZDATE 00360261
40: 1 /'VERSION 2.0 ', '82/08/02*18.33.46', '*NO DATE*TIME'/ 00370261
41: DATA ZCOMPL, ZNAME, ZTAPE 00380261
42: 1 /'*NONE SPECIFIED*', '*NO COMPANY NAME*', '*NO TAPE*'/ 00390261
43: DATA ZPROJ, ZTAPED, ZPROG 00400261
44: 1 /'*NO PROJECT*', '*NO TAPE DATE', 'XXXXX'/ 00410261
45: DATA REMRKS /' '/ 00420261
46: C**** THE FOLLOWING 9 COMMENT LINES (CZ01, CZ02, ...) CAN BE REPLACED 00430261
47: C**** FOR IDENTIFYING THE TEST ENVIRONMENT 00440261
48: C**** 00450261
49: CZ01 ZVERS = 'VERSION OF THE COMPILER VALIDATION SYSTEM' 00460261
50: CZ02 ZVERSD = 'CREATION DATE/TIME OF THE COMPILER VALIDATION SYSTEM' 00470261
51: CZ03 ZPROG = 'PROGRAM NAME' 00480261
52: ZDATE = '07-Nov-85 ' *RP
53: ZCOMPL = 'CCI 5.2 ' *RP
54: ZPROJ = 'TC-85- -410' *RP
55: ZNAME = ' ' *RP
56: ZTAPE = ' ' *RP
57: ZTAPED = '850703 ' *RP
58: C 00550261
59: IVPASS = 0 00560261
60: IVFAIL = 0 00570261
61: IVDELE = 0 00580261
62: IVINSP = 0 00590261
63: IVTOTL = 0 00600261
64: IVTOTN = 0 00610261
65: ICZERO = 0 00620261
66: C 00630261
67: C I01 CONTAINS THE LOGICAL UNIT NUMBER FOR THE CARD READER. 00640261
68: I01 = 05 00650261
69: C I02 CONTAINS THE LOGICAL UNIT NUMBER FOR THE PRINTER. 00660261
70: I02 = 06 00670261
71: C 00680261
72: I01 = 5 00690261
73: C THE CX010 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I01 = 5 00700261
74: CX011 REPLACED BY FEXEC X-011 CONTROL CARD. CX011 IS FOR SYSTEMS 00710261
75: C REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX010. 00720261
76: C 00730261
77: I02 = 6 00740261
78: C THE CX020 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I02= 6 00750261
79: CX021 REPLACED BY FEXEC X-021 CONTROL CARD. CX021 IS FOR SYSTEMS 00760261
80: C REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX020. 00770261
81: C 00780261
82: CBE** ********************** BBCINITB **********************************00790261
83: NUVI = I02 00800261
84: ZPROG = 'FM261' 00810261
85: CBB** ********************** BBCHED0A **********************************00820261
86: C**** 00830261
87: C**** WRITE REPORT TITLE 00840261
88: C**** 00850261
89: WRITE (I02, 90002) 00860261
90: WRITE (I02, 90006) 00870261
91: WRITE (I02, 90007) 00880261
92: WRITE (I02, 90008) ZVERS, ZVERSD 00890261
93: WRITE (I02, 90009) ZPROG, ZPROG 00900261
94: WRITE (I02, 90010) ZDATE, ZCOMPL 00910261
95: CBE** ********************** BBCHED0A **********************************00920261
96: C***** TOTAL NUMBER OF EXPECTED TESTS 00930261
97: IVTOTL = 2 00940261
98: C***** HEADER FOR SEGMENT 303 00950261
99: WRITE(NUVI,30300) 00960261
100: 30300 FORMAT(1H ,/24H BLKIF4 - (303) BLOCK IF// 00970261
101: 1 31H BLOCK IF WITH SUBPROGRAM CALL// 00980261
102: 2 31H SUBSET REF. 11.6 - 11.9, 15.6) 00990261
103: CBB** ********************** BBCHED0B **********************************01000261
104: C**** WRITE DETAIL REPORT HEADERS 01010261
105: C**** 01020261
106: WRITE (I02,90004) 01030261
107: WRITE (I02,90004) 01040261
108: WRITE (I02,90013) 01050261
109: WRITE (I02,90014) 01060261
110: WRITE (I02,90015) IVTOTL 01070261
111: CBE** ********************** BBCHED0B **********************************01080261
112: C***** 01090261
113: WRITE (NUVI, 30325) 01100261
114: CT001* TEST 1 BLOCK IF WITH SUBROUTINE CALLS 01110261
115: IVTNUM = 1 01120261
116: IVINSP = IVINSP + 1 01130261
117: WRITE (NUVI, 80004) IVTNUM 01140261
118: IVI = 3 01150261
119: CALL SN262 (IVI) 01160261
120: IF (IVI .GT. 0) THEN 01170261
121: CALL SN262 (IVI) 01180261
122: ELSE 01190261
123: CALL SN263 (IVI) 01200261
124: ENDIF 01210261
125: LVI = 7 - IVI 01220261
126: WRITE (NUVI, 30301) LVI 01230261
127: C***** CONTINUE 01240261
128: CT002* TEST 2 CALL OF FUNCTION CONTAINING BLOCK IF 01250261
129: IVTNUM = 2 01260261
130: IVINSP = IVINSP + 1 01270261
131: WRITE (NUVI, 80004) IVTNUM 01280261
132: IVI = 7 01290261
133: IVI = IF264 (IVI .GT. 0) 01300261
134: LVI = 8 - IVI 01310261
135: WRITE (NUVI, 30301) LVI 01320261
136: IVI = IF264 (LVI .NE. 0) 01330261
137: LVI = 6 - IVI 01340261
138: WRITE (NUVI, 30301) LVI 01350261
139: C***** 01360261
140: 30325 FORMAT (/49X,'TEST 1 (1 COMPUTED RESULT)'/ 01370261
141: 1 49X,'TEST 2 (2 COMPUTED RESULTS)'/ 01380261
142: 2 49X,'ALL ANSWERS SHOULD BE ZERO') 01390261
143: 30301 FORMAT (1H ,26X,I10) 01400261
144: C***** 01410261
145: CBB** ********************** BBCSUM0 **********************************01420261
146: C**** WRITE OUT TEST SUMMARY 01430261
147: C**** 01440261
148: IVTOTN = IVPASS + IVFAIL + IVDELE + IVINSP 01450261
149: WRITE (I02, 90004) 01460261
150: WRITE (I02, 90014) 01470261
151: WRITE (I02, 90004) 01480261
152: WRITE (I02, 90020) IVPASS 01490261
153: WRITE (I02, 90022) IVFAIL 01500261
154: WRITE (I02, 90024) IVDELE 01510261
155: WRITE (I02, 90026) IVINSP 01520261
156: WRITE (I02, 90028) IVTOTN, IVTOTL 01530261
157: CBE** ********************** BBCSUM0 **********************************01540261
158: CBB** ********************** BBCFOOT0 **********************************01550261
159: C**** WRITE OUT REPORT FOOTINGS 01560261
160: C**** 01570261
161: WRITE (I02,90016) ZPROG, ZPROG 01580261
162: WRITE (I02,90018) ZPROJ, ZNAME, ZTAPE, ZTAPED 01590261
163: WRITE (I02,90019) 01600261
164: CBE** ********************** BBCFOOT0 **********************************01610261
165: CBB** ********************** BBCFMT0A **********************************01620261
166: C**** FORMATS FOR TEST DETAIL LINES 01630261
167: C**** 01640261
168: 80000 FORMAT (1H ,2X,I3,4X,7HDELETED,32X,A31) 01650261
169: 80002 FORMAT (1H ,2X,I3,4X,7H PASS ,32X,A31) 01660261
170: 80004 FORMAT (1H ,2X,I3,4X,7HINSPECT,32X,A31) 01670261
171: 80008 FORMAT (1H ,2X,I3,4X,7H FAIL ,32X,A31) 01680261
172: 80010 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,15X,10HCOMPUTED= , 01690261
173: 1I6,/,1H ,15X,10HCORRECT= ,I6) 01700261
174: 80012 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 01710261
175: 1E12.5,/,1H ,16X,10HCORRECT= ,E12.5) 01720261
176: 80018 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 01730261
177: 1A21,/,1H ,16X,10HCORRECT= ,A21) 01740261
178: 80020 FORMAT (1H ,16X,10HCOMPUTED= ,A21,1X,A31) 01750261
179: 80022 FORMAT (1H ,16X,10HCORRECT= ,A21,1X,A31) 01760261
180: 80024 FORMAT (1H ,16X,10HCOMPUTED= ,I6,16X,A31) 01770261
181: 80026 FORMAT (1H ,16X,10HCORRECT= ,I6,16X,A31) 01780261
182: 80028 FORMAT (1H ,16X,10HCOMPUTED= ,E12.5,10X,A31) 01790261
183: 80030 FORMAT (1H ,16X,10HCORRECT= ,E12.5,10X,A31) 01800261
184: 80050 FORMAT (1H ,48X,A31) 01810261
185: CBE** ********************** BBCFMT0A **********************************01820261
186: CBB** ********************** BBCFMT0B **********************************01830261
187: C**** FORMAT STATEMENTS FOR PAGE HEADERS 01840261
188: C**** 01850261
189: 90002 FORMAT (1H1) 01860261
190: 90004 FORMAT (1H ) 01870261
191: 90006 FORMAT (1H ,20X,31HFEDERAL SOFTWARE TESTING CENTER) 01880261
192: 90007 FORMAT (1H ,19X,34HFORTRAN COMPILER VALIDATION SYSTEM) 01890261
193: 90008 FORMAT (1H ,21X,A13,A17) 01900261
194: 90009 FORMAT (1H ,/,2H *,A5,6HBEGIN*,12X,15HTEST RESULTS - ,A5,/) 01910261
195: 90010 FORMAT (1H ,8X,16HTEST DATE*TIME= ,A17,15H - COMPILER= ,A20) 01920261
196: 90013 FORMAT (1H ,8H TEST ,10HPASS/FAIL ,6X,17HDISPLAYED RESULTS, 01930261
197: 1 7X,7HREMARKS,24X) 01940261
198: 90014 FORMAT (1H ,46H----------------------------------------------, 01950261
199: 1 33H---------------------------------) 01960261
200: 90015 FORMAT (1H ,48X,17HTHIS PROGRAM HAS ,I3,6H TESTS,/) 01970261
201: C**** 01980261
202: C**** FORMAT STATEMENTS FOR REPORT FOOTINGS 01990261
203: C**** 02000261
204: 90016 FORMAT (1H ,/,2H *,A5,4HEND*,14X,14HEND OF TEST - ,A5,/) 02010261
205: 90018 FORMAT (1H ,A13,13X,A20,7H * ,A10,1H/, 02020261
206: 1 A13) 02030261
207: 90019 FORMAT (1H ,26HFOR OFFICIAL USE ONLY ,35X,15HCOPYRIGHT 1982) 02040261
208: C**** 02050261
209: C**** FORMAT STATEMENTS FOR RUN SUMMARY 02060261
210: C**** 02070261
211: 90020 FORMAT (1H ,21X,I5,13H TESTS PASSED) 02080261
212: 90022 FORMAT (1H ,21X,I5,13H TESTS FAILED) 02090261
213: 90024 FORMAT (1H ,21X,I5,14H TESTS DELETED) 02100261
214: 90026 FORMAT (1H ,21X,I5,25H TESTS REQUIRE INSPECTION) 02110261
215: 90028 FORMAT (1H ,21X,I5,4H OF ,I3,15H TESTS EXECUTED) 02120261
216: CBE** ********************** BBCFMT0B **********************************02130261
217: C***** END OF TEST SEGMENT 303 02140261
218: STOP 02150261
219: END 02160261
220: C***********************************************************************00010262
221: C DATE***82/08/02*18.33.46
222: C OWNER PRE/850703/TC-85- -410/ /FSTC/278FCVS*F78UBP20/
223: C AUDIT FCVS78 V2.0
224: C***** FORTRAN 77 00020262
225: C***** FM262 00030262
226: C***** SN262 SN262 - (750) 00040262
227: C***** SUBROUTINE CALLED BY FM261 00050262
228: C***********************************************************************00060262
229: C***** 00070262
230: SUBROUTINE SN262 (IWVI) 00080262
231: C***** 00090262
232: IWVI = IWVI + 2 00100262
233: C***** 00110262
234: RETURN 00120262
235: END 00130262
236: C***********************************************************************00010263
237: C DATE***82/08/02*18.33.46
238: C OWNER PRE/850703/TC-85- -410/ /FSTC/278FCVS*F78UBP20/
239: C AUDIT FCVS78 V2.0
240: C***** FORTRAN 77 00020263
241: C***** FM263 00030263
242: C***** SN263 SN263 - (751) 00040263
243: C***** SUBROUTINE CALLED BY FM261 00050263
244: C***********************************************************************00060263
245: C***** 00070263
246: SUBROUTINE SN263 (IWVI) 00080263
247: C***** 00090263
248: IWVI = IWVI * (-10) 00100263
249: C***** 00110263
250: RETURN 00120263
251: END 00130263
252: C***********************************************************************00010264
253: C DATE***82/08/02*18.33.46
254: C OWNER PRE/850703/TC-85- -410/ /FSTC/278FCVS*F78UBP20/
255: C AUDIT FCVS78 V2.0
256: C***** FORTRAN 77 00020264
257: C***** FM264 00030264
258: C***** IF264 IF264 - (752) 00040264
259: C***** INTEGER FUNCTION CALLED BY FM261 00050264
260: C***********************************************************************00060264
261: C***** 00070264
262: INTEGER FUNCTION IF264 (AWVB) 00080264
263: LOGICAL AWVB 00090264
264: C***** 00100264
265: IF (AWVB) THEN 00110264
266: IF264 = 8 00120264
267: RETURN 00130264
268: ELSE 00140264
269: IF264 = 6 00150264
270: ENDIF 00160264
271: C***** 00170264
272: RETURN 00180264
273: END 00190264
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.