From 9ff3d9ac588f2ca63938d21c2dbcc017547f5367 Mon Sep 17 00:00:00 2001
From: peter <peter@freepascal.org>
Date: Thu, 30 Oct 2003 19:54:04 +0000
Subject: [PATCH]   * new bug

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

diff --git a/tests/webtbs/tw2631.pp b/tests/webtbs/tw2631.pp
new file mode 100644
index 0000000000..3a6960a6bc
--- /dev/null
+++ b/tests/webtbs/tw2631.pp
@@ -0,0 +1,23 @@
+{ %cpu=i386 }
+
+{ Source provided for Free Pascal Bug Report 2631 }
+{ Submitted by "Arnstein" on  2003-08-12 }
+{ e-mail: Arnstein.Prytz@jcu.edu.au }
+
+{$ifdef fpc}{$mode delphi}{$endif}
+
+function d : int64;
+  begin
+    asm
+      xor ecx,ecx
+      mov dword ptr Result,$00000000;
+      mov dword ptr Result+4,$00100000;
+      mov dword ptr Result[4+ECX*2],$00100000;
+    end;
+  end;
+
+begin
+  WRITELN( d );
+  if d<>$0010000000000000 then
+    halt(1);
+end.