mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-16 04:39:38 +02:00
f42dffb36d
U compiler/x86_64/rax64att.pas --- Recording mergeinfo for merge of r39877 into '.': U . --- Merging r39882 into '.': U compiler/nld.pas A tests/webtbf/tw34355.pp --- Recording mergeinfo for merge of r39882 into '.': G . --- Merging r39885 into '.': U compiler/ncgrtti.pas --- Recording mergeinfo for merge of r39885 into '.': G . # revisions: 39877,39882,39885 git-svn-id: branches/fixes_3_2@40286 -
18 lines
360 B
ObjectPascal
18 lines
360 B
ObjectPascal
{ %fail }
|
|
|
|
program tw34355;
|
|
{$mode objfpc}
|
|
procedure AssignArray(const aArray: array of string);
|
|
var
|
|
myArray: array of string;
|
|
S: string;
|
|
begin
|
|
myArray := [aArray]; // << no compiler error, yet no assignment is executed
|
|
Writeln('Length(myArray): ', Length(myArray));
|
|
for S in myArray do
|
|
Writeln(S);
|
|
end;
|
|
begin
|
|
AssignArray(['abc', 'xyz']);
|
|
end.
|