freepascal.compiler/tests/tbs0196.pp

{$OPT= -So}
Unit tbs0196;
interface

  function a : integer;

implementation
  function a;
begin
  a:=1;
end;

end.