re PR fortran/46678 (Wrong code with strings)