https://gcc.gnu.org/bugzilla/show_bug.cgi?id=105138
--- Comment #6 from anlauf at gcc dot gnu.org ---
Workaround:
module m
interface LOG_GAMMA
module procedure LOG_GAMMA_
end interface LOG_GAMMA
contains
RECURSIVE FUNCTION LOG_GAMMA_(Z) RESULT(RES)
COMPLEX,INTENT(IN) :: Z
COMPLEX :: RES
RES = LOG_GAMMA_(Z)
END FUNCTION LOG_GAMMA_
end module m
