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_accumulate()type(AdvancedMeter)::t,lapt=AdvancedMeter(MpiTimerGauge())lap=tcall lap%add_cycle(increment=1._REAL64)call lap%add_cycle(increment=3._REAL64)! Copy lap and verify state is as expectedt=lapcall lap%reset()@assertEqual(4.,t%get_total())@assertEqual(1.,t%get_standard_deviation())! Use lap again and accumulatecall lap%add_cycle(increment=2._REAL64)call lap%add_cycle(increment=4._REAL64)call t%accumulate(lap)@assertEqual(9.,t%get_total())@assertEqual(4,t%get_num_cycles())end subroutine test_accumulate