test_is_active Subroutine

public subroutine test_is_active()

Arguments

None

Calls

proc~~test_is_active~~CallsGraph proc~test_is_active test_is_active assertfalse assertfalse proc~test_is_active->assertfalse asserttrue asserttrue proc~test_is_active->asserttrue none~is_active AdvancedMeter%is_active proc~test_is_active->none~is_active none~start~20 AdvancedMeter%start proc~test_is_active->none~start~20 get_measurement get_measurement none~start~20->get_measurement

Source Code

   subroutine test_is_active()
      type (AdvancedMeter) :: t

      t = AdvancedMeter(MpiTimerGauge())

      ! Initial state is
      @assertFalse(t%is_active())

      call t%start()
      @assertTrue(t%is_active())

      call t%stop()
      @assertFalse(t%is_active())

   end subroutine test_is_active