unit_check_good(3f) - [M_verify] 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_verify, only: unit_check_start, unit_check_done 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 > 3 ,test if big enough) call unit_check(myroutine, x < 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
Nemo Release 3.1 | unit_check_good (3) | February 23, 2025 |