(* Signature tests -- should print type error *)

module A : sig
  type +`a t qualifier a
end = struct
  type `a t = `a
end