package body Common_Pack is

   ---------
   -- Foo --
   ---------

   procedure Foo is
   begin
      Bar;
   end Foo;

   ---------
   -- Bar --
   ---------

   procedure Bar is
   begin
      null;
   end Bar;

end Common_Pack;
