+ test for #24410 so it does not popup again

git-svn-id: trunk@26811 -

.gitattributes

@@ -13762,6 +13762,7 @@ tests/webtbs/tw2425.pp svneol=native#text/plain
 tests/webtbs/tw2432.pp svneol=native#text/plain
 tests/webtbs/tw2435.pp svneol=native#text/plain
 tests/webtbs/tw2438.pp svneol=native#text/plain
+tests/webtbs/tw24410.pp svneol=native#text/pascal
 tests/webtbs/tw2442.pp svneol=native#text/plain
 tests/webtbs/tw24453.pp svneol=native#text/pascal
 tests/webtbs/tw24458.pp svneol=native#text/pascal

tests/webtbs/tw24410.pp

@@ -0,0 +1,9 @@
+{$mode objfpc}
+
+procedure xx(var s:shortstring);
+var dirbuf:array[0..1321] of widechar;
+begin
+  s:=dirbuf;
+end;
+begin
+end.