Test suite results for test file webtbs/tw2765.pp

Test run data :

Test file "webtbs/tw2765.pp" information:

t_id 1186
t_adddate 2003/11/05
t_result 0
t_knownrunerror 0

Detailed test run results:

Record count: 1

No log of 940508.

Source:

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

Link to SVN view of webtbs/tw2765.pp source.