test_fail_on_double_stop Subroutine

public subroutine test_fail_on_double_stop()

Arguments

None

Calls

proc~~test_fail_on_double_stop~~CallsGraph proc~test_fail_on_double_stop test_fail_on_double_stop assertequal assertequal proc~test_fail_on_double_stop->assertequal none~get_status AdvancedMeter%get_status proc~test_fail_on_double_stop->none~get_status

Source Code

   subroutine test_fail_on_double_stop()
      type (AdvancedMeter) :: t

      t = AdvancedMeter(MpiTimerGauge())
      call t%stop()
      @assertEqual(MAPL_METER_STOP_INACTIVE, t%get_status())
      
   end subroutine test_fail_on_double_stop