fpcsrc/tests/webtbs/tw1284.pp


1
2
3
4
5
6
7
8
9
10
11

{ %version=1.1 }

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