Source code in the ada programming language

Foo_Error : exception;


procedure Foo is
begin
   raise Foo_Error;
end Foo;


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


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


with Ada.Exceptions;  use Ada.Exceptions;
with Ada.Text_IO;     use Ada.Text_IO;

procedure Main is
begin
   ...
   Raise_Exception (Foo_Error'Identity, "This is the exception message");
   ..
exception
   when Error : others =>
      Put_Line ("Something is wrong here" & Exception_Information (Error));
end Main;