Describe the bug
This string literal exceeds 90 columns yet does not get line-wrapped. If I add one more underscore, it gets wrapped.

let _ =
  "_______________________________________________________ _______________________________"
;;

A clear and concise description of what the bug is.

How to Reproduce
ocamlformat built from 99444f3 with --profile=janestreet