tests/test-c-strtold-mt.c

   1 /* Multithread-safety test for c_strtold().
   2    Copyright (C) 2024 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 <https://www.gnu.org/licenses/>.  */
  16
  17 /* Written by Bruno Haible <bruno@clisp.org>, 2024.  */
  18
  19 #include <config.h>
  20
  21 /* Work around GCC bug 44511.  */
  22 #if _GL_GNUC_PREREQ (4, 3)
  23 # pragma GCC diagnostic ignored "-Wreturn-type"
  24 #endif
  25
  26 #if USE_ISOC_THREADS || USE_POSIX_THREADS || USE_ISOC_AND_POSIX_THREADS || USE_WINDOWS_THREADS
  27
  28 /* Specification.  */
  29 #include "c-strtod.h"
  30
  31 #include <errno.h>
  32 #include <locale.h>
  33 #include <stdio.h>
  34 #include <stdlib.h>
  35 #include <time.h>
  36
  37 #include "glthread/thread.h"
  38
  39 static void *
  40 thread1_func (void *arg)
  41 {
  42   const char input[] = "1,5";
  43
  44   for (;;)
  45     {
  46       char *ptr;
  47       long double result;
  48       errno = 0;
  49       result = c_strtold (input, &ptr);
  50       if (!(result == 1.0L && ptr == input + 1 && errno == 0))
  51         {
  52           fprintf (stderr, "thread1 malfunction!\n"); fflush (stderr);
  53           abort ();
  54         }
  55     }
  56
  57   /*NOTREACHED*/
  58 }
  59
  60 static void *
  61 thread2_func (void *arg)
  62 {
  63   const char input[] = "1,5";
  64
  65   for (;;)
  66     {
  67       char *ptr;
  68       long double result;
  69       errno = 0;
  70       result = strtold (input, &ptr);
  71       if (!(result == 1.5L && ptr == input + 3 && errno == 0))
  72         {
  73           fprintf (stderr, "thread2 disturbed by thread1!\n"); fflush (stderr);
  74           abort ();
  75         }
  76     }
  77
  78   /*NOTREACHED*/
  79 }
  80
  81 static void *
  82 thread3_func (void *arg)
  83 {
  84   for (;;)
  85     {
  86       char pointbuf[5];
  87       sprintf (pointbuf, "%#.0f", 1.0);
  88       if (!(pointbuf[1] == ','))
  89         {
  90           fprintf (stderr, "thread3 disturbed by thread1!\n"); fflush (stderr);
  91           abort ();
  92         }
  93     }
  94
  95   /*NOTREACHED*/
  96 }
  97
  98 int
  99 main (int argc, char *argv[])
 100 {
 101   /* Try to set the locale by implicitly looking at the LC_ALL environment
 102      variable.
 103      configure should already have checked that the locale is supported.  */
 104   if (setlocale (LC_ALL, "") == NULL)
 105     return 1;
 106
 107   /* Create the threads.  */
 108   gl_thread_create (thread1_func, NULL);
 109   gl_thread_create (thread2_func, NULL);
 110   gl_thread_create (thread3_func, NULL);
 111
 112   /* Let them run for 1 second.  */
 113   {
 114     struct timespec duration;
 115     duration.tv_sec = (argc > 1 ? atoi (argv[1]) : 1);
 116     duration.tv_nsec = 0;
 117
 118     nanosleep (&duration, NULL);
 119   }
 120
 121   return 0;
 122 }
 123
 124 #else
 125
 126 /* No multithreading available.  */
 127
 128 #include <stdio.h>
 129
 130 int
 131 main ()
 132 {
 133   fputs ("Skipping test: multithreading not enabled\n", stderr);
 134   return 77;
 135 }
 136
 137 #endif