fpcsrc/tests/webtbf/tw4757.pp


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

{ %fail }

{$mode objfpc}

type
  tc1 = class
    fnext: tc1;
  end;

  tc2 = class(tc1)
    property next: tc2 read fnext write fnext;
  end;

begin
end.