fpc/tests/webtbf/tw20580.pp

16 lines
240 B
ObjectPascal

{%fail}
{$ifdef fpc}
{$mode delphi}
{$endif}
type
TTestObject = class(TObject)
private
fValue: integer;
protected
property Value: integer read fValue write fValue;
property Value: integer read fValue;
end;
begin
end.