在 Ada 中如何退出主程序并出现错误代码？

Question

看起来很简单，但这不能编译：

procedure Main is
begin
   exit 1;
end Main;

当使用 gprbuild 编译时，会产生：

Compile
   [Ada]          main.adb
main.adb:3:04: cannot exit from program unit or accept statement
main.adb:3:08: missing ";"
gprbuild: *** compilation phase failed

Ada 中的 exit 关键字显然与其他编程语言中的功能不同。那么如何退出 ada 主程序并出现错误代码呢？

Answer 1

怎么样：

with Ada.Command_Line;

procedure Main is
begin
   Ada.Command_Line.Set_Exit_Status(Ada.Command_Line.Failure);
end Main;