Test suite results for test file webtbs/tw2737.pp

Test run data :

Test file "webtbs/tw2737.pp" information:

t_id 1160
t_adddate 2003/10/22
t_result 0
t_knownrunerror 0

Detailed test run results:

Record count: 1

No log of 568888.

Source:

{ Source provided for Free Pascal Bug Report 2737 }
{ Submitted by "Johannes Berg" on  2003-10-13 }
{ e-mail: bugs@johannes.sipsolutions.de }
program test;
{$MODE delphi}

type
  TTest1 = class
    FA: Integer;
    property a: Integer read FA write FA;
  end;
  TTest2 = class(TTest1)
    procedure b(aa: Integer);
  end;

procedure TTest2.b(aa: Integer);
var a: Integer;
begin
end;

begin
end.

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