1 2 3 4 5 6 7 8 9 10 11 12 13 14
{ %FAIL } program tgeneric84; {$mode objfpc} type generic TTest<T> = record end; PTest = ^TTest; begin end.