package body Sub is

   procedure P is
   begin
      null;
   end P;

   procedure P (X : Integer) is
   begin
      null;
   end P;

   procedure P (X : Float) is
   begin
      null;
   end P;

end Sub;
