Test suite results for test file tbs/tb0486.pp

Test run data :

Test file "tbs/tb0486.pp" information:

t_id 1498
t_adddate 2005/02/24
t_result 0
t_knownrunerror 0

Detailed test run results:

Record count: 1

No log of 940467.

Source:

{ $mode delphi}
type
  tprocedure = procedure;
  pprocedure = ^tprocedure;

var
  l : longint;

function _f1 : plongint;
  begin
    result:=@l;
  end;

var
  f1 : function : plongint;
  f2 : function : pprocedure;

procedure p;
  begin
    l:=2;
  end;

begin
  f1^:=1;
  if l<>1 then
    halt(1);
  f2^:=p;
  f2^;
  if l<>2 then
    halt(1);
  writeln('ok');
end.

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