test_add_item Subroutine

public subroutine test_add_item()

Arguments

None

Calls

proc~~test_add_item~~CallsGraph proc~test_add_item test_add_item none~add_item FieldDictionary%add_item proc~test_add_item->none~add_item none~add_aliases FieldDictionary%add_aliases none~add_item->none~add_aliases none~get_aliases FieldDictionaryItem%get_aliases none~add_item->none~get_aliases none~insert~159 FieldDictionaryItemMap%insert none~add_item->none~insert~159 proc~mapl_return MAPL_Return none~add_item->proc~mapl_return proc~mapl_verify MAPL_Verify none~add_item->proc~mapl_verify none~add_aliases->proc~mapl_return begin begin none~add_aliases->begin insert insert none~add_aliases->insert interface~mapl_assert MAPL_Assert none~add_aliases->interface~mapl_assert next next none~add_aliases->next of of none~add_aliases->of none~insert_pair~13 FieldDictionaryItemMap%insert_pair none~insert~159->none~insert_pair~13 at at proc~mapl_return->at 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_add_item()
      type(FieldDictionary) :: fd

      fd = FieldDictionary() ! empty
      call fd%add_item('X_Y_Z', FieldDictionaryItem(canonical_units='m', long_name='X Y Z'))

   end subroutine test_add_item