sdcc/support/regression/tests/gcc-torture-execute-pr34456.c

   1 /*
   2    pr34456.c from the execute part of the gcc torture tests.
   3  */
   4
   5 #include <testfwk.h>
   6
   7 #ifdef __SDCC
   8 #pragma std_c99
   9 #endif
  10
  11 #include <stdlib.h>
  12
  13 #if !defined(__SDCC_pdk14) && !defined (__SDCC_pdk15) // Reentrancy
  14 int debug (void) { return 1; }
  15 int errors;
  16
  17 struct s { int elt; int (*compare) (int); };
  18
  19 static int
  20 compare (const void *x, const void *y) __reentrant
  21 {
  22   const struct s *s1 = x, *s2 = y;
  23   int (*compare1) (int);
  24   int elt2;
  25
  26   compare1 = s1->compare;
  27   elt2 = s2->elt;
  28   if (elt2 != 0 && debug () && compare1 (s1->elt) != 0)
  29     errors++;
  30   return compare1 (elt2);
  31 }
  32
  33 int bad_compare (int x) { return -x; }
  34 struct s array[2] = { { 1, bad_compare }, { -1, bad_compare } };
  35 #endif
  36
  37 void
  38 testTortureExecute (void)
  39 {
  40 #if !defined(__SDCC_pdk14) && !defined (__SDCC_pdk15)
  41   qsort (array, 2, sizeof (struct s), compare);
  42   ASSERT (!(errors == 0));
  43 #endif
  44 }
  45