test_start_one Subroutine

public subroutine test_start_one()

Arguments

None

Calls

proc~~test_start_one~~CallsGraph proc~test_start_one test_start_one assertequal assertequal proc~test_start_one->assertequal none~finalize BaseProfiler%finalize proc~test_start_one->none~finalize none~get_num_meters BaseProfiler%get_num_meters proc~test_start_one->none~get_num_meters none~start~85 TimeProfiler%start proc~test_start_one->none~start~85 none~finalize~2 AbstractMeter%finalize none~finalize->none~finalize~2 none~get_meter~2 MeterNode%get_meter none~finalize->none~get_meter~2 none~pop_back~22 MeterNodeStack%pop_back none~finalize->none~pop_back~22 none~get_num_nodes MeterNode%get_num_nodes none~get_num_meters->none~get_num_nodes none~start_self BaseProfiler%start_self none~start~85->none~start_self mpi_op_free mpi_op_free none~finalize~2->mpi_op_free mpi_type_free mpi_type_free none~finalize~2->mpi_type_free proc~mapl_verify MAPL_Verify none~finalize~2->proc~mapl_verify get_num_nodes get_num_nodes none~get_num_nodes->get_num_nodes none~begin~70 MeterNodeVector%begin none~get_num_nodes->none~begin~70 none~get~136 MeterNodeVectorIterator%get none~get_num_nodes->none~get~136 none~next~68 MeterNodeVectorIterator%next none~get_num_nodes->none~next~68 interface~mapl_assert MAPL_Assert none~start_self->interface~mapl_assert none~get_name~6 MeterNode%get_name none~start_self->none~get_name~6 none~start~3 BaseProfiler%start none~start_self->none~start~3 proc~mapl_return MAPL_Return none~start_self->proc~mapl_return none~start~3->none~start_self at at proc~mapl_return->at insert insert proc~mapl_return->insert proc~mapl_throw_exception MAPL_throw_exception proc~mapl_return->proc~mapl_throw_exception proc~mapl_verify->proc~mapl_throw_exception

Source Code

   subroutine test_start_one()
      type (TimeProfiler), target :: prof
      
      prof = TimeProfiler('top')
      call Prof%start()

      call prof%start('timer_1')
      call prof%stop('timer_1')

      call prof%finalize()
      
      @assertEqual(2, prof%get_num_meters())
      
   end subroutine test_start_one