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