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_extract_CF_Time_unit()type(CF_Time_Integer)::cftiinteger::duration=0character(len=*),parameter::time_unit='seconds'character(len=*),parameter::base_datetime='1999-12-31 23:29:59'character(len=*),parameter::units=time_unit//' since '//base_datetimecharacter(len=MAX_CHARACTER_LENGTH)::actualinteger::statuscall extract_CF_Time_unit(units,actual,rc=status)@assertEqual(SUCCESS,status,'Failed to extract time unit from units')@assertEqual(time_unit,actual,'Actual time unit does not match expected time unit.')cfti=CF_Time_Integer(duration,units)@assertTrue(cfti%is_valid,'Invalid CF_Time_Integer')call extract_CF_Time_unit(cfti,actual,rc=status)@assertEqual(SUCCESS,status,'Failed to extract time unit from CF_Time')@assertEqual(time_unit,actual,'Actual time unit does not match expected time unit.')end subroutine test_extract_CF_Time_unit