Why Gemfury? Push, build, and install  RubyGems npm packages Python packages Maven artifacts PHP packages Go Modules Debian packages RPM packages NuGet packages

Repository URL to install this package:

Details    
fpc-src / usr / share / fpcsrc / 3.2.0 / tests / webtbs / tw29912.pp
Size: Mime:
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.