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