[UP]

Manual Reference Pages  - unit_check_msg (3)

NAME
unit_check_msg(3f) - [M_verify] converts up to nine standard scalar values to a message for unit testing (LICENSE:PD)

CONTENTS

Synopsis
Description
Options
Examples
Author
License

SYNOPSIS
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

DESCRIPTION
unit_check_msg(3f) builds a string from up to nine scalar values and prints it to the error long.

OPTIONS
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.

EXAMPLES
Sample program: 

   program demo_unit_check_msg
   use M_verify, only : unit_check_start,unit_check_msg,unit_check_done
   implicit none


   call 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

AUTHOR
John S. Urban

LICENSE
Public Domain

unit_check_msg (3) March 11, 2021
Generated by manServer 1.08 from e4beb0d2-5246-40d5-8afe-4fc25fccaa9a using man macros.