gcc/testsuite/gnat.dg/limited_with3_pkg1.adb

   1 with Ada.Strings.Fixed.Hash;
   2
   3 package body Limited_With3_Pkg1 is
   4
   5      function Equal ( Left, Right : Element_Access) return Boolean is
   6      begin
   7         return True;
   8      end;
   9
  10      function Equivalent_Keys (Left, Right : Key_Type) return Boolean is
  11      begin
  12         return True;
  13      end;
  14
  15      function Hash (Key : Key_Type) return Ada.Containers.Hash_Type is
  16      begin
  17          return Ada.Strings.Fixed.Hash (Key.all);
  18      end Hash;
  19
  20 end Limited_With3_Pkg1;