test_name 	 like-current-as-actual-generic
test_description "like Current" can be used as actual generic if formal generic is not restricted to be "reference".

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

compile_melted
compile_result	ok
execute_work	NONE exec_output
execute_result	ok
compare		exec_output output

test_end