Test suite results for test file webtbs/tw2296.pp

Test run data :

View Test suite results

Test file "webtbs/tw2296.pp" information:

t_id 936
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:

uses Dos;

const MAX_VAL = 128;
var
   r : real;
   f : file of byte;
   b1, b2: byte;
begin
   assign(f,'bug2296.dat');
   rewrite(f);
   r := 12.2;
   write(f,Byte(round(sin(r)*(MAX_VAL-1)+MAX_VAL)));
   b1 := Byte(round(sin(r)*(MAX_VAL-1)+MAX_VAL));
   close(f);
   reset(f);
   read(f,b2);
   if b1 <> b2 then
     begin
       writeln('b1: ',b1,' <> b2: ',b2);
       halt(1);
     end;
   close(f);
   erase(f);
end.

Link to SVN view of webtbs/tw2296.pp source.