Bug#446470: Bug #446470:

[Ludovic Brenta <ludovic@ludovic-brenta.org>]

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.