fpcsrc/tests/webtbs/tw6684.pp


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18

Var
  D : LongInt;
  d1,d2 : int64;

Begin
  D := -100;
  {$OVERFLOWCHECKS on}
  Writeln(2 * D);
  d1:=d*2;
  {$OVERFLOWCHECKS off}
  Writeln(2 * D);
  d2:=d*2;
  if d1<>-200 then
    halt(1);
  if d2<>-200 then
    halt(1);
  writeln('ok');
End.