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

Reply via email to