+ forgot to commit earlier

git-svn-id: trunk@8296 -

.gitattributes

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

tests/webtbs/tw6451.pp

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

tests/webtbs/tw6451a.pp

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

tests/webtbs/tw6451b.pp

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