Nodes of different colours represent the following:
Solid arrows point from a procedure to one which it calls. Dashed
arrows point from an interface to procedures which implement that interface.
This could include the module procedures in a generic interface or the
implementation in a submodule of an interface in a parent module.
Where possible, edges connecting nodes are
given different colours to make them easier to distinguish in
large graphs.
Source Code
subroutine test_get_vertical_dim_spec_names()integer::statuscharacter(len=*),parameter::EXPECTED_NAME_1='VERTICAL_DIM_CENTER'character(len=*),parameter::EXPECTED_NAME_2='VERTICAL_DIM_EDGE'type(StringVector),allocatable::namesinteger::szcall safe_dealloc(bundle_info)allocate(bundle_info(3))bundle_info(1)=make_esmf_info(vloc=EXPECTED_NAME_1,_RC)bundle_info(2)=make_esmf_info(vloc=EXPECTED_NAME_2,_RC)bundle_info(3)=make_esmf_info(vloc=EXPECTED_NAME_1,_RC)names=get_vertical_dim_spec_names_bundle_info(bundle_info,_RC)sz=names%size()@assertEqual(2,sz,'There should only be two unique vertical_dim_spec names.')@assertEqual(EXPECTED_NAME_1,names%at(1),'vertical_dim_spec_name 1 does not match.')@assertEqual(EXPECTED_NAME_2,names%at(2),'vertical_dim_spec_name 2 does not match.')call safe_dealloc(bundle_info)end subroutine test_get_vertical_dim_spec_names