Sign in
gnu
/
gcc
/
a6d3012b274f38b20e2a57162106f625746af6c6
/
.
/
gcc
/
testsuite
/
gnat.dg
/
pointer_protected.adb
blob: 070dbef94067691e5fb39ef5eb2fddd7b0f03af6 [
file
] [
log
] [
blame
]
--
{
dg
-
do
compile
}
with
pointer_protected_p
;
procedure pointer_protected
is
Pointer
:
pointer_protected_p
.
Ptr
:=
null
;
Data
:
pointer_protected_p
.
T
;
begin
Pointer
.
all
(
Data
);
end
pointer_protected
;