fpcsrc/tests/webtbs/tw0738.pp


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

{$mode delphi}

type
 (*
 {$IFDEF FPK}
 SomeClass = class; { this line shouldn't be necessary }
 {$ENDIF}
 *)

 SomeClass = class
  SomeMember:SomeClass;
 end;

begin
end.