test_name 	qat-anchored-to-generic
test_description A qat `: like {TEST1}.x' in class TEST1, where `x: G' and G is a formal generic parameter crashes the compiler.

copy_sub	Ace $TEST Ace
copy_raw	test.e $CLUSTER test.e
copy_raw	test2.e $CLUSTER test2.e
define GENERIC ""
copy_sub	test1.e $CLUSTER test1.e

compile_melted
compile_result	validity_error TEST1 VTUG(2)

define GENERIC "[G]"
copy_sub	test1.e $CLUSTER test1.e

resume_compile
compile_result	ok

test_end