2 * Date: Tue
, 24 Aug
1999 12:25:41 +1200 (NZST
)
3 * From
: Jonathan Ravens
<ravens@whio
.gns
.cri
.nz
>
4 * To: gcc
-bugs@gcc
.gnu
.org
5 * Subject
: g77 bug report
6 * X
-UIDL
: a0bf5ecc21487cde48d9104983ab04d6
8 ! This fortran source will not compile
- if the penultimate elseif block is
0
9 ! included
then the message appears
:
11 ! /usr
/src
/egcs
//gcc
-2.95.1/gcc
/f
/stw
.c
:308: failed assertion `b
->uses_
> 0'
12 ! g77: Internal compiler error: program f771 got fatal signal 6
14 ! The command was : g77 -c <prog.f>
16 ! The OS is Red Hat 6, and the output from uname -a is
17 ! Linux grfw1452.gns.cri.nz 2.2.5-15 #1 Mon Apr 19 23:00:46 EDT 1999 i686 unknown
19 ! The configure script I used was
20 ! /usr/src/egcs/gcc/gcc-2.95.1/configure --enable-languages=f77 i585-unknown-linux
22 ! I was installing 2.95 because under EGCS 2.1.1 none of my code was working
23 ! with optimisation turned on, and there were still bugs with no optimisation
24 ! (all of which code works fine under g77 0.5.21 and Sun/IBM/Dec/HP fortrans).
26 ! The version of g77 is :
28 !g77 version 2.95.1 19990816 (release) (from FSF-g77 version 0.5.25 19990816 (release))
33 else if (i.eq. 1) then
35 else if (i.eq. 2) then
37 else if (i.eq. 3) then
39 else if (i.eq. 4) then
41 else if (i.eq. 5) then
43 else if (i.eq. 6) then
45 else if (i.eq. 7) then
47 else if (i.eq. 8) then
49 else if (i.eq. 9) then
51 else if (i.eq. 10) then
53 else if (i.eq. 11) then
55 else if (i.eq. 12) then
57 else if (i.eq. 13) then
59 else if (i.eq. 14) then
61 else if (i.eq. 15) then
63 else if (i.eq. 16) then
65 else if (i.eq. 17) then
67 else if (i.eq. 18) then
69 else if (i.eq. 19) then
71 else if (i.eq. 20) then
73 else if (i.eq. 21) then
75 else if (i.eq. 22) then
77 else if (i.eq. 23) then
79 else if (i.eq. 24) then
81 else if (i.eq. 25) then
83 else if (i.eq. 26) then
85 else if (i.eq. 27) then
87 else if (i.eq. 28) then
89 else if (i.eq. 29) then
91 else if (i.eq. 30) then
93 else if (i.eq. 31) then
95 else if (i.eq. 32) then
97 else if (i.eq. 33) then
99 else if (i.eq. 34) then
101 else if (i.eq. 35) then
103 else if (i.eq. 36) then
105 else if (i.eq. 37) then
107 else if (i.eq. 38) then
109 else if (i.eq. 39) then
111 else if (i.eq. 40) then
113 else if (i.eq. 41) then
115 else if (i.eq. 42) then
117 else if (i.eq. 43) then
119 else if (i.eq. 44) then
121 else if (i.eq. 45) then
123 else if (i.eq. 46) then
125 else if (i.eq. 47) then
127 else if (i.eq. 48) then
129 else if (i.eq. 49) then
131 else if (i.eq. 50) then
133 else if (i.eq. 51) then
135 else if (i.eq. 52) then
137 else if (i.eq. 53) then
139 else if (i.eq. 54) then
141 else if (i.eq. 55) then
143 else if (i.eq. 56) then
145 else if (i.eq. 57) then
147 else if (i.eq. 58) then
149 else if (i.eq. 59) then
151 else if (i.eq. 60) then
153 else if (i.eq. 61) then
155 else if (i.eq. 62) then
157 else if (i.eq. 63) then
159 else if (i.eq. 64) then
161 else if (i.eq. 65) then
163 else if (i.eq. 66) then
165 else if (i.eq. 67) then
167 else if (i.eq. 68) then
169 else if (i.eq. 69) then
171 else if (i.eq. 70) then
173 else if (i.eq. 71) then
175 else if (i.eq. 72) then
177 else if (i.eq. 73) then
179 else if (i.eq. 74) then
181 else if (i.eq. 75) then
183 else if (i.eq. 76) then
185 else if (i.eq. 77) then
187 else if (i.eq. 78) then
189 else if (i.eq. 79) then
191 else if (i.eq. 80) then
193 else if (i.eq. 81) then
195 else if (i.eq. 82) then
197 else if (i.eq. 83) then
199 else if (i.eq. 84) then
201 else if (i.eq. 85) then
203 else if (i.eq. 86) then
205 else if (i.eq. 87) then
207 else if (i.eq. 88) then
209 else if (i.eq. 89) then
211 else if (i.eq. 90) then
213 else if (i.eq. 91) then
215 else if (i.eq. 92) then
217 else if (i.eq. 93) then
219 else if (i.eq. 94) then
221 else if (i.eq. 95) then
223 else if (i.eq. 96) then
225 else if (i.eq. 97) then
227 else if (i.eq. 98) then
229 else if (i.eq. 99) then
231 else if (i.eq. 100) then
233 else if (i.eq. 101) then
235 else if (i.eq. 102) then
237 else if (i.eq. 103) then
239 else if (i.eq. 104) then
241 else if (i.eq. 105) then
243 else if (i.eq. 106) then
245 else if (i.eq. 107) then
247 else if (i.eq. 108) then
249 else if (i.eq. 109) then
251 else if (i.eq. 110) then
253 else if (i.eq. 111) then
255 else if (i.eq. 112) then
257 else if (i.eq. 113) then
259 else if (i.eq. 114) then
261 else if (i.eq. 115) then
263 else if (i.eq. 116) then
265 else if (i.eq. 117) then
267 else if (i.eq. 118) then
269 else if (i.eq. 119) then
271 else if (i.eq. 120) then
273 else if (i.eq. 121) then
275 else if (i.eq. 122) then
277 else if (i.eq. 123) then
279 else if (i.eq. 124) then
281 else if (i.eq. 125) then !< Miscompiles if present
284 c else if (i.eq. 126) then