fpcsrc/tests/webtbs/tw16222.pp


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

{ %norun } 
program tw16222;

{$ifdef fpc}
  {$mode delphi}
{$endif}

type
  TOuterClass = class
  public
    type 
      TInnerClass = class
      end;
  end;

function fn(P: Pointer): TOuterClass.TInnerClass;
begin
  Result := TOuterClass.TInnerClass(P);
end;

begin
end.