test19 Program

BSD 3-Clause
5 statements
Source File

Uses

- forunittest
- fortime
Help

Graph Key

Nodes of different colours represent the following:

Solid arrows point from a submodule to the (sub)module which it is descended from. Dashed arrows point from a module or program unit to modules which it uses.
Where possible, edges connecting nodes are given different colours to make them easier to distinguish in large graphs.

Source Code

program test19

   use fortime, only: timer
   use forunittest, only: unit_test, rk

   implicit none

#if defined(USE_OMP)
   type(timer) :: t
   type(unit_test) :: ut


   ! OMP time
   call t%otimer_start()
      call sleep(1) ! Perform operations here
   call t%otimer_stop(print=.false.)

   call ut%check(res=t%omp_time, expected=1.0_rk, tol=1.0e-1_rk, msg='test19')
#endif

end program test19