Nodes of different colours represent the following:
Solid arrows point from a file to a file which it depends on. A file
is dependent upon another if the latter must be compiled before the former
can be.
Source Code
program volatile_doctestuse stringifor_string_ttype(string)::astringlogical::test_passed(2)astring=' -1212112.3 'test_passed(1)=astring%is_digit().eqv..false.astring='12121123'test_passed(2)=astring%is_digit().eqv..true.print'(L1)',all(test_passed)endprogram volatile_doctest