[Bug fortran/78848] [7 Regression] [OOP] ICE on writing CLASS variable with non-typebound DTIO procedure

[janus at gcc dot gnu.org]

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

--- Comment #8 from janus at gcc dot gnu.org ---
Created attachment 40361
  --> https://gcc.gnu.org/bugzilla/attachment.cgi?id=40361&action=edit
patch

The attached patch implements what I think needs to happen (and regtests
cleanly).