tests/webtbs/tw29912.pp


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

program Project1;

{$mode objfpc}{$H+}
{$R+,Q+,S+,T+}

var
  x,y,z:integer;
begin
  x:=0;
  z:=0;
  // all ok
  y:=Int64(x-1);
  writeln(y);
  // all ok
  y:=Int64(z);
  writeln(y);
  // arithmetic overflow
  y:=Int64(x-1)*Int64(z);
  writeln(y);
end.