Test suite results for test file tbs/tb0349.pp

Test run data :

Test file "tbs/tb0349.pp" information:

t_id 567
t_version 1.1
t_adddate 2003/10/03
t_result 0
t_knownrunerror 0

Detailed test run results:

Record count: 1

No log of 935641.

Source:

{ %VERSION=1.1}
var
   p : pwidechar;
   c1,c2 : widechar;
   i : longint;
   a : ansistring;
   w : widestring;
   err : boolean;

const somestr : pwidechar = 'blaat';

begin
   p:=@c1;
   i:=0;
   c2:=p[i];

   w:='hello';
   a:=w;

   writeln(a);
   if a<>'hello' then
    err:=true;
   writeln(w);
   if w<>'hello' then
    err:=true;

   p:='';
   p:='hello';
   writeln(widestring(p));
   if widestring(p)<>'hello' then
    err:=true;

   if err then
    halt(1);
end.

Link to SVN view of tbs/tb0349.pp source.