diff options
Diffstat (limited to 'mpfr/tests/tlog10.c')
-rw-r--r-- | mpfr/tests/tlog10.c | 26 |
1 files changed, 24 insertions, 2 deletions
diff --git a/mpfr/tests/tlog10.c b/mpfr/tests/tlog10.c index 6d134321b..4f64ba115 100644 --- a/mpfr/tests/tlog10.c +++ b/mpfr/tests/tlog10.c @@ -1,6 +1,6 @@ /* Test file for mpfr_log10. -Copyright (C) 2001 Free Software Foundation. +Copyright 2001, 2002 Free Software Foundation. Adapted from tsinh.c. This file is part of the MPFR Library. @@ -16,7 +16,7 @@ or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License -along with the MPFR Library; see the file COPYING.LIB. If not, write to +along with the MPFR Library; see the file COPYING. If not, write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ @@ -32,7 +32,29 @@ MA 02111-1307, USA. */ int main (int argc, char *argv[]) { + mpfr_t x, y; + unsigned int n; + test_generic (2, 100, 100); + /* check log10(10^n)=n */ + mpfr_init2 (x, 53); + mpfr_init2 (y, 53); + mpfr_set_ui (x, 1, GMP_RNDN); + + for (n=1; n<=15; n++) + { + mpfr_mul_ui (x, x, 10, GMP_RNDN); /* x = 10^n */ + mpfr_log10 (y, x, GMP_RNDN); + if (mpfr_get_d1 (y) != (double) n) + { + fprintf (stderr, "log10(10^n) <> n for n=%u\n", n); + exit (1); + } + } + + mpfr_clear (x); + mpfr_clear (y); + return 0; } |