run_test16 Subroutine

subroutine run_test16(ut)

Arguments

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

Calls

proc~~run_test16~~CallsGraph proc~run_test16 run_test16 check check proc~run_test16->check proc~ctimer_start timer%ctimer_start proc~run_test16->proc~ctimer_start proc~ctimer_stop timer%ctimer_stop proc~run_test16->proc~ctimer_stop proc~finalize_timing finalize_timing proc~ctimer_stop->proc~finalize_timing proc~print_time print_time proc~finalize_timing->proc~print_time colorize colorize proc~print_time->colorize

Called by

proc~~run_test16~~CalledByGraph proc~run_test16 run_test16 program~check check program~check->proc~run_test16

Source Code

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

      call t%ctimer_start()
      call sleep(1)
      call t%ctimer_stop(print=.false.)

      call ut%check(res=t%cpu_time >= 0.0_rk, expected=.true., msg='test16')
   end subroutine run_test16