[Bug fortran/82814] ICE from submodule character function

[pault at gcc dot gnu.org]

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

--- Comment #3 from Paul Thomas <pault at gcc dot gnu.org> ---
Created attachment 42638
  --> https://gcc.gnu.org/bugzilla/attachment.cgi?id=42638&action=edit
Fix for the bug

This fixes the bug. However, I will wait until PR78990 is out of the way before
submitting

Cheers

Paul