Test suite results for test file test/twide1.pp

Test run data :

Test file "test/twide1.pp" information:

t_id 1530
t_adddate 2005/03/18
t_result 0
t_knownrunerror 0

Detailed test run results:

Record count: 1

No log of 940439.

Source:

{$ifdef unix}
uses
  cwstring;
{$endif unix}
  
var
  w : widestring;
  a : ansistring;
  
begin
  a:='A';
  w:=a;
  if w[1]<>#65 then
    halt(1);
  a:=w;
  if a[1]<>'A' then
    halt(1);
  writeln('ok');
end.

Link to SVN view of test/twide1.pp source.