{ %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.