Manual Reference Pages - unit_check_done (3)

NAME

unit_check_done(3f) - [M_debug] call command "goodbad NAME good" or "goodbad NAME bad" depending on whether failures were found (LICENSE:PD)

Synopsis
Description
Examples
Author
License

SYNOPSIS

subroutine unit_check_done(name,opts,msg)

    character(len=*),intent(in) :: name
    character(len=*),intent(in),optional :: opts
    character(len=*),intent(in),optional :: msg

DESCRIPTION

If there have been no failures the shell command
        goodbad NAME good [opts]
is executed, else the command
        goodbad NAME bad [opts]
is executed and by default stops the program if their have been any failures.

EXAMPLES

Sample program:

program demo_unit_check_done use M_debug, only: unit_check_start use M_debug, only: unit_check use M_debug, only: unit_check_good, unit_check_done, unit_check_bad

implicit 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_done (’myroutine’,msg=’checks on "myroutine"’ ) ! program execution stopped endif

end program demo_unit_check_done

AUTHOR

John S. Urban

LICENSE

Public Domain

unit_check_done (3)

October 17, 2020

Generated by manServer 1.08 from 868525f4-506c-4b1b-a908-fc696ca0744d using man macros.

[UP]