Fortran - Testing - Returning test and assertion errors

In the previous post we improved the output handling of the test runner, making output optional by using an abstract progress printer. Only our assert_equals function, which by the way should also be moved to the test_framework module, still print s directly to stdout : &#xA; function assert_equals(expected, actual, epsilon) result (assertion_failed)&#xA; ! ... &#xA; assertion_failed =…