9 lines
172 B
Ada
9 lines
172 B
Ada
procedure Call_Foo is
|
|
begin
|
|
Foo;
|
|
exception
|
|
when Foo_Error =>
|
|
... -- do something
|
|
when others =>
|
|
... -- this catches all other exceptions
|
|
end Call_Foo;
|