fix test

Author: TheNumbat

ocaml/testsuite/tests/typing-layouts-float32/alloc.ml

@@ -22,7 +22,9 @@ module Float32_u = struct
   let ( * ) = mul
   let ( / ) = div
   let ( ** ) = pow
-  let ( > ) x y = (compare x y) > 0
+
+  (* With [--enable-dev], the compiler can't fully inline the comparison. *)
+  let ( > ) x y = Stdlib.compare (to_float32 x) (to_float32 y) > 0
 end
 
 let alloc = ref 0.0