testsuite/tests/typing-ocamlc-i/pr7402.ml


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19

(* TEST
flags = "-i -w +63"
* setup-ocamlc.byte-build-env
** ocamlc.byte
*** check-ocamlc.byte-output
*)

module M: sig type t val v:t end = struct
  type t = A
  let v = A
end

module F = struct
module M = struct
    let v = M.v
  end

  let v = M.v
end