Test_MAPL_GetResource_scalar_real4 Subroutine

public subroutine Test_MAPL_GetResource_scalar_real4()

Arguments

None

Calls

proc~~test_mapl_getresource_scalar_real4~~CallsGraph proc~test_mapl_getresource_scalar_real4 Test_MAPL_GetResource_scalar_real4 ESMF_ConfigCreate ESMF_ConfigCreate proc~test_mapl_getresource_scalar_real4->ESMF_ConfigCreate ESMF_ConfigSetAttribute ESMF_ConfigSetAttribute proc~test_mapl_getresource_scalar_real4->ESMF_ConfigSetAttribute assertequal assertequal proc~test_mapl_getresource_scalar_real4->assertequal proc~mapl_getresource_config_scalar MAPL_GetResource_config_scalar proc~test_mapl_getresource_scalar_real4->proc~mapl_getresource_config_scalar ESMF_ConfigFindLabel ESMF_ConfigFindLabel proc~mapl_getresource_config_scalar->ESMF_ConfigFindLabel ESMF_ConfigGetAttribute ESMF_ConfigGetAttribute proc~mapl_getresource_config_scalar->ESMF_ConfigGetAttribute begin begin proc~mapl_getresource_config_scalar->begin interface~mapl_am_i_root MAPL_Am_I_Root proc~mapl_getresource_config_scalar->interface~mapl_am_i_root interface~mapl_assert MAPL_Assert proc~mapl_getresource_config_scalar->interface~mapl_assert next next proc~mapl_getresource_config_scalar->next of of proc~mapl_getresource_config_scalar->of proc~mapl_return MAPL_Return proc~mapl_getresource_config_scalar->proc~mapl_return proc~mapl_verify MAPL_Verify proc~mapl_getresource_config_scalar->proc~mapl_verify push_back push_back proc~mapl_getresource_config_scalar->push_back at at proc~mapl_return->at insert insert proc~mapl_return->insert proc~mapl_throw_exception MAPL_throw_exception proc~mapl_return->proc~mapl_throw_exception proc~mapl_verify->proc~mapl_throw_exception

Source Code

   subroutine Test_MAPL_GetResource_scalar_real4()
      type(ESMF_Config) :: config
      integer :: status
      real(kind=real32) :: expected, actual
      character(len=*), parameter :: LABEL = 'label'
      character(len=*), parameter :: VAL = '1.0'
      logical :: value_is_set

      config = ESMF_ConfigCreate(rc = status)
      @assertEqual(0, status, 'Failed to create ESMF_Config')
      call ESMF_ConfigSetAttribute(config, PRINT_ALL, label = 'PRINTRC:', rc = status)
      @assertEqual(0, status, 'Failed to set PRINTRC')
      call ESMF_ConfigSetAttribute(config, VAL, label = LABEL, rc = status)
      @assertEqual(0, status, 'Failed to set attribute')
      expected = 1.0
      call MAPL_GetResource_config_scalar(config, actual, label = LABEL, value_is_set = value_is_set, rc = status)
      @assertEqual(0, status, 'Failed to get resource')
      @assertEqual(expected, actual, 'actual does not match expected.')
      
   end subroutine Test_MAPL_GetResource_scalar_real4