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 / webtbs / tw13948a.pp
Size: Mime:
{ %opt=-O2 }

type
  tr = record
    a: array[0..1] of longint;
  end;

function f: tr;
begin
  f.a[0]:=5;
  f.a[1]:=6;
end;

procedure test;
var
  r: tr;
begin
  r.a[0]:=1;
  r.a[1]:=2;
  r.a[0]:=f.a[0];
  writeln(r.a[0]);
  writeln(r.a[1]);
  if (r.a[0]<>5) then
    halt(1);
  if (r.a[1]<>2) then
    halt(2);
end;

begin
  test;
end.