Test suite results for test file webtbs/tw0873a.pp

Test run data :

Test file "webtbs/tw0873a.pp" information:

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

Detailed test run results:

Record count: 1

No log of 1027381.

Source:

{$mode objfpc}

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

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

var
    Obj: TObjectB;

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

Destructor TObjectB.Destroy;
begin
end;

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

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

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