math/test-fenv-tls.c

   1 /* Test floating-point environment is thread-local.
   2    Copyright (C) 2013-2023 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 <fenv.h>
  20 #include <pthread.h>
  21 #include <stdio.h>
  22 #include <stdint.h>
  23
  24 #define TEST_ONE_RM(RM)                                         \
  25   do                                                            \
  26     {                                                           \
  27       if (fesetround (RM) == 0)                                 \
  28         {                                                       \
  29           rm = fegetround ();                                   \
  30           if (rm != RM)                                         \
  31             {                                                   \
  32               printf ("expected " #RM ", got %d\n", rm);        \
  33               ret = 1;                                          \
  34             }                                                   \
  35         }                                                       \
  36     }                                                           \
  37   while (0)
  38
  39 static void *
  40 test_round (void *arg)
  41 {
  42   intptr_t ret = 0;
  43   for (int i = 0; i < 10000; i++)
  44     {
  45       int rm;
  46 #ifdef FE_DOWNWARD
  47       TEST_ONE_RM (FE_DOWNWARD);
  48 #endif
  49 #ifdef FE_TONEAREST
  50       TEST_ONE_RM (FE_TONEAREST);
  51 #endif
  52 #ifdef FE_TOWARDZERO
  53       TEST_ONE_RM (FE_TOWARDZERO);
  54 #endif
  55 #ifdef FE_UPWARD
  56       TEST_ONE_RM (FE_UPWARD);
  57 #endif
  58     }
  59   return (void *) ret;
  60 }
  61
  62 #define TEST_ONE_RAISE(EX)                              \
  63   do                                                    \
  64     {                                                   \
  65       if (feraiseexcept (EX) == 0)                      \
  66         if (fetestexcept (EX) != EX)                    \
  67           {                                             \
  68             printf (#EX " not raised\n");               \
  69             ret = 1;                                    \
  70           }                                             \
  71       if (feclearexcept (FE_ALL_EXCEPT) == 0)           \
  72         if (fetestexcept (FE_ALL_EXCEPT) != 0)          \
  73           {                                             \
  74             printf ("exceptions not all cleared\n");    \
  75             ret = 1;                                    \
  76           }                                             \
  77     }                                                   \
  78   while (0)
  79
  80 static void *
  81 test_raise (void *arg)
  82 {
  83   intptr_t ret = 0;
  84   for (int i = 0; i < 10000; i++)
  85     {
  86 #ifdef FE_DIVBYZERO
  87       TEST_ONE_RAISE (FE_DIVBYZERO);
  88 #endif
  89 #ifdef FE_INEXACT
  90       TEST_ONE_RAISE (FE_INEXACT);
  91 #endif
  92 #ifdef FE_INVALID
  93       TEST_ONE_RAISE (FE_INVALID);
  94 #endif
  95 #ifdef FE_OVERFLOW
  96       TEST_ONE_RAISE (FE_OVERFLOW);
  97 #endif
  98 #ifdef UNDERFLOW
  99       TEST_ONE_RAISE (FE_UNDERFLOW);
 100 #endif
 101     }
 102   return (void *) ret;
 103 }
 104
 105 #define TEST_ONE_ENABLE(EX)                             \
 106   do                                                    \
 107     {                                                   \
 108       if (feenableexcept (EX) != -1)                    \
 109         if (fegetexcept () != EX)                       \
 110           {                                             \
 111             printf (#EX " not enabled\n");              \
 112             ret = 1;                                    \
 113           }                                             \
 114       if (fedisableexcept (EX) != -1)                   \
 115         if (fegetexcept () != 0)                        \
 116           {                                             \
 117             printf ("exceptions not all disabled\n");   \
 118             ret = 1;                                    \
 119           }                                             \
 120     }                                                   \
 121   while (0)
 122
 123 static void *
 124 test_enable (void *arg)
 125 {
 126   intptr_t ret = 0;
 127   for (int i = 0; i < 10000; i++)
 128     {
 129 #ifdef FE_DIVBYZERO
 130       TEST_ONE_ENABLE (FE_DIVBYZERO);
 131 #endif
 132 #ifdef FE_INEXACT
 133       TEST_ONE_ENABLE (FE_INEXACT);
 134 #endif
 135 #ifdef FE_INVALID
 136       TEST_ONE_ENABLE (FE_INVALID);
 137 #endif
 138 #ifdef FE_OVERFLOW
 139       TEST_ONE_ENABLE (FE_OVERFLOW);
 140 #endif
 141 #ifdef UNDERFLOW
 142       TEST_ONE_ENABLE (FE_UNDERFLOW);
 143 #endif
 144     }
 145   return (void *) ret;
 146 }
 147
 148 static int
 149 do_test (void)
 150 {
 151   int ret = 0;
 152   void *vret;
 153   pthread_t thread_id;
 154   int pret;
 155
 156   pret = pthread_create (&thread_id, NULL, test_round, NULL);
 157   if (pret != 0)
 158     {
 159       printf ("pthread_create failed: %d\n", pret);
 160       return 1;
 161     }
 162   vret = test_round (NULL);
 163   ret |= (intptr_t) vret;
 164   pret = pthread_join (thread_id, &vret);
 165   if (pret != 0)
 166     {
 167       printf ("pthread_join failed: %d\n", pret);
 168       return 1;
 169     }
 170   ret |= (intptr_t) vret;
 171
 172   pret = pthread_create (&thread_id, NULL, test_raise, NULL);
 173   if (pret != 0)
 174     {
 175       printf ("pthread_create failed: %d\n", pret);
 176       return 1;
 177     }
 178   vret = test_raise (NULL);
 179   ret |= (intptr_t) vret;
 180   pret = pthread_join (thread_id, &vret);
 181   if (pret != 0)
 182     {
 183       printf ("pthread_join failed: %d\n", pret);
 184       return 1;
 185     }
 186   ret |= (intptr_t) vret;
 187
 188   pret = pthread_create (&thread_id, NULL, test_enable, NULL);
 189   if (pret != 0)
 190     {
 191       printf ("pthread_create failed: %d\n", pret);
 192       return 1;
 193     }
 194   vret = test_enable (NULL);
 195   ret |= (intptr_t) vret;
 196   pret = pthread_join (thread_id, &vret);
 197   if (pret != 0)
 198     {
 199       printf ("pthread_join failed: %d\n", pret);
 200       return 1;
 201     }
 202   ret |= (intptr_t) vret;
 203
 204   return ret;
 205 }
 206
 207 #define TEST_FUNCTION do_test ()
 208 #include "../test-skeleton.c"