* add test for charray=nil

tests/tbs/tb0446.pp

@@ -3,10 +3,11 @@ var
   pc : pchar;
 begin
   a:='1';
+  if a=nil then
+   halt(1);
   pc:=@a;
-  if pc='1' then
-    writeln('OK')
-  else
-    halt(1);
+  if pc<>'1' then
+   halt(1);
+  writeln('OK')
 end.