blob: a4b6ca2e77914ed42e7931ffd53b5e6ef689b5f5 [file] [log] [blame]
! { dg-do run }
character (kind=kind("a")) :: u
if (kind(u) /= kind("a")) STOP 1
end