paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-15 01:29:19 +02:00
Code Issues Packages Projects Releases Wiki Activity

* new test

Browse Source 
git-svn-id: trunk@1994 -
This commit is contained in:
peter 2005-12-20 07:29:12 +00:00
parent bec0daebfa
commit f618792e01
2 changed files with 19 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
.gitattributes vendored
View File

@ -6624,6 +6624,7 @@ tests/webtbs/tw4540.pp -text svneol=unset#text/plain
tests/webtbs/tw4557.pp svneol=native#text/plain tests/webtbs/tw4557.pp svneol=native#text/plain
tests/webtbs/tw4566.pp -text svneol=unset#text/plain tests/webtbs/tw4566.pp -text svneol=unset#text/plain
tests/webtbs/tw4599.pp svneol=native#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/ub1873.pp svneol=native#text/plain
tests/webtbs/ub1883.pp svneol=native#text/plain tests/webtbs/ub1883.pp svneol=native#text/plain
tests/webtbs/uw0555.pp svneol=native#text/plain tests/webtbs/uw0555.pp svneol=native#text/plain

18
tests/webtbs/tw4616.pp Executable file
View File

@ -0,0 +1,18 @@
{ Source provided for Free Pascal Bug Report 4616 }
{ Submitted by "Simon Felix" on 2005-12-18 }
{ e-mail: de@royalinc.ath.cx }
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.