]> git.ipfire.org Git - thirdparty/glibc.git/blob - math/test-signgam-finite.c
Prefer https to http for gnu.org and fsf.org URLs
[thirdparty/glibc.git] / math / test-signgam-finite.c
1 /* Test lgamma functions set signgam for -ffinite-math-only (bug 19211).
2 Copyright (C) 2015-2019 Free Software Foundation, Inc.
3 This file is part of the GNU C Library.
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 <math.h>
20 #include <stdio.h>
21
22 #define RUN_TESTS(FUNC, TYPE) \
23 do \
24 { \
25 volatile TYPE a, b, c __attribute__ ((unused)); \
26 a = 0.5; \
27 b = -0.5; \
28 signgam = 123; \
29 c = FUNC (a); \
30 if (signgam == 1) \
31 puts ("PASS: " #FUNC " (0.5) setting signgam"); \
32 else \
33 { \
34 puts ("FAIL: " #FUNC " (0.5) setting signgam"); \
35 result = 1; \
36 } \
37 signgam = 123; \
38 c = FUNC (b); \
39 if (signgam == -1) \
40 puts ("PASS: " #FUNC " (-0.5) setting signgam"); \
41 else \
42 { \
43 puts ("FAIL: " #FUNC " (-0.5) setting signgam"); \
44 result = 1; \
45 } \
46 } \
47 while (0)
48
49 static int
50 do_test (void)
51 {
52 int result = 0;
53 RUN_TESTS (lgammaf, float);
54 RUN_TESTS (gammaf, float);
55 RUN_TESTS (lgamma, double);
56 RUN_TESTS (gamma, double);
57 RUN_TESTS (lgammal, long double);
58 RUN_TESTS (gammal, long double);
59 return result;
60 }
61
62 #define TEST_FUNCTION do_test ()
63 #include "../test-skeleton.c"