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_send_terminate(this)class(MpiTestMethod),intent(inout)::thisinteger::commtype(MpiSocket)::sclass(AbstractMessage),allocatable::messagetype(ProtocolParser),target::parsercomm=this%getMpiCommunicator()parser=ProtocolParser()select case(this%getProcessRank())case(0)! servers=MpiSocket(comm,1,parser)allocate(message,source=s%receive())@assertEqual(TERMINATE_ID,message%get_type_id())case(1)! clients=MpiSocket(comm,0,parser)call s%send(TerminateMessage())end select end subroutine test_send_terminate