Test suite results for test file webtbs/tw0873b.pp

Test run data :

Test file "webtbs/tw0873b.pp" information:

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

Detailed test run results:

Record count: 1

No log of 940456.

Source:

{$mode objfpc}

// Compile it using the Delphi extensions
// directive.

type
    TObject = class
      private
        procedure SetValue(v: integer);
      public
        fx: integer;
        Constructor Create;
        Destructor Destroy;
        property x: integer read fx write SetValue;
    end;

var
    Obj: TObject;

Constructor TObject.Create;
begin
    fx := 0;
end;

Destructor TObject.Destroy;
begin
end;

procedure TObject.SetValue(v: integer);
begin
    fx := v + 2;
end;

begin
    writeln('This will be printed');
    Obj := TObject.Create;
    writeln('This won''t.');
end.

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