fpcsrc/tests/webtbs/tw17945.pp


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

program tw17945;
{$mode delphi}
type
  TFoo = class
  public
    type
      TEnumerator = object
      private
        FFoo: TFoo; //Was error: Illegal expression
      end;
  end;

begin
end.