fpc/tests/webtbs/tw3579.pp
2005-02-14 17:13:06 +00:00

18 lines
292 B
ObjectPascal

{ Source provided for Free Pascal Bug Report 3579 }
{ Submitted by "Martin Schreiber" on 2005-01-21 }
{ e-mail: }
program project1;
{$mode objfpc}{$H+}
uses
classes;
type
stringarty = array of string;
var
ar1,ar2: stringarty;
begin
setlength(ar1,4);
ar2:= copy(ar1); //AV
end.