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 / tbs / tb0598.pp
Size: Mime:

program tb0598;

{$R-}

var
  a: Cardinal;
  b: QWord;
  c1, c2: QWord;
begin
  a := 1000000;
  b := 10000000000000000000;
  c1 := b div a;
  c2 := 10000000000000000000 div a;
  Write(c1, ' = ', c2, ': ');
  if (c1 <> c2) or (c2 <> 10000000000000) then
  begin
    Writeln('FAIL');
    halt(1);
  end
  else
    Writeln('OK');
end.