test_name 	 qat-greater-number-of-formal
test_description A system with a qualified anchor type `like x.foo' where `foo' is a formal generic in a greater position than where it is defined caused a compiler crash when type is processed.

copy_sub	Ace $TEST Ace
copy_raw	test.e $CLUSTER test.e
copy_raw	test1.e $CLUSTER test1.e
copy_raw	test2.e $CLUSTER test2.e
copy_raw	test3.e $CLUSTER test3.e
copy_raw	test4.e $CLUSTER test4.e

compile_melted
compile_result	ok

test_end