fpc/tests/tbf/tb0054.pp
2000-12-03 21:50:07 +00:00

24 lines
388 B
ObjectPascal

{ %FAIL }
{ Old file: tbf0281.pp }
{ dup id checking with property is wrong }
{$mode objfpc}
type
test_one = class
protected
fTest : String;
public
property Test: String READ fTest WRITE fTest;
procedure Testen(Test: BOolean);
{ ^ duplicate identifier? }
end;
procedure test_one.testen(test: boolean);
begin
end;
begin
end.