+ new test

git-svn-id: trunk@3567 -

.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

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.