1{$mode macpas}
2function f: longint;
3begin
4  return 3;
5end;
6
7begin
8  if f() <> 3 then
9    halt(1);
10end.
11
12