t_id
419
t_adddate
2003/10/03
t_result
0
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
459435214 | 937501 | True | False | Successfully run |
Record count: 1
{ Old file: tbs0217.pp } { in tp mode can't use the procvar in writeln OK 0.99.11 (PFV) } {$ifdef fpc}{$mode tp}{$endif} type tmpproc=function:longint; function a:longint;{$ifndef fpc}far;{$endif} begin a:=-1; end; procedure tmp(aa: tmpproc); begin writeln(aa); { "Cannot read/write variables of this type", TP kan dit wel? } if aa<>-1 then halt(1); end; begin tmp(a); { de TP manier , in FPC moet dit zijn tmp(@a); } end.