Help with Exceptions!

[rgelb@csulb.edu (Robert Gelb)]

I am doing a homework assignment in ADA and I am confused by the
exceptions.  My question is this: when I catch an error with the
exception, how can I go back to statement where the error occured (or the
statement next to it)? 
I know in Visual Basic you can do a 'resume next' statement which returns
you to the statement next to the one where the error occured

VB:
sub test()
	dim x as integer
	on error goto ErrHandler
	x = 1000000	'error occurs here
	x = 3		'resume next returns the 	
			'execution here
	Exit sub			
ErrHandler:
resume next	'return execution
end sub

ADA:
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;


--
Robert Gelb
Senior Systems Analyst
Data Express
Garden Grove, California USA
(714)895-8832