From 9eb33a69b5445fcd9a413dcdc159c83fe0c0b178 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?J=C3=A9r=C3=B4me=20Vouillon?= <jerome.vouillon@gmail.com>
Date: Thu, 23 May 2024 15:21:38 +0200
Subject: [PATCH] Add test

---
 compiler/tests-wasm_of_ocaml/dune    | 13 +++++++++++++
 compiler/tests-wasm_of_ocaml/gh38.ml |  3 +++
 2 files changed, 16 insertions(+)
 create mode 100644 compiler/tests-wasm_of_ocaml/dune
 create mode 100644 compiler/tests-wasm_of_ocaml/gh38.ml

diff --git a/compiler/tests-wasm_of_ocaml/dune b/compiler/tests-wasm_of_ocaml/dune
new file mode 100644
index 00000000..157c8af8
--- /dev/null
+++ b/compiler/tests-wasm_of_ocaml/dune
@@ -0,0 +1,13 @@
+(executables
+ (names gh38)
+ (modes js)
+ (js_of_ocaml (flags :standard --disable optcall)))
+
+(rule
+ (target gh38.actual)
+ (enabled_if (= %{profile} wasm))
+ (alias runtest)
+ (action
+  (with-outputs-to
+   %{target}
+   (run node %{dep:gh38.bc.js}))))
diff --git a/compiler/tests-wasm_of_ocaml/gh38.ml b/compiler/tests-wasm_of_ocaml/gh38.ml
new file mode 100644
index 00000000..5fec74de
--- /dev/null
+++ b/compiler/tests-wasm_of_ocaml/gh38.ml
@@ -0,0 +1,3 @@
+let f () () = ()
+
+let (_ : _ -> _) = f ()