blob: c09634d8c5f7185b8656f92e972ead6ab08d2d98 [file] [log] [blame]
generic
N : Natural;
package Discr25_Pkg is
type T is private;
procedure Proc1 (Set : in out T);
private
type Obj_T (Size_Max : Natural);
type T is access Obj_T;
end Discr25_Pkg;