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_equal_diff_attributes()type(FileMetadata)::cf1,cf2call cf1%add_attribute('attr1',1)@assertFalse(cf1==cf2)! guard against missing extra items in cf2@assertFalse(cf2==cf1)call cf1%add_attribute('attr2',2.)call cf2%add_attribute('attr2',2.)call cf2%add_attribute('attr1',1)@assertTrue(cf1==cf2)call cf1%add_attribute('attr3','cat')call cf2%add_attribute('attr3','dog')@assertFalse(cf1==cf2)end subroutine test_equal_diff_attributes