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