From fbb8e161faf81e8ed65524beafc204c74eebafb2 Mon Sep 17 00:00:00 2001
From: svenbarth <pascaldragon@googlemail.com>
Date: Thu, 13 Aug 2020 05:42:32 +0000
Subject: [PATCH] + add test for already fixed Mantis #37286

git-svn-id: trunk@46408 -
---
 .gitattributes          |  1 +
 tests/webtbs/tw37286.pp | 20 ++++++++++++++++++++
 2 files changed, 21 insertions(+)
 create mode 100644 tests/webtbs/tw37286.pp

diff --git a/.gitattributes b/.gitattributes
index aba95eaf46..05c382d00a 100644
--- a/.gitattributes
+++ b/.gitattributes
@@ -18408,6 +18408,7 @@ tests/webtbs/tw37228.pp svneol=native#text/plain
 tests/webtbs/tw37254.pp svneol=native#text/pascal
 tests/webtbs/tw37261.pp svneol=native#text/pascal
 tests/webtbs/tw37272a.pp svneol=native#text/pascal
+tests/webtbs/tw37286.pp svneol=native#text/pascal
 tests/webtbs/tw37301.pp svneol=native#text/pascal
 tests/webtbs/tw37322.pp svneol=native#text/pascal
 tests/webtbs/tw37323.pp svneol=native#text/pascal
diff --git a/tests/webtbs/tw37286.pp b/tests/webtbs/tw37286.pp
new file mode 100644
index 0000000000..1c18d497fd
--- /dev/null
+++ b/tests/webtbs/tw37286.pp
@@ -0,0 +1,20 @@
+{ %NORUN }
+
+program tw37286;
+
+{$mode objfpc}
+
+var preShiftWorldDx: LongInt;
+  WorldDx: LongInt;
+  playWidth: LongInt;
+
+procedure ShiftWorld(Dir: LongInt); inline;
+begin
+    preShiftWorldDx:= WorldDx;
+    WorldDx:= WorldDx + LongInt(Dir * LongInt(playWidth));
+
+end;
+
+begin
+  ShiftWorld(-1);
+end.