Question

fortran递归子例行程序简单问题

program main
implicit none
call sub(25)
end
recursive subroutine
sub(n)
integer::n
if(n<70)then
call sub(n+25)
end
if
print*,n
end
这个最后的结果为什么是“70 50 25”，而不是“25 50 70”

Answer 1

执行流程如图粉色箭头。所以输出为 75，50，25

追问

为什么是这样的顺序

追答

调用程序的基本流程就是这样，没有为什么。

1. 执行call前的语句。

2. 执行call

3. 执行被call函数

4. 执行call后的语句
   

Answer 2

把print 写到 call之前就行了