Test suite results for test file webtbs/tw3261.pp

Test run data :

View Test suite results

Test file "webtbs/tw3261.pp" information:

t_id 1345
t_adddate 2004/08/28
t_result 0
Flag t_norun set
t_knownrunerror 0

Detailed test run results:

Record count: 50

Total = 50

OK=0 Percentage= 0.00

Skipped=50 Percentage= 100.00

Source:

{ %norun }
{ %target=win32 }

{ Source provided for Free Pascal Bug Report 3261 }
{ Submitted by "Andreas Hausladen" on  2004-08-18 }
{ e-mail: Andreas.Hausladen@gmx.de }
program test;

{$mode delphi}

type
  TTest = class(TObject)
  public
    procedure myfunc(arg1: Integer; arg2: TTest); overload;
    procedure myfunc(arg1: TTest); overload;
  end;

procedure TTest.myfunc(arg1: Integer; arg2: TTest); external 'test.dll' name 'TTest_myfunc';

procedure TTest.myfunc(arg1: TTest);
begin
  if arg1 = nil then ;
end;

begin
end.

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