--| 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 	who-gets-exp-local-exception
test_description A routine has a local of an expanded type, where the base class of this type has a creation procedure that raises an exception.  If the system is melted, the recipient of the exception is not the routine containing the declaration of the local but that routine's caller.  If the system is frozen, the routine containing the declaration of the expanded local is the recipient of the exception.

copy_sub 	Ace $TEST Ace
copy_raw 	test.e $CLUSTER test.e
copy_raw 	test1.e $CLUSTER test1.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