mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-05 14:48:18 +02:00
12 lines
232 B
ObjectPascal
12 lines
232 B
ObjectPascal
{ 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.
|