Test suite results for test file webtbs/tw0882.pp

Test run data :

Free Pascal Compiler Test Suite Results

View Test suite results

Please specify search criteria:
File:
Operating system:
Processor:
Version
Date
Submitter
Machine
Comment
Limit
Cond
Category
Only failed tests
Hide skipped tests
List all 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:

Record count: 50

Total = 50

OK=50 Percentage= 100.00

Result type Cat. Count Percentage First date Last Date
Successfully run 50 100.0 2024/05/21 01:54:00 35 2024/05/21 02:32:00 35
i386 14 28.0 2024/05/21 01:58:00 33 2024/05/21 02:32:00 27
x86_64 34 68.0 2024/05/21 01:54:00 35 2024/05/21 02:32:00 35
aarch64 2 4.0 2024/05/21 02:03:00 35 2024/05/21 02:19:00 42
linux 49 98.0 2024/05/21 01:54:00 35 2024/05/21 02:32:00 35
win32 1 2.0 2024/05/21 02:04:00 34 2024/05/21 02:04:00 34
3.3.1 28 56.0 2024/05/21 01:56:00 16 2024/05/21 02:32:00 27
3.2.3 22 44.0 2024/05/21 01:54:00 35 2024/05/21 02:32:00 35

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.