From fd458f8f15f37da8c5fb17447a9e56adee44a3f6 Mon Sep 17 00:00:00 2001
From: Jonas Maebe <jonas@freepascal.org>
Date: Thu, 18 Oct 2001 16:32:55 +0000
Subject: [PATCH]   +added

---
 tests/webtbf/tw1642.pp | 32 ++++++++++++++++++++++++++++++++
 1 file changed, 32 insertions(+)
 create mode 100644 tests/webtbf/tw1642.pp

diff --git a/tests/webtbf/tw1642.pp b/tests/webtbf/tw1642.pp
new file mode 100644
index 0000000000..3a2ccf4b4e
--- /dev/null
+++ b/tests/webtbf/tw1642.pp
@@ -0,0 +1,32 @@
+{ %FAIL }
+program TestDefaultProperty;
+
+{$MODE OBJFPC}{$H+}
+
+uses
+  SysUtils;
+
+type
+  TMyClass = class
+  private
+    function GetItems(Index: integer): integer;
+  public
+    property Items[Index: integer]: integer read GetItems; default;
+  end;
+
+function TMyClass.GetItems(Index: integer): integer;
+begin
+  writeln('Get Index=',Index);
+  Result:=Index;
+end;
+
+var MyClass: TMyClass;
+  i: integer;
+
+begin
+  MyClass:=TMyClass.Create;
+  i:=MyClass.Items;
+  writeln('i=',i);
+  MyClass.Free;
+end.
+