Repository URL to install this package:
Version:
3.0.0 ▾
|
{ %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.