Test suite results for test file webtbs/tw0890.pp

Test run data :

Test file "webtbs/tw0890.pp" information:

t_id 1064
t_adddate 2003/10/14
t_result 0
t_knownrunerror 0

Detailed test run results:

Record count: 1

No log of 1015786.

Source:

{$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.

Link to SVN view of webtbs/tw0890.pp source.