mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-06 19:07:59 +02:00
7b216d7fa6
pdecobj.pas, parse_object_members: * also allow class fields for helper types + added tests git-svn-id: trunk@29270 -
19 lines
161 B
ObjectPascal
19 lines
161 B
ObjectPascal
{ %NORUN }
|
|
|
|
program tw27120;
|
|
|
|
{$mode objfpc}
|
|
|
|
type
|
|
TFoo = class
|
|
end;
|
|
|
|
TBar = class helper for TFoo
|
|
private class var
|
|
FFoo: TFoo;
|
|
end;
|
|
|
|
begin
|
|
|
|
end.
|