blob: 589807d3672354210ad5f11a5d22d227d1ff3963 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
|
(* TEST
* setup-ocamlc.byte-build-env
** ocamlc.byte
ocamlc_byte_exit_status = "0"
** check-ocamlc.byte-output
*)
module Make_sure_val : sig
val x : int
end = struct
let x = 3
open struct
let x = 'c'
end
end
type t = A
open struct
type t = B
end
type ext = ..
module Make_sure_ec : sig
type ext += C of int
end = struct
type ext += C of int
open struct
type ext += D of char
end
end
module M = struct type t = int end
open struct
module M = struct type u = char end
end
module type S = sig type t = int end
open struct
module type S = sig type u = char end
end
class c = object method x = 3 end
open struct
class c = object method y = 'c' end
end
class type ct = object method x : int end
open struct
class type ct = object method y : int end
end
|