![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to FM260.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 FM260.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***********************************************************************00010260
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 00020260
6: C***** FM260 00030260
7: C***** BLKIF3 - (302) 00040260
8: C***** 00050260
9: C***********************************************************************00060260
10: C***** GENERAL PURPOSE SUBSET REF 00070260
11: C***** TEST BLOCK IF STATEMENTS 11.1 - 11.3 00080260
12: C***** WITH DO, ARITHMETIC IF, LOGICAL IF, 11.6 - 11.1000090260
13: C***** COMPUTED GOTO, ASSIGN GOTO 00100260
14: C***** 00110260
15: CBB** ********************** BBCCOMNT **********************************00120260
16: C**** 00130260
17: C**** 1978 FORTRAN COMPILER VALIDATION SYSTEM 00140260
18: C**** VERSION 2.0 00150260
19: C**** 00160260
20: C**** 00170260
21: C**** SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00180260
22: C**** GENERAL SERVICES ADMINISTRATION 00190260
23: C**** FEDERAL SOFTWARE TESTING CENTER 00200260
24: C**** 5203 LEESBURG PIKE, SUITE 1100 00210260
25: C**** FALLS CHURCH, VA. 22041 00220260
26: C**** 00230260
27: C**** (703) 756-6153 00240260
28: C**** 00250260
29: CBE** ********************** BBCCOMNT **********************************00260260
30: CBB** ********************** BBCINITA **********************************00270260
31: C**** SPECIFICATION STATEMENTS 00280260
32: C**** 00290260
33: CHARACTER ZVERS*13, ZVERSD*17, ZDATE*17, ZPROG*5, ZCOMPL*20, 00300260
34: 1 ZNAME*20, ZTAPE*10, ZPROJ*13, REMRKS*31, ZTAPED*13 00310260
35: CBE** ********************** BBCINITA **********************************00320260
36: CBB** ********************** BBCINITB **********************************00330260
37: C**** INITIALIZE SECTION 00340260
38: DATA ZVERS, ZVERSD, ZDATE 00350260
39: 1 /'VERSION 2.0 ', '82/08/02*18.33.46', '*NO DATE*TIME'/ 00360260
40: DATA ZCOMPL, ZNAME, ZTAPE 00370260
41: 1 /'*NONE SPECIFIED*', '*NO COMPANY NAME*', '*NO TAPE*'/ 00380260
42: DATA ZPROJ, ZTAPED, ZPROG 00390260
43: 1 /'*NO PROJECT*', '*NO TAPE DATE', 'XXXXX'/ 00400260
44: DATA REMRKS /' '/ 00410260
45: C**** THE FOLLOWING 9 COMMENT LINES (CZ01, CZ02, ...) CAN BE REPLACED 00420260
46: C**** FOR IDENTIFYING THE TEST ENVIRONMENT 00430260
47: C**** 00440260
48: CZ01 ZVERS = 'VERSION OF THE COMPILER VALIDATION SYSTEM' 00450260
49: CZ02 ZVERSD = 'CREATION DATE/TIME OF THE COMPILER VALIDATION SYSTEM' 00460260
50: CZ03 ZPROG = 'PROGRAM NAME' 00470260
51: ZDATE = '07-Nov-85 ' *RP
52: ZCOMPL = 'CCI 5.2 ' *RP
53: ZPROJ = 'TC-85- -410' *RP
54: ZNAME = ' ' *RP
55: ZTAPE = ' ' *RP
56: ZTAPED = '850703 ' *RP
57: C 00540260
58: IVPASS = 0 00550260
59: IVFAIL = 0 00560260
60: IVDELE = 0 00570260
61: IVINSP = 0 00580260
62: IVTOTL = 0 00590260
63: IVTOTN = 0 00600260
64: ICZERO = 0 00610260
65: C 00620260
66: C I01 CONTAINS THE LOGICAL UNIT NUMBER FOR THE CARD READER. 00630260
67: I01 = 05 00640260
68: C I02 CONTAINS THE LOGICAL UNIT NUMBER FOR THE PRINTER. 00650260
69: I02 = 06 00660260
70: C 00670260
71: I01 = 5 00680260
72: C THE CX010 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I01 = 5 00690260
73: CX011 REPLACED BY FEXEC X-011 CONTROL CARD. CX011 IS FOR SYSTEMS 00700260
74: C REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX010. 00710260
75: C 00720260
76: I02 = 6 00730260
77: C THE CX020 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I02= 6 00740260
78: CX021 REPLACED BY FEXEC X-021 CONTROL CARD. CX021 IS FOR SYSTEMS 00750260
79: C REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX020. 00760260
80: C 00770260
81: CBE** ********************** BBCINITB **********************************00780260
82: NUVI = I02 00790260
83: ZPROG = 'FM260' 00800260
84: IVTOTL = 2 00810260
85: CBB** ********************** BBCHED0A **********************************00820260
86: C**** 00830260
87: C**** WRITE REPORT TITLE 00840260
88: C**** 00850260
89: WRITE (I02, 90002) 00860260
90: WRITE (I02, 90006) 00870260
91: WRITE (I02, 90007) 00880260
92: WRITE (I02, 90008) ZVERS, ZVERSD 00890260
93: WRITE (I02, 90009) ZPROG, ZPROG 00900260
94: WRITE (I02, 90010) ZDATE, ZCOMPL 00910260
95: CBE** ********************** BBCHED0A **********************************00920260
96: C***** TOTAL NUMBER OF EXPECTED TESTS 00930260
97: C***** 00940260
98: C***** HEADER FOR SEGMENT 302 00950260
99: WRITE(NUVI,30200) 00960260
100: 30200 FORMAT(1H ,24H BLKIF3 - (302) BLOCK IF// 00970260
101: 1 36H WITH OTHER CONTROL CONSTRUCTS (II)// 00980260
102: 2 40H SUBSET REF. 11.1 - 11.3, 11.6 - 11.10) 00990260
103: CBB** ********************** BBCHED0B **********************************01000260
104: C**** WRITE DETAIL REPORT HEADERS 01010260
105: C**** 01020260
106: WRITE (I02,90004) 01030260
107: WRITE (I02,90004) 01040260
108: WRITE (I02,90013) 01050260
109: WRITE (I02,90014) 01060260
110: WRITE (I02,90015) IVTOTL 01070260
111: CBE** ********************** BBCHED0B **********************************01080260
112: C***** 01090260
113: WRITE (NUVI, 30225) 01100260
114: CT001* TEST 1 BLOCK IF WITH DO, ARITHMETIC IF, COMPUTED GOTO, 01110260
115: C***** ASSIGNED GOTO 01120260
116: IVTNUM = 1 01130260
117: IVINSP = IVINSP + 1 01140260
118: WRITE (NUVI, 80004) IVTNUM 01150260
119: JVI = 1 01160260
120: KVI = 1 01170260
121: ASSIGN 0017 TO MVI 01180260
122: DO 0011 IVI = 1, 9 01190260
123: IF (IVI - 6) 0010, 0013, 0016 01200260
124: 0010 IF (IVI .LE. 3) THEN 01210260
125: GOTO (0019, 0012, 0012) IVI 01220260
126: 0012 KVI = KVI + 1 01230260
127: ELSE 01240260
128: KVI = 5 01250260
129: IF (IVI .NE. 5) KVI = 4 01260260
130: ENDIF 01270260
131: GOTO 0019 01280260
132: 0013 DO 0015 NVI = 1,3 01290260
133: KVI = 8 01300260
134: IF ((IVI + NVI) .EQ. 7) THEN 01310260
135: KVI = 6 01320260
136: GOTO 0014 01330260
137: ELSEIF (NVI .EQ. 2) THEN 01340260
138: KVI = 7 01350260
139: C***** LABEL ON A ENDIF IS PERMITTED 01360260
140: 0014 ENDIF 01370260
141: LVI = KVI - JVI 01380260
142: WRITE(NUVI,30215) LVI 01390260
143: JVI = JVI + 1 01400260
144: 0015 CONTINUE 01410260
145: GOTO 0011 01420260
146: 0016 LVI = 10 01430260
147: GOTO MVI, (0017, 0018) 01440260
148: 0017 ASSIGN 0018 TO MVI 01450260
149: LVI = 9 01460260
150: 0018 IF (IVI .LE. 8) THEN 01470260
151: KVI = LVI 01480260
152: ELSE 01490260
153: KVI = 11 01500260
154: ENDIF 01510260
155: 0019 LVI = KVI - JVI 01520260
156: WRITE (NUVI, 30215) LVI 01530260
157: JVI = JVI + 1 01540260
158: 0011 CONTINUE 01550260
159: CT002* TEST 2 DO WITH NESTED BLOCK IFS 01560260
160: IVTNUM = 2 01570260
161: IVINSP = IVINSP + 1 01580260
162: WRITE (NUVI, 80004) IVTNUM 01590260
163: JVI = 1 01600260
164: DO 0021 IVI = 1, 8 01610260
165: KVI = 0 01620260
166: IF (IVI .LT. 5) THEN 01630260
167: IF (IVI .LE. 2) THEN 01640260
168: IF (IVI - 1 .EQ. 0) THEN 01650260
169: KVI = KVI + 1 01660260
170: ELSE 01670260
171: KVI = KVI + 2 01680260
172: ENDIF 01690260
173: KVI = KVI * 2 01700260
174: ELSE 01710260
175: IF (IVI .EQ. 3) THEN 01720260
176: DO 0020 NVI = 1,IVI 01730260
177: 0020 KVI = KVI + 10 01740260
178: ELSE 01750260
179: DO 0022 NVI = 1, IVI 01760260
180: 0022 KVI = KVI + 10 01770260
181: ENDIF 01780260
182: KVI = KVI / 10 * 2 01790260
183: ENDIF 01800260
184: KVI = KVI * 3 01810260
185: ELSE 01820260
186: IF (IVI .LE. 6) THEN 01830260
187: IF (IVI - 5 .EQ. 0) THEN 01840260
188: KVI = KVI + 105 01850260
189: ELSE 01860260
190: KVI = KVI + 106 01870260
191: ENDIF 01880260
192: KVI = (KVI - 100) * 3 01890260
193: ELSE 01900260
194: IF (IVI .LE. 7) THEN 01910260
195: KVI = KVI - 7 01920260
196: ELSE 01930260
197: KVI = KVI - 8 01940260
198: ENDIF 01950260
199: KVI = KVI + IVI * 4 01960260
200: ENDIF 01970260
201: KVI = KVI * 2 01980260
202: ENDIF 01990260
203: LVI = KVI / 6 - JVI 02000260
204: WRITE (NUVI,30215) LVI 02010260
205: JVI = JVI + 1 02020260
206: 0021 CONTINUE 02030260
207: C***** 02040260
208: 30215 FORMAT(1H ,26X,I10) 02050260
209: 30225 FORMAT (/49X,'TEST 1 (11 COMPUTED RESULTS)'/ 02060260
210: 1 49X,'TEST 2 (8 COMPUTED RESULTS)'/ 02070260
211: 2 49X,'ALL ANSWERS SHOULD BE ZERO') 02080260
212: C***** 02090260
213: CBB** ********************** BBCSUM0 **********************************02100260
214: C**** WRITE OUT TEST SUMMARY 02110260
215: C**** 02120260
216: IVTOTN = IVPASS + IVFAIL + IVDELE + IVINSP 02130260
217: WRITE (I02, 90004) 02140260
218: WRITE (I02, 90014) 02150260
219: WRITE (I02, 90004) 02160260
220: WRITE (I02, 90020) IVPASS 02170260
221: WRITE (I02, 90022) IVFAIL 02180260
222: WRITE (I02, 90024) IVDELE 02190260
223: WRITE (I02, 90026) IVINSP 02200260
224: WRITE (I02, 90028) IVTOTN, IVTOTL 02210260
225: CBE** ********************** BBCSUM0 **********************************02220260
226: CBB** ********************** BBCFOOT0 **********************************02230260
227: C**** WRITE OUT REPORT FOOTINGS 02240260
228: C**** 02250260
229: WRITE (I02,90016) ZPROG, ZPROG 02260260
230: WRITE (I02,90018) ZPROJ, ZNAME, ZTAPE, ZTAPED 02270260
231: WRITE (I02,90019) 02280260
232: CBE** ********************** BBCFOOT0 **********************************02290260
233: CBB** ********************** BBCFMT0A **********************************02300260
234: C**** FORMATS FOR TEST DETAIL LINES 02310260
235: C**** 02320260
236: 80000 FORMAT (1H ,2X,I3,4X,7HDELETED,32X,A31) 02330260
237: 80002 FORMAT (1H ,2X,I3,4X,7H PASS ,32X,A31) 02340260
238: 80004 FORMAT (1H ,2X,I3,4X,7HINSPECT,32X,A31) 02350260
239: 80008 FORMAT (1H ,2X,I3,4X,7H FAIL ,32X,A31) 02360260
240: 80010 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,15X,10HCOMPUTED= , 02370260
241: 1I6,/,1H ,15X,10HCORRECT= ,I6) 02380260
242: 80012 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 02390260
243: 1E12.5,/,1H ,16X,10HCORRECT= ,E12.5) 02400260
244: 80018 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 02410260
245: 1A21,/,1H ,16X,10HCORRECT= ,A21) 02420260
246: 80020 FORMAT (1H ,16X,10HCOMPUTED= ,A21,1X,A31) 02430260
247: 80022 FORMAT (1H ,16X,10HCORRECT= ,A21,1X,A31) 02440260
248: 80024 FORMAT (1H ,16X,10HCOMPUTED= ,I6,16X,A31) 02450260
249: 80026 FORMAT (1H ,16X,10HCORRECT= ,I6,16X,A31) 02460260
250: 80028 FORMAT (1H ,16X,10HCOMPUTED= ,E12.5,10X,A31) 02470260
251: 80030 FORMAT (1H ,16X,10HCORRECT= ,E12.5,10X,A31) 02480260
252: 80050 FORMAT (1H ,48X,A31) 02490260
253: CBE** ********************** BBCFMT0A **********************************02500260
254: CBB** ********************** BBCFMT0B **********************************02510260
255: C**** FORMAT STATEMENTS FOR PAGE HEADERS 02520260
256: C**** 02530260
257: 90002 FORMAT (1H1) 02540260
258: 90004 FORMAT (1H ) 02550260
259: 90006 FORMAT (1H ,20X,31HFEDERAL SOFTWARE TESTING CENTER) 02560260
260: 90007 FORMAT (1H ,19X,34HFORTRAN COMPILER VALIDATION SYSTEM) 02570260
261: 90008 FORMAT (1H ,21X,A13,A17) 02580260
262: 90009 FORMAT (1H ,/,2H *,A5,6HBEGIN*,12X,15HTEST RESULTS - ,A5,/) 02590260
263: 90010 FORMAT (1H ,8X,16HTEST DATE*TIME= ,A17,15H - COMPILER= ,A20) 02600260
264: 90013 FORMAT (1H ,8H TEST ,10HPASS/FAIL ,6X,17HDISPLAYED RESULTS, 02610260
265: 1 7X,7HREMARKS,24X) 02620260
266: 90014 FORMAT (1H ,46H----------------------------------------------, 02630260
267: 1 33H---------------------------------) 02640260
268: 90015 FORMAT (1H ,48X,17HTHIS PROGRAM HAS ,I3,6H TESTS,/) 02650260
269: C**** 02660260
270: C**** FORMAT STATEMENTS FOR REPORT FOOTINGS 02670260
271: C**** 02680260
272: 90016 FORMAT (1H ,/,2H *,A5,4HEND*,14X,14HEND OF TEST - ,A5,/) 02690260
273: 90018 FORMAT (1H ,A13,13X,A20,7H * ,A10,1H/, 02700260
274: 1 A13) 02710260
275: 90019 FORMAT (1H ,26HFOR OFFICIAL USE ONLY ,35X,15HCOPYRIGHT 1982) 02720260
276: C**** 02730260
277: C**** FORMAT STATEMENTS FOR RUN SUMMARY 02740260
278: C**** 02750260
279: 90020 FORMAT (1H ,21X,I5,13H TESTS PASSED) 02760260
280: 90022 FORMAT (1H ,21X,I5,13H TESTS FAILED) 02770260
281: 90024 FORMAT (1H ,21X,I5,14H TESTS DELETED) 02780260
282: 90026 FORMAT (1H ,21X,I5,25H TESTS REQUIRE INSPECTION) 02790260
283: 90028 FORMAT (1H ,21X,I5,4H OF ,I3,15H TESTS EXECUTED) 02800260
284: CBE** ********************** BBCFMT0B **********************************02810260
285: C***** END OF TEST SEGMENT 302 02820260
286: STOP 02830260
287: END 02840260
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.