OpenCores
URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [gcc-4.2.2/] [gcc/] [testsuite/] [gfortran.dg/] [g77/] [19990826-1.f] - Blame information for rev 816

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 149 jeremybenn 
c { dg-do compile }
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
7 
 
8 
! This fortran source will not compile - if the penultimate elseif block is 0
9 
! included then the message appears :
10 
!
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
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))
29 
 
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)                 !<
283 
 
284 
c        else if (i.eq. 126) then
285 
c            call abc( 126)
286 
        endif
287 
        end

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.