fpcsrc/tests/tbs/tb0535.pp


1
2
3
4
5
6
7
8
9
10
11
12
13

program bug;

var l,h:longint;
    r:single;

begin
  l:=-2;
  h:=1;
  r:=0;
  r:=r+(single(h)-single(l))-1;
  if trunc(r) <> 2 then
    halt(1);
end.