Nodes of different colours represent the following:
Solid arrows point from a parent (sub)module to the submodule which is
descended from it. Dashed arrows point from a module being used to the
module or program unit using it.
program test_mtuse testerimplicit none type(tester_t)::testcall test%init()call test%assert_equal([.false.,.true.],[1>2,2>1])call test%print()end program test_mt