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

procedure Call_Foo is
begin
   Foo;
exception
   when Foo_Error =>
      ... -- do something
   when others =>
      ... -- this catches all other exceptions
end Call_Foo;