diff options
| author | Xavier Leroy <xavier.leroy@inria.fr> | 2008-08-07 08:39:14 +0000 |
|---|---|---|
| committer | Xavier Leroy <xavier.leroy@inria.fr> | 2008-08-07 08:39:14 +0000 |
| commit | 2932b188754439e5d9acdcc26ebdca5779b90d3d (patch) | |
| tree | 6815bd4909dca6ae725def372158eabf0ce01835 /test | |
| parent | 22edd411206f4e1597dc006332a35c8a9e48043f (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.ml | 6 |
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;; **) |