program runtest use M_framework, only : unit_test_stop interface; subroutine test_suite_M_list(); end ; end interface call test_suite_M_list() call unit_test_stop() end program runtest