估计是CVF 编译器的问题 ，我用的是CVF PRO 6.5，子程序里面的变量不会自己释放，重复计算后会累加，想请教怎样释放子程序的变量内存（不是数组，是一般的变量！）附代码，现在输出的结果是 0  2 想请教如何不在子程序SUB1中添加N=0的语句 使输出的结果为0 0
program try
implicit none
CALL SUB1()
CALL SUB2()
end
SUBROUTINE SUB1()
INTEGER N
WRITE(*,*)N
N=N+2
END SUBROUTINE SUB1
SUBROUTINE SUB2()