--  From a real editing session.

--EMACS_SKIP_UNLESS:(eq ada-parser 'process)
procedure Ada_Mode.Recover_Constant_As_Statement_1
is begin
   loop

      if Next_Marker = Sof0 or
      Sof5  : constant Stream_Element := 16#C5#;
      --  Copied a list of constant declarations to construct a boolean
      -- expression. Desired solution: delete ': constant Stream_Element'.

   end loop;
exception
   when  Sal.Invalid_Format =>
      raise;
end Ada_Mode.Recover_Constant_As_Statement_1;
--  Local Variables:
--  wisi-mckenzie-task-count: 1
--  End:
