fpcsrc/tests/test/tclass13b.pp


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

{ %norun }

{$mode delphi}

type
  tc = class
    type
      tforward = class;

      tnested = class
        type
          tforward = class;

          tforward = class
          end;
      end;

      tforward = class
      end;
  end;

begin
end.