usr/share/fpcsrc/3.2.0/tests/tbs/tb0625.pp · beefree / fpc-src v3.2.0 - deb package | Gemfury

Gemfury

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

beefree / fpc-src deb

Repository URL to install this package:

Details

fpc-src / usr / share / fpcsrc / 3.2.0 / tests / tbs / tb0625.pp

program tb0625;

var
  i: Int64;
  b: Boolean;
begin
  i := 1;
  b := Boolean(i);
  if not b then
    Halt(1);
  i := 0;
  b := Boolean(i);
  if b then
    Halt(2);
  i := 42;
  b := Boolean(i);
  if not b then
    Halt(3);
  i := $ffffffffffffffff;
  b := Boolean(i);
  if not b then
    Halt(4);
  i := $ffffffffffffff00;
  b := Boolean(i);
  if b then
    Halt(5);
end.