diff options
Diffstat (limited to 'testsuite/tests/typing-misc/occur_check.ml')
| -rw-r--r-- | testsuite/tests/typing-misc/occur_check.ml | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/testsuite/tests/typing-misc/occur_check.ml b/testsuite/tests/typing-misc/occur_check.ml new file mode 100644 index 0000000000..5509b6f5ff --- /dev/null +++ b/testsuite/tests/typing-misc/occur_check.ml @@ -0,0 +1,5 @@ +(* PR#5907 *) + +type 'a t = 'a;; +let f (g : 'a list -> 'a t -> 'a) s = g s s;; +let f (g : 'a * 'b -> 'a t -> 'a) s = g s s;; |