run_test31 Subroutine

subroutine run_test31(ut)

Arguments

Type IntentOptional Attributes Name
type(unit_test), intent(inout) :: ut

Calls

proc~~run_test31~~CallsGraph proc~run_test31 run_test31 check check proc~run_test31->check proc~timer_pause timer%timer_pause proc~run_test31->proc~timer_pause proc~timer_resume timer%timer_resume proc~run_test31->proc~timer_resume proc~timer_start timer%timer_start proc~run_test31->proc~timer_start proc~timer_stop timer%timer_stop proc~run_test31->proc~timer_stop proc~ticks_diff ticks_diff proc~timer_resume->proc~ticks_diff proc~finalize_timing finalize_timing proc~timer_stop->proc~finalize_timing proc~timer_stop->proc~ticks_diff proc~print_time print_time proc~finalize_timing->proc~print_time colorize colorize proc~print_time->colorize

Called by

proc~~run_test31~~CalledByGraph proc~run_test31 run_test31 program~check check program~check->proc~run_test31

Source Code

   subroutine run_test31(ut)
      type(unit_test), intent(inout) :: ut
      type(timer) :: t

      call t%timer_start()
      call sleep(1)
      call t%timer_pause()
      call sleep(1)
      call t%timer_resume()
      call sleep(1)
      call t%timer_stop()

      call ut%check(res=t%elapsed_time, expected=2.0_rk, tol=1.0e-1_rk, msg='test31')
   end subroutine run_test31