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

procedure Foo is
begin
   raise Foo_Error;
end Foo;