test_get_num_cycles Subroutine

public subroutine test_get_num_cycles()

Arguments

None

Calls

proc~~test_get_num_cycles~~CallsGraph proc~test_get_num_cycles test_get_num_cycles assertequal assertequal proc~test_get_num_cycles->assertequal none~get_num_cycles AdvancedMeter%get_num_cycles proc~test_get_num_cycles->none~get_num_cycles none~start~20 AdvancedMeter%start proc~test_get_num_cycles->none~start~20 get_measurement get_measurement none~start~20->get_measurement

Source Code

   subroutine test_get_num_cycles()
      type (AdvancedMeter) :: t

      t = AdvancedMeter(MpiTimerGauge())
      @assertEqual(0, t%get_num_cycles())
      call t%start()
      @assertEqual(0, t%get_num_cycles())
      call t%stop()
      @assertEqual(1, t%get_num_cycles())
      call t%start()
      @assertEqual(1, t%get_num_cycles())
      call t%stop()
      @assertEqual(2, t%get_num_cycles())
      
   end subroutine test_get_num_cycles