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