freepascal.compiler/bugs/bug0122.pp

function f:longint;
begin
  exit(1);
end;

begin
  writeln(f);
end.