Test suite results for test file webtbs/tw0882.pp

Test run data :

Run ID:
Operating system: linux
Processor: powerpc
Version: 3.2.3
Fails/OK/Total: 6/3897/3903
Version: 3.2.3
Full version: 3.2.3-1374-g849fbd722c-unpushed
Comment: -O4 -Xd -Fl/usr/lib32 -Fd -Fl/usr/lib/gcc/powerpc64-linux-gnu/13/32 -Fd
Machine: gcc203
Category: 1
SVN revisions: fdf93c5b29:849fbd722c:ae0fe8a6a0:d1c29e6cb9
Submitter: pierre
Date: 2024/04/19 11:14:00 <> 2024/04/10
Previous run: 934305
Next run: 935646

Hide skipped tests

Hide successful tests

Test file "webtbs/tw0882.pp" information:

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

Detailed test run results:

tr_idruntr_oktr_skiptr_result
443699040934971TrueFalseSuccessfully run

Record count: 1

No log of 934971.

Source:

{$D+,E-,I+,L+,P-,Q+,R+,S+,T+,V+,X+,Y+}
{$M 8192,0,655360}
PROGRAM TEST;
CONST
        maxBlockSize    = 1 SHL 13;
TYPE
        byteBlock               = ARRAY[0..PRED(maxBlockSize)] OF byte;
VAR
        bb0                     : ^byteBlock;
TYPE
        rec     =       RECORD  i1,     len     : word  END;
VAR
        mr              : rec;
        bw              : word;
BEGIN
        NEW(bb0);
        mr.i1:=0; mr.len:=0;
        bb0^[0] := 1;
        bb0^[1] := 2;
       {$T+}
        bw:=word(Addr(bb0^[mr.i1])^);
        if bw <> 1 then
          halt(1);
       {$T-}
        bw:=word(Addr(bb0^[mr.i1])^);
{$ifndef ENDIAN_BIG}
        if bw <> (2 shl 8 + 1) then
{$else ENDIAN_BIG}
        if bw <> (1 shl 8 + 2) then
{$endif ENDIAN_BIG}
          halt(1);
END
.

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