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

module A : sig
  type `a t             (* qualifier is U *)
end = struct
  type `a t = `a        (* qualifier is A *)
end