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

+ forgot to commit earlier

Browse Source 
git-svn-id: trunk@8296 -
This commit is contained in:
Jonas Maebe 2007-08-22 06:56:41 +00:00
parent f4c0e92dd4
commit 5ec4616c85
4 changed files with 34 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
.gitattributes vendored
View File

@ -8200,6 +8200,9 @@ tests/webtbs/tw6129.pp svneol=native#text/plain
tests/webtbs/tw6184.pp svneol=native#text/plain
tests/webtbs/tw6203.pp svneol=native#text/plain
tests/webtbs/tw6435.pp svneol=native#text/plain
tests/webtbs/tw6451.pp svneol=native#text/plain
tests/webtbs/tw6451a.pp svneol=native#text/plain
tests/webtbs/tw6451b.pp svneol=native#text/plain
tests/webtbs/tw6491.pp svneol=native#text/plain
tests/webtbs/tw6493.pp svneol=native#text/plain
tests/webtbs/tw6525.pp -text

9
tests/webtbs/tw6451.pp Normal file
View File

@ -0,0 +1,9 @@
{ %fail }
{$codepage utf8}
{ can't convert widechar to char, because don't know what }
{ encoding to use at compile-time }
const abc : array [1..4] of char = ('a','é','b','c');
begin
end.

11
tests/webtbs/tw6451a.pp Normal file
View File

@ -0,0 +1,11 @@
{ %fail }
{$codepage utf8}
var
a: char;
begin
a:='a';
{ can't convert widechar to char, because don't know what }
{ encoding to use at compile-time }
if a in ['é', 'a'] then ;
end.

11
tests/webtbs/tw6451b.pp Normal file
View File

@ -0,0 +1,11 @@
{ %fail }
{$codepage utf8}
var
a: char;
begin
a:='a';
{ can't convert widechar to char, because don't know what }
{ encoding to use at compile-time }
if a in ['a', 'é'] then;
end.