Manual Reference Pages - unit_check_start (3)
NAME
unit_check_start(3f) - [M_verify] call command "goodbad NAME start" and optionally set options (LICENSE:PD)
CONTENTS
Synopsis
Description
Options
Examples
Author
License
SYNOPSIS
subroutine unit_check_start(name,options,msg)
character(len=*),intent(in) :: name character(len=*),intent(in),optional :: options character(len=*),intent(in),optional :: msg
DESCRIPTION
unit_check_start(3f) is an initialization command that by default calls the shell command
goodbad NAME start [options]The command can be changed by setting the environment variable UNIT_CHECK_COMMAND or the global module variable UNIT_CHECK_COMMAND. The environment variable overrides the global module variable.
By default if a unit_check(3f) logical expression is false or the unit_check_bad(3f) procedure is called the program will be stopped.
This has the same effect as setting the environment variable M_verify_STOP to "FALSE" or the global module variable UNIT_CHECK_KEEP_GOING to .FALSE. . Set the value to .true. and the program will continue even when tests fail.
OPTIONS
NAME name of the shell command to execute. If blank, no command is executed.
| OPTIONS | |||
pass additional options to the shell command
| |||
EXAMPLES
Sample program:
program demo_unit_check_start use M_verify, only: unit_check_start use M_verify, only: unit_check use M_verify, only: unit_check_doneimplicit none integer :: ival call unit_check_start(’myroutine’) ! the goodbad(1) command called here takes many options ! used to build an SQLite3 entry call unit_check_start(’myroutine_long’,’ & & -section 3 & & -library libGPF & & -filename ‘pwd‘/M_verify.FF & & -documentation y & & -ufpp y & & -ccall n & & -archive GPF.a & & ’)
ival=10 call unit_check(’myroutine’, ival.gt.3 , msg=’test if big enough’) call unit_check(’myroutine’, ival.lt.100 , msg=’test if small enough’)
call unit_check_done(’myroutine’,msg=’completed checks of "myroutine"’)
end program demo_unit_check_start
AUTHOR
John S. Urban
LICENSE
Public Domain
| unit_check_start (3) | March 11, 2021 |
