{ %fail }
{$x-}

function f: longint;
begin
end;

begin
  f;
end.