Re: How to exit an Ada program with (unix shell) error code?

[Martin <martin.dowie@btopenworld.com>]

On May 4, 10:47 am, reinkor <rein...@gmail.com> wrote:
> On 4 Mai, 11:31, Ludovic Brenta <ludo...@ludovic-brenta.org> wrote:
>
> > reinkor wrote on comp.lang.ada:
>
> > > Thanks, but how I terminate the program in a "natural" way
> > > (without using goto or "raise exception") ?
>
> > Simply allow the execution to reach the "end;" of the main subprogram.
>
> > with Ada.Command_Line;
> > procedure Exit_With_False is
> > begin
> >    Ada.Command_Line.Set_Exit_Status (1); -- False, in shell terms
> > end Exit_With_False; -- nothing else required
>
> > --
> > Ludovic Brenta.
>
> OK, using "return" ?
>
> reinert

No need for a return. But remember to ensure any tasks have completed
too.

Cheers
-- Martin