RosettaCodeData/Task/Exceptions/Ada/exceptions-2.adb
2026-04-30 12:34:36 -04:00

4 lines
52 B
Ada

procedure Foo is
begin
raise Foo_Error;
end Foo;