package body Bar is

   procedure Do_Nothing is
   begin
      null;
   end Do_Nothing;

end Bar;