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_are_not_convertible()type(UDUnit)::unit1type(UDUnit)::unit2integer(ut_status)::statuslogical::convertiblecall initialize_udunits_system(rc=status)@assertEqual(UT_SUCCESS,status,'Failed to initialize')unit1=UDUnit(KM)unit2=UDUnit(S)convertible=are_convertible(unit1,unit2,rc=status)@assertFalse(convertible,'Units are not convertible.')if(.not.convertible)then@assertFalse(status==UT_BAD_ARG,'One of the units is null.')@assertFalse(status==UT_NOT_SAME_SYSTEM,'Units belong to different systems.')@assertTrue(status==UT_SUCCESS,'Units are not convertible.')end if call unit1%free()call unit2%free()call finalize_udunits_system()end subroutine test_are_not_convertible