freepascal.compiler/tests/tbf/tb0290.pp

{ %fail }
{$modeswitch underscoreisseparator}

begin
  writeln(123567.1234e_12);
end.