+ New test. Already fixed by Peter

tests/webtbs/tw3272.pp

@@ -0,0 +1,17 @@
+var i: integer;
+    err : boolean;
+begin
+  for i:= -1 to -2 do
+    begin
+      writeln (i);
+      err:=true;
+    end;
+ writeln;
+ for i:= 1 to 0 do
+    begin
+      writeln (i);
+      err:=true;
+    end;
+  if err then
+    halt(1);
+end.