2011-01-29 Jerry DeLisle <jvdelisle@gcc.gnu.org>

[pf3gnuchains/gcc-fork.git] / gcc / testsuite / gfortran.dg / char_decl_2.f90

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