Question

我正在尝试编译包含OpenMP的Fortran代码。我正在从不同的代码复制OpenMP的使用。它昨天成功构建了一次，然后下次我构建它时出现以下错误：

../MAXBRG3D.f90:3:4:

 USE OMP_LIB      ! USED WITH OMP FUNCTIONS
    1
 Fatal Error: Can't open module file 'omp_lib.mod' for reading at (1): No such file or directory
compilation terminated.
subdir.mk:329: recipe for target 'MAXBRG3D.o' failed
make: *** [MAXBRG3D.o] Error 1

我对代码所做的唯一更改，其中注释掉与OpenMP功能无关的几段代码。我已经删除了评论，但仍然得到相同的错误。我的编译命令如下。

gfortran -funderscoring -O0 -g -Wall -c -fmessage-length=0 -fopenmp -o "MAXBRG3D.o" "../MAXBRG3D.f90"

我看过以下链接：gfortran can't find OpenMP library (omp_lib.mod) under MinGW 当我跑gfortran -v, --enable-libgomp确实出现时。

>gfortran -v
Using built-in specs.
COLLECT_GCC=gfortran
COLLECT_LTO_WRAPPER=c:/mingw/bin/../libexec/gcc/mingw32/6.3.0/lto-wrapper.exe
Target: mingw32
Configured with: ../src/gcc-6.3.0/configure --build=x86_64-pc-linux-gnu --host=mingw32 --with-gmp=/mingw --with-mpfr=/mingw --with-mpc=/mingw --with-isl=/mingw --prefix=/mingw --disable-win32-registry --target=mingw32 --with-arch=i586 --enable-languages=c,c++,objc,obj-c++,fortran,ada --with-pkgversion='MinGW.org GCC-6.3.0-1' --enable-static --enable-shared --enable-threads --with-dwarf2 --disable-sjlj-exceptions --enable-version-specific-runtime-libs --with-libiconv-prefix=/mingw --with-libintl-prefix=/mingw --enable-libstdcxx-debug --with-tune=generic --enable-libgomp --disable-libvtv --enable-nls
Thread model: win32
gcc version 6.3.0 (MinGW.org GCC-6.3.0-1)

我能够运行以下小的Fortran代码。

PROGRAM TEST
  INTEGER M
  REAL C(3), D(3)

  M=3
  C(1) = 2
  C(2) = 5
  C(3) = 10
  call A1(M,C,D)
  write(*,5)D(3)
  5 format(1x,'D3=',G12.5)
END PROGRAM

SUBROUTINE A1(N, A, B)
  INTEGER I, N
  REAL B(N), A(N)
!$OMP PARALLEL DO !I is private by default
  DO I=2,N
    B(I) = (A(I) + A(I-1)) / 2.0
  ENDDO
!$OMP END PARALLEL DO
END SUBROUTINE A1

我也有libgomp.a，libgomp.dll.a，libgomp.spec，（位于MinGW \ lib \ gcc \ mingw32 \ 6.3.0）和libgomp-1.dll（位于MinGW \ bin）。

Answer 1

我已经解决了这个问题。我注释掉USE OMP_LIB行，我刚刚初始化了我想要使用的函数。

之前我发现了一个将函数初始化为

的示例

INTEGER FUNCTION OMP_GET_THREAD_NUM()

这不起作用。但是我发现了一个不同的例子，它将函数初始化为整数。所以

INTEGER OMP_GET_THREAD_NUM

这似乎已经解决了问题，现在代码正在编译并运行。

gfortran使用MinGW找不到OpenMP库（omp_lib.mod）

1 个答案: