Test suite results for test file tbs/tb0430.pp

Test run data :

Test file "tbs/tb0430.pp" information:

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

Detailed test run results:

Record count: 1

No log of 1015786.

Source:

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

function f1:pointer;
begin
  result:=nil;
end;

var
  func: function:pointer;
begin
  func:=f1;
  { Assigned() works on the procvar and does not
    call func }
  if not assigned(func) then
   begin
     writeln('ERROR!');
     halt(1);
   end;
end.

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