add a crashed case

Author: bobzhang

jscomp/test/unboxed_crash.js

@@ -0,0 +1,13 @@
+'use strict';
+
+var Curry = require("../../lib/js/curry.js");
+
+function g(x) {
+  return Curry._1(x, x);
+}
+
+var loop = g(g);
+
+exports.g = g;
+exports.loop = loop;
+/* loop Not a pure module */

jscomp/test/unboxed_crash.ml

@@ -0,0 +1,20 @@
+[@@@config
+{
+  flags =
+    [|
+      "-w";
+      "@A";
+      "-drawlambda";
+      (* "-dtypedtree"; *)
+      "-bs-diagnose"
+      (* "-dparsetree"; *)
+      (* "-dsource"; *)
+      (* "-bs-no-builtin-ppx"; *);
+    |];
+}]
+
+type t = A of (t -> int) [@@unboxed]
+
+let g x = match x with A v -> v x
+
+let loop = g (A g)