
procedure Main is
begin
   null;
end Main;

with Test;

procedure Main2 is
begin
   Test;
end Main2;
