Test suite results for test file webtbs/tw2296.pp

Test run data :

Run ID:
Operating system: linux
Processor: powerpc64
Version: 3.3.1
Fails/OK/Total: 49/9174/9223
Version: 3.3.1
Full version: 3.3.1-15624-g3cfec5e6a4
Comment: -O1 -Fl/usr/lib/gcc/ppc64le-redhat-linux/4.8.5 -Fd
Machine: gcc112
Category: 1
SVN revisions: e601156b8c:3cfec5e6a4:7629cdb4a5:6a109634b0
Submitter: pierre
Date: 2024/04/28 00:34:00 <> 2024/04/27
Previous run: 939909
Next run: 941395

Hide skipped tests

Hide successful tests

Test file "webtbs/tw2296.pp" information:

t_id 936
t_adddate 2003/10/03
t_result 0
t_knownrunerror 0

Detailed test run results:

tr_idruntr_oktr_skiptr_result
478924248940666TrueFalseSuccessfully run

Record count: 1

No log of 940666.

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.