test_name 	 once-class-reference-attribute
test_description A test for types based on once classes with an attribute of a reference type that is set in creation procedures.

copy_raw	test.e $CLUSTER test.e
copy_raw	week_days.e $CLUSTER week_days.e
copy_sub	Ace $TEST Ace

compile_melted
compile_result ok
execute_work 	NONE 	exec_output
execute_result 	ok
compare		exec_output output

test_end