Fortran编译报错求助：声明冲突与函数未声明问题

问题背景 #

我正在编译一个大型项目中的如下Fortran代码：

subroutine GetSoftwareLicense
    ! Checks out a license for this instance
    use Globals
    use Licensing
    implicit none

    LOGICAL :: CheckoutSuccessful
   
    !**********************************************************************************************
    !******************* CHECK OUT SOFTWARE LICENSE **********************
    !**********************************************************************************************
    CheckoutSuccessful = initialize_license(1, 50)

    if (.not. CheckoutSuccessful) call NoLicenseExit(3)

    write(szLogText,'("Success!")')
    call GlobalWriter(0,.TRUE.,.FALSE.)

end subroutine GetSoftwareLicense


subroutine NoLicenseExit(iType)
    ! Exits based on there not being a valid license
    use Globals
    implicit none
   
    INTEGER, INTENT(IN) :: iType
    CHARACTER(100) :: StringLoader
    INTEGER :: iret
   
    StringLoader = "License Error"//CHAR(0)
   
    if (iType == 1) iret = MessageBox(ghWindow,"License failed to be checked out."//CHAR(0),StringLoader,IOR(MB_OK,MB_ICONERROR))
! More such checks... Just display a relevant message based on iType
   
    iret = SendMessage(ghWindow,WM_DESTROY,0,0)

end subroutine NoLicenseExit


integer function GetCostForThreads(threads)
    implicit none
   
    integer, intent(in) :: threads
    integer, parameter :: baseline = 5

    ! Baseline
    if (threads <= 4) then
        GetCostForThreads = baseline

    ! Scaling
    else
        GetCostForThreads = INT((threads-4)*1) + baseline
    endif

end function GetCostForThreads


logical function UpdateOMPThreadCount(threads)
    use Licensing
    use Globals
    implicit none
   
    integer, intent(in) :: threads

    integer :: cost, actual_threads
    logical :: success

    ! Obviously
    if (threads <= 1) then
        actual_threads = 1
    else
        actual_threads = threads
    endif

    ! Get cost
    cost = GetCostForThreads(actual_threads)

    ! Check with licensing
    success = update_cost(cost)
    if (success) then
        call omp_set_num_threads(actual_threads)
    else
        call GlobalErrorHandler(14)
    endif

    UpdateOMPThreadCount = success

end function UpdateOMPThreadCount

编译时出现如下错误：

Severity Code Description Project File Line Suppression State
Error error #6404: This name does not have a type, and must have an explicit type. [GETCOSTFORTHREADS] Licenses.f90
Severity Code Description Project File Line Suppression State
Error error #5508: Declaration of routine 'NOLICENSEEXIT' conflicts with a previous declaration Licenses.f90

我已显式声明GetCostForThreads，且未在其他地方声明NoLicenseExit，多次重建项目、删除整个Debug目录均无效，仅出现这两个错误，请问为何会出现这些报错？

错误原因分析 #

1. GETCOSTFORTHREADS的#6404错误 #

Fortran是按顺序编译的语言，在UpdateOMPThreadCount函数中调用GetCostForThreads时，编译器还未处理到GetCostForThreads的定义部分，因此无法识别该函数的类型。即便你在文件后续位置显式定义了函数，编译器在处理前面的调用代码时依然不知道它的存在。

解决方法：

• 在文件开头添加GetCostForThreads的前置声明，示例：

  integer function GetCostForThreads(threads)
  integer, intent(in) :: threads
  end function GetCostForThreads
  

• 或者将GetCostForThreads的定义移到UpdateOMPThreadCount之前，确保编译器在处理调用代码前先读取到函数定义。

2. NOLICENSEEXIT的#5508错误 #

这个错误说明编译器认为NoLicenseExit已有过声明，可能的原因包括：

• 你引用的Globals模块中已经定义了同名子程序，或者包含了对NoLicenseExit的声明；
• 项目中其他文件（如模块文件、头文件）里存在NoLicenseExit的声明，通过模块引用或编译顺序被引入当前文件；
• 旧编译缓存残留：部分编译器（如Intel Fortran）会在Debug目录外的位置生成.mod模块文件，这些文件可能保留了旧的NoLicenseExit声明，仅删除Debug目录无法清理。

解决方法：

• 检查Globals模块的内容，确认是否存在NoLicenseExit的定义或声明；
• 搜索整个项目目录，查找所有包含NoLicenseExit的文件，排查重复声明；
• 清理所有编译生成的.mod文件，覆盖项目根目录、编译输出目录等所有可能的存放位置。

内容的提问来源于stack exchange，提问作者byl