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

   1 /*
   2    20021015-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 #endif
  10
  11 #pragma disable_warning 85
  12
  13 /* PR opt/7409.  */
  14
  15 char g_list[] = { '1' };
  16
  17 void g (void *p, char *list, int length, char **elementPtr, char **nextPtr)
  18 {
  19   if (*nextPtr != g_list)
  20     ASSERT (0);
  21
  22   **nextPtr = 0;
  23 }
  24
  25 void testTortureExecute (void)
  26 {
  27   char *list = g_list;
  28   char *element;
  29   int i, length = 100;
  30
  31   for (i = 0; *list != 0; i++)
  32     {
  33       char *prevList = list;
  34       g (0, list, length, &element, &list);
  35       length -= (list - prevList);
  36     }
  37
  38   return;
  39 }
  40