t_id
1498
t_adddate
2005/02/24
t_result
0
t_knownrunerror
0
Record count: 50
Total = 50
OK=50 Percentage= 100.00
{ $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.