[交流] fortran中的内部函数可以递归吗？已有1人参与

2楼: Originally posted by snoopyzhao at 2011-11-03 21:48:33:
我这里加或者不加都不能编译，只有把那句去掉才能正常编译……

program test_factorial
    implicit none
    print*, "12! =", factorial(12)

    contains
   
    recursive function factorial(n) result(factorial_result)
        integer, intent(in) :: n
        integer :: factorial_result
        if (n <= 0) then
            factorial_result = 1
        else
            factorial_result = n * factorial(n - 1)
        end if
    end function factorial

end program test_factorial