no message

tests/webtbs/tw2763.pp

@@ -1,4 +1,5 @@
 { %version=1.1 }
+{$mode objfpc}
 { Source provided for Free Pascal Bug Report 2763 }
 { Submitted by "Michael Van Canneyt" on  2003-11-04 }
 { e-mail: [email protected] }
@@ -27,4 +28,4 @@ begin
       writeln('error 2');
       halt(1);
     end;
-end.
+end.

tests/webtbs/tw2765.pp

@@ -0,0 +1,18 @@
+{ Source provided for Free Pascal Bug Report 2765 }
+{ Submitted by "Michael Van Canneyt" on  2003-11-04 }
+{ e-mail: michael.vancanneyt‚wisa.be }
+program testw;
+
+var
+  P : PWideChar;
+  PA : PChar;
+  S,T : AnsiString;
+
+begin
+  S:='SomeThing';
+  P:=PWideChar(S);
+  PA:=PChar(Pointer(P));
+  Writeln('P : ',PA);
+  T:=WideCharToString(P);
+  Writeln('T : ',T);
+end.