test_name 	 expanded-object-test-creates-objects
test_description An object test `attached {XXX} exp' in a routine causes creation of objects of type XXX when the routine is called if XXX is an expanded type, but only in workbench mode.  Finalized code works correctly.  Creation of the objects occurs even if the object test is not executed.

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

compile_final
compile_result	ok

c_compile_final
c_compile_result ok

execute_final	NONE exec_output3
execute_result	ok
compare		exec_output3 output

test_end