Support for IEEE INF: T Support for IEEE NaN: T Support for IEEE subnormals: F IEEE support for chosen real kind: T ***** LOG ******* z=(-inf,+0)=( -Inf, +0.000000E+00 ) LOG(z)=( +Inf, +3.141593E+00 ) PASS z=(-HUGE,+0)=( -3.402823E+38, +0.000000E+00 ) LOG(z)=( +8.872284E+01, +3.141593E+00 ) PASS z=(-1,+0)=( -1.000000E+00, +0.000000E+00 ) LOG(z)=( +0.000000E+00, +3.141593E+00 ) PASS z=(-TINY,+0)=( -1.175494E-38, +0.000000E+00 ) LOG(z)=( -8.733655E+01, +3.141593E+00 ) PASS z=(-TINY,-0)=( -1.175494E-38, -0.000000E+00 ) LOG(z)=( -8.733655E+01, -3.141593E+00 ) PASS z=(-1,-0)=( -1.000000E+00, -0.000000E+00 ) LOG(z)=( +0.000000E+00, -3.141593E+00 ) PASS z=(-HUGE,-0)=( -3.402823E+38, -0.000000E+00 ) LOG(z)=( +8.872284E+01, -3.141593E+00 ) PASS z=(-inf,-0)=( -Inf, -0.000000E+00 ) LOG(z)=( +Inf, -3.141593E+00 ) PASS ******* LOG, passed 8 out of 8 ***** SQRT ****** z=(-inf,+0)=( -Inf, +0.000000E+00 ) SQRT(z)=( +0.000000E+00, +Inf ) PASS z=(-HUGE,+0)=( -3.402823E+38, +0.000000E+00 ) SQRT(z)=( +0.000000E+00, +Inf ) FAIL z=(-1,+0)=( -1.000000E+00, +0.000000E+00 ) SQRT(z)=( +0.000000E+00, +1.000000E+00 ) PASS z=(-TINY,+0)=( -1.175494E-38, +0.000000E+00 ) SQRT(z)=( +0.000000E+00, +1.084202E-19 ) PASS z=(-0,+0)=( -0.000000E+00, +0.000000E+00 ) SQRT(z)=( +0.000000E+00, +0.000000E+00 ) PASS z=(-0,-0)=( -0.000000E+00, -0.000000E+00 ) SQRT(z)=( +0.000000E+00, +0.000000E+00 ) FAIL z=(-TINY,-0)=( -1.175494E-38, -0.000000E+00 ) SQRT(z)=( +0.000000E+00, -1.084202E-19 ) PASS z=(-1,-0)=( -1.000000E+00, -0.000000E+00 ) SQRT(z)=( +0.000000E+00, -1.000000E+00 ) PASS z=(-HUGE,-0)=( -3.402823E+38, -0.000000E+00 ) SQRT(z)=( +0.000000E+00, -Inf ) FAIL z=(-inf,-0)=( -Inf, -0.000000E+00 ) SQRT(z)=( +0.000000E+00, -Inf ) PASS ****** SQRT, passed 7 out of 10 ****** ASIN ****** z=(-inf,+0)=( -Inf, +0.000000E+00 ) ASIN(z)=( -1.570796E+00, +Inf ) PASS z=(-HUGE,+0)=( -3.402823E+38, +0.000000E+00 ) ASIN(z)=( -1.570796E+00, +8.941599E+01 ) PASS z=(-1,+0)=( -1.000000E+00, +0.000000E+00 ) ASIN(z)=( -1.570796E+00, +0.000000E+00 ) PASS z=(-1,-0)=( -1.000000E+00, -0.000000E+00 ) ASIN(z)=( -1.570796E+00, -0.000000E+00 ) PASS z=(-HUGE,-0)=( -3.402823E+38, -0.000000E+00 ) ASIN(z)=( -1.570796E+00, -8.941599E+01 ) PASS z=(-inf,-0)=( -Inf, -0.000000E+00 ) ASIN(z)=( -1.570796E+00, -Inf ) PASS z=(+inf,+0)=( +Inf, +0.000000E+00 ) ASIN(z)=( +1.570796E+00, +Inf ) PASS z=(+HUGE,+0)=( +3.402823E+38, +0.000000E+00 ) ASIN(z)=( +1.570796E+00, +8.941599E+01 ) PASS z=(1,+0)=( +1.000000E+00, +0.000000E+00 ) ASIN(z)=( +1.570796E+00, +0.000000E+00 ) PASS z=(1,-0)=( +1.000000E+00, -0.000000E+00 ) ASIN(z)=( +1.570796E+00, -0.000000E+00 ) PASS z=(+HUGE,-0)=( +3.402823E+38, -0.000000E+00 ) ASIN(z)=( +1.570796E+00, -8.941599E+01 ) PASS z=(+inf,-0)=( +Inf, -0.000000E+00 ) ASIN(z)=( +1.570796E+00, -Inf ) PASS ****** ASIN, passed 12 out of 12 ****** ACOS ****** z=(-inf,+0)=( -Inf, +0.000000E+00 ) ACOS(z)=( +3.141593E+00, -Inf ) PASS z=(-HUGE,+0)=( -3.402823E+38, +0.000000E+00 ) ACOS(z)=( +3.141593E+00, -8.941599E+01 ) PASS z=(-1,+0)=( -1.000000E+00, +0.000000E+00 ) ACOS(z)=( +3.141593E+00, -0.000000E+00 ) PASS z=(-1,-0)=( -1.000000E+00, -0.000000E+00 ) ACOS(z)=( +3.141593E+00, +0.000000E+00 ) PASS z=(-HUGE,-0)=( -3.402823E+38, -0.000000E+00 ) ACOS(z)=( +3.141593E+00, +8.941599E+01 ) PASS z=(-inf,-0)=( -Inf, -0.000000E+00 ) ACOS(z)=( +3.141593E+00, +Inf ) PASS z=(+inf,+0)=( +Inf, +0.000000E+00 ) ACOS(z)=( +0.000000E+00, -Inf ) PASS z=(+HUGE,+0)=( +3.402823E+38, +0.000000E+00 ) ACOS(z)=( +0.000000E+00, -8.941599E+01 ) PASS z=(1,+0)=( +1.000000E+00, +0.000000E+00 ) ACOS(z)=( +0.000000E+00, -0.000000E+00 ) PASS z=(1,-0)=( +1.000000E+00, -0.000000E+00 ) ACOS(z)=( +0.000000E+00, +0.000000E+00 ) PASS z=(+HUGE,-0)=( +3.402823E+38, -0.000000E+00 ) ACOS(z)=( +0.000000E+00, +8.941599E+01 ) PASS z=(+inf,-0)=( +Inf, -0.000000E+00 ) ACOS(z)=( +0.000000E+00, +Inf ) PASS ****** ACOS, passed 12 out of 12 ****** ATAN ****** z=(+0,+inf)=( +0.000000E+00, +Inf ) ATAN(z)=( NaN, +0.000000E+00 ) FAIL z=(+0,+HUGE)=( +0.000000E+00, +3.402823E+38 ) ATAN(z)=( +1.570796E+00, +2.938736E-39 ) FAIL z=(+0,+1+EPS)=( +0.000000E+00, +1.000000E+00 ) ATAN(z)=( +1.570796E+00, +8.317766E+00 ) PASS z=(+0,+1)=( +0.000000E+00, +1.000000E+00 ) ATAN(z)=( +0.000000E+00, +Inf ) PASS z=(-0,+1)=( -0.000000E+00, +1.000000E+00 ) ATAN(z)=( +0.000000E+00, +Inf ) FAIL z=(-0,+1+EPS)=( -0.000000E+00, +1.000000E+00 ) ATAN(z)=( +1.570796E+00, +8.317766E+00 ) FAIL z=(-0,+HUGE)=( -0.000000E+00, +3.402823E+38 ) ATAN(z)=( +1.570796E+00, +2.938736E-39 ) FAIL z=(-0,+inf)=( -0.000000E+00, +Inf ) ATAN(z)=( NaN, +0.000000E+00 ) FAIL z=(-0,-inf)=( -0.000000E+00, -Inf ) ATAN(z)=( NaN, -0.000000E+00 ) FAIL z=(-0,-HUGE)=( -0.000000E+00, -3.402823E+38 ) ATAN(z)=( -1.570796E+00, -2.938736E-39 ) FAIL z=(-0,-1-EPS)=( -0.000000E+00, -1.000000E+00 ) ATAN(z)=( -1.570796E+00, -8.317766E+00 ) PASS z=(-0,-1)=( -0.000000E+00, -1.000000E+00 ) ATAN(z)=( -0.000000E+00, -Inf ) PASS z=(+0,-1)=( +0.000000E+00, -1.000000E+00 ) ATAN(z)=( +0.000000E+00, -Inf ) PASS z=(+0,-1-EPS)=( +0.000000E+00, -1.000000E+00 ) ATAN(z)=( +1.570796E+00, -8.317766E+00 ) PASS z=(+0,-HUGE)=( +0.000000E+00, -3.402823E+38 ) ATAN(z)=( +1.570796E+00, -2.938736E-39 ) FAIL z=(+0,-inf)=( +0.000000E+00, -Inf ) ATAN(z)=( NaN, -0.000000E+00 ) FAIL ****** ATAN, passed 6 out of 16 ***** TOTAL, passed 45 out of 58 PASS term_flang (exit status: 0)