Test suite results for test file webtbs/tw2729.pp

Test run data :

Test file "webtbs/tw2729.pp" information:

t_id 1017
t_adddate 2003/10/10
t_result 0
t_knownrunerror 0

Detailed test run results:

Record count: 1

No log of 497919.

Source:

{ Source provided for Free Pascal Bug Report 2729 }
{ Submitted by "marco (the gory bugs department)" on  2003-10-09 }
{ e-mail:  }
{$mode delphi}

type
  tbla= class(tobject)
    l : longint;
    class function bla:tbla;
    function get : longint;virtual;
    procedure doset;
 end;

procedure tbla.doset;
  begin
     l:=$deadbeaf;
  end;

function tbla.get : longint;
  begin
    result:=l;
  end;

class function tbla.bla:tbla;

  begin
    result:=Create;
  end;

var
  bla : tbla;

begin
  bla:=tbla.bla;
  bla.doset;
  if bla.get<>$deadbeaf then
    begin
      writeln('Problem');
      halt(1);
    end;
  bla.free;
end.

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