Re: Newbie: Code isn't executed

[Simon Wright <simon@pushface.org>]

"Martin Dowie" <martin.dowie@baesystems.com> writes:

> Because Total is a Positive of range 1 .. Integer'Last, so it can never be 0
> (it will raise an exception and dying silently...)
>
> Total : Integer := 1000;
>
> exception
>    when others =>
>       Put_Line ("Oops!");
> end Susan;
>
> would have stopped it being silent.

If you are using GNAT try this at the start of your main program:

   GNAT.Exception_Traces.Trace_On
     (Kind => GNAT.Exception_Traces.Unhandled_Raise);

Also use the -E argument to gnatbind (gnatmake ... -bargs -E)