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_get_integer_digit()integer::ninteger,parameter::NONDIGIT=-1integer,parameter::ASCII_MIN=0integer,parameter::ASCII_MAX=127integer,parameter::ASCII_LT0=iachar('0')-1integer,parameter::ASCII_GT9=iachar('9')+1character(len=10),parameter::digit='0123456789'character::cdo n=1,len(digit)@assertEqual(n-1,get_integer_digit(digit(n:n)))end do do n=ASCII_MIN,ASCII_LT0c=achar(n)@assertEqual(NONDIGIT,get_integer_digit(c))end do do n=ASCII_GT9,ASCII_MAXc=achar(n)@assertEqual(NONDIGIT,get_integer_digit(c))end do end subroutine test_get_integer_digit