test_name 	 expanded-object-test-infinite-recursion
test_description An object test `{x: TEST2} Current' in an expanded class TEST2 causes infinite recursion if the system is melted or frozen.  Finalized code works correctly.
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

test_end