fpc/tests/test/cg/tformfnc.pp

function f: longint;
begin
  f := 1;
end;

procedure t(const c);
begin
end;

begin
  t(f);
end.