with Foobar;
package Foo is
   package Bar renames Foobar;
end Foo;
with Ada.Text_IO;

package body Foobar is
   procedure Blarg is
   begin
      Ada.Text_IO.Put_Line ("Blarg");
   end Blarg;
end Foobar;
package Foobar is
   procedure Blarg;
end Foobar;
with Foo;

procedure Main is
begin
   Foo.Bar.Blarg;
end Main;