+ New test. Already fixed by Peter

2025-04-20 11:09:42 +02:00 · 2004-08-30 12:11:18 +00:00 · 2004-08-30 12:11:18 +00:00 · e4bb7935d1
commit e4bb7935d1
parent 55eea27447
1 changed files with 17 additions and 0 deletions
--- a/tests/webtbs/tw3272.pp
+++ 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.