Test suite results for test file webtbs/tw2198.pp

Test run data :

Test file "webtbs/tw2198.pp" information:

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

Detailed test run results:

Record count: 1

No log of 940491.

Source:

{ Source provided for Free Pascal Bug Report 2198 }
{ Submitted by "Sebastian Günther" on  2002-10-23 }
{ e-mail: sg@freepascal.org }

{$mode objfpc}

type
  TTest = class
    procedure x;
    procedure x(i: Integer);
  end;

procedure TTest.x;
const s = 'Test1';
begin
  writeln(s);
end;

procedure TTest.x(i: Integer);
const s = 'Test2';
begin
  writeln(s);
end;

var
  t : ttest;
begin
  t:=ttest.create;
  t.x;
  t.x(1);
  t.free;
end.

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