no message

tests/webtbs/tw3579.pp

@@ -0,0 +1,17 @@
+{ 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.