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