runtest Program

program runtest
use M_framework__msg
use M_framework__verify, only : unit_check_level, unit_check_stop
use M_test_suite_M_random
implicit none
   unit_check_level=0
   call test_suite()
   call unit_check_stop()
end program runtest