test_set_attribute_integer Subroutine

public subroutine test_set_attribute_integer()

Arguments

None

Calls

proc~~test_set_attribute_integer~~CallsGraph proc~test_set_attribute_integer test_set_attribute_integer ESMF_ConfigGetAttribute ESMF_ConfigGetAttribute proc~test_set_attribute_integer->ESMF_ConfigGetAttribute assert_that assert_that proc~test_set_attribute_integer->assert_that interface~mapl_configsetattribute MAPL_ConfigSetAttribute proc~test_set_attribute_integer->interface~mapl_configsetattribute proc~mapl_configcreate MAPL_ConfigCreate proc~test_set_attribute_integer->proc~mapl_configcreate ESMF_ConfigCreate ESMF_ConfigCreate proc~mapl_configcreate->ESMF_ConfigCreate buffer buffer proc~mapl_configcreate->buffer proc~mapl_return MAPL_Return proc~mapl_configcreate->proc~mapl_return 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

Source Code

   subroutine test_set_attribute_integer
      type (ESMF_Config) :: config
      integer :: status
      integer :: nx

      config = MAPL_ConfigCreate()
      call MAPL_ConfigSetAttribute(config, value=12, label='NX:', rc=status)
      @assert_that(status, is(0))
      
      call ESMF_ConfigGetAttribute(config, value=nx, label='NX:', rc=status)
      @assert_that(status, is(0))
      @assert_that(nx, is(12))
      
   end subroutine test_set_attribute_integer