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~2 FieldDictionary%add_item proc~test_add_item->none~add_item~2 none~add_aliases FieldDictionary%add_aliases none~add_item~2->none~add_aliases none~get_aliases FieldDictionaryItem%get_aliases none~add_item~2->none~get_aliases none~insert~97 FieldDictionaryItemMap%insert none~add_item~2->none~insert~97 proc~mapl_return MAPL_Return none~add_item~2->proc~mapl_return proc~mapl_verify MAPL_Verify none~add_item~2->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~10 FieldDictionaryItemMap%insert_pair none~insert~97->none~insert_pair~10 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