fpc/tests/webtbs/tw24410.pp
florian caba4a2050 + test for #24410 so it does not popup again
git-svn-id: trunk@26811 -
2014-02-18 19:30:42 +00:00

10 lines
123 B
ObjectPascal

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