diff --git a/.gitattributes b/.gitattributes
index 0381bc4979..761c50add8 100644
--- a/.gitattributes
+++ b/.gitattributes
@@ -7622,6 +7622,7 @@ tests/webtbf/tw0896a.pp svneol=native#text/plain
 tests/webtbf/tw10425a.pp svneol=native#text/plain
 tests/webtbf/tw10457.pp svneol=native#text/plain
 tests/webtbf/tw10833a.pp svneol=native#text/plain
+tests/webtbf/tw10849.pp svneol=native#text/plain
 tests/webtbf/tw1157a.pp svneol=native#text/plain
 tests/webtbf/tw1238.pp svneol=native#text/plain
 tests/webtbf/tw1251a.pp svneol=native#text/plain
diff --git a/tests/webtbf/tw10849.pp b/tests/webtbf/tw10849.pp
new file mode 100644
index 0000000000..23de44ae67
--- /dev/null
+++ b/tests/webtbf/tw10849.pp
@@ -0,0 +1,10 @@
+{ %fail }
+{ %opt=-Se1w2 }
+
+var
+  pc: pchar;
+  m,m1: longword;
+begin
+  m:=1;
+  pc^:=char(m-(m1*10)+byte('0'));
+end.