* test for mantis #34543 (already fixed)

git-svn-id: trunk@46988 -

.gitattributes

@@ -18301,6 +18301,7 @@ tests/webtbs/tw3444.pp svneol=native#text/plain
 tests/webtbs/tw34442.pp svneol=native#text/plain
 tests/webtbs/tw34496.pp svneol=native#text/pascal
 tests/webtbs/tw34509.pp svneol=native#text/pascal
+tests/webtbs/tw34543.pp svneol=native#text/plain
 tests/webtbs/tw3456.pp svneol=native#text/plain
 tests/webtbs/tw3457.pp svneol=native#text/plain
 tests/webtbs/tw3460.pp svneol=native#text/plain

tests/webtbs/tw34543.pp

@@ -0,0 +1,18 @@
+{ %norun }
+
+{$r+}
+procedure range_check_fail;
+var v : word;
+    vTo : word;
+    vNo : word;
+begin
+     vTo:=3;
+     vNo:=0;
+     for v:=vNo to vTo do {Error: range check error while evaluating constants (-1 must be between 0 and 65535)}
+     begin
+     end;
+end;
+
+begin
+end.
+