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 - [email protected] http://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-devel
