1generic
2
3  N : Natural;
4
5package Discr25_Pkg is
6
7  type T is private;
8
9  procedure Proc1 (Set : in out T);
10
11private
12  type Obj_T (Size_Max : Natural);
13  type T is access Obj_T;
14
15end Discr25_Pkg;
16