Test suite results for test file webtbs/tw1096.pp

Test run data :

Test file "webtbs/tw1096.pp" information:

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

Detailed test run results:

Record count: 1

No log of 941183.

Source:

Program Test;
{$X-}

Function TestFunc : Boolean;
var b : Boolean;
begin
  TestFunc := True;
  b := True;
  if b then
  begin
    exit;
  end;
end;

begin
  writeln(3 xor 1);
  if TestFunc then
  begin
    writeln('Yo');
  end;
end.

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