freepascal.compiler/bugs/bug0196.pp

Program bug0195;

function a;
begin
end;

begin
  a
end.