Test float record with dead field

Author: vouillon

compiler/tests-wasm_of_ocaml/dune

@@ -1,8 +1,8 @@
 (executables
- (names gh38 gh46)
+ (names gh38 gh46 gh107)
  (modes js)
  (js_of_ocaml
-  (flags :standard --disable optcall)))
+  (flags :standard --disable optcall --no-inline)))
 
 (rule
  (target gh38.actual)
@@ -23,3 +23,13 @@
   (with-outputs-to
    %{target}
    (run node %{dep:gh46.bc.js}))))
+
+(rule
+ (target gh107.actual)
+ (enabled_if
+  (= %{profile} wasm))
+ (alias runtest)
+ (action
+  (with-outputs-to
+   %{target}
+   (run node %{dep:gh107.bc.js}))))

compiler/tests-wasm_of_ocaml/gh107.ml

@@ -0,0 +1,11 @@
+[@@@warning "-69"]
+
+type t =
+  { x : float
+  ; y : float
+  }
+
+let () =
+  let f x = { x; y = 2. } in
+  let x = f 1. in
+  Format.eprintf "%f@." x.y