------- Additional Comments From pinskia at gcc dot gnu dot org 2005-06-21
19:47 -------
Reduced testcase from 22019 since it was just a related bug:
WITH REPORT; USE REPORT;
PROCEDURE C37213J IS
BEGIN
DECLARE
SUBTYPE SM IS INTEGER RANGE 1..10;
TYPE REC (D1, D2 : SM) IS
RECORD NULL; END RECORD;
TYPE MY_ARR IS ARRAY (SM RANGE <>) OF INTEGER;
GENERIC TYPE CONS IS PRIVATE;
PROCEDURE SUBTYP_CHK (OBJ_XCP : BOOLEAN;
TAG : STRING);
PROCEDURE SUBTYP_CHK (OBJ_XCP : BOOLEAN;
TAG : STRING) IS
SUBTYPE SCONS IS CONS;
X : SCONS;
FUNCTION VALUE RETURN SCONS IS
BEGIN
RETURN X;
END VALUE;
BEGIN
IF X /= VALUE THEN
FAILED ("");
END IF;
END SUBTYP_CHK;
TYPE VAR_REC_DEF1 (D3 : INTEGER := 1) IS
RECORD
CASE D3 IS
WHEN 1 =>
C1 : REC (D3, IDENT_INT(11));
WHEN OTHERS =>
C2 : INTEGER := IDENT_INT(5);
END CASE;
END RECORD;
PROCEDURE PROC3 IS NEW SUBTYP_CHK (VAR_REC_DEF1);
BEGIN
PROC3 (OBJ_XCP => TRUE, TAG => "PROC3");
END;
END C37213J;
--
What |Removed |Added
----------------------------------------------------------------------------
CC| |dberlin at gcc dot gnu dot
| |org, pinskia at gcc dot gnu
| |dot org
Status|UNCONFIRMED |NEW
Ever Confirmed| |1
Last reconfirmed|0000-00-00 00:00:00 |2005-06-21 19:47:16
date| |
Summary|ACATS ICE c37213j c37213l |[4.1 Regression] ACATS ICE
|do_structure_copy, at tree- |c37213j c37213l
|ssa-structalias.c:2372 |do_structure_copy, at tree-
| |ssa-structalias.c:2372
Target Milestone|--- |4.1.0
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=22140
