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

type
  tbytearray = array of byte;

procedure test(var a: tbytearray);

  procedure nest;
    begin
      a[0]:=2;
    end;

begin
  nest;
end;

var
  a: tbytearray;
begin
  setlength(a,1);
  test(a);
  if a[0]<>2 then
    halt(1);
end.