fpcsrc/tests/webtbs/tw9108.pp


1
2
3
4
5
6
7
8
9
10
11

program bug;

function Func(a:longint): longint;
begin
  if (a >= 0) then Func:=Trunc(1.0*a) else Func:=-Trunc(1.0*a);
end;

begin
  if Func(100) <> 100 then
    halt(1);
end.