Sign in
gnu
/
gcc
/
refs/tags/basepoints/gcc-13
/
.
/
gcc
/
testsuite
/
gnat.dg
/
pointer_protected_p.ads
blob: 65e4e72ab55845166008230f8d99fde0ac14e6f0 [
file
] [
log
] [
blame
]
package
pointer_protected_p
is
type T
;
type
Ptr
is
access
protected
procedure
(
Data
:
T
);
type T
is
record
Data
:
Ptr
;
end
record
;
end
pointer_protected_p
;