test_wasfinal Subroutine

public subroutine test_wasfinal(this)

Uses

  • proc~~test_wasfinal~~UsesGraph proc~test_wasfinal test_wasfinal module~scratchpad scratchpad proc~test_wasfinal->module~scratchpad

Arguments

Type IntentOptional Attributes Name
class(MpiTestMethod), intent(inout) :: this

Calls

proc~~test_wasfinal~~CallsGraph proc~test_wasfinal test_wasfinal ESMF_GridCompFinalize ESMF_GridCompFinalize proc~test_wasfinal->ESMF_GridCompFinalize ESMF_HConfigCreate ESMF_HConfigCreate proc~test_wasfinal->ESMF_HConfigCreate assert_that assert_that proc~test_wasfinal->assert_that assertequal assertequal proc~test_wasfinal->assertequal proc~setup~7 setup proc~test_wasfinal->proc~setup~7 proc~setup~7->assert_that ESMF_ClockCreate ESMF_ClockCreate proc~setup~7->ESMF_ClockCreate ESMF_TimeIntervalSet ESMF_TimeIntervalSet proc~setup~7->ESMF_TimeIntervalSet ESMF_TimeSet ESMF_TimeSet proc~setup~7->ESMF_TimeSet esmf_gridcompsetservices esmf_gridcompsetservices proc~setup~7->esmf_gridcompsetservices interface~create_grid_comp create_grid_comp proc~setup~7->interface~create_grid_comp interface~user_setservices user_setservices proc~setup~7->interface~user_setservices proc~clear_log clear_log proc~setup~7->proc~clear_log

Source Code

   subroutine test_wasfinal(this)
      use scratchpad
      class(MpiTestMethod), intent(inout) :: this

      integer :: status
      type(ESMF_GridComp) :: outer_gc
      type(ESMF_HConfig) :: config

      config = ESMF_HConfigCreate(content='{}', rc=status)
      call setup(outer_gc, config, status)
      @assert_that(status, is(0))

      call ESMF_GridCompFinalize(outer_gc, phase=GENERIC_FINALIZE_USER, rc=status)
      @assert_that(status, is(0))
      @assertEqual("wasFinal_A", log)


      ! Note - do not need to call teardown, as we are
      ! finalizing ourselves.  But .. we do need to check that the
      ! user_gc has been finalized, and that the various internal states
      ! have been freed.

      if(.false.) print*,shape(this)
   end subroutine test_wasfinal