Test suite results for test file webtbs/tw1910.pp

Test run data :

Test file "webtbs/tw1910.pp" information:

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

Detailed test run results:

Record count: 1

No log of 1027388.

Source:

{$mode delphi}

type
  tprocedure = procedure;

  procedure testprocedure;
   begin
   end;


  procedure proc(const buf);
  var
    p : tprocedure;
  begin
    p:=tprocedure(@buf);
  end;


begin
  proc(testprocedure);
end.

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