فهرست منبع

* new test

git-svn-id: trunk@5112 -
florian 19 سال پیش
والد
کامیت
9bb7fdde42
2فایلهای تغییر یافته به همراه14 افزوده شده و 0 حذف شده
  1. 1 0
      .gitattributes
  2. 13 0
      tests/webtbs/tw6865.pp

+ 1 - 0
.gitattributes

@@ -7546,6 +7546,7 @@ tests/webtbs/tw6700.pp svneol=native#text/plain
 tests/webtbs/tw6735.pp svneol=native#text/plain
 tests/webtbs/tw6742.pp svneol=native#text/plain
 tests/webtbs/tw6767.pp svneol=native#text/plain
+tests/webtbs/tw6865.pp svneol=native#text/plain
 tests/webtbs/tw6960.pp svneol=native#text/plain
 tests/webtbs/tw6977.pp svneol=native#text/plain
 tests/webtbs/tw6980.pp svneol=native#text/plain

+ 13 - 0
tests/webtbs/tw6865.pp

@@ -0,0 +1,13 @@
+program utf8;
+{$ifdef FPC}{$mode objfpc}{$h+}{$INTERFACES CORBA}{$endif}
+{$ifdef mswindows}{$apptype console}{$endif}
+uses
+ {$ifdef FPC}{$ifdef linux}cthreads,{$endif}{$endif}
+ sysutils;
+
+ //compile with -Fcutf8
+
+const
+ widestringconst = widestring('abc');
+begin
+end.