2 -- { dg-options "-gnatws" }
4 procedure Addr_Slice
is
5 type Item_Type
is record
9 type Index_Type
is (A
, B
);
10 for Index_Type
use (A
=> 1, B
=> 10);
12 Item_Array
: constant array (Index_Type
) of Item_Type
13 := (A
=> (I
=> 10), B
=> (I
=> 22));
16 for Item
'Address use Item_Array
(Index_Type
)'Address;