diff options
author | Arnold D. Robbins <arnold@skeeve.com> | 2014-01-19 21:36:37 +0200 |
---|---|---|
committer | Arnold D. Robbins <arnold@skeeve.com> | 2014-01-19 21:36:37 +0200 |
commit | 20ca1d1ba6e46f116e2dc169d263fd548b9bd074 (patch) | |
tree | 74d46c4cf0ecf8704df7d4dde7138ee0e131d1ec /test/mpfrnegzero.awk | |
parent | 9092450b4459af490e4d52ad3188d3282f36f726 (diff) | |
download | egawk-20ca1d1ba6e46f116e2dc169d263fd548b9bd074.tar.gz egawk-20ca1d1ba6e46f116e2dc169d263fd548b9bd074.tar.bz2 egawk-20ca1d1ba6e46f116e2dc169d263fd548b9bd074.zip |
Fix -0 for MPFR.
Diffstat (limited to 'test/mpfrnegzero.awk')
-rw-r--r-- | test/mpfrnegzero.awk | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/test/mpfrnegzero.awk b/test/mpfrnegzero.awk new file mode 100644 index 00000000..cc6bf65b --- /dev/null +++ b/test/mpfrnegzero.awk @@ -0,0 +1,15 @@ +BEGIN { + printf("-0 -> %f, -0.0 -> %f\n", -0, -0.0) + + printf("atan2(+0, -0) = %f\n", atan2(+0, -0)) + printf("atan2(+0.0, -0.0) = %f\n", atan2(+0.0, -0.0)) + + printf("atan2(-0, -0) = %f\n", atan2(-0, -0)) + printf("atan2(-0.0, -0.0) = %f\n", atan2(-0.0, -0.0)) + + printf("atan2(+0, +0) = %f\n", atan2(+0, +0)) + printf("atan2(+0.0, +0.0) = %f\n", atan2(+0.0, +0.0)) + + printf("atan2(-0, +0) = %f\n", atan2(-0, +0)) + printf("atan2(-0.0, +0.0) = %f\n", atan2(-0.0, +0.0)) +} |