fpcsrc/tests/test/tgeneric13.pp


1
2
3
4
5
6
7
8

{ %fail }
{$mode objfpc}
type generic TListNode<_T> = class(TObject)
       Data: _T;
     end;
type t = specialize TListNode<TListNode>;
begin
end.