blob: 658dc465b1e0c18c8f8f96b796bee634edff705a (
plain)
1
2
3
4
5
6
7
8
9
10
11
|
{ Source provided for Free Pascal Bug Report 3286 }
{ Submitted by "Frank Kintrup" on 2004-08-31 }
{ e-mail: frank.kintrup@gmx.de }
{$mode delphi}
var
p : Pointer;
a : array of Integer;
begin
SetLength(a, 10);
p := a;
end.
|
