Sign in
gnu
/
gcc
/
4e4e45a4fd341174d8231ee6a99e6fe308904f8f
/
.
/
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
;