Test suite results for test file webtbf/tw3643.pp

Test run data :

Test file "webtbf/tw3643.pp" information:

t_id 1492
t_adddate 2005/02/12
t_result 0
Flag t_fail set
t_knownrunerror 0
t_opts -Sew

Detailed test run results:

Record count: 1

No log of 936990.

Source:

{ %fail }
{ %opt=-Sew }

{ Source provided for Free Pascal Bug Report 3643 }
{ Submitted by "Naj Kejah" on  2005-02-08 }
{ e-mail: universario@hotmail.com }
type
  recDep = record
    cuec, cuek: byte
  end;
var
  Dep1Rec : recDep;
BEGIN
  WITH Dep1Rec DO
    begin
      if cuek = 4 then ;
      if cuek = 4 then ;
    end;
END.

Link to SVN view of webtbf/tw3643.pp source.