freepascal.compiler/tests/tbf/tb0065.pp

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

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

function k2:longint;
var
  result : word;
begin
end;

begin
end.