Test suite results for test file tbs/tb0422.pp

Test run data :

Test file "tbs/tb0422.pp" information:

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

Detailed test run results:

Record count: 1

No log of 940467.

Source:

{$ifdef fpc}{$mode delphi}{$endif}

type
  tcl = class
    function f1 : tvarrec; virtual;
  end;

var
   f : function : tvarrec of object;

function tcl.f1 : tvarrec;
begin
  fillchar(result,sizeof(result),0);
end;


procedure p1(v : tvarrec);
  begin
  end;


var
  c : tcl;
begin
   c:=tcl.create;
   f:=c.f1;
   p1(f);
end.

Link to SVN view of tbs/tb0422.pp source.