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

Subversion Repositories scarts

[/] [scarts/] [trunk/] [toolchain/] [scarts-gcc/] [gcc-4.1.1/] [gcc/] [testsuite/] [gfortran.dg/] [g77/] [19990826-1.f] - Blame information for rev 12

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 12 jlechner
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.