freepascal.compiler/tests/webtbf/tw0890a.pp

{ %fail }
{$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.