--  From a real editing session. Now finds a reasonable solution quickly.
--
--EMACS_SKIP_UNLESS:(eq ada-parser 'process)
procedure Ada_Mode.Recover_3 is
   function Process return Boolean
   is
      Node_Id : Token_Id renames

   begin
      return Node.Id = Id;
   end Process;

   function Process_1 return Boolean
   is
      Node_Id : Token_Id

        renames begin
      return Node.Id = Id;
   end Process_1;
end Ada_Mode.Recover_3;
-- Error recovery has a race condition; force it to return repeatable results
-- Local Variables:
-- wisi-mckenzie-task-count: 1
-- End:
