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

Reply via email to