test_fail_on_double_start Subroutine

public subroutine test_fail_on_double_start()

Arguments

None

Calls

proc~~test_fail_on_double_start~~CallsGraph proc~test_fail_on_double_start test_fail_on_double_start assertequal assertequal proc~test_fail_on_double_start->assertequal none~get_status AdvancedMeter%get_status proc~test_fail_on_double_start->none~get_status none~start~20 AdvancedMeter%start proc~test_fail_on_double_start->none~start~20 get_measurement get_measurement none~start~20->get_measurement

Source Code

   subroutine test_fail_on_double_start()
      type (AdvancedMeter) :: t

      t = AdvancedMeter(MpiTimerGauge())

      @assertEqual(MAPL_METER_IS_VALID, t%get_status())
      call t%start()
      @assertEqual(MAPL_METER_IS_VALID, t%get_status())
      call t%start()
      @assertEqual(MAPL_METER_START_ACTIVE, t%get_status())
      
   end subroutine test_fail_on_double_start