package body Bar is

   -----------
   -- Hello --
   -----------

   procedure Hello (A : Integer; B : Float) is
   begin
      null;
   end Hello;

   -----------
   -- Hello --
   -----------

   procedure Hello (M : access My_Type; A : Integer; B : Float) is
   begin
      null;
   end Hello;

end Bar;

