program runtest use M_framework__verify, only : unit_check_level, unit_check_stop use M_testsuite_M_color implicit none unit_check_level=0 call test_suite_M_color() call unit_check_stop() contains end program runtest