--| Copyright (c) 1993-2006 University of Southern California and contributors.
--| All rights reserved.
--| Your use of this work is governed under the terms of the GNU General
--| Public License version 2.

-- This is a test control file

test_name 	eval-precondition-when-retry
test_description A routine has a precondition.  The body of the routine raises an exception which is retried by the rescue clause.  When precondition are monitored and the system is melted, the routine precondition is incorrectly evaluated again when the retry instruction is executed. Frozen code works correctly.

copy_sub 	Ace $TEST Ace
copy_raw 	test.e $CLUSTER test.e
compile_melted
compile_result 	 validity_warning TEST "Unused Local"

execute_work 	NONE exec_output1
execute_result 	ok
compare		exec_output1 output

compile_frozen
compile_result 	ok

c_compile_work
c_compile_result ok

execute_work 	NONE exec_output2
execute_result 	ok
compare		exec_output2 output

test_end