fpc/tests/tbs/tbs0007.pp

uses
  erroru;

var
   count : byte;
   test : longint;
begin
   test:=0;
   for count:=1 to 127 do
     begin
        inc(test);
        writeln(count,'. loop');
        if test>127 then
          Error;
     end;
end.