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

   1 /*
   2    961125-1.c from the execute part of the gcc torture suite.
   3  */
   4
   5 #include <testfwk.h>
   6
   7 #ifdef __SDCC
   8 #pragma std_c99
   9 #pragma disable_warning 196
  10 #endif
  11
  12 static char *
  13 begfield (int tab, char *ptr, char *lim, int sword, int schar)
  14 {
  15   if (tab)
  16     {
  17       while (ptr < lim && sword--)
  18         {
  19           while (ptr < lim && *ptr != tab)
  20             ++ptr;
  21           if (ptr < lim)
  22             ++ptr;
  23         }
  24     }
  25   else
  26     {
  27       while (1)
  28         ;
  29     }
  30
  31   if (ptr + schar <= lim)
  32     ptr += schar;
  33
  34   return ptr;
  35 }
  36
  37 void
  38 testTortureExecute (void)
  39 {
  40   char *s = ":ab";
  41   char *lim = s + 3;
  42   if (begfield (':', s, lim, 1, 1) != s + 2)
  43     ASSERT (0);
  44   return;
  45 }