From edc1765a6296437468b194b9dfecd54c0b78f395 Mon Sep 17 00:00:00 2001
From: florian <florian@freepascal.org>
Date: Mon, 21 Feb 2000 22:15:55 +0000
Subject: [PATCH] *** empty log message ***

---
 tests/webtbs/tbug819.pp | 27 +++++++++++++++++++++++++++
 1 file changed, 27 insertions(+)
 create mode 100644 tests/webtbs/tbug819.pp

diff --git a/tests/webtbs/tbug819.pp b/tests/webtbs/tbug819.pp
new file mode 100644
index 0000000000..4116232ece
--- /dev/null
+++ b/tests/webtbs/tbug819.pp
@@ -0,0 +1,27 @@
+{$mode objfpc}
+type
+  T1 = class
+    function Get(I: Integer): Integer; virtual; abstract;
+    property T[I: Integer]: Integer read Get; default;
+  end;
+
+  T2 = class(T1)
+    function Get(I: Integer): Integer; override;
+    property T[I: Integer]: Integer read Get; default;
+  end;
+
+function T2.Get(I: Integer): Integer;
+begin
+  Result:=I;
+end;
+
+var
+   c2 : t2;
+
+begin
+   c2:=t2.create;
+   if c2[9]<>9 then
+     halt(1)
+   else
+     halt(0);
+end.