1{ %OPT=-Sew -vw -Oodfa}
2
3procedure do_halt;noreturn;
4  begin
5    halt(0);
6  end;
7
8function f : longint;
9  begin
10    do_halt;
11  end;
12
13begin
14  f;
15end.
16
17