1--  { dg-do compile }
2
3package body Overload is
4
5   function Get (I : Integer) return Ptr1 is
6      P : Ptr1 := null;
7   begin
8      return P;
9   end;
10
11   function Get (I : Integer) return Ptr2 is
12      P : Ptr2 := null;
13   begin
14      return P;
15   end;
16
17   function F (I : Integer) return Ptr1 is
18     P : Ptr1 := Get (I).Data'Access;
19   begin
20     return P;
21   end;
22
23end Overload;
24