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 / tparray23.pp
Size: Mime:
{ %fail }

type
  trange = 0..$ffffff;
  prange = ^trange;
  tarr = bitpacked array[0..20] of trange;

procedure p(a: prange);
begin
end;

var
  a: tarr;
begin
  a[0]:=5;
  p(@a[0]);
end.