t_id
1064
t_adddate
2003/10/14
t_result
0
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
949267148 | 1015553 | False | True | Skipping test run because it is a unit |
Record count: 1
{$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.