1package Opt13_Pkg is
2
3    N : Natural := 0;
4
5    type My_Type is private;
6
7    procedure Allocate (T : out My_Type);
8
9private
10
11    type Data;
12
13    type My_Type is access Data;
14
15end Opt13_Pkg;
16