Test suite results for test file test/tprocvar2.pp

Test run data :

Test file "test/tprocvar2.pp" information:

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

Detailed test run results:

Record count: 1

No log of 497919.

Source:

{$F+}
{$ifdef fpc}
{$mode tp}
{$endif fpc}

type
  tproc = procedure;
  tprocx = procedure(x : longint);

const
  dummy_call_count : longint = 0;

procedure dummy;
begin
  writeln('Dummy called');
  inc(dummy_call_count);
end;

procedure dummyx(x : longint);
begin
  writeln('Dummy called with x=',x);
  inc(dummy_call_count);
end;

var
  tp2 : tproc;
  tp1x,tp2x : tprocx;
const
  tp1 : tproc = dummy;

begin
  move(@tp1,@tp2,sizeof(tproc));
  tp2;
  tp1x:=dummyx;
  move(@tp1x,@tp2x,sizeof(tproc));
  tp2x(2);

end.

Link to SVN view of test/tprocvar2.pp source.