1 /* Test to strtod etc for numbers like x000...0000.000e-nn.
2 This file is part of the GNU C Library.
3 Copyright (C) 2001-2022 Free Software Foundation, Inc.
4
5 The GNU C Library is free software; you can redistribute it and/or
6 modify it under the terms of the GNU Lesser General Public
7 License as published by the Free Software Foundation; either
8 version 2.1 of the License, or (at your option) any later version.
9
10 The GNU C Library is distributed in the hope that it will be useful,
11 but WITHOUT ANY WARRANTY; without even the implied warranty of
12 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
13 Lesser General Public License for more details.
14
15 You should have received a copy of the GNU Lesser General Public
16 License along with the GNU C Library; if not, see
17 <https://www.gnu.org/licenses/>. */
18
19 #include <stdio.h>
20 #include <stdlib.h>
21 #include <string.h>
22
23 #include "tst-strtod.h"
24
25 #define TEST_STRTOD(FSUF, FTYPE, FTOSTR, LSUF, CSUF) \
26 static int \
27 test_strto ## FSUF (void) \
28 { \
29 char buf[300]; \
30 int cnt; \
31 int result = 0; \
32 \
33 for (cnt = 0; cnt < 200; ++cnt) \
34 { \
35 ssize_t n; \
36 FTYPE f; \
37 \
38 n = sprintf (buf, "%d", cnt); \
39 memset (buf + n, '0', cnt); \
40 sprintf (buf + n + cnt, ".000e-%d", cnt); \
41 f = strto ## FSUF (buf, NULL); \
42 \
43 if (f != (FTYPE) cnt) \
44 { \
45 char fstr[FSTRLENMAX]; \
46 char fcntstr[FSTRLENMAX]; \
47 FTOSTR (fstr, sizeof (fstr), "%g", f); \
48 FTOSTR (fcntstr, sizeof (fstr), "%g", (FTYPE) cnt); \
49 printf ("strto" #FSUF "(\"%s\") " \
50 "failed for cnt == %d (%s instead of %s)\n", \
51 buf, cnt, fstr, fcntstr); \
52 result = 1; \
53 } \
54 else \
55 printf ( "strto" #FSUF "() fine for cnt == %d\n", cnt); \
56 } \
57 return result; \
58 }
59
GEN_TEST_STRTOD_FOREACH(TEST_STRTOD)60 GEN_TEST_STRTOD_FOREACH (TEST_STRTOD)
61
62 int
63 main (void)
64 {
65 return STRTOD_TEST_FOREACH (test_strto);
66 }
67