* new test

git-svn-id: trunk@1994 -

.gitattributes

@@ -6624,6 +6624,7 @@ tests/webtbs/tw4540.pp -text svneol=unset#text/plain
 tests/webtbs/tw4557.pp svneol=native#text/plain
 tests/webtbs/tw4566.pp -text svneol=unset#text/plain
 tests/webtbs/tw4599.pp svneol=native#text/plain
+tests/webtbs/tw4616.pp svneol=native#text/plain
 tests/webtbs/ub1873.pp svneol=native#text/plain
 tests/webtbs/ub1883.pp svneol=native#text/plain
 tests/webtbs/uw0555.pp svneol=native#text/plain

tests/webtbs/tw4616.pp

@@ -0,0 +1,18 @@
+{ Source provided for Free Pascal Bug Report 4616 }
+{ Submitted by "Simon Felix" on  2005-12-18 }
+{ e-mail: [email protected] }
+var
+  t:array[0..128] of widechar;
+begin
+  //works as expected
+  //t:='ab';
+
+  //works as expected
+  //t:=char(65)+'ab';
+
+  //doesn't result in 'Aab' (result is 'A',#4190)
+  //t:=widechar(65)+'ab';
+
+  //this crashes the compiler
+  t:=widechar(65)+'abc';
+end.