mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-05 12:18:30 +02:00
11 lines
206 B
ObjectPascal
11 lines
206 B
ObjectPascal
{ Source provided for Free Pascal Bug Report 2803 }
|
|
{ Submitted by "C Western" on 2003-11-22 }
|
|
{ e-mail: mftq75@dsl.pipex.com }
|
|
program Test;
|
|
{$T+}
|
|
var
|
|
a: array of Double;
|
|
begin
|
|
SetLength(a,100);
|
|
end.
|