fpcsrc/tests/webtbs/tw18086.pp


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

program tw18086;

{$mode delphi}

type
  TFoo1 = class; //Error: Type "TFoo1" is not completely defined

  TFoo2 = class //it compiles if TFoo2 is removed
  type
    TFoo3 = class
    end;
  end;

  TFoo1 = class
  end;

begin
end.