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 / test / tarrconstr1.pp
Size: Mime:
program tarrconstr1;

{$mode delphi}

type
  TAB = array of byte;
var
  D: TAB;
  i: integer;
begin
  i:=1;
  D := TAB.create(1+2, i);
  if Length(D) <> 2 then
    halt(1);
  if D[0] <> 3 then
    halt(2);
  if D[1] <> i then
    halt(3);
end.