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.2.0 / tests / test / opt / tcse5.pp
Size: Mime:
{ %OPT=-Ooautoinline -Oocse }
{$mode objfpc}
type
  trec = record
    b : byte;
  end;

procedure p(var b : byte);
  begin
    b:=b*2;
  end;

var
  rec : trec;
begin
  rec.b:=12;
  p(rec.b);
  if rec.b<>24 then
    halt(1);
  writeln('ok');
end.