![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to FM258.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 FM258.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***********************************************************************00010258
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 00020258
6: C***** FM258 00030258
7: C***** BLKIF1 - (300) 00040258
8: C***** 00050258
9: C***********************************************************************00060258
10: C***** GENERAL PURPOSE SUBSET REF 00070258
11: C***** TEST BLOCK IF STATEMENTS 11.6 - 11.9 00080258
12: C***** SIMPLE TESTS OF IF (E) THEN,ELSE,ELSEIF,ENDIF 00090258
13: C***** 00100258
14: CBB** ********************** BBCCOMNT **********************************00110258
15: C**** 00120258
16: C**** 1978 FORTRAN COMPILER VALIDATION SYSTEM 00130258
17: C**** VERSION 2.0 00140258
18: C**** 00150258
19: C**** 00160258
20: C**** SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00170258
21: C**** GENERAL SERVICES ADMINISTRATION 00180258
22: C**** FEDERAL SOFTWARE TESTING CENTER 00190258
23: C**** 5203 LEESBURG PIKE, SUITE 1100 00200258
24: C**** FALLS CHURCH, VA. 22041 00210258
25: C**** 00220258
26: C**** (703) 756-6153 00230258
27: C**** 00240258
28: CBE** ********************** BBCCOMNT **********************************00250258
29: CBB** ********************** BBCINITA **********************************00260258
30: C**** SPECIFICATION STATEMENTS 00270258
31: C**** 00280258
32: CHARACTER ZVERS*13, ZVERSD*17, ZDATE*17, ZPROG*5, ZCOMPL*20, 00290258
33: 1 ZNAME*20, ZTAPE*10, ZPROJ*13, REMRKS*31, ZTAPED*13 00300258
34: CBE** ********************** BBCINITA **********************************00310258
35: CBB** ********************** BBCINITB **********************************00320258
36: C**** INITIALIZE SECTION 00330258
37: DATA ZVERS, ZVERSD, ZDATE 00340258
38: 1 /'VERSION 2.0 ', '82/08/02*18.33.46', '*NO DATE*TIME'/ 00350258
39: DATA ZCOMPL, ZNAME, ZTAPE 00360258
40: 1 /'*NONE SPECIFIED*', '*NO COMPANY NAME*', '*NO TAPE*'/ 00370258
41: DATA ZPROJ, ZTAPED, ZPROG 00380258
42: 1 /'*NO PROJECT*', '*NO TAPE DATE', 'XXXXX'/ 00390258
43: DATA REMRKS /' '/ 00400258
44: C**** THE FOLLOWING 9 COMMENT LINES (CZ01, CZ02, ...) CAN BE REPLACED 00410258
45: C**** FOR IDENTIFYING THE TEST ENVIRONMENT 00420258
46: C**** 00430258
47: CZ01 ZVERS = 'VERSION OF THE COMPILER VALIDATION SYSTEM' 00440258
48: CZ02 ZVERSD = 'CREATION DATE/TIME OF THE COMPILER VALIDATION SYSTEM' 00450258
49: CZ03 ZPROG = 'PROGRAM NAME' 00460258
50: ZDATE = '07-Nov-85 ' *RP
51: ZCOMPL = 'CCI 5.2 ' *RP
52: ZPROJ = 'TC-85- -410' *RP
53: ZNAME = ' ' *RP
54: ZTAPE = ' ' *RP
55: ZTAPED = '850703 ' *RP
56: C 00530258
57: IVPASS = 0 00540258
58: IVFAIL = 0 00550258
59: IVDELE = 0 00560258
60: IVINSP = 0 00570258
61: IVTOTL = 0 00580258
62: IVTOTN = 0 00590258
63: ICZERO = 0 00600258
64: C 00610258
65: C I01 CONTAINS THE LOGICAL UNIT NUMBER FOR THE CARD READER. 00620258
66: I01 = 05 00630258
67: C I02 CONTAINS THE LOGICAL UNIT NUMBER FOR THE PRINTER. 00640258
68: I02 = 06 00650258
69: C 00660258
70: I01 = 5 00670258
71: C THE CX010 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I01 = 5 00680258
72: CX011 REPLACED BY FEXEC X-011 CONTROL CARD. CX011 IS FOR SYSTEMS 00690258
73: C REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX010. 00700258
74: C 00710258
75: I02 = 6 00720258
76: C THE CX020 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I02= 6 00730258
77: CX021 REPLACED BY FEXEC X-021 CONTROL CARD. CX021 IS FOR SYSTEMS 00740258
78: C REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX020. 00750258
79: C 00760258
80: CBE** ********************** BBCINITB **********************************00770258
81: NUVI = I02 00780258
82: ZPROG='FM258' 00790258
83: CBB** ********************** BBCHED0A **********************************00800258
84: C**** 00810258
85: C**** WRITE REPORT TITLE 00820258
86: C**** 00830258
87: WRITE (I02, 90002) 00840258
88: WRITE (I02, 90006) 00850258
89: WRITE (I02, 90007) 00860258
90: WRITE (I02, 90008) ZVERS, ZVERSD 00870258
91: WRITE (I02, 90009) ZPROG, ZPROG 00880258
92: WRITE (I02, 90010) ZDATE, ZCOMPL 00890258
93: CBE** ********************** BBCHED0A **********************************00900258
94: C***** TOTAL NUMBER OF EXPECTED TEST 00910258
95: IVTOTL=8 00920258
96: C***** HEADER FOR SEGMENT 300 00930258
97: WRITE(NUVI,30000) 00940258
98: 30000 FORMAT(/1X,38H BLKIF1 - (300) BLOCK IF - SIMPLE TEST// 00950258
99: 1 26H SUBSET REF. 11.6 - 11.9) 00960258
100: CBB** ********************** BBCHED0B **********************************00970258
101: C**** WRITE DETAIL REPORT HEADERS 00980258
102: C**** 00990258
103: WRITE (I02,90004) 01000258
104: WRITE (I02,90004) 01010258
105: WRITE (I02,90013) 01020258
106: WRITE (I02,90014) 01030258
107: WRITE (I02,90015) IVTOTL 01040258
108: CBE** ********************** BBCHED0B **********************************01050258
109: C***** 01060258
110: WRITE (NUVI,30025) 01070258
111: CT001* TEST 1 IF (E) THEN .*. ELSE .*. ENDIF 01080258
112: IVTNUM = 1 01090258
113: IVINSP=IVINSP+1 01100258
114: WRITE(NUVI,80004) IVTNUM 01110258
115: JVI = 0 01120258
116: 30001 JVI = JVI + 1 01130258
117: IF (JVI .EQ. 2) THEN 01140258
118: KVI = 2 01150258
119: ELSE 01160258
120: KVI = 1 01170258
121: ENDIF 01180258
122: LVI = JVI - KVI 01190258
123: WRITE(NUVI,30018) LVI 01200258
124: GOTO(30001,30002), JVI 01210258
125: 30002 CONTINUE 01220258
126: CT002* TEST 2 IF (E) THEN .*. ENDIF 01230258
127: IVTNUM = 2 01240258
128: IVINSP=IVINSP+1 01250258
129: WRITE(NUVI,80004) IVTNUM 01260258
130: JVI = 0 01270258
131: KVI = 1 01280258
132: 30003 JVI = JVI + 1 01290258
133: IF (JVI .EQ. 2) THEN 01300258
134: KVI = 2 01310258
135: ENDIF 01320258
136: LVI = JVI - KVI 01330258
137: WRITE(NUVI,30018) LVI 01340258
138: GOTO(30003,30004), JVI 01350258
139: 30004 CONTINUE 01360258
140: CT003* TEST 3 IF (E) THEN ... ELSE .*. ENDIF 01370258
141: IVTNUM = 3 01380258
142: IVINSP=IVINSP+1 01390258
143: WRITE(NUVI,80004) IVTNUM 01400258
144: JVI = 0 01410258
145: KVI = 1 01420258
146: 30005 JVI = JVI + 1 01430258
147: IF (JVI .EQ. 1) THEN 01440258
148: ELSE 01450258
149: KVI = 2 01460258
150: ENDIF 01470258
151: LVI = JVI - KVI 01480258
152: WRITE(NUVI,30018) LVI 01490258
153: GOTO(30005,30006), JVI 01500258
154: 30006 CONTINUE 01510258
155: CT004* TEST 4 IF (E) THEN .*. ELSEIF .*. ELSE .*. ENDIF 01520258
156: IVTNUM = 4 01530258
157: IVINSP=IVINSP+1 01540258
158: WRITE(NUVI,80004) IVTNUM 01550258
159: JVI = 0 01560258
160: 30007 JVI = JVI + 1 01570258
161: IF (JVI .EQ. 1) THEN 01580258
162: KVI = 1 01590258
163: ELSEIF (JVI .EQ. 2) THEN 01600258
164: KVI = 2 01610258
165: ELSE 01620258
166: KVI = 3 01630258
167: ENDIF 01640258
168: LVI = JVI - KVI 01650258
169: WRITE(NUVI,30018) LVI 01660258
170: GOTO(30007,30007,30008), JVI 01670258
171: 30008 CONTINUE 01680258
172: CT005* TEST 5 IF (E) THEN .*. ELSEIF .*. ENDIF 01690258
173: IVTNUM = 5 01700258
174: IVINSP=IVINSP+1 01710258
175: WRITE(NUVI,80004) IVTNUM 01720258
176: JVI = 0 01730258
177: KVI = 1 01740258
178: 30009 JVI = JVI + 1 01750258
179: IF (JVI .GT. 2) THEN 01760258
180: KVI = 3 01770258
181: ELSEIF (JVI .EQ. 2) THEN 01780258
182: KVI = 2 01790258
183: ENDIF 01800258
184: LVI = JVI - KVI 01810258
185: WRITE(NUVI,30018) LVI 01820258
186: GOTO(30009,30009,30010), JVI 01830258
187: 30010 CONTINUE 01840258
188: CT006* TEST 6 IF (E) THEN .*. ELSEIF ... ELSE .*. ENDIF 01850258
189: IVTNUM = 6 01860258
190: IVINSP=IVINSP+1 01870258
191: WRITE(NUVI,80004) IVTNUM 01880258
192: JVI = 0 01890258
193: KVI = 1 01900258
194: 30011 JVI = JVI + 1 01910258
195: IF ( JVI .GT. 2) THEN 01920258
196: KVI = 3 01930258
197: ELSEIF (JVI .EQ. 1) THEN 01940258
198: ELSE 01950258
199: KVI = 2 01960258
200: ENDIF 01970258
201: LVI = JVI - KVI 01980258
202: WRITE(NUVI,30018) LVI 01990258
203: GOTO(30011,30011,30012), JVI 02000258
204: 30012 CONTINUE 02010258
205: CT007* TEST 7 IF (E) THEN ... ELSEIF .*. ELSE .*. ENDIF 02020258
206: IVTNUM = 7 02030258
207: IVINSP=IVINSP+1 02040258
208: WRITE(NUVI,80004) IVTNUM 02050258
209: JVI = 0 02060258
210: KVI = 1 02070258
211: 30013 JVI = JVI + 1 02080258
212: IF (JVI .EQ. 1) THEN 02090258
213: ELSEIF (JVI .LT. 3) THEN 02100258
214: KVI = 2 02110258
215: ELSE 02120258
216: KVI = 3 02130258
217: ENDIF 02140258
218: LVI = JVI - KVI 02150258
219: WRITE(NUVI,30018) LVI 02160258
220: GOTO(30013,30013,30014), JVI 02170258
221: 30014 CONTINUE 02180258
222: CT008* TEST 8 IF (E) THEN .*. ELSEIF .*. ELSEIF .*. ENDIF 02190258
223: IVTNUM = 8 02200258
224: IVINSP=IVINSP+1 02210258
225: WRITE(NUVI,80004) IVTNUM 02220258
226: JVI = 0 02230258
227: 30015 JVI = JVI + 1 02240258
228: KVI = 4 02250258
229: IF ( JVI .EQ. 1) THEN 02260258
230: KVI = 1 02270258
231: ELSEIF (JVI .EQ. 2) THEN 02280258
232: KVI = 2 02290258
233: ELSEIF (JVI .LT. 4) THEN 02300258
234: KVI = 3 02310258
235: ENDIF 02320258
236: LVI = JVI - KVI 02330258
237: WRITE(NUVI,30018) LVI 02340258
238: GOTO(30015,30015,30015,30016), JVI 02350258
239: C***** 02360258
240: 30016 CONTINUE 02370258
241: C***** 02380258
242: CBB** ********************** BBCSUM0 **********************************02390258
243: C**** WRITE OUT TEST SUMMARY 02400258
244: C**** 02410258
245: IVTOTN = IVPASS + IVFAIL + IVDELE + IVINSP 02420258
246: WRITE (I02, 90004) 02430258
247: WRITE (I02, 90014) 02440258
248: WRITE (I02, 90004) 02450258
249: WRITE (I02, 90020) IVPASS 02460258
250: WRITE (I02, 90022) IVFAIL 02470258
251: WRITE (I02, 90024) IVDELE 02480258
252: WRITE (I02, 90026) IVINSP 02490258
253: WRITE (I02, 90028) IVTOTN, IVTOTL 02500258
254: CBE** ********************** BBCSUM0 **********************************02510258
255: CBB** ********************** BBCFOOT0 **********************************02520258
256: C**** WRITE OUT REPORT FOOTINGS 02530258
257: C**** 02540258
258: WRITE (I02,90016) ZPROG, ZPROG 02550258
259: WRITE (I02,90018) ZPROJ, ZNAME, ZTAPE, ZTAPED 02560258
260: WRITE (I02,90019) 02570258
261: CBE** ********************** BBCFOOT0 **********************************02580258
262: CBB** ********************** BBCFMT0A **********************************02590258
263: C**** FORMATS FOR TEST DETAIL LINES 02600258
264: C**** 02610258
265: 80000 FORMAT (1H ,2X,I3,4X,7HDELETED,32X,A31) 02620258
266: 80002 FORMAT (1H ,2X,I3,4X,7H PASS ,32X,A31) 02630258
267: 80004 FORMAT (1H ,2X,I3,4X,7HINSPECT,32X,A31) 02640258
268: 80008 FORMAT (1H ,2X,I3,4X,7H FAIL ,32X,A31) 02650258
269: 80010 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,15X,10HCOMPUTED= , 02660258
270: 1I6,/,1H ,15X,10HCORRECT= ,I6) 02670258
271: 80012 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 02680258
272: 1E12.5,/,1H ,16X,10HCORRECT= ,E12.5) 02690258
273: 80018 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 02700258
274: 1A21,/,1H ,16X,10HCORRECT= ,A21) 02710258
275: 80020 FORMAT (1H ,16X,10HCOMPUTED= ,A21,1X,A31) 02720258
276: 80022 FORMAT (1H ,16X,10HCORRECT= ,A21,1X,A31) 02730258
277: 80024 FORMAT (1H ,16X,10HCOMPUTED= ,I6,16X,A31) 02740258
278: 80026 FORMAT (1H ,16X,10HCORRECT= ,I6,16X,A31) 02750258
279: 80028 FORMAT (1H ,16X,10HCOMPUTED= ,E12.5,10X,A31) 02760258
280: 80030 FORMAT (1H ,16X,10HCORRECT= ,E12.5,10X,A31) 02770258
281: 80050 FORMAT (1H ,48X,A31) 02780258
282: CBE** ********************** BBCFMT0A **********************************02790258
283: CBB** ********************** BBCFMT0B **********************************02800258
284: C**** FORMAT STATEMENTS FOR PAGE HEADERS 02810258
285: C**** 02820258
286: 90002 FORMAT (1H1) 02830258
287: 90004 FORMAT (1H ) 02840258
288: 90006 FORMAT (1H ,20X,31HFEDERAL SOFTWARE TESTING CENTER) 02850258
289: 90007 FORMAT (1H ,19X,34HFORTRAN COMPILER VALIDATION SYSTEM) 02860258
290: 90008 FORMAT (1H ,21X,A13,A17) 02870258
291: 90009 FORMAT (1H ,/,2H *,A5,6HBEGIN*,12X,15HTEST RESULTS - ,A5,/) 02880258
292: 90010 FORMAT (1H ,8X,16HTEST DATE*TIME= ,A17,15H - COMPILER= ,A20) 02890258
293: 90013 FORMAT (1H ,8H TEST ,10HPASS/FAIL ,6X,17HDISPLAYED RESULTS, 02900258
294: 1 7X,7HREMARKS,24X) 02910258
295: 90014 FORMAT (1H ,46H----------------------------------------------, 02920258
296: 1 33H---------------------------------) 02930258
297: 90015 FORMAT (1H ,48X,17HTHIS PROGRAM HAS ,I3,6H TESTS,/) 02940258
298: C**** 02950258
299: C**** FORMAT STATEMENTS FOR REPORT FOOTINGS 02960258
300: C**** 02970258
301: 90016 FORMAT (1H ,/,2H *,A5,4HEND*,14X,14HEND OF TEST - ,A5,/) 02980258
302: 90018 FORMAT (1H ,A13,13X,A20,7H * ,A10,1H/, 02990258
303: 1 A13) 03000258
304: 90019 FORMAT (1H ,26HFOR OFFICIAL USE ONLY ,35X,15HCOPYRIGHT 1982) 03010258
305: C**** 03020258
306: C**** FORMAT STATEMENTS FOR RUN SUMMARY 03030258
307: C**** 03040258
308: 90020 FORMAT (1H ,21X,I5,13H TESTS PASSED) 03050258
309: 90022 FORMAT (1H ,21X,I5,13H TESTS FAILED) 03060258
310: 90024 FORMAT (1H ,21X,I5,14H TESTS DELETED) 03070258
311: 90026 FORMAT (1H ,21X,I5,25H TESTS REQUIRE INSPECTION) 03080258
312: 90028 FORMAT (1H ,21X,I5,4H OF ,I3,15H TESTS EXECUTED) 03090258
313: CBE** ********************** BBCFMT0B **********************************03100258
314: 30026 FORMAT (1H1, 26X,I1) 03110258
315: 30018 FORMAT(1H ,26X,I10) 03120258
316: 30025 FORMAT(/49X,30HTESTS 1-3 (2 COMPUTED RESULTS), 03130258
317: 1 /49X,30HTESTS 4-7 (3 COMPUTED RESULTS), 03140258
318: 2 /49X,30HTEST 8 (4 COMPUTED RESULTS), 03150258
319: 3 /49X,26HALL ANSWERS SHOULD BE ZERO) 03160258
320: C***** END OF TEST SEGMENT 300 03170258
321: STOP 03180258
322: END 03190258
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.