1package Overload is
2
3   type Rec1 is record
4      Data : Integer;
5   end record;
6   type Ptr1 is access all Rec1;
7
8   type Rec2 is record
9      Data : aliased Rec1;
10   end record;
11
12   type Ptr2 is access Rec2;
13
14   function Get (I : Integer) return Ptr1;
15
16   function Get (I : Integer) return Ptr2;
17
18   function F (I : Integer) return Ptr1;
19
20end Overload;
21