--| 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 	melted-creation-pass-target
test_description A creation instruction is applied to an entity (local or attribute) which is already attached to an object and the current value of the entity is passed to the creation procedure (e.g., !!x.make (x)).  If the code is melted, the newly created object is passed to the creation procedure instead of the object to which the entity is attached before the creation instruction.  Frozen code works correctly.

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

test_end