freepascal.compiler/tests/tbf/tb0162.pp

{ %fail }

var
  a : word;
begin
  if a<>'fsfds' then;
end.