Fix PR#6005

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@13646 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02

testsuite/tests/typing-modules/Test.ml

@@ -44,3 +44,9 @@ let ko = let module M = struct end in fun _ -> ();;
 module M : sig type -'a t = private int end =
   struct type +'a t = private int end
 ;;
+
+(* PR#6005 *)
+
+module type A = sig type t = X of int end;;
+type u = X of bool;;
+module type B = A with type t = u;; (* fail *)

testsuite/tests/typing-modules/Test.ml.principal.reference

@@ -21,4 +21,11 @@ Error: Signature mismatch:
        is not included in
          type -'a t = private int
        Their variances do not agree.
+#       module type A = sig type t = X of int end
+# type u = X of bool
+# Characters 23-33:
+  module type B = A with type t = u;; (* fail *)
+                         ^^^^^^^^^^
+Error: This variant or record definition does not match that of type u
+       The types for field X are not equal.
 # 

testsuite/tests/typing-modules/Test.ml.reference

@@ -21,4 +21,11 @@ Error: Signature mismatch:
        is not included in
          type -'a t = private int
        Their variances do not agree.
+#       module type A = sig type t = X of int end
+# type u = X of bool
+# Characters 23-33:
+  module type B = A with type t = u;; (* fail *)
+                         ^^^^^^^^^^
+Error: This variant or record definition does not match that of type u
+       The types for field X are not equal.
 #