t_id
1498
t_adddate
2005/02/24
t_result
0
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
949266599 | 1015553 | True | False | Successfully run |
Record count: 1
{ $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.