Test suite results for test file webtbs/tw0881.pp

Test run data :

Test file "webtbs/tw0881.pp" information:

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

Detailed test run results:

Record count: 1

No log of 872907.

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.