t_id
647
t_adddate
2003/10/03
t_result
0
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
1022397042 | 1027328 | True | False | Successfully run |
Record count: 1
{$ifdef fpc} {$mode tp} {$endif fpc} function times2(x : longint) : longint; begin times2:=2*x; end; var x:function(x:longint):longint; y:pointer absolute x; z,w,v:pointer; begin z:=@@x; w:=addr(@x); v:=@(addr(x)); writeln(longint(y),' ',longint(z),' ',longint(w),' ',longint(v)); if (z<>w) or (z<>v) then begin writeln('Addr Error'); halt(1); end; if (y<>nil) then begin writeln('Absolute Error'); halt(1); end; x:=times2; if (y<>@times2) then begin writeln('Absolute Error'); halt(1); end; end.