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 / tbf / tb0123.pp
Size: Mime:
{ %fail }
{%OPT=-Cr}

type
   smallrange = 5..287;
const
   c1 : byte = succ(256);
   c2 : byte = pred(0);
   c3 : byte = succ(high(smallrange));
   c4 : byte = pred(low(smallrange));
   c5 = succ(high(smallrange));
   c6 = pred(low(smallrange));
var
 b: byte;
Begin
 b:=succ(256);
 b:=pred(0);
end.