| blob | e8daafc990a282dea986d8f7d636545f295f30a6 |
9 !
11 ! g77: Internal compiler error: program f771 got fatal signal 6
12 !
13 ! The command was : g77 -c <prog.f>
14 !
15 ! The OS is Red Hat 6, and the output from uname -a is
16 ! Linux grfw1452.gns.cri.nz 2.2.5-15 #1 Mon Apr 19 23:00:46 EDT 1999 i686 unknown
17 !
18 ! The configure script I used was
19 ! /usr/src/egcs/gcc/gcc-2.95.1/configure --enable-languages=f77 i585-unknown-linux
20 !
21 ! I was installing 2.95 because under EGCS 2.1.1 none of my code was working
22 ! with optimisation turned on, and there were still bugs with no optimisation
23 ! (all of which code works fine under g77 0.5.21 and Sun/IBM/Dec/HP fortrans).
24 !
25 ! The version of g77 is :
26 !
27 !g77 version 2.95.1 19990816 (release) (from FSF-g77 version 0.5.25 19990816 (release))
29 program main
30 if (i.eq.1) then
31 call abc(1)
32 else if (i.eq. 1) then
33 call abc( 1)
34 else if (i.eq. 2) then
35 call abc( 2)
36 else if (i.eq. 3) then
37 call abc( 3)
38 else if (i.eq. 4) then
39 call abc( 4)
40 else if (i.eq. 5) then
41 call abc( 5)
42 else if (i.eq. 6) then
43 call abc( 6)
44 else if (i.eq. 7) then
45 call abc( 7)
46 else if (i.eq. 8) then
47 call abc( 8)
48 else if (i.eq. 9) then
49 call abc( 9)
50 else if (i.eq. 10) then
51 call abc( 10)
52 else if (i.eq. 11) then
53 call abc( 11)
54 else if (i.eq. 12) then
55 call abc( 12)
56 else if (i.eq. 13) then
57 call abc( 13)
58 else if (i.eq. 14) then
59 call abc( 14)
60 else if (i.eq. 15) then
61 call abc( 15)
62 else if (i.eq. 16) then
63 call abc( 16)
64 else if (i.eq. 17) then
65 call abc( 17)
66 else if (i.eq. 18) then
67 call abc( 18)
68 else if (i.eq. 19) then
69 call abc( 19)
70 else if (i.eq. 20) then
71 call abc( 20)
72 else if (i.eq. 21) then
73 call abc( 21)
74 else if (i.eq. 22) then
75 call abc( 22)
76 else if (i.eq. 23) then
77 call abc( 23)
78 else if (i.eq. 24) then
79 call abc( 24)
80 else if (i.eq. 25) then
81 call abc( 25)
82 else if (i.eq. 26) then
83 call abc( 26)
84 else if (i.eq. 27) then
85 call abc( 27)
86 else if (i.eq. 28) then
87 call abc( 28)
88 else if (i.eq. 29) then
89 call abc( 29)
90 else if (i.eq. 30) then
91 call abc( 30)
92 else if (i.eq. 31) then
93 call abc( 31)
94 else if (i.eq. 32) then
95 call abc( 32)
96 else if (i.eq. 33) then
97 call abc( 33)
98 else if (i.eq. 34) then
99 call abc( 34)
100 else if (i.eq. 35) then
101 call abc( 35)
102 else if (i.eq. 36) then
103 call abc( 36)
104 else if (i.eq. 37) then
105 call abc( 37)
106 else if (i.eq. 38) then
107 call abc( 38)
108 else if (i.eq. 39) then
109 call abc( 39)
110 else if (i.eq. 40) then
111 call abc( 40)
112 else if (i.eq. 41) then
113 call abc( 41)
114 else if (i.eq. 42) then
115 call abc( 42)
116 else if (i.eq. 43) then
117 call abc( 43)
118 else if (i.eq. 44) then
119 call abc( 44)
120 else if (i.eq. 45) then
121 call abc( 45)
122 else if (i.eq. 46) then
123 call abc( 46)
124 else if (i.eq. 47) then
125 call abc( 47)
126 else if (i.eq. 48) then
127 call abc( 48)
128 else if (i.eq. 49) then
129 call abc( 49)
130 else if (i.eq. 50) then
131 call abc( 50)
132 else if (i.eq. 51) then
133 call abc( 51)
134 else if (i.eq. 52) then
135 call abc( 52)
136 else if (i.eq. 53) then
137 call abc( 53)
138 else if (i.eq. 54) then
139 call abc( 54)
140 else if (i.eq. 55) then
141 call abc( 55)
142 else if (i.eq. 56) then
143 call abc( 56)
144 else if (i.eq. 57) then
145 call abc( 57)
146 else if (i.eq. 58) then
147 call abc( 58)
148 else if (i.eq. 59) then
149 call abc( 59)
150 else if (i.eq. 60) then
151 call abc( 60)
152 else if (i.eq. 61) then
153 call abc( 61)
154 else if (i.eq. 62) then
155 call abc( 62)
156 else if (i.eq. 63) then
157 call abc( 63)
158 else if (i.eq. 64) then
159 call abc( 64)
160 else if (i.eq. 65) then
161 call abc( 65)
162 else if (i.eq. 66) then
163 call abc( 66)
164 else if (i.eq. 67) then
165 call abc( 67)
166 else if (i.eq. 68) then
167 call abc( 68)
168 else if (i.eq. 69) then
169 call abc( 69)
170 else if (i.eq. 70) then
171 call abc( 70)
172 else if (i.eq. 71) then
173 call abc( 71)
174 else if (i.eq. 72) then
175 call abc( 72)
176 else if (i.eq. 73) then
177 call abc( 73)
178 else if (i.eq. 74) then
179 call abc( 74)
180 else if (i.eq. 75) then
181 call abc( 75)
182 else if (i.eq. 76) then
183 call abc( 76)
184 else if (i.eq. 77) then
185 call abc( 77)
186 else if (i.eq. 78) then
187 call abc( 78)
188 else if (i.eq. 79) then
189 call abc( 79)
190 else if (i.eq. 80) then
191 call abc( 80)
192 else if (i.eq. 81) then
193 call abc( 81)
194 else if (i.eq. 82) then
195 call abc( 82)
196 else if (i.eq. 83) then
197 call abc( 83)
198 else if (i.eq. 84) then
199 call abc( 84)
200 else if (i.eq. 85) then
201 call abc( 85)
202 else if (i.eq. 86) then
203 call abc( 86)
204 else if (i.eq. 87) then
205 call abc( 87)
206 else if (i.eq. 88) then
207 call abc( 88)
208 else if (i.eq. 89) then
209 call abc( 89)
210 else if (i.eq. 90) then
211 call abc( 90)
212 else if (i.eq. 91) then
213 call abc( 91)
214 else if (i.eq. 92) then
215 call abc( 92)
216 else if (i.eq. 93) then
217 call abc( 93)
218 else if (i.eq. 94) then
219 call abc( 94)
220 else if (i.eq. 95) then
221 call abc( 95)
222 else if (i.eq. 96) then
223 call abc( 96)
224 else if (i.eq. 97) then
225 call abc( 97)
226 else if (i.eq. 98) then
227 call abc( 98)
228 else if (i.eq. 99) then
229 call abc( 99)
230 else if (i.eq. 100) then
231 call abc( 100)
232 else if (i.eq. 101) then
233 call abc( 101)
234 else if (i.eq. 102) then
235 call abc( 102)
236 else if (i.eq. 103) then
237 call abc( 103)
238 else if (i.eq. 104) then
239 call abc( 104)
240 else if (i.eq. 105) then
241 call abc( 105)
242 else if (i.eq. 106) then
243 call abc( 106)
244 else if (i.eq. 107) then
245 call abc( 107)
246 else if (i.eq. 108) then
247 call abc( 108)
248 else if (i.eq. 109) then
249 call abc( 109)
250 else if (i.eq. 110) then
251 call abc( 110)
252 else if (i.eq. 111) then
253 call abc( 111)
254 else if (i.eq. 112) then
255 call abc( 112)
256 else if (i.eq. 113) then
257 call abc( 113)
258 else if (i.eq. 114) then
259 call abc( 114)
260 else if (i.eq. 115) then
261 call abc( 115)
262 else if (i.eq. 116) then
263 call abc( 116)
264 else if (i.eq. 117) then
265 call abc( 117)
266 else if (i.eq. 118) then
267 call abc( 118)
268 else if (i.eq. 119) then
269 call abc( 119)
270 else if (i.eq. 120) then
271 call abc( 120)
272 else if (i.eq. 121) then
273 call abc( 121)
274 else if (i.eq. 122) then
275 call abc( 122)
276 else if (i.eq. 123) then
277 call abc( 123)
278 else if (i.eq. 124) then
279 call abc( 124)
280 else if (i.eq. 125) then !< Miscompiles if present
281 call abc( 125) !<
283 c else if (i.eq. 126) then
284 c call abc( 126)
285 endif
286 end