2 -- { dg-options "-O2" }
4 with System
.Address_To_Access_Conversions
;
6 procedure address_conversion
is
8 type Integer_type1
is new Integer;
9 type Integer_type2
is new Integer;
11 package AA
is new System
.Address_To_Access_Conversions
(Integer_type1
);
20 AA
.To_Pointer
(K2
'Address).all := K1
;