      type _ t = IntLit : int -> int t | BoolLit : bool -> bool t
 Index: testsuite/tests/typing-gadts/test.ml.principal.reference
 ===================================================================
---- testsuite/tests/typing-gadts/test.ml.principal.reference	(revision 13146)
+--- testsuite/tests/typing-gadts/test.ml.principal.reference	(revision 13157)
 +++ testsuite/tests/typing-gadts/test.ml.principal.reference	(working copy)
 @@ -62,11 +62,11 @@
               ^^^^^^^^

 #                                 Characters 299-300:
       | BoolLit b -> b
                      ^

               (* Return a new copy *)
Index: testsuite/tests/typing-gadts/test.ml.reference
===================================================================
--- testsuite/tests/typing-gadts/test.ml.reference	(revision 13157)
+++ testsuite/tests/typing-gadts/test.ml.reference	(working copy)
@@ -62,11 +62,11 @@
              ^^^^^^^^
