testsuite/tests/parse-errors/escape_error.ml


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

(* TEST_BELOW
(* Blank lines added here to preserve locations. *)
*)

(* Nothing to see here, parse.ml dictates that these be printed as regular
   "Syntax error". *)

try foo () with ;;

(3 : );;

(3 :> );;

(* TEST
 toplevel;
*)