runtest Program

program runtest
use M_framework__msg
use :: M_framework__verify,  only : unit_check_command, unit_check_keep_going, unit_check_level
use :: M_framework__verify,  only : unit_check_stop
implicit none
!external test_suite_M_process
interface; subroutine test_suite_M_process(); end ; end interface
   unit_check_command=''
   unit_check_keep_going=.true.
   unit_check_level=0
   call test_suite_M_process()
   call unit_check_stop()
contains

end program runtest