[Bug ada/18859] [4.0 Regression] ACATS ICE c37305a at -O0: in tree_low_cst, at tree.c:3839

[pinskia at gcc dot gnu dot org]

------- Additional Comments From pinskia at gcc dot gnu dot org  2005-02-15 
06:44 -------
Confirmed, reduced testcase:
PROCEDURE C37305A IS
BEGIN
     DECLARE
          SUBTYPE ST IS INTEGER RANGE 1..10;
          TYPE REC(DISC : ST := 1) IS
               RECORD
                    CASE DISC IS
                         WHEN 0..-1 => NULL;
                         WHEN 1..-3 => NULL;
                         WHEN 6..5 => COMP : INTEGER;
                         WHEN OTHERS => NULL;
                    END CASE;
               END RECORD;
          R : REC;
     BEGIN
          R := (DISC => 4);
     END;
END C37305A;


-- 
           What    |Removed                     |Added
----------------------------------------------------------------------------
             Status|UNCONFIRMED                 |NEW
     Ever Confirmed|                            |1
   Last reconfirmed|0000-00-00 00:00:00         |2005-02-15 06:44:23
               date|                            |
            Summary|ACATS ICE c37305a at -O0: in|[4.0 Regression] ACATS ICE
                   |tree_low_cst, at tree.c:3839|c37305a at -O0: in
                   |                            |tree_low_cst, at tree.c:3839


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=18859