program tgeneric87; {$mode objfpc} type generic TTest = record end; const TestLongIntNil: ^specialize TTest = Nil; TestBooleanNil: ^specialize TTest = Nil; begin end.