freepascal.compiler/bugs/bug0007.pp

var
   count : byte;

begin
   for count:=1 to 127 do
     begin
        writeln(count,'. loop');
     end;
end.