Support for IEEE INF: T Support for IEEE NaN: T Support for IEEE subnormals: T IEEE support for chosen real kind: T ***** LOG ******* z=(-inf,+0)=( -Infinity, +0.000000000000000000000000000000000E+0000 ) LOG(z)=( +Infinity, +3.141592653589793238462643383279503E+0000 ) PASS 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 z=(-inf,-0)=( -Infinity, +0.000000000000000000000000000000000E+0000 ) LOG(z)=( +Infinity, -3.141592653589793238462643383279503E+0000 ) PASS ******* LOG, passed 8 out of 8 ***** SQRT ****** z=(-inf,+0)=( -Infinity, +0.000000000000000000000000000000000E+0000 ) SQRT(z)=( +0.000000000000000000000000000000000E+0000, +Infinity ) PASS 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 z=(-inf,-0)=( -Infinity, +0.000000000000000000000000000000000E+0000 ) SQRT(z)=( +0.000000000000000000000000000000000E+0000, -Infinity ) PASS ****** SQRT, passed 10 out of 10 ***** TOTAL, passed 18 out of 18 PASS term_sun128 (exit status: 0)