fpcsrc/tests/tbs/tb0574.pp


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

{$r+}
{$q+}
var
  i1,i2 : int64;
begin
  i1:=$100000000;
  i2:=$800000000;
  inc(i1,i2);
  if i1<>$900000000 then
    halt(1);
  writeln('ok');
end.