testsuite/tests/match-exception/identifier_sharing.ml


1
2
3
4
5
6
7
8

(* TEST *)

exception String of string

let _ =
  match "foo" with
  | str | exception (String str) -> print_endline str
  | exception _ -> print_endline "unexpected exception!"