Test suite results for test file webtbs/tw2645.pp

Test run data :

Test file "webtbs/tw2645.pp" information:

t_id 1182
t_version 1.1
t_adddate 2003/11/02
t_result 0
t_knownrunerror 0

Detailed test run results:

Record count: 1

No log of 497919.

Source:

{ %version=1.1 }

{$mode objfpc}
{$inline on}

type
  c = class
    l : longint;
    procedure p;inline;
    procedure p2;
  end;

    procedure c.p;inline;
    begin
      writeln(l);
      inc(l,10);
    end;

    procedure c.p2;
    begin
      l:=10;
      p;
      if l<>20 then
        halt(1);
    end;

var
  o : c;
begin
  o:=c.create;
  o.p2;
  o.free;
end.
 

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