13 lines
315 B
Ada
13 lines
315 B
Ada
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;
|