Fix PR#6836: Assertion failure using -short-paths

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@16012 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
2015-04-13 07:17:09 +00:00 · 2015-04-13 07:17:09 +00:00 · 5b8e25d27a
parent 19a5d5eb50
commit 5b8e25d27a
2 changed files with 13 additions and 0 deletions
--- a/testsuite/tests/typing-short-paths/pr6836.ml
+++ b/testsuite/tests/typing-short-paths/pr6836.ml
@ -0,0 +1,6 @@
+type t = [`A | `B];;
+type 'a u = t;;
+let a : [< int u] = `A;;
+
+type 'a s = 'a;;
+let b : [< t s] = `B;;
--- a/testsuite/tests/typing-short-paths/pr6836.ml.reference
+++ b/testsuite/tests/typing-short-paths/pr6836.ml.reference
@ -0,0 +1,7 @@
+
+# type t = [ `A | `B ]
+# type 'a u = t
+# val a : [< int u > `A ] = `A
+#   type 'a s = 'a
+# val b : [< t > `B ] = `B
+#