Nodes of different colours represent the following:
Solid arrows point from a submodule to the (sub)module which it is descended from. Dashed arrows point from a module or program unit to modules which it uses.
program volatile_doctest use vecfor_R16P type(vector_R16P) :: pt pt = ex_R16P + ey_R16P + ez_R16P print "(L1)", pt <= 4._R4P endprogram volatile_doctest