unit_check_msg(3f) - [M_verify] converts up to nine standard scalar values to a message for unit testing (LICENSE:PD)
Synopsis
Description
Options
Examples
Author
License
function unit_check_msg(name,g1,g2g3,g4,g5,g6,g7,g8,g9)
character(len=*),intent(in) :: name class(*),intent(in),optional :: g1,g2,g3,g4,g5,g6,g7,g8,g9
unit_check_msg(3f) builds a string from up to nine scalar values and prints it to the error long.
name name of unit being tested g[1-9] optional value to print the value of after the message. May be of type INTEGER, LOGICAL, REAL, DOUBLEPRECISION, COMPLEX, or CHARACTER.
Sample program:
program demo_unit_check_msg use M_verify, only : unit_check_start,unit_check_msg,unit_check_done implicit nonecall unit_check_start(myroutine) call unit_check_msg(myroutine,HUGE(3f) integers,huge(0),and real,huge(0.0),and double,huge(0.0d0)) call unit_check_msg(myroutine,real :,huge(0.0),0.0,12345.6789,tiny(0.0) ) call unit_check_msg(myroutine,doubleprecision :,huge(0.0d0),0.0d0,12345.6789d0,tiny(0.0d0) ) call unit_check_msg(myroutine,complex :,cmplx(huge(0.0),tiny(0.0)) ) call unit_check_done(myroutine)
end program demo_unit_check_msg
John S. Urban
Public Domain
Nemo Release 3.1 | unit_check_msg (3) | February 23, 2025 |