gcc/testsuite/gnat.dg/overload.adb

   1 --  { dg-do compile }
   2
   3 package 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
  23 end Overload;