mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-06 23:28:28 +02:00
5c4f80d6bc
another, it's not enough that the temp sizes are the same, because
the assignment may only apply to part of them. In such cases,
perform a regular copy (mantis #13948)
git-svn-id: trunk@13255 -
32 lines
295 B
ObjectPascal
32 lines
295 B
ObjectPascal
{ %opt=-O2 }
|
|
|
|
type
|
|
tr = record
|
|
a,b: longint;
|
|
end;
|
|
|
|
function f: tr;
|
|
begin
|
|
f.a:=5;
|
|
f.b:=6;
|
|
end;
|
|
|
|
procedure test;
|
|
var
|
|
r: tr;
|
|
begin
|
|
r.a:=1;
|
|
r.b:=2;
|
|
r.a:=f.a;
|
|
writeln(r.a);
|
|
writeln(r.b);
|
|
if (r.a<>5) then
|
|
halt(1);
|
|
if (r.b<>2) then
|
|
halt(2);
|
|
end;
|
|
|
|
begin
|
|
test;
|
|
end.
|