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_converter()type(Converter)::convtype(c_ptr)::cptrinteger(ut_status)::statuscall initialize_udunits_system(rc=status)@assertEqual(UT_SUCCESS,status,'Failed to initialize')call get_converter(conv,KM,M,rc=status)@assertEqual(UT_SUCCESS,status,'Failed to get converter')@assertFalse(conv%is_free(),'cv_converter is not set')cptr=conv%get_cptr()@assertTrue(c_associated(cptr),'c_ptr is not associated')call conv%free()call finalize_udunits_system()end subroutine test_get_converter