paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-16 02:50:40 +01:00
Code Issues Packages Projects Releases Wiki Activity

* new test

Browse Source 
git-svn-id: trunk@498 -
This commit is contained in:
peter 2005-06-25 21:07:25 +00:00
parent 05c241072e
commit 5c3a4516e1
2 changed files with 13 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
.gitattributes vendored
View File

@ -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

12
tests/webtbs/tw4115.pp Normal file
View File

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