Broaden unification context

1 files changed, 15 insertions, 0 deletions

diff --git a/tests/broad_unif.lac b/tests/broad_unif.lac
new file mode 100644
index 00000000..bebd9104
--- /dev/null
+++ b/tests/broad_unif.lac
@@ -0,0 +1,15 @@
+structure M = struct
+        type t = int
+        val f = fn x => x
+        val y = f 0
+end
+
+signature S = sig
+        type t
+        val f : t -> t
+end
+
+structure M : S = struct
+        type t = int
+        val f = fn x => x
+end