freepascal.compiler/tests/webtbf/tw8717.pp

{ %opt=-vw -Sew -Oodfa }
{ %fail }
{$mode objfpc}
function f: Boolean;
begin
  Exit;
  Result := True
end;

begin
end.