1-- { dg-do compile } 2 3with System.Storage_Elements; use System.Storage_Elements; 4 5procedure Address_Conv is 6 7 subtype My_Address is System.Address; 8 9 type Rec is record 10 A : My_Address; 11 end record; 12 13 Addr : constant My_Address := To_Address (16#FACEFACE#); 14 15 R : constant Rec := (A => Addr); 16 17begin 18 null; 19end; 20