freepascal.compiler/bugs/bug0283.pp

const dirsep = '\';

begin
  if dirsep = '/'
    then writeln('bug!')
    else writeln('ok');
end.