Support for IEEE INF: T
 Support for IEEE NaN: T
 Support for IEEE subnormals: T
 IEEE support for chosen real kind: T
***** LOG *******
  z=(-HUGE,+0)=( -1.189731495357231765085759326628007E+4932, +0.000000000000000000000000000000000E+0000 ) 
        LOG(z)=( +1.135652340629414394949193107797077E+0004, +3.141592653589793238462643383279503E+0000 ) PASS
     z=(-1,+0)=( -1.000000000000000000000000000000000E+0000, +0.000000000000000000000000000000000E+0000 ) 
        LOG(z)=( +0.000000000000000000000000000000000E+0000, +3.141592653589793238462643383279503E+0000 ) PASS
  z=(-TINY,+0)=( -3.362103143112093506262677817321753E-4932, +0.000000000000000000000000000000000E+0000 ) 
        LOG(z)=( -1.135513711193302405887309661372785E+0004, +3.141592653589793238462643383279503E+0000 ) PASS
  z=(-TINY,-0)=( -3.362103143112093506262677817321753E-4932, +0.000000000000000000000000000000000E+0000 ) 
        LOG(z)=( -1.135513711193302405887309661372785E+0004, -3.141592653589793238462643383279503E+0000 ) PASS
     z=(-1,-0)=( -1.000000000000000000000000000000000E+0000, +0.000000000000000000000000000000000E+0000 ) 
        LOG(z)=( +0.000000000000000000000000000000000E+0000, -3.141592653589793238462643383279503E+0000 ) PASS
  z=(-HUGE,-0)=( -1.189731495357231765085759326628007E+4932, +0.000000000000000000000000000000000E+0000 ) 
        LOG(z)=( +1.135652340629414394949193107797077E+0004, -3.141592653589793238462643383279503E+0000 ) PASS
***** LOG,   passed  6 out of  6
***** SQRT ******
  z=(-HUGE,+0)=( -1.189731495357231765085759326628007E+4932, +0.000000000000000000000000000000000E+0000 ) 
       SQRT(z)=( +0.000000000000000000000000000000000E+0000, +1.090748135619415929462984244733783E+2466 ) PASS
     z=(-1,+0)=( -1.000000000000000000000000000000000E+0000, +0.000000000000000000000000000000000E+0000 ) 
       SQRT(z)=( +0.000000000000000000000000000000000E+0000, +1.000000000000000000000000000000000E+0000 ) PASS
  z=(-TINY,+0)=( -3.362103143112093506262677817321753E-4932, +0.000000000000000000000000000000000E+0000 ) 
       SQRT(z)=( +0.000000000000000000000000000000000E+0000, +1.833603867554847165621412392048483E-2466 ) PASS
      z=(0,+0)=( +0.000000000000000000000000000000000E+0000, +0.000000000000000000000000000000000E+0000 ) 
       SQRT(z)=( +0.000000000000000000000000000000000E+0000, +0.000000000000000000000000000000000E+0000 ) PASS
      z=(0,-0)=( +0.000000000000000000000000000000000E+0000, +0.000000000000000000000000000000000E+0000 ) 
       SQRT(z)=( +0.000000000000000000000000000000000E+0000, +0.000000000000000000000000000000000E+0000 ) PASS
  z=(-TINY,-0)=( -3.362103143112093506262677817321753E-4932, +0.000000000000000000000000000000000E+0000 ) 
       SQRT(z)=( +0.000000000000000000000000000000000E+0000, -1.833603867554847165621412392048483E-2466 ) PASS
     z=(-1,-0)=( -1.000000000000000000000000000000000E+0000, +0.000000000000000000000000000000000E+0000 ) 
       SQRT(z)=( +0.000000000000000000000000000000000E+0000, -1.000000000000000000000000000000000E+0000 ) PASS
  z=(-HUGE,-0)=( -1.189731495357231765085759326628007E+4932, +0.000000000000000000000000000000000E+0000 ) 
       SQRT(z)=( +0.000000000000000000000000000000000E+0000, -1.090748135619415929462984244733783E+2466 ) PASS
***** SQRT,  passed  8 out of  8
***** TOTAL, passed 14 out of 14
**** CRACK1 *****
     z=(+0,+0)=( +0.000000000000000000000000000000000E+0000, +0.000000000000000000000000000000000E+0000 ) 
     crack1(z)=( +0.000000000000000000000000000000000E+0000, +1.000000000000000000000000000000000E+0000 ) PASS
     z=(-0,+0)=( +0.000000000000000000000000000000000E+0000, +0.000000000000000000000000000000000E+0000 ) 
     crack1(z)=( +0.000000000000000000000000000000000E+0000, -1.000000000000000000000000000000000E+0000 ) FAIL
     z=(+0,-0)=( +0.000000000000000000000000000000000E+0000, +0.000000000000000000000000000000000E+0000 ) 
     crack1(z)=( +0.000000000000000000000000000000000E+0000, +1.000000000000000000000000000000000E+0000 ) FAIL
     z=(-0,-0)=( +0.000000000000000000000000000000000E+0000, +0.000000000000000000000000000000000E+0000 ) 
     crack1(z)=( +0.000000000000000000000000000000000E+0000, -1.000000000000000000000000000000000E+0000 ) PASS
**** CRACK1, passed  2 out of  4