Re: To raise an exception in task and handle/catch it in outer-block.

[tmoran@acm.org]

Personally, I would find it somewhat clearer to enclose the stuff that
may have/handle exceptions in a block of its own, rather than the task's
begin-end block.  That makes it clearer that exception handling has
nothing to do with whether the task finishes up with an "accept Stop" etc.

   task body A_Task is
   begin
     begin
       do stuff
     exception
       when others => do stuff
     end;
     accept Stop...
   end A_Task;