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.0.0 / tests / tbs / tb0558.pp
Size: Mime:
{ %cpu=i386}
{ %opt=-Cfsse2 }

{$mode objfpc}

type
  TChartZPosition = 0..MaxInt;
  TDoublePoint = record x, y: double; end;

var
 d: double;
 z: TChartZPosition;
begin
  d:=5.0;
  z:=3;
  d:=d-z;
  if (d<>2.0) then
    halt(1);
end.