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:

Version: 
3.2.0  ▾
Details    
fpc-src / usr / share / fpcsrc / 3.2.0 / tests / webtbs / tw9108.pp
Size: Mime: 
program bug;

function Func(a:longint): longint;
begin
  if (a >= 0) then Func:=Trunc(1.0*a) else Func:=-Trunc(1.0*a);
end;

begin
  if Func(100) <> 100 then
    halt(1);
end.

Products

About

Resources

Contact Gemfury