gcc/testsuite/gnat.dg/overload.ads

   1 package 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
  20 end Overload;