2014-06-30 169 views
1

當我編譯我的程序與運行時檢查,我得到以下錯誤(我不知道爲什麼):運行時檢查失敗

ifort -check all test.f90 -o test 
./test 
forrtl: severe (193): Run-Time Check Failure. The variable 'my_sum$2$_2' is being used without being defined 
Image  PC      Routine   Line   Source 
sum   0000000000403098  Unknown    Unknown  Unknown 
sum   0000000000403098  Unknown    Unknown  Unknown 
sum   0000000000403098  Unknown    Unknown  Unknown 
sum   0000000000403098  Unknown    Unknown  Unknown 
. 
. 
. 
sum   0000000000403098  Unknown    Unknown  Unknown 
sum   0000000000402EAF  Unknown    Unknown  Unknown 
sum   0000000000402DE6  Unknown    Unknown  Unknown 
libc.so.6 00007F7FEB268BE5  Unknown    Unknown  Unknown 
sum   0000000000402CD9  Unknown    Unknown  Unknown 

的代碼是:

program test 

    implicit none 
    real(8) :: x 

    x=my_sum(lambda_i,0,200) 
    print*,x 

contains 

    function lambda_i(n) result(i) 
     real(8) :: i 
     integer,intent(in) :: n 
     i=dble(n) 
    end function 

    recursive function my_sum(f,i,n) result(s) 
     implicit none 
     real(8) :: s 
     integer, intent(in) :: i,n 
     interface 
     function f(n) 
     implicit none 
     real(8) :: f 
     integer,intent(in) :: n 
     end function 
     end interface 

     if (n .ge. 0) s=f(n)+my_sum(f,i,n-1) 
    end function 

end program 

任何想法?沒有檢查,程序運行正常,除非我達到遞歸限制。

+0

我ifort產生了價值20100,可避免不崩潰(版本14在Windows上)。 Gfortran具有相同的價值,Abosft 2014無法編譯(因爲它希望lambda_i聲明爲外部函數,即使它是內部函數)。如果我將lambda_i「外部化」,我仍然可以獲得20100. –

回答

4

我認爲這個問題是

if (n .ge. 0) s=f(n)+my_sum(f,i,n-1) 

一旦你到達n .lt. 0,返回值s沒有定義,函數返回一個未定義的變量(就像ifort抱怨)。由於這是遞歸的最後一步,所有其他結果都取決於此,所以總結果是未定義的。

這可以通過使用

if (n .ge. 0) then 
    s=f(n)+my_sum(f,i,n-1) 
else 
    s=0._8 
endif 
+1

當然,你是對的,但有趣的是,你用三個編譯器獲得了同樣的價值。如果你在你建議的else子句中設置s = 0,它也是你的價值。也就是說,他們都似乎初始化爲零。 –

+0

對,謝謝。 – PeMa

相關問題