recursive function f(n) result(ff_result)
implicit none
integer::n,ff_result
if(n==0)then
ff_result=0
else if (n==1.or.n==2)then
ff_result=1
else
ff_result=f(n-1)+f(n-2)!+f(n-3) ! error occurs at this line.
! Error: The same named entity from different modules and/or program units
!cannotbe referenced.
endif
end function f
!*************************************************
program recursivation
implicit none
integer ::i
interface
recursive function f(n) result(ff_result)
integer::n,ff_result
end function f
endinterface
do i=1,10
print*,f(i)
enddo
pause
end program recursivation
! please help me,thanks a lot.
