--| 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 	evaluate-old-when-retry
test_description A routine has a postcondition which references an "old" expression. The body of the routine raises an exception which is retried by the rescue clause.  When postconditions are monitored and the system is melted, the "old" expression is incorrectly evaluated again when the retry instruction is executed.  Frozen code does not re-evaluate the "old" expression when it does a retry.

copy_sub 	Ace $TEST Ace
copy_raw 	test.e $CLUSTER test.e
compile_melted
compile_result 	ok

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