+ add test for already fixed Mantis #37286

git-svn-id: trunk@46408 -

.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

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.