{ 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.