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_construct_converter()type(UDUnit)::unit1type(UDUnit)::unit2type(Converter)::convinteger(ut_status)::statuscall initialize_udunits_system(rc=status)@assertEqual(UT_SUCCESS,status,'Failed to initialize')unit1=UDUnit(KM)unit2=UDUnit(M)conv=Converter(unit1,unit2)@assertFalse(conv%is_free(),'cv_converter is not set')call unit1%free()call unit2%free()call conv%free()call finalize_udunits_system()end subroutine test_construct_converter