+ test for mantis #6769 (already works with 2.3.1 and 2.2.1)

git-svn-id: trunk@10892 -

.gitattributes

@@ -8859,6 +8859,7 @@ tests/webtbs/tw6735.pp svneol=native#text/plain
 tests/webtbs/tw6737.pp -text
 tests/webtbs/tw6742.pp svneol=native#text/plain
 tests/webtbs/tw6767.pp svneol=native#text/plain
+tests/webtbs/tw6769.pp svneol=native#text/plain
 tests/webtbs/tw6822a.pp svneol=native#text/plain
 tests/webtbs/tw6822b.pp svneol=native#text/plain
 tests/webtbs/tw6822c.pp svneol=native#text/plain

tests/webtbs/tw6769.pp

@@ -0,0 +1,18 @@
+{$q+}
+{$r+}
+
+Var A, B, C : Byte;
+    D : SmallInt;
+Begin
+A := 6;
+B := 8;
+C := 20;
+D := -C+A+B;
+if (d<>-6) then
+  halt(1);
+Writeln(D);
+D := A+B-C;
+if (d<>-6) then
+  halt(1);
+Writeln(D)
+End.