t_id
644
t_adddate
2003/10/03
t_result
0
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
950858636 | 1015809 | True | False | Successfully run |
Record count: 1
{$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.