1with Incomplete5_Pkg;
2
3package Incomplete5 is
4
5   type Rec1 is private;
6
7   type Rec2 is private;
8
9   package My_G is new Incomplete5_Pkg (Rec1);
10
11   use My_G;
12
13   function Get (O: Base_Object) return Integer;
14
15private
16
17   type Rec1 is record
18      I : Integer;
19   end record;
20
21   type Rec2 is record
22      A : Access_Type;
23   end record;
24
25end Incomplete5;
26