From mboxrd@z Thu Jan  1 00:00:00 1970
X-Spam-Checker-Version: SpamAssassin 3.4.4 (2020-01-24) on polar.synack.me
X-Spam-Level: 
X-Spam-Status: No, score=-1.3 required=5.0 tests=BAYES_00,INVALID_MSGID
	autolearn=no autolearn_force=no version=3.4.4
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 103376,deeb88b0e7eede4f
X-Google-Attributes: gid103376,public
From: Vincent Smeets <smeets@cci.de>
Subject: Re: Help with Exceptions!
Date: 1996/05/07
Message-ID: <318F2CFD.4B48@cci.de>#1/1
X-Deja-AN: 153475446
distribution: world
references: <4mmimq$s4r@hatathli.csulb.edu>
content-type: text/plain; charset=us-ascii
organization: Competence Center Informatik GmbH
mime-version: 1.0
newsgroups: comp.lang.ada
x-mailer: Mozilla 3.0b3 (X11; I; SunOS 5.5 sun4m)
Date: 1996-05-07T00:00:00+00:00
List-Id: <comp.lang.ada>


Robert Gelb wrote:
> 
> procedure test is
>         x:integer;
> begin
>         x:=10000000;
>         x:=3;
> exception
>         when CONSTRAINT_ERROR=>
>                 put("Error");
>                 --how can I go back to 'x:=3' statement
> end test;
> 

with Text_IO;
procedure Test is
   X : Integer;
begin
   begin
      X := 10000000;
   exception
     when Constraint_Error =>
        Text_IO.Put_Line ("Error");
   end;
   X := 3;
end Test;

--      Vincent Smeets              Competence Center Informatik GmbH
--      Tel. : +49-5931-805461      Postfach 1225
--      Fax  : +49-5931-842461      49702 Meppen, Germany
--      EMail: smeets@cci.de        http://www.cci.de/