近期在构建一个并行程序时,踩了好几个坑,现在记录下来,用于以后查阅,如有错误的地方,请指正。
由于需要构建在windows下运行的程序,所以使用mingw进行编译。
在make过程中,报出以下错误:
function 'int_ptr kind' in initialization expression at (1) must be an instrinsic function
经查阅资料,发现是msmpi的问题,需要对其文件进行修改:
首先从msmpi安装目录拷贝mpifptr.h、mpi.f90到临时创建的文件夹中,然后再从系统目录System64文件夹中拷贝msmpi.dll到该文件夹中(如果电脑是32位的,则从System32中拷贝),拷贝完成后,将mpi.f90重命名为mpi.F90,在该文件夹下打开cmd.exe,按顺序输入以下命令:
gfortran -c -D INT_PTR_KIND()=8 -fno-range-check mpi.F90
gendef msmppi.dll
dlltool -d msmpi.def -l libmsmpi.a -D msmpi.dll
执行完毕后,会在该文件夹下发现生成了libmsmpi.a文件,将该文件拷贝到msmpi的Lib/x64目录下
上述操作完成后,进入msmpi安装目录的include目录下,修改mpi.h文件:
找到 typedef __int64 MPI_Aint,在这句之前添加#include <stdint.h>
接着修改mpif.h文件,找到 INT_PTR_KIND(),将其替换为 z'8c00008',注意,这里是我个人找出的办法,由于项目采用cmake进行配置,我在GFORTRAN_COMPILE_FLAG添加-D INT_PTR_KIND()=8没有效果,故直接修改该文件,请慎用
在这些配置弄完后,编译仍然会报错:无法将integer(16)转换为integer(4),
这个错误可以通过添加 指令: -fno-range-check屏蔽这个错误。
引用文章:
windows下利用Mingw和msmpi编译运行mpi并行程序
TUTORIAL: Adapting MS-MPI for MinGW64
mpi + gcc + gfortran on windows