From ddb2628712af3523dbbb67287c8ae444ea5cbc52 Mon Sep 17 00:00:00 2001
From: peter <peter@freepascal.org>
Date: Tue, 4 Jan 2005 16:52:40 +0000
Subject: [PATCH]   * fixed

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

diff --git a/tests/webtbs/tw3506.pp b/tests/webtbs/tw3506.pp
new file mode 100644
index 0000000000..d99dbd9a6f
--- /dev/null
+++ b/tests/webtbs/tw3506.pp
@@ -0,0 +1,28 @@
+{ Source provided for Free Pascal Bug Report 3506 }
+{ Submitted by "Frank Kintrup" on  2005-01-04 }
+{ e-mail: frank.kintrup@gmx.de }
+{$MODE Delphi}
+
+type
+  TEnumType = (enum0, enum1, enum2);
+
+type
+  TTestClass = class (TObject)
+  private
+    function GetPropValue(
+      nIndex : TEnumType) : Integer;
+
+  public
+    property Prop0 : Integer index enum0
+      read GetPropValue;
+  end;
+
+function TTestClass.GetPropValue(
+  nIndex : TEnumType) : Integer;
+begin
+  Result := Integer(nIndex);
+end;
+
+begin
+end.
+