![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to FM259.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 FM259.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***********************************************************************00010259
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 00020259
6: C***** FM259 00030259
7: C***** BLKIF2 - (301) 00040259
8: C***** 00050259
9: C***********************************************************************00060259
10: C***** GENERAL PURPOSE SUBSET REF 00070259
11: C***** TEST BLOCK IF STATEMENTS 11.1 - 11.3 00080259
12: C***** WITH GOTO, COMPUTED GOTO, ASSIGN GOTO, DO 11.6 - 11.1000090259
13: C**** 00100259
14: CBB** ********************** BBCCOMNT **********************************00110259
15: C**** 00120259
16: C**** 1978 FORTRAN COMPILER VALIDATION SYSTEM 00130259
17: C**** VERSION 2.0 00140259
18: C**** 00150259
19: C**** 00160259
20: C**** SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00170259
21: C**** GENERAL SERVICES ADMINISTRATION 00180259
22: C**** FEDERAL SOFTWARE TESTING CENTER 00190259
23: C**** 5203 LEESBURG PIKE, SUITE 1100 00200259
24: C**** FALLS CHURCH, VA. 22041 00210259
25: C**** 00220259
26: C**** (703) 756-6153 00230259
27: C**** 00240259
28: CBE** ********************** BBCCOMNT **********************************00250259
29: CBB** ********************** BBCINITA **********************************00260259
30: C**** SPECIFICATION STATEMENTS 00270259
31: C**** 00280259
32: CHARACTER ZVERS*13, ZVERSD*17, ZDATE*17, ZPROG*5, ZCOMPL*20, 00290259
33: 1 ZNAME*20, ZTAPE*10, ZPROJ*13, REMRKS*31, ZTAPED*13 00300259
34: CBE** ********************** BBCINITA **********************************00310259
35: CBB** ********************** BBCINITB **********************************00320259
36: C**** INITIALIZE SECTION 00330259
37: DATA ZVERS, ZVERSD, ZDATE 00340259
38: 1 /'VERSION 2.0 ', '82/08/02*18.33.46', '*NO DATE*TIME'/ 00350259
39: DATA ZCOMPL, ZNAME, ZTAPE 00360259
40: 1 /'*NONE SPECIFIED*', '*NO COMPANY NAME*', '*NO TAPE*'/ 00370259
41: DATA ZPROJ, ZTAPED, ZPROG 00380259
42: 1 /'*NO PROJECT*', '*NO TAPE DATE', 'XXXXX'/ 00390259
43: DATA REMRKS /' '/ 00400259
44: C**** THE FOLLOWING 9 COMMENT LINES (CZ01, CZ02, ...) CAN BE REPLACED 00410259
45: C**** FOR IDENTIFYING THE TEST ENVIRONMENT 00420259
46: C**** 00430259
47: CZ01 ZVERS = 'VERSION OF THE COMPILER VALIDATION SYSTEM' 00440259
48: CZ02 ZVERSD = 'CREATION DATE/TIME OF THE COMPILER VALIDATION SYSTEM' 00450259
49: CZ03 ZPROG = 'PROGRAM NAME' 00460259
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 00530259
57: IVPASS = 0 00540259
58: IVFAIL = 0 00550259
59: IVDELE = 0 00560259
60: IVINSP = 0 00570259
61: IVTOTL = 0 00580259
62: IVTOTN = 0 00590259
63: ICZERO = 0 00600259
64: C 00610259
65: C I01 CONTAINS THE LOGICAL UNIT NUMBER FOR THE CARD READER. 00620259
66: I01 = 05 00630259
67: C I02 CONTAINS THE LOGICAL UNIT NUMBER FOR THE PRINTER. 00640259
68: I02 = 06 00650259
69: C 00660259
70: I01 = 5 00670259
71: C THE CX010 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I01 = 5 00680259
72: CX011 REPLACED BY FEXEC X-011 CONTROL CARD. CX011 IS FOR SYSTEMS 00690259
73: C REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX010. 00700259
74: C 00710259
75: I02 = 6 00720259
76: C THE CX020 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I02= 6 00730259
77: CX021 REPLACED BY FEXEC X-021 CONTROL CARD. CX021 IS FOR SYSTEMS 00740259
78: C REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX020. 00750259
79: C 00760259
80: CBE** ********************** BBCINITB **********************************00770259
81: NUVI = I02 00780259
82: IVTOTL = 3 00790259
83: ZPROG = 'FM259' 00800259
84: CBB** ********************** BBCHED0A **********************************00810259
85: C**** 00820259
86: C**** WRITE REPORT TITLE 00830259
87: C**** 00840259
88: WRITE (I02, 90002) 00850259
89: WRITE (I02, 90006) 00860259
90: WRITE (I02, 90007) 00870259
91: WRITE (I02, 90008) ZVERS, ZVERSD 00880259
92: WRITE (I02, 90009) ZPROG, ZPROG 00890259
93: WRITE (I02, 90010) ZDATE, ZCOMPL 00900259
94: CBE** ********************** BBCHED0A **********************************00910259
95: C***** 00920259
96: C***** HEADER FOR SEGMENT 301 00930259
97: WRITE(NUVI,30100) 00940259
98: 30100 FORMAT(1H , / 24H BLKIF2 - (301) BLOCK IF// 00950259
99: 1 35H WITH OTHER CONTROL CONSTRUCTS (I)// 00960259
100: 2 36H SUBSET REF. 11.1-11.3, 11.6-11.10) 00970259
101: CBB** ********************** BBCHED0B **********************************00980259
102: C**** WRITE DETAIL REPORT HEADERS 00990259
103: C**** 01000259
104: WRITE (I02,90004) 01010259
105: WRITE (I02,90004) 01020259
106: WRITE (I02,90013) 01030259
107: WRITE (I02,90014) 01040259
108: WRITE (I02,90015) IVTOTL 01050259
109: CBE** ********************** BBCHED0B **********************************01060259
110: C***** 01070259
111: WRITE (NUVI,70000) 01080259
112: CT001* TEST 1 IF (E) THEN .*. ENDIF 01090259
113: IVTNUM = 1 01100259
114: IVINSP = IVINSP + 1 01110259
115: WRITE (NUVI, 80004) IVTNUM 01120259
116: KVI = 7 01130259
117: IF (KVI .EQ. 7) THEN 01140259
118: KVI = 8 01150259
119: IF (KVI .GE. 8) GOTO 0012 01160259
120: KVI = 9 01170259
121: ENDIF 01180259
122: 0012 LVI = 8 - KVI 01190259
123: WRITE(NUVI,70010) LVI 01200259
124: CT002* TEST 2 IF (E) THEN .*. ELSE .*. ENDIF 01210259
125: IVTNUM = 2 01220259
126: IVINSP = IVINSP + 1 01230259
127: WRITE (NUVI, 80004) IVTNUM 01240259
128: KVI = 0 01250259
129: LVI = 1 01260259
130: IF (LVI .EQ. 7) THEN 01270259
131: KVI = 8 01280259
132: IF (LVI .EQ. 1) GOTO 0026 01290259
133: KVI = 9 01300259
134: ELSE 01310259
135: GOTO (0023, 0024, 0022), LVI 01320259
136: 0022 KVI = 1 01330259
137: GOTO 0025 01340259
138: 0023 KVI = 2 01350259
139: GOTO 0025 01360259
140: 0024 KVI = 3 01370259
141: 0025 CONTINUE 01380259
142: ENDIF 01390259
143: 0026 LVI = 2 - KVI 01400259
144: WRITE(NUVI,70010) LVI 01410259
145: CT003* TEST 3 DO .......... 01420259
146: IVTNUM = 3 01430259
147: IVINSP = IVINSP + 1 01440259
148: WRITE (NUVI, 80004) IVTNUM 01450259
149: MVI = 0 01460259
150: ASSIGN 0034 TO NVI 01470259
151: LVI = 0 01480259
152: JVI = 1 01490259
153: DO 0037 IVI = 1,4 01500259
154: IF (IVI .EQ. 1) THEN 01510259
155: DO 0032 KVI = 1,IVI 01520259
156: LVI = LVI + 1 01530259
157: 0032 CONTINUE 01540259
158: ELSEIF (IVI .EQ. 2) THEN 01550259
159: LVI = 6 01560259
160: IF (.FALSE.) GOTO 0036 01570259
161: LVI = 2 01580259
162: ELSEIF (IVI .EQ. 3) THEN 01590259
163: IF (MVI .NE. 0) THEN 01600259
164: LVI = 7 01610259
165: ELSE 01620259
166: LVI = 3 01630259
167: ENDIF 01640259
168: ELSE 01650259
169: GOTO NVI, (0033, 0034) 01660259
170: 0033 LVI = 5 01670259
171: GOTO 0035 01680259
172: 0034 LVI = 4 01690259
173: ASSIGN 0033 TO NVI 01700259
174: 0035 CONTINUE 01710259
175: ENDIF 01720259
176: LVI = LVI - JVI 01730259
177: 0036 WRITE(NUVI,70010) LVI 01740259
178: JVI = JVI + 1 01750259
179: 0037 CONTINUE 01760259
180: C***** 01770259
181: CBB** ********************** BBCSUM0 **********************************01780259
182: C**** WRITE OUT TEST SUMMARY 01790259
183: C**** 01800259
184: IVTOTN = IVPASS + IVFAIL + IVDELE + IVINSP 01810259
185: WRITE (I02, 90004) 01820259
186: WRITE (I02, 90014) 01830259
187: WRITE (I02, 90004) 01840259
188: WRITE (I02, 90020) IVPASS 01850259
189: WRITE (I02, 90022) IVFAIL 01860259
190: WRITE (I02, 90024) IVDELE 01870259
191: WRITE (I02, 90026) IVINSP 01880259
192: WRITE (I02, 90028) IVTOTN, IVTOTL 01890259
193: CBE** ********************** BBCSUM0 **********************************01900259
194: CBB** ********************** BBCFOOT0 **********************************01910259
195: C**** WRITE OUT REPORT FOOTINGS 01920259
196: C**** 01930259
197: WRITE (I02,90016) ZPROG, ZPROG 01940259
198: WRITE (I02,90018) ZPROJ, ZNAME, ZTAPE, ZTAPED 01950259
199: WRITE (I02,90019) 01960259
200: CBE** ********************** BBCFOOT0 **********************************01970259
201: CBB** ********************** BBCFMT0A **********************************01980259
202: C**** FORMATS FOR TEST DETAIL LINES 01990259
203: C**** 02000259
204: 80000 FORMAT (1H ,2X,I3,4X,7HDELETED,32X,A31) 02010259
205: 80002 FORMAT (1H ,2X,I3,4X,7H PASS ,32X,A31) 02020259
206: 80004 FORMAT (1H ,2X,I3,4X,7HINSPECT,32X,A31) 02030259
207: 80008 FORMAT (1H ,2X,I3,4X,7H FAIL ,32X,A31) 02040259
208: 80010 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,15X,10HCOMPUTED= , 02050259
209: 1I6,/,1H ,15X,10HCORRECT= ,I6) 02060259
210: 80012 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 02070259
211: 1E12.5,/,1H ,16X,10HCORRECT= ,E12.5) 02080259
212: 80018 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 02090259
213: 1A21,/,1H ,16X,10HCORRECT= ,A21) 02100259
214: 80020 FORMAT (1H ,16X,10HCOMPUTED= ,A21,1X,A31) 02110259
215: 80022 FORMAT (1H ,16X,10HCORRECT= ,A21,1X,A31) 02120259
216: 80024 FORMAT (1H ,16X,10HCOMPUTED= ,I6,16X,A31) 02130259
217: 80026 FORMAT (1H ,16X,10HCORRECT= ,I6,16X,A31) 02140259
218: 80028 FORMAT (1H ,16X,10HCOMPUTED= ,E12.5,10X,A31) 02150259
219: 80030 FORMAT (1H ,16X,10HCORRECT= ,E12.5,10X,A31) 02160259
220: 80050 FORMAT (1H ,48X,A31) 02170259
221: CBE** ********************** BBCFMT0A **********************************02180259
222: CBB** ********************** BBCFMT0B **********************************02190259
223: C**** FORMAT STATEMENTS FOR PAGE HEADERS 02200259
224: C**** 02210259
225: 90002 FORMAT (1H1) 02220259
226: 90004 FORMAT (1H ) 02230259
227: 90006 FORMAT (1H ,20X,31HFEDERAL SOFTWARE TESTING CENTER) 02240259
228: 90007 FORMAT (1H ,19X,34HFORTRAN COMPILER VALIDATION SYSTEM) 02250259
229: 90008 FORMAT (1H ,21X,A13,A17) 02260259
230: 90009 FORMAT (1H ,/,2H *,A5,6HBEGIN*,12X,15HTEST RESULTS - ,A5,/) 02270259
231: 90010 FORMAT (1H ,8X,16HTEST DATE*TIME= ,A17,15H - COMPILER= ,A20) 02280259
232: 90013 FORMAT (1H ,8H TEST ,10HPASS/FAIL ,6X,17HDISPLAYED RESULTS, 02290259
233: 1 7X,7HREMARKS,24X) 02300259
234: 90014 FORMAT (1H ,46H----------------------------------------------, 02310259
235: 1 33H---------------------------------) 02320259
236: 90015 FORMAT (1H ,48X,17HTHIS PROGRAM HAS ,I3,6H TESTS,/) 02330259
237: C**** 02340259
238: C**** FORMAT STATEMENTS FOR REPORT FOOTINGS 02350259
239: C**** 02360259
240: 90016 FORMAT (1H ,/,2H *,A5,4HEND*,14X,14HEND OF TEST - ,A5,/) 02370259
241: 90018 FORMAT (1H ,A13,13X,A20,7H * ,A10,1H/, 02380259
242: 1 A13) 02390259
243: 90019 FORMAT (1H ,26HFOR OFFICIAL USE ONLY ,35X,15HCOPYRIGHT 1982) 02400259
244: C**** 02410259
245: C**** FORMAT STATEMENTS FOR RUN SUMMARY 02420259
246: C**** 02430259
247: 90020 FORMAT (1H ,21X,I5,13H TESTS PASSED) 02440259
248: 90022 FORMAT (1H ,21X,I5,13H TESTS FAILED) 02450259
249: 90024 FORMAT (1H ,21X,I5,14H TESTS DELETED) 02460259
250: 90026 FORMAT (1H ,21X,I5,25H TESTS REQUIRE INSPECTION) 02470259
251: 90028 FORMAT (1H ,21X,I5,4H OF ,I3,15H TESTS EXECUTED) 02480259
252: CBE** ********************** BBCFMT0B **********************************02490259
253: C***** 02500259
254: 70000 FORMAT (/49X,'TEST 1 (1 COMPUTED RESULT)'/ 02510259
255: 1 49X,'TEST 2 (1 COMPUTED RESULT)'/ 02520259
256: 2 49X,'TEST 3 (4 COMPUTED RESULTS)'/ 02530259
257: 3 49X,'ALL ANSWERS SHOULD BE ZERO') 02540259
258: 70010 FORMAT (1H ,26X,I10) 02550259
259: C***** END OF TEST SEGMENT 301 02560259
260: STOP 02570259
261: END 02580259
262: 02590259
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.