openmp: correct logic

Author: scivision

openmp/CMakeLists.txt

@@ -1,8 +1,20 @@
+cmake_minimum_required(VERSION 3.14)
+project(OpenMP_Fortran
+LANGUAGES Fortran)
+enable_testing()
+
 find_package(OpenMP COMPONENTS Fortran)
 
+include(CheckFortranSourceCompiles)
 set(CMAKE_REQUIRED_FLAGS ${OpenMP_Fortran_FLAGS})
+set(CMAKE_REQUIRED_INCLUDES ${OpenMP_Fortran_INCLUDE_DIRS})
 set(CMAKE_REQUIRED_LIBRARIES ${OpenMP_Fortran_LIBRARIES})
-check_fortran_source_compiles("use omp_lib; rate = omp_get_wtick(); end" hasOMP SRC_EXT f90)
+check_fortran_source_compiles("use, intrinsic:: iso_fortran_env, only: dp=>real64, int64
+implicit none (type, external)
+integer(int64), external :: omp_get_wtick
+integer(int64) :: rate
+rate = omp_get_wtick()
+end program" hasOMP SRC_EXT f90)
 
 if(NOT hasOMP)
   return()

openmp/timeprec.f90

@@ -10,13 +10,15 @@ program timeprec
 call timempi()
 call system_clock(toc)
 
-print '(A,ES12.5,A)','instrinsic time: ',(toc-tic)/real(rate,dp),' seconds.'
+print '(A,ES12.5,A)','intrinsic time: ',(toc-tic)/real(rate,dp),' seconds.'
 
 contains
 
 subroutine timempi()
 
-use omp_lib
+use omp_lib, only : omp_get_wtime, omp_get_num_procs, omp_get_num_threads, omp_get_thread_num
+
+integer(int64), external :: omp_get_wtick
 
 integer :: Ncore, Nthread
 real(dp) :: tic,toc,rate