Test suite results for test file tbs/tb0295.pp

Test run data :

View Test suite results

Test file "tbs/tb0295.pp" information:

t_id 518
t_version 1.1
t_adddate 2003/10/03
t_result 0
t_knownrunerror 0

Detailed test run results:

Record count: 50

Total = 50

OK=50 Percentage= 100.00

Source:

{ %VERSION=1.1 }

{ Old file: tbs0353.pp }
{  }

Var
  I : Int64;
  j : longint;
  K : Int64;
  err : boolean;
begin
  I:=2;
  Writeln(i);
  K:=1 shl 62;
  For j:=1 to 61 do
    begin
    I:=I*2;
    If I/k*100>100 then
      begin
        Writeln('Error');
        err:=true;
      end
    else
      Writeln(j:2,': ',i:20,' ',i div 1024:20,' ',(i/k*100):4:1);
    end;
  if err then
   halt(1);
end.

Link to SVN view of tbs/tb0295.pp source.