blob: 2a93f9e9a3fc52305132e330e4364cb876f70d35 [file] [log] [blame]
-- { dg-do compile }
-- { dg-options "-O" }
with Renaming7_Pkg; use Renaming7_Pkg;
with System;
procedure Renaming7 is
C : constant System.Address := A'Address;
D : System.Address renames C;
begin
null;
end;