sdcc/support/regression/tests/gcc-torture-execute-pr20100-1.c

   1 /*
   2    pr20100-1.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 /* PR tree-optimization/20100
  12    Pure function being treated as const.
  13    Author: Hans-Peter Nilsson.  */
  14
  15 static unsigned short g = 0;
  16 static unsigned short p = 0;
  17 unsigned char e;
  18
  19 static unsigned short
  20 next_g (void)
  21 {
  22   return g == e - 1 ? 0 : g + 1;
  23 }
  24
  25 static unsigned short
  26 curr_p (void)
  27 {
  28   return p;
  29 }
  30
  31 static unsigned short
  32 inc_g (void)
  33 {
  34   return g = next_g ();
  35 }
  36
  37 static unsigned short
  38 curr_g (void)
  39 {
  40   return g;
  41 }
  42
  43 static char
  44 ring_empty (void)
  45 {
  46   if (curr_p () == curr_g ())
  47     return 1;
  48   else
  49     return 0;
  50 }
  51
  52 char
  53 frob (unsigned short a, unsigned short b)
  54 {
  55   g = a;
  56   p = b;
  57   inc_g ();
  58   return ring_empty ();
  59 }
  60
  61 unsigned short
  62 get_n (void)
  63 {
  64   unsigned short n = 0;
  65   unsigned short org_g;
  66   org_g = curr_g ();
  67   while (!ring_empty () && n < 5)
  68     {
  69       inc_g ();
  70       n++;
  71     }
  72
  73   return n;
  74 }
  75
  76 void
  77 testTortureExecute (void)
  78 {
  79   e = 3;
  80   if (frob (0, 2) != 0 || g != 1 || p != 2 || e != 3
  81       || get_n () != 1
  82       || g != 2 || p != 2)
  83     ASSERT (0);
  84   return;
  85 }
  86