runtest Program

program runtest
use M_framework__msg
use M_framework__verify
use M_framework__verify, only : unit_check, unit_check_start, unit_check_good, unit_check_bad, unit_check_done
use M_framework__verify, only : unit_check_stop
use M_testsuite_M_sort
implicit none
   call test_suite_M_sort()
   call unit_check_stop()
end program runtest