1! { dg-do compile }
2! PR fortran/64124.f90
3  character(len=kind(1)) x
4  integer(len(x)) y
5  end
6