gcc/testsuite/gfortran.dg/pr85542.f90

! { dg-do compile }
! PR fortran/85542
function f(x)
   character(*), intent(in) :: x
   character((len((x)))) :: f
   f = x
end