* property override test

git-svn-id: trunk@5043 -

.gitattributes

@@ -6031,6 +6031,7 @@ tests/tbs/tb0502.pp svneol=native#text/plain
 tests/tbs/tb0503.pp svneol=native#text/plain
 tests/tbs/tb0504.pp svneol=native#text/plain
 tests/tbs/tb0505.pp svneol=native#text/plain
+tests/tbs/tb0506.pp svneol=native#text/plain
 tests/tbs/ub0060.pp svneol=native#text/plain
 tests/tbs/ub0069.pp svneol=native#text/plain
 tests/tbs/ub0119.pp svneol=native#text/plain
@@ -6065,6 +6066,7 @@ tests/tbs/ub0440.pp svneol=native#text/plain
 tests/tbs/ub0461.pp svneol=native#text/plain
 tests/tbs/ub0489.pp svneol=native#text/plain
 tests/tbs/ub0489b.pp svneol=native#text/plain
+tests/tbs/ub0506.pp svneol=native#text/plain
 tests/test/README -text
 tests/test/cg/cdecl/taoc1.pp svneol=native#text/plain
 tests/test/cg/cdecl/taoc2.pp svneol=native#text/plain

tests/tbs/tb0506.pp

@@ -0,0 +1,14 @@
+{ %recompile }
+
+uses ub0506;
+
+var
+  c : c2;
+  i : integer;
+begin
+  c:=c2.create;
+  c.value:=1;
+  i:=c.value;
+  if i<>2 then
+    halt(1);
+end.

tests/tbs/ub0506.pp

@@ -0,0 +1,41 @@
+{$ifdef fpc}{$mode objfpc}{$endif}
+unit ub0506;
+interface
+type
+  c1=class
+    procedure SetValue(i:integer);
+    function GetValue:integer;
+    property Value:integer read GetValue write SetValue;
+  end;
+
+  c2=class(c1)
+    procedure SetValue(i:integer);
+    function GetValue:integer;
+    property Value read GetValue;
+  end;
+
+implementation
+
+procedure c1.SetValue(i:integer);
+begin
+  writeln('c1.SetValue');
+end;
+
+function c1.GetValue:integer;
+begin
+  writeln('c1.getValue');
+  result:=1;
+end;
+
+procedure c2.SetValue(i:integer);
+begin
+  writeln('c2.SetValue');
+end;
+
+function c2.GetValue:integer;
+begin
+  writeln('c2.getValue');
+  result:=2;
+end;
+
+end.