run_test25 Subroutine

subroutine run_test25(ut)

Arguments

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

Calls

proc~~run_test25~~CallsGraph proc~run_test25 run_test25 check check proc~run_test25->check proc~dtimer_start timer%dtimer_start proc~run_test25->proc~dtimer_start proc~dtimer_stop timer%dtimer_stop proc~run_test25->proc~dtimer_stop proc~epoch_seconds_utc epoch_seconds_utc proc~dtimer_start->proc~epoch_seconds_utc proc~dtimer_stop->proc~epoch_seconds_utc proc~finalize_timing finalize_timing proc~dtimer_stop->proc~finalize_timing proc~days_from_civil days_from_civil proc~epoch_seconds_utc->proc~days_from_civil proc~print_time print_time proc~finalize_timing->proc~print_time colorize colorize proc~print_time->colorize

Called by

proc~~run_test25~~CalledByGraph proc~run_test25 run_test25 program~check check program~check->proc~run_test25

Source Code

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

      call t%dtimer_start()
      call sleep(1)
      call t%dtimer_stop()

      call ut%check(res=t%elapsed_dtime, expected=1.0_rk, tol=1.0e-1_rk, msg='test25')
   end subroutine run_test25