From e4bb7935d1c467932e62615ca61d3cb220f9ddfe Mon Sep 17 00:00:00 2001
From: michael <michael@freepascal.org>
Date: Mon, 30 Aug 2004 12:11:18 +0000
Subject: [PATCH] + New test. Already fixed by Peter

---
 tests/webtbs/tw3272.pp | 17 +++++++++++++++++
 1 file changed, 17 insertions(+)
 create mode 100644 tests/webtbs/tw3272.pp

diff --git a/tests/webtbs/tw3272.pp b/tests/webtbs/tw3272.pp
new file mode 100644
index 0000000000..151e0b6239
--- /dev/null
+++ b/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.