From 7e0d315da842379f077fc61dca72460fb0e9263e Mon Sep 17 00:00:00 2001 From: Andreas Schwab Date: Tue, 3 Apr 2012 18:38:46 +0200 Subject: Fix formatting of denormal IBM long double numbers --- stdio-common/Makefile | 2 +- stdio-common/tst-sprintf3.c | 90 +++++++++++++++++++++++++++++++++++++++++++++ 2 files changed, 91 insertions(+), 1 deletion(-) create mode 100644 stdio-common/tst-sprintf3.c (limited to 'stdio-common') diff --git a/stdio-common/Makefile b/stdio-common/Makefile index 8cf6335bb5..7519bc1a24 100644 --- a/stdio-common/Makefile +++ b/stdio-common/Makefile @@ -56,7 +56,7 @@ tests := tstscanf test_rdwr test-popen tstgetln test-fseek \ tst-fwrite bug16 bug17 tst-swscanf tst-sprintf2 bug18 bug18a \ bug19 bug19a tst-popen2 scanf13 scanf14 scanf15 bug20 bug21 bug22 \ scanf16 scanf17 tst-setvbuf1 tst-grouping bug23 bug24 \ - bug-vfprintf-nargs tst-long-dbl-fphex tst-fphex-wide + bug-vfprintf-nargs tst-long-dbl-fphex tst-fphex-wide tst-sprintf3 test-srcs = tst-unbputc tst-printf diff --git a/stdio-common/tst-sprintf3.c b/stdio-common/tst-sprintf3.c new file mode 100644 index 0000000000..d56f247310 --- /dev/null +++ b/stdio-common/tst-sprintf3.c @@ -0,0 +1,90 @@ +/* Copyright (C) 2012 Free Software Foundation, Inc. + This file is part of the GNU C Library. + + The GNU C Library is free software; you can redistribute it and/or + modify it under the terms of the GNU Lesser General Public + License as published by the Free Software Foundation; either + version 2.1 of the License, or (at your option) any later version. + + The GNU C Library is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY 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 GNU C Library; if not, see + . */ + +/* Test bug #13941. */ + +#include +#include +#include +#include + +int +main (void) +{ +#if LDBL_MANT_DIG >= 106 + volatile union { long double l; long long x[2]; } u, v; + char buf[64]; +#endif + int result = 0; + +#if LDBL_MANT_DIG == 106 || LDBL_MANT_DIG == 113 +# define COMPARE_LDBL(u, v) \ + ((u).l == (v).l && (u).x[0] == (v).x[0] && (u).x[1] == (v).x[1]) +#else +# define COMPARE_LDBL(u, v) ((u).l == (v).l) +#endif + +#define TEST(val) \ + do \ + { \ + u.l = (val); \ + snprintf (buf, sizeof buf, "%.30LgL", u.l); \ + if (strcmp (buf, #val) != 0) \ + { \ + printf ("Error on line %d: %s != %s\n", __LINE__, buf, #val); \ + result = 1; \ + } \ + if (sscanf (#val, "%Lg", &v.l) != 1 || !COMPARE_LDBL (u, v)) \ + { \ + printf ("Error sscanf on line %d: %.30Lg != %.30Lg\n", __LINE__, \ + u.l, v.l); \ + result = 1; \ + } \ + /* printf ("%s %Lg %016Lx %016Lx\n", #val, u.l, u.x[0], u.x[1]); */ \ + } \ + while (0) + +#if LDBL_MANT_DIG >= 106 +# if LDBL_MANT_DIG == 106 + TEST (2.22507385850719347803989925739e-308L); + TEST (2.22507385850719397210554509863e-308L); + TEST (2.22507385850720088902458687609e-308L); +# endif + TEST (2.22507385850720138309023271733e-308L); + TEST (2.22507385850720187715587855858e-308L); + TEST (2.2250738585074419930597574044e-308L); + TEST (4.45014771701440227211481959342e-308L); + TEST (4.45014771701440276618046543466e-308L); + TEST (4.45014771701440375431175711716e-308L); + TEST (4.45014771701440474244304879965e-308L); + TEST (7.12023634722304600689881138745e-307L); + TEST (1.13923781555569064960474854133e-305L); + TEST (1.13777777777777776389998996996L); + TEST (1.13777777777777765287768750745L); + TEST (20988295479420645138.2044444444L); + TEST (20988295479420643090.2044444444L); + TEST (2.14668699894294423266045294316e-292L); +# if LDBL_MANT_DIG == 106 + TEST (-2.35993711055432139266626434123e-292L); + TEST (6.26323524637968345414769634658e-302L); + TEST (1.49327164802066885331814201989e-308L); + TEST (3.71834550652787023640837473722e-308L); + TEST (9.51896449671134907001349268087e-306L); +# endif +#endif + return result; +} -- cgit 1.4.1