test_name 	once-creation-procedures-immediate
test_description Violate the validity rule on once creation procedure must be immediate not inherited.

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

compile_melted
compile_result 	validity_error VGCC(9)