Initialize tests.
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.
subroutine initialize
!---------------------------------------------------------------------------------------------------------------------------------
!< Initialize tests.
!---------------------------------------------------------------------------------------------------------------------------------
!---------------------------------------------------------------------------------------------------------------------------------
allocate(a_key, source=3_int32)
allocate(a_content, source=12_int32)
call a_dictionary%add_pointer(key=a_key, content=a_content)
call a_dictionary%add_clone(key=5_int32, content=13_int32)
call a_dictionary%add_clone(key='foo', content=0_int32)
!---------------------------------------------------------------------------------------------------------------------------------
endsubroutine initialize