fpcsrc/tests/webtbs/tw18085.pp


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

program Project1;

{$mode delphi}

uses
  uw18087a, uw18087b;

type
  TFoo1 = class
  strict private
    type
      TFoo2 = record
      end;
      TFoo3 = class
        FFoo2: TFoo2; // was error: Identifier not found "TFoo2"
      end;
  end;

begin
end.