* disallow 64-bit property index specifiers on 64-bit CPUs, since they were not

  handled correctly there anyway (they were silently truncated to 32-bit)



git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@27061 3ad0048d-3df7-0310-abae-a5850022a9f2

1 files changed, 18 insertions, 0 deletions

diff --git a/tests/tbf/tb0239.pp b/tests/tbf/tb0239.pp
new file mode 100644
index 0000000000..0e133fb24c
--- /dev/null
+++ b/tests/tbf/tb0239.pp
@@ -0,0 +1,18 @@
+{ %FAIL }
+program tb0239;
+
+{$MODE objfpc}
+
+type
+  TMyClass = class
+    function GetMyProperty(Index: Integer): Integer;
+    property MyProperty: Integer index 10000000000000000 read GetMyProperty;
+  end;
+
+function TMyClass.GetMyProperty(Index: Integer): Integer;
+begin
+  Result := 10;
+end;
+
+begin
+end.