Sign in
gnu
/
gcc
/
d769c5040874bf9546f2524f3f1d2a894165f92a
/
.
/
gcc
/
testsuite
/
gnat.dg
/
renaming7.adb
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;