5 lines
52 B
Ada
5 lines
52 B
Ada
|
procedure Foo is
|
||
|
|
begin
|
||
|
|
raise Foo_Error;
|
||
|
|
end Foo;
|