runtest Program

Uses

    • M_framework__verify
    • M_framework__msg

Contents

Source Code


Interfaces

interface

  • subroutine test_suite_M_process()

    Arguments

    None

Source Code

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