t_id
1064
t_adddate
2003/10/14
t_result
0
t_knownrunerror
0
Record count: 50
Total = 50
OK=0 Percentage= 0.00
Skipped=50 Percentage= 100.00
{$ifdef FPC} {$MODE TP} {$endif FPC} unit tw0890; INTERFACE procedure GetScreenLine(const x: Integer); function dummy(const x : integer) : integer; function dummy2(var x : integer) : integer; function dummystr(x : integer) : string; IMPLEMENTATION procedure GetScreenLine; begin end; function dummy2; begin dummy2:=x; x:=0; end; function dummystr; var s : string; begin str(x,s); dummystr:=s; end; { this one is refused by BP :( } function dummy : integer; begin dummy:=x; end; begin end.