Test suite results for test file tbs/tb0041.pp

Test run data :

View Test suite results

Test file "tbs/tb0041.pp" information:

t_id 300
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

Source:

{ Old file: tbs0046.pp }
{  problems with sets with values over 128 due to sign extension (already fixed ) but also for SET_IN_BYTE }

program test;

{$R-}

type byteset = set of byte;
     bl = record i,j : longint;
          end;
const set1 : byteset = [1,50,220];
      set2 : byteset = [55];
var i : longint;
    b : bl;

    function bi : longint;

    begin
       bi:=b.i;
    end;

begin
set1:=set1+set2;
writeln('set 1 = [1,50,55,220]');
i:=50;
if i in set1 then
  writeln(i,' is in set1');
i:=220;
if i in set1 then
  writeln(i,' is in set1');
i:=$100+220;
if i in set1 then
  writeln(i,' is in set1');
i:=-35;
if i in set1 then
  writeln(i,' is in set1');
b.i:=50;
i:=$100+220;
if i in [50,220] then
  writeln(i,' is in [50,220]');
if Bi in [50,220] then
  writeln(b.i,' is in [50,220]');
b.i:=220;
if bi in [50,220] then
  writeln(b.i,' is in [50,220]');
B.i:=-36;
if bi in [50,220] then
  writeln(B.i,' is in [50,220]');
end.

Link to SVN view of tbs/tb0041.pp source.