testsuite/tests/warnings/deprecated_module.ml


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

(* TEST_BELOW
(* Blank lines added here to preserve locations. *)


*)

module M = struct
  type t = int

  let x = 10
end
[@@ocaml.deprecated]

let _ = M.x
include M

(* TEST
 flags = "-w +A";
 bytecode;
*)