[fpc-devel]bug 3272

[rstar at mnet-online.de]

Hi!
Can someone solve this heavy bug below.
Thanks!

program  bug3272;

var i: integer;
begin
  for i:= -1 to -2 do
     writeln (i);
  writeln;
  for i:= 1 to 0 do
     writeln (i);
end.