procedure p is
procedure tmp;
-- forward declaration is not complete
begin
  tmp;
end p;