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_cstring()character(len=*),parameter::fs='FOO_BAR'character(kind=c_char,len=80)::cchscharacter(kind=kind(cchs))::ccinteger::ncchs=cstring(fs)@assertEqual(kind((cchs)),c_char,'Wrong kind')n=len_trim(cchs)@assertEqual(n,len(fs)+1,'cstring is incorrect length.')cc=cchs(n:n)@assertEqual(cc,c_null_char,'Final character is not null.')@assertEqual(cchs(1:(n-1)),fs,'Initial characters do not match.')end subroutine test_cstring