Sign in
gnu
/
gcc
/
refs/tags/basepoints/gcc-13
/
.
/
gcc
/
testsuite
/
gnat.dg
/
prot9_gen.ads
blob: 656866eee02efa7ecdf021dd371b34d453decc13 [
file
] [
log
] [
blame
]
generic
type
Field_Type
is
limited
private
;
package
Prot9_Gen
is
type
Field_Pointer
is
access all
Field_Type
;
Pointer
:
Field_Pointer
:=
new
Field_Type
;
end
Prot9_Gen
;