program runtest use M_framework__msg use M_framework__verify, only : unit_check_level, unit_check_stop use M_test_suite_M_overload implicit none unit_check_level=0 call test_suite_M_overload() call unit_check_stop('') end program runtest