Question

我最近开发了一个相当长的Fortran代码。我正在使用的编译器是在Opensuse 13.1（64位）上的gfortran 4.8.1。但是当我使用-O2或-O3选项编译代码时，我收到了很多关于＆＃34; -Wyybe-uninitialized＆＃34;的警告。我设法将代码减少到最小的工作示例，如下所示。

在main.f90

中

try:
    import pymysql
    pymysql.install_as_MySQLdb()
except ImportError:
    pass

在test.f90

中

program main
    use modTest
    implicit none

    real(kind = 8), dimension(:, :), allocatable :: output
    real(kind = 8), dimension(:, :, :), allocatable :: input

    allocate(input(22, 33, 20), output(22, 33))
    input = 2.0
    call test(input, output)

end program main

在global.f90

中

module modTest
contains
subroutine test(inputValue, outValue)
    use modGlobal
    implicit none

    real(kind = 8), dimension(:, :, :), intent(in) :: inputValue
    real(kind = 8), dimension(:, :), intent(out) :: outValue
    integer :: nR, nX, nM, iM, ALLOCATESTATUS
    real, dimension(:, :, :), allocatable :: cosMPhi

    nR = size(inputValue, 1)
    nX = size(inputValue, 2)
    nM = size(inputValue, 3) - 1
    allocate(cosMPhi(nR, nX, 0:nM), stat=ALLOCATESTATUS)
    call checkStatus(ALLOCATESTATUS)
    do iM = 0, nM
        cosMPhi(:, :, iM) = cos(iM * 1.0)
    end do
    outValue =  sum(inputValue * cosMPhi, 3)

end subroutine
end module

使用module modGlobal contains subroutine checkStatus(stat) implicit none integer, intent(in) :: stat if(stat /= 0) then print *, "allocation failed" stop end if end subroutine end module编译时，会出现以下警告：

gfortran -O2 -Wall test.f90 main.f90 -o run

虽然我试图谷歌这个问题一段时间，但我仍然没有找到一个好的答案。一些相关网站是：（1）https://gcc.gnu.org/bugzilla/show_bug.cgi?id=58410 （2）https://groups.google.com/forum/m/#!topic/comp.lang.fortran/RRYoulcSR1k （3）GCC -Wuninitialized / -Wmaybe-uninitialized issues

我使用gfortran 4.8.5测试了示例代码，警告仍然存在。是因为我在代码中做错了吗？任何帮助将不胜感激。提前谢谢！

Answer 1

这是因为您在stat=ALLOCATESTATUS的分配中使用了cosMphi，但之后不会检查状态变量的值。只是省略。然后，如果分配失败，程序将崩溃 - 这是一种简单的方法，除非您需要更强大/更复杂的响应。

Answer 2

同意M. S. B.的回答，警告信息有点不清楚。以下是NAG Fortran编译器所说的内容：

nagfor -kind=byte -c test.f90
NAG Fortran Compiler Release 6.0(Hibiya) Build 1057
Questionable: test.f90, line 20: Variable ALLOCATESTATUS set but never referenced
[NAG Fortran Compiler normal termination, 1 warning]

Gfortran警告抱怨＆＃34; Wmaybe -ininitialized＆＃34;

2 个答案: