Sign in
gnu
/
gcc
/
refs/tags/basepoints/gcc-13
/
.
/
gcc
/
testsuite
/
gnat.dg
/
addr13.adb
blob: 91e44ae189dfdb64db8e4e1b164c88dad802f4b3 [
file
] [
log
] [
blame
]
--
{
dg
-
do
compile
}
package
body
Addr13
is
procedure
Overlay
is
Over
:
Integer
with
Address
=>
Gen_Obj
'Address;
begin
Over := 123;
end Overlay;
end Addr13;