{ %fail } {$mode objfpc} type generic TG1 = class end; generic TG2 = class(TG1) end; begin end.