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;