剥离版本：

module vdiStringFunctions

interface vdiString
    module procedure vdiString1Char
  end interface

contains
    character (128) function vdiString1Char(CSTRING,sVar1)
      character(*),intent(in) :: CSTRING,sVar1
      character(128) :: vdiStringGeneral
      character(len=128),dimension(0:9) :: stringArray

stringArray(0) = adjustl(sVar1)
  vdiString1Char= vdiStringGeneral(CSTRING,stringArray)
end function vdiString1Char

character (128) function vdiStringGeneral(CSTRING,varArray)
  character(*),intent(in) :: CSTRING
  character(len=128),dimension(0:9),intent(in) :: varArray
  vdiStringGeneral = 'bla'
end function vdiStringGeneral

结束模块vdiStringFunctions

当我尝试使用英特尔Visual Fortran XE 2011进行编译时,出现以下错误：

error LNK2019: unresolved external symbol _VDISTRINGGENERAL referenced in function _VDISTRINGFUNCTIONS_mp_VDISTRING1CHAR vdiStringFunctions.obj

因为函数vdiStringGeneral与调用vdiString1Char在同一个模块中,所以我没有遇到问题.@H_404_7@当我将vdiStringGeneral移动到模块之外时,它会毫无问题地编译.

因为它应该在DLL中使用,所有函数都应该在模块内部.@H_404_7@我怎样才能让它以这种方式工作？