unit_check_good(3f) - [M_debug] call command "goodbad NAME good" (LICENSE:PD)
Synopsis
Description
Examples
Author
License
subroutine unit_check_good(name,opts,msg)
character(len=*),intent(in) :: name character(len=*),intent(in),optional :: opts character(len=*),intent(in),optional :: msg
A shortcut for
call unit_check(name,.true.) call unit_check_done(name,opts,msg)
Sample program:
program demo_unit_check_good use M_debug, only: unit_check_start, unit_check_done use M_debug, only: unit_check use M_debug, 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)
call unit_check_good(myroutine,msg=checks on "myroutine" )
end program demo_unit_check_good
John S. Urban
Public Domain
unit_check_good (3) | October 17, 2020 |