gcc/testsuite/gnat.dg/address_conv.adb

   1 --  { dg-do compile }
   2
   3 with System.Storage_Elements; use System.Storage_Elements;
   4
   5 procedure 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
  17 begin
  18   null;
  19 end;