char_decl_2.f90

来自「用于进行gcc测试」· F90 代码 · 共 5 行

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