peter 26 years ago
parent
commit
9a787d944a
2 changed files with 18 additions and 0 deletions
  1. 17 0
      bugs/bug0281.pp
  2. 1 0
      bugs/readme.txt

+ 17 - 0
bugs/bug0281.pp

@@ -0,0 +1,17 @@
+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.

+ 1 - 0
bugs/readme.txt

@@ -369,3 +369,4 @@ bug0274.pp   @(proc) is not allowed
 bug0275.pp   too many warnings
 bug0277.pp   typecasting with const not possible
 bug0279.pp   crash with ansistring and new(^ansistring)
+bug0281.pp   dup id checking with property is wrong