[Bug ada/22212] [4.1 Regression] SEGV in is_gimple_variable during loop-ivopts while building Ada RTS

["belyshev at depni dot sinp dot msu dot ru" <gcc-bugzilla@gcc.gnu.org>]

------- 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