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_unit()type(UDUnit)::unit1integer(ut_status)::statuscall initialize_udunits_system(rc=status)@assertEqual(UT_SUCCESS,status,'Failed to initialize')unit1=UDUnit(KM)@assertFalse(unit1%is_free(),'ut_unit is not set (default encoding)')call unit1%free()call finalize_udunits_system()end subroutine test_construct_unit