RosettaCodeData/Task/Exceptions/Ada/exceptions-3.ada

  ...
exception
   when Foo_Error =>
      if ... then -- Alas, cannot handle it here,
         raise;   -- continue propagation of
      end if;