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_values()type(UnlimitedEntity)::atype(UnlimitedEntity)::bcharacter(len=:),allocatable::c1,c2! test without initialization@assertTrue(a==b)a=UnlimitedEntity(1.)b=UnlimitedEntity(2.)@assertTrue(a==a)@assertFalse(a/=a)@assertFalse(a==b)@assertTrue(a/=b)a=UnlimitedEntity([.true.,.false.])b=UnlimitedEntity([.true.,.true.])@assertTrue(a==a)@assertFalse(a/=a)@assertFalse(a==b)@assertTrue(a/=b)c1='a'c2='a'a=UnlimitedEntity(c1)b=UnlimitedEntity(c2)@assertTrue(a==a)@assertFalse(a/=a)@assertFalse(a/=b)@assertTrue(a==b)c1='abcd'c2='abcde'a=UnlimitedEntity(c1)b=UnlimitedEntity(c2)@assertTrue(a==a)@assertFalse(a/=a)@assertTrue(a/=b)@assertFalse(a==b)a=UnlimitedEntity('N')b=UnlimitedEntity('N')@assertTrue(a==b)end subroutine test_equal_values