freepascal.compiler/tests/tbf/tb0287.pp

{ %fail }
{$modeswitch underscoreisseparator}

begin
  writeln(_123567);
end.