summaryrefslogtreecommitdiffstats
path: root/test
diff options
context:
space:
mode:
authorXavier Leroy <xavier.leroy@inria.fr>2008-08-07 08:39:14 +0000
committerXavier Leroy <xavier.leroy@inria.fr>2008-08-07 08:39:14 +0000
commit2932b188754439e5d9acdcc26ebdca5779b90d3d (patch)
tree6815bd4909dca6ae725def372158eabf0ce01835 /test
parent22edd411206f4e1597dc006332a35c8a9e48043f (diff)
PR#4512: check early for bad recursive type definitions
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@8987 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
Diffstat (limited to 'test')
-rw-r--r--test/Moretest/recmod.ml6
1 files changed, 5 insertions, 1 deletions
diff --git a/test/Moretest/recmod.ml b/test/Moretest/recmod.ml
index d9f75c637..52fbd2cd8 100644
--- a/test/Moretest/recmod.ml
+++ b/test/Moretest/recmod.ml
@@ -691,6 +691,10 @@ module PR_4261 = struct
module rec U : T with module D = U' = U
and U' : S with type t = U'.t = U
-end
+end;;
+
+(* Bad - PR 4512 *)
+module type S' = sig type t = int end
+module rec M : S' with type t = M.t = struct type t = M.t end;;
**)