Test suite results for test file webtbs/tw0881.pp

Test run data :

Run ID:
Operating system: haiku
Processor: i386
Version: 3.2.3
Fails/OK/Total: 53/8119/8172
Version: 3.2.3
Full version: 3.2.3
Comment: -O3 -Criot -gl -Fd
Machine: shredder
Category: 1
SVN revisions: 67e8c304c1:05480071e2:2f8aac770c:b6ccf16c9d
Submitter: pierre
Date: 2023/01/14 07:05:00 <> 2022/12/30
Previous run: 729397
Next run: 749253

Hide skipped tests

Hide successful tests

Test file "webtbs/tw0881.pp" information:

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

Detailed test run results:

tr_idruntr_oktr_skiptr_result
-778078655734839TrueFalseSuccessfully run

Record count: 1

No log of 734839.

Source:

PROGRAM TEST;
TYPE
    byteSet     = SET OF 0..7;
    booleanArray    = ARRAY[0..HIGH(word) DIV 8] OF byteSet;
    booleanArrayPointer = ^booleanArray;

PROCEDURE SetBooleanArray(  CONST p     : booleanArrayPointer;
                            CONST index : word );
BEGIN
    INCLUDE(p^[index DIV 8],index MOD 8)
END;

BEGIN
END.

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