tests/test/tgeneric86.pp


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17

{ %NORUN }

program tgeneric86;

{$mode objfpc}{$H+}
{$modeswitch advancedrecords}

type
  generic TTest<T> = record
  type
    PTest = ^TTest;
  end;

begin

end.