test_name 	melted-once-creation-of-generic
test_description A once function that creates an entity of type formal generic G, where the actual generic is DOUBLE, return a non-Void value on the first call but Void on the second call.  This only happens with melted code.

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