fpcsrc/tests/webtbs/tw3272.pp


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
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.