fpcsrc/tests/test/tclass13a.pp


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

{ %norun }
{$mode delphi}

type
  tc = class
   type
    tnest = class
    end;
  end;
  td = class(tc)
   type
     tnest = class(tc.tnest)
     end;
  end;

begin
end.