freepascal.compiler/bugs/bug0090.pp

{$X+}
var
 mystr : array[0..4] of char;

Begin
  if mystr = #0#0#0#0 then
  Begin
  end;
  mystr:=#0#0#0#0;
end.