Fix compilation failure with C++98 compilers

[official-gcc.git] / 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