flambda-backend: Add tests for ocaml-flambda#2162 (ocaml-flambda#2170)

lukemaurer · Dec 20, 2023 · 9fdbb78 · 9fdbb78
1 parent 6ff6bbd
commit 9fdbb78
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 0 deletions.
diff --git a/testsuite/tests/typing-local/local_optparam.ml b/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/testsuite/tests/typing-local/local_optparam.reference b/testsuite/tests/typing-local/local_optparam.reference