[Bug fortran/78757] [7 Regression] ICE with function returning a pointer to a character

[jakub at gcc dot gnu.org]

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

--- Comment #5 from Jakub Jelinek <jakub at gcc dot gnu.org> ---
Created attachment 40338
  --> https://gcc.gnu.org/bugzilla/attachment.cgi?id=40338&action=edit
gcc7-pr78757.patch

The following untested patch fixes the ICE for me, but whether it is right,
dunno...