+ tests array of char = string

tests/tbs/tbs0273.pp

@@ -9,5 +9,10 @@ Begin
  S:=CharArray;
  WriteLn(S);         { * This is O.K. * }
  WriteLn(CharArray); { * GENERAL PROTECTION FAULT. * }
+ if CharArray<>'BUG?' then
+   begin
+     Writeln('Error comparing charaay to constant string');
+     Halt(1);
+   end;
 End.