给出以下Fortran模块:
MODULE Test
IMPLICIT NONE
INTERFACE
INTEGER(c_int) FUNCTION process_(script, script_size) BIND(C, name = "process")
USE, INTRINSIC :: iso_c_binding, ONLY: c_int, c_char
CHARACTER(c_char), INTENT(IN) :: script(*)
INTEGER(c_int), INTENT(IN), VALUE :: script_size
END FUNCTION
END INTERFACE
CONTAINS
FUNCTION process(script)
#ifdef SHARED_LIB
!DEC$ ATTRIBUTES DLLEXPORT :: process
#endif
INTEGER :: process
CHARACTER(LEN = *), INTENT(IN) :: script
process = process_(script, LEN(script))
END FUNCTION
END MODULE
我能够使用IFORT(在Windows中)成功编译此模块,作为共享库和静态库。
另外,我能够成功编译一个使用共享库的小型Fortran程序(名为example.f90
)。小程序如下:
PROGRAM Example
USE Test
INTEGER :: state
state = process("Hello world!")
END PROGRAM
现在,当我尝试使用静态库编译相同的小型Fortran程序时,它会出现以下错误:
C:\workspace\>ifort.exe /Qopenmp /module:library library\Test.lib example.f90
Intel(R) Visual Fortran Intel(R) 64 Compiler for applications running on Intel(R) 64, Version 16.0 Build 20160811
Copyright (C) 1985-2016 Intel Corporation. All rights reserved.
Microsoft (R) Incremental Linker Version 10.00.40219.01
Copyright (C) Microsoft Corporation. All rights reserved.
-out:example.exe
-subsystem:console
-defaultlib:libiomp5md.lib
-nodefaultlib:vcomp.lib
-nodefaultlib:vcompd.lib
library\Test.lib
example.obj
example.obj : error LNK2019: unresolved external symbol __imp_TEST_mp_process referenced in function MAIN__
example.exe : fatal error LNK1120: 1 unresolved externals
不知道怎么解决这个问题?
当你使用模块时,常规过程中的DLLEXPORT变成了一个DLLIMPORT(这是一个功能添加了一些版本,但我不记得确切的时间。)因此,编译器假设该进程来自DLL并添加__imp_前缀,但由于您将库构建为静态库,因此找不到它。您可以1)删除DLLEXPORT,2)使用基于_DLL符号(为DLL构建预定义)的条件编译,仅在此时启用DLLEXPORT,3)将库构建为DLL。
我还要提醒你,链接步骤中的库和对象的顺序可能很重要,但我不认为它在这里。我建议在构建可执行文件时将库放在源代码之后。