unit_check_bad(3f) - [M_verify] call command "goodbad NAME bad" and stop program (LICENSE:PD)
Synopsis
Description
Examples
Author
License
subroutine unit_check_bad(name,opts,msg)
character(len=*),intent(in) :: name character(len=*),intent(in),optional :: opts character(len=*),intent(in),optional :: msg
unit_check_bad(3f) calls the shell command
goodbad NAME bad [opts]and stops the program. It is just a shortcut for calling call unit_check(name,.false.) call unit_check_done(name,opts,msg)
Sample program:
program demo_unit_check_bad use M_verify, only: unit_check_start use M_verify, only: unit_check use M_verify, only: unit_check_good, unit_check_badimplicit none integer :: x x=10 call unit_check_start(myroutine)
call unit_check(myroutine, x.gt.3 ,test if big enough) call unit_check(myroutine, x.lt.100 ,test if small enough)
if(x.ne.0)then call unit_check_bad (myroutine,msg=checks on "myroutine" failed) ! program execution stopped endif
end program demo_unit_check_bad
John S. Urban
Public Domain
unit_check_bad (3) | March 11, 2021 |