+ added

tests/webtbs/tw3805.pp

@@ -0,0 +1,21 @@
+{$mode objfpc}{$H+}
+uses
+ classes;
+
+type
+ stringarty = array of string;
+var
+ ar1,ar2: stringarty;
+begin
+ setlength(ar1,4);
+ ar2:= copy(ar1,1,3);
+ if (length(ar2) <> 3) then
+   halt(1);
+ ar2:= copy(ar1,1,4);
+ if (length(ar2) <> 3) then
+   halt(2);
+ ar2:= copy(ar1,1,5);
+ if (length(ar2) <> 3) then
+   halt(3);
+end.
+