* new test

git-svn-id: trunk@498 -

.gitattributes

@@ -6095,6 +6095,7 @@ tests/webtbs/tw4058.pp svneol=native#text/plain
 tests/webtbs/tw4078.pp svneol=native#text/plain
 tests/webtbs/tw4089.pp svneol=native#text/plain
 tests/webtbs/tw4093.pp svneol=native#text/plain
+tests/webtbs/tw4115.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/tw4115.pp

@@ -0,0 +1,12 @@
+{ Source provided for Free Pascal Bug Report 4115 }
+{ Submitted by "Alexey Chernobayev" on  2005-06-25 }
+{ e-mail: [email protected] }
+var
+  A: array [WideChar] of Char;
+  W: WideChar;
+begin
+  A['a'] := 'b'; // Ok
+  W := 'c';
+
+  A[W] := 'd';
+end.