1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23
{ %FAIL } program tgenconstraint39; {$mode objfpc} type TSomeClass = class end; generic TGeneric<T: TSomeClass> = class end; TTest = class; TGenericTTest = specialize TGeneric<TTest>; TTest = class(TSomeClass) end; begin end.