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.