[Bug fortran/69423] [6 Regression] Invalid optimization with deferred-length character

[vehre at gcc dot gnu.org]

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

--- Comment #8 from vehre at gcc dot gnu.org ---
I recognize most of the code your patch strips, because I initially
wrote/modified it to get the deferred length character arrays working. I am
somewhat unconvinced that removing them is safe.