package Weak3 is
   procedure Foo;
end Weak3;