module Fail_Invalid_Regexp =

  (* We used to not spot that the second regexp in the union is invalid

     because we did not properly check expressions that contained

     literals. This construct now leads to a syntax error *)

  let rx = /a/ | /d)/