blob: c09634d8c5f7185b8656f92e972ead6ab08d2d98 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
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;
|