fpcsrc/tests/webtbs/tw17986.pp


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

program tw17986;

{$mode delphi}

type
  TFoo1 = class
  public
    type
      TFoo2 = class
        procedure Proc(value: TFoo1); // was error: Type "TFoo1" is not completely defined
      end;
  end;

procedure TFoo1.TFoo2.Proc(value: TFoo1);
begin
end;

begin
end.