(* TEST
ocamldoc with html;
*)
(** Alerts from implementation. *)
let x = 0
[@@deprecated "foo"]
type r = { x : int [@deprecated "foo"] }
type v = C [@deprecated "foo"]
type t [@@deprecated "foo"]
exception E [@deprecated "foo"]
external f : int -> int = "" [@@deprecated "foo"]
type e = ..
type e += Ext [@@deprecated "foo"]
type e += Ext2 [@deprecated "foo"]