------- Additional Comments From belyshev at depni dot sinp dot msu dot ru
2005-06-28 12:43 -------
-- Testcase for segfault in is_gimple_variable, compile with -O1:
procedure Bug is
package B is
function "*" (L : Natural; R : String) return String;
end B;
package body B is
function "*" (L : Natural; R : String) return String
is
Result : String (1 .. L * R'Length);
P : Integer := 1;
begin
for J in 1 .. L loop
Result (P .. P + R'Length - 1) := R;
P := P + R'Length;
end loop;
return Result;
end "*";
end B;
use B;
S : String := "";
begin
S := 1 * "";
end Bug;
--
Confirmed on x86_64.
--
What |Removed |Added
----------------------------------------------------------------------------
Severity|normal |critical
Status|UNCONFIRMED |NEW
Ever Confirmed| |1
Last reconfirmed|0000-00-00 00:00:00 |2005-06-28 12:43:30
date| |
Summary|SEGV in is_gimple_variable |[4.1 Regression] SEGV in
|during loop-ivopts while |is_gimple_variable during
|building Ada RTS |loop-ivopts while building
| |Ada RTS
Target Milestone|--- |4.1.0
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=22212
