Test suite results for test file tbs/tb0250.pp

Test run data :

Test file "tbs/tb0250.pp" information:

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

Detailed test run results:

Record count: 1

No log of 948271.

Source:

{ Old file: tbs0290.pp }
{ problem with storing hex numbers in integers }

{ $R+ would give compile time errors }
{$R-}

var i,j : integer;

begin
  { the following line gives a warning and $ffff is changed to $7fff!}
  i := $ffff;
  if i <> $ffff then
    begin
      Writeln('i:=$ffff loads ',i,'$7fff if i is integer !');
    end;
  j := 65535;
  if j <> 65535 then
    begin
      Writeln('j:=65535 loads ',j,' if j is integer !');
    end;
  if ($ffff=65535) and (i<>j) then
    begin
      Writeln('i and j are different !!!');
      Halt(1);
    end;
end.

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