On 31/03/2014 14:28, Martin Frb wrote:
Shortened example:
program project1;
{$t+}
var
a : array of integer;
procedure Foo(var c: array of integer);
begin
writeln( (@c)^[1] );
readln;
end;
begin
SetLength(a,5);
a[0]:= 100;
a[1]:= 101;
foo(a);
end.
This compiles here (FPC 2.6.5, Win32), and produces the output "101"
with no errors.
Howard
_______________________________________________
fpc-devel maillist - fpc-devel@lists.freepascal.org
http://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-devel