S390: Optimize atomic macros.
[glibc.git] / math / test-nan-overflow.c
blob62e5dd426501901be80ff47b6133b8c71cedc7b8
1 /* Test nan functions stack overflow (bug 16962).
2 Copyright (C) 2015-2017 Free Software Foundation, Inc.
3 This file is part of the GNU C Library.
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.
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.
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 <http://www.gnu.org/licenses/>. */
19 #include <math.h>
20 #include <stdio.h>
21 #include <string.h>
22 #include <sys/resource.h>
23 #include <stdlib.h>
25 #define STACK_LIM 1048576
26 #define STRING_SIZE (2 * STACK_LIM)
28 static int
29 do_test (void)
31 int result = 0;
32 struct rlimit lim;
33 getrlimit (RLIMIT_STACK, &lim);
34 lim.rlim_cur = STACK_LIM;
35 setrlimit (RLIMIT_STACK, &lim);
36 char *nanstr = malloc (STRING_SIZE);
37 if (nanstr == NULL)
39 puts ("malloc failed, cannot test");
40 return 77;
42 memset (nanstr, '0', STRING_SIZE - 1);
43 nanstr[STRING_SIZE - 1] = 0;
44 #define NAN_TEST(TYPE, FUNC) \
45 do \
46 { \
47 char *volatile p = nanstr; \
48 volatile TYPE v = FUNC (p); \
49 if (isnan (v)) \
50 puts ("PASS: " #FUNC); \
51 else \
52 { \
53 puts ("FAIL: " #FUNC); \
54 result = 1; \
55 } \
56 } \
57 while (0)
58 NAN_TEST (float, nanf);
59 NAN_TEST (double, nan);
60 #ifndef NO_LONG_DOUBLE
61 NAN_TEST (long double, nanl);
62 #endif
63 return result;
66 #define TEST_FUNCTION do_test ()
67 #include "../test-skeleton.c"