[Bug target/125117] [16/17 regression] Assigning character(len=N) component to character(:), allocatable function result loses content since r16-4947

[hjl.tools at gmail dot com]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=125117

--- Comment #11 from H.J. Lu <hjl.tools at gmail dot com> ---
Created attachment 64333
  --> https://gcc.gnu.org/bugzilla/attachment.cgi?id=64333&action=edit
A patch

I am testing this.