retitle 446470 [Fixed in 4.2] Bug box in expand_expr_addr_expr_1, at expr.c:6393
retitle 390101 [Fixed in 4.2] Bug box in expand_expr_addr_expr_1, at expr.c:6393
thanks

Here is an even shorter test case which triggers the bug even without
a rep clause.

procedure Test_Param is
   type Int_1 is range 0..7;

   type T_A_B is record
      A, B : Int_1;
   end record;
   pragma Pack(T_A_B);

   type T_C is array (1..12) of T_A_B;
   pragma Pack(T_C);

   X : T_C;
begin
   if X(1).B'Valid then
      null;
   end if;
end Test_Param;

-- 
Ludovic Brenta.




-- 
To UNSUBSCRIBE, email to [EMAIL PROTECTED]
with a subject of "unsubscribe". Trouble? Contact [EMAIL PROTECTED]

Reply via email to