diff --git a/.gitattributes b/.gitattributes
index 9db0608af7..4ef894220a 100644
--- a/.gitattributes
+++ b/.gitattributes
@@ -6818,6 +6818,7 @@ tests/webtbs/tw5023.pp svneol=native#text/plain
 tests/webtbs/tw5036.pp svneol=native#text/plain
 tests/webtbs/tw5082.pp -text svneol=unset#text/plain
 tests/webtbs/tw6491.pp svneol=native#text/plain
+tests/webtbs/tw6684.pp svneol=native#text/plain
 tests/webtbs/tw6742.pp svneol=native#text/plain
 tests/webtbs/ub1873.pp svneol=native#text/plain
 tests/webtbs/ub1883.pp svneol=native#text/plain
diff --git a/tests/webtbs/tw6684.pp b/tests/webtbs/tw6684.pp
new file mode 100644
index 0000000000..b263e8ccb3
--- /dev/null
+++ b/tests/webtbs/tw6684.pp
@@ -0,0 +1,18 @@
+Var
+  D : LongInt;
+  d1,d2 : int64;
+
+Begin
+  D := -100;
+  {$OVERFLOWCHECKS on}
+  Writeln(2 * D);
+  d1:=d*2;
+  {$OVERFLOWCHECKS off}
+  Writeln(2 * D);
+  d2:=d*2;
+  if d1<>-200 then
+    halt(1);
+  if d2<>-200 then
+    halt(1);
+  writeln('ok');
+End.