Add tests for #2162 (#2170)

ocaml-flambda · Dec 20, 2023 · 107e86b · 107e86b
1 parent 6710e59
commit 107e86b
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 0 deletions.
diff --git a/ocaml/testsuite/tests/typing-local/local_optparam.ml b/ocaml/testsuite/tests/typing-local/local_optparam.ml
@@ -0,0 +1,6 @@
+(* TEST *)
+
+let foo (local_ f) l = l
+let go a b g ?(x = foo (fun y -> a, y) b) () =
+  let x = foo (fun y -> a, y) x in
+  g x
diff --git a/ocaml/testsuite/tests/typing-local/local_optparam.reference b/ocaml/testsuite/tests/typing-local/local_optparam.reference