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

Log of 939748:

ok
ok
Runtime error 216 at $00477000
  $00477000
Runtime error 216 at $004477FC
  $004477FC
  $00445C30
  $00445D28
  $00445DF8
  $004466F4
  $2B2BDBAC
  $2B2F6398

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.