maint: update copyright
[gnulib.git] / tests / test-sqrt-ieee.h
1 /* Test of sqrt*() function family.
2    Copyright (C) 2012-2014 Free Software Foundation, Inc.
3
4    This program is free software: you can redistribute it and/or modify
5    it under the terms of the GNU General Public License as published by
6    the Free Software Foundation; either version 3 of the License, or
7    (at your option) any later version.
8
9    This program is distributed in the hope that it will be useful,
10    but WITHOUT ANY WARRANTY; without even the implied warranty of
11    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
12    GNU General Public License for more details.
13
14    You should have received a copy of the GNU General Public License
15    along with this program.  If not, see <http://www.gnu.org/licenses/>.  */
16
17 static void
18 test_function (void)
19 {
20   /* [MX] shaded specification in POSIX.  */
21
22   /* Negative values.  */
23   ASSERT (ISNAN (SQRT (- L_(0.3))));
24
25   /* NaN.  */
26   ASSERT (ISNAN (SQRT (NAN)));
27
28   /* Signed zero.  */
29   {
30     DOUBLE y = SQRT (L_(0.0));
31     ASSERT (y == L_(0.0));
32     ASSERT (!signbit (y));
33   }
34   {
35     DOUBLE y = SQRT (MINUS_ZERO);
36     ASSERT (y == L_(0.0));
37     ASSERT (!!signbit (y) == !!signbit (MINUS_ZERO));
38   }
39
40   /* Infinity.  */
41   ASSERT (SQRT (INFINITY) == INFINITY);
42   ASSERT (ISNAN (SQRT (- INFINITY)));
43 }