fpc/tests/webtbs/tw2912.pp

{ Source provided for Free Pascal Bug Report 2912 }
{ Submitted by "Bill Pearce" on  2004-01-19 }
{ e-mail: [email protected] }
procedure SetRowCount(n,m : integer);
var
  tmp : array of array of string;
begin
  SetLength(tmp, n, m);
end;

begin
  SetRowCount(10,2);
end.