FORTRAN OpenMP并行时编译出问题

error LNK2019: 无法解析的外部符号 omp_get_wtime，该符号在函数 MAIN__ 中被引用 Source1.obj

以下是原代码

program test_01
      use omp_lib
      integer,save::IT,NPS,ITMAX,T1
      !$omp threadprivate(IT)
      IT=0
      NPS=1000
      ITMAX=20
      T1=omp_get_wtime()
      !$omp parallel num_threals(4)
      DO while(IT<=ITMAX)
          IT=IT+1
          !$OMP DO SCHEDULE(STATIC,1)
          DO IKK=1,NPS
              
              WRITE(*,*) IT,IKK
          END DO
          !$OMP END DO
      END DO
      !$OMP END PARALLEL
      T2=OMP_GET_WTIME()
      write(*,*) T2-T1
      STOP
      END PROGRAM

没有开启OMP选项。看起来你可能用的gfortran，编译连接加上 -fopenmp。此外，返回值应该是 real。