fpc/tests/webtbs/tw1284.pp

{ %version=1.1 }

{ %OPT=-Seh -vh }
{$mode objfpc}
 function f(p: word): boolean;
 begin
  result := (p mod 10 = 0);
 end;
begin
 f(0)
end.