freepascal.compiler/tests/tbf/tb0066.pp

{ %FAIL }
{ Old file: tbf0325.pp }
{  }

{$ifdef fpc}{$mode delphi}{$endif}

function k2(result:word):longint;
begin
end;

function k3(l:word):longint;
var
  result : word;
begin
end;

begin
end.