test_one_timer Subroutine

public subroutine test_one_timer()

Arguments

None

Calls

proc~~test_one_timer~~CallsGraph proc~test_one_timer test_one_timer add_cycle add_cycle proc~test_one_timer->add_cycle assertequal assertequal proc~test_one_timer->assertequal exclusivetimecolumn exclusivetimecolumn proc~test_one_timer->exclusivetimecolumn get_header get_header proc~test_one_timer->get_header get_row get_row proc~test_one_timer->get_row get_timer get_timer proc~test_one_timer->get_timer report report proc~test_one_timer->report timertree timertree proc~test_one_timer->timertree

Source Code

   subroutine test_one_timer()
      type (ExclusiveTimeColumn) :: column
      type (TimerTree), target :: tree
      type (TimerReport) :: report
      type (AbstractTimer) :: t

      tree = TimerTree('all')
      t => tree%get_timer()
      call t%add_cycle(1.0)

      column = ExclusiveTimeColumn(format='(f7.2)')
      report = column%report(tree)

      @assertEqual('  exc  ',report%get_header())
      @assertEqual('   1.00',report%get_row(1))
      
   end subroutine test_one_timer