1! { dg-do run }
2  character (kind=kind("a")) :: u
3  if (kind(u) /= kind("a")) call abort
4  end
5