fpc/tests/webtbs/tw2803.pp
2003-11-29 14:49:10 +00:00

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.