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; *)