char_decl_2.f90 « gfortran.dg « testsuite « gcc - cbb-gcc-4.6.4 - compiler building blocks: cbb-gcc-4.6.4: including full support for the midipix targets

summary refs log tree commit diff

path: root/gcc/testsuite/gfortran.dg/char_decl_2.f90

blob: ffce6b158e26e7532de365d8b84a03002e5c750a (plain)

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