test_name 	 inherit-generic-of-expanded
test_description A generic class TEST1 inherit from a generic class with an actual generic parameter which is expanded. If the inherited code involves `like Current' the compiler crashes.

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

compile_melted
compile_result 	 ok

test_end