無法禁止綁定檢查

Question

首先，我不知道使用gfortran時綁定檢查是自動的。用下面的代碼：

gfortran -Wno-array-bounds initial_parameters.f08 derrived_types.f08 lin_alg.f08 constitutive_models.f08 input_subs.f08 Subprograms.f08 mainprog.f08 

我還是收到編譯時警告：

Warning: Array reference at (1) is out of bounds (3 > 2) in dimension 2 

我可能是愚蠢的，但在這裏閱讀this，我認爲-Wno-array-bounds是應該禁止這種警告？用-w編譯成功禁止所有警告。

我不知道它是否相關，但是這些警告的來源是「Subprograms.f08」和「constitutive_models.f08」，它們都是包含子程序的模塊，並在主程序中使用。如果我嘗試編譯一個單獨的模塊

gfortran -Wno-array-bounds -c constitutive_models.f08 

Answer 1

我可以證實該編譯警告與gfortran（4.4）與這個簡單的代碼：

integer,parameter::dim=3 
integer :: x(2) 
if(dim.eq.1)write(*,*)x(dim) 
end 

警告：在（1）陣列參考超出範圍（3> 2）的2維

這可以說是被認爲是一個缺陷，因爲人們期望編譯器優化了整個if語句。注意ifort編譯這個就好了。

一個非常簡單的解決方法解決這個例子：

integer,parameter::dim=3 
integer :: x(2),dimx=dim 
if(dim.eq.1)write(*,*)x(dimx) 
end 

當然

因爲它只是一個警告，你知道它不是一個問題，您可以選擇忽略它呢！

注意在邏輯中使用該參數，以防編譯器覺得稍後優化它。

Answer 2

發生

同樣的行爲因此，我可以建議是爲了處理數據使用重載的子程序 - 那麼你將有通用的行爲，而不需要將維度參數明確地傳遞給函數（從而擺脫警告）。然後，我建議您遵循Holmz關於在測試階段使用所有警告的建議，然後在生產構建期間將其完全關閉（-w）。現在我無法找到抑制此警告的有效方法（除了-w） - 似乎默認打開數組邊界檢查並且未覆蓋-fno-bounds-check或-Wno-array -bounds。但重載函數可以更好的解決您的問題，實施應該是這樣在這種情況下：

module functions 

    implicit none 

    interface test_dim 
     module procedure test_func1d, test_func2d, test_func3d 
    end interface ! test_dim 

    contains 

    subroutine test_func1d(input1d) 
     real, intent(in) :: input1d(:) 

     print*, "DOING 1 DIM" 
     print*, "SHAPE OF ARRAY:", shape(input1d) 
    end subroutine test_func1d 

    subroutine test_func2d(input2d) 
     real, intent(in) :: input2d(:,:) 

     print*, "DOING 2 DIM" 
     print*, "SHAPE OF ARRAY:", shape(input2d) 
    end subroutine test_func2d 

    subroutine test_func3d(input3d) 
     real, intent(in) :: input3d(:,:,:) 

     print*, "DOING 3 DIM" 
     print*, "SHAPE OF ARRAY:", shape(input3d) 
    end subroutine test_func3d 

end module functions 

program test_prog 
    use functions 

    implicit none 

    real :: case1(10), case2(20,10), case3(30, 40, 20) 

    call test_dim(case1) 
    call test_dim(case2) 
    call test_dim(case3) 
end program test_prog 

並通過此功能產生的輸出是這樣的：

DOING 1 DIM 
SHAPE OF ARRAY:   10 
DOING 2 DIM 
SHAPE OF ARRAY:   20   10 
DOING 3 DIM 
SHAPE OF ARRAY:   30   40   20