+ test for previous commit

git-svn-id: trunk@7353 -

.gitattributes

@@ -8221,6 +8221,7 @@ tests/webtbs/tw8810.pp svneol=native#text/plain
 tests/webtbs/tw8838.pp svneol=native#text/plain
 tests/webtbs/tw8861.pp svneol=native#text/plain
 tests/webtbs/tw8870.pp svneol=native#text/plain
+tests/webtbs/tw8883.pp svneol=native#text/plain
 tests/webtbs/ub1873.pp svneol=native#text/plain
 tests/webtbs/ub1883.pp svneol=native#text/plain
 tests/webtbs/uw0555.pp svneol=native#text/plain

tests/webtbs/tw8883.pp

@@ -0,0 +1,24 @@
+procedure DoTest;
+var
+  i, j, cnt: longint;
+begin
+  cnt:=0;
+  j:=1;
+  for i:=0 to j do
+  begin
+    Inc(cnt);
+    Dec(j);
+  end;
+
+  writeln(cnt);
+  if cnt <> 2 then
+  begin
+    writeln('Test failed!');
+    Halt(1);
+  end;
+  writeln('Test OK.');
+end;
+
+begin
+  dotest;
+end.