[Bug fortran/121203] Incorrect result when character functions are passed as arguments to a subroutine

[anlauf at gcc dot gnu.org via Gcc-bugs]

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

--- Comment #3 from anlauf at gcc dot gnu.org ---
Created attachment 61924
  --> https://gcc.gnu.org/bugzilla/attachment.cgi?id=61924&action=edit
Tentative fix

This fixes the testcase.  Needs further testing.