/*
   20050502-1.c from the execute part of the gcc torture suite.
 */

#include <testfwk.h>

#ifdef __SDCC
#pragma std_c99
#endif

#include <string.h>

/* PR rtl-optimization/21330 */

int
bar (const char **x)
{
  return *(*x)++;
}

int
baz (int c)
{
  return c != '@';
}

void
foo (const char **w, char *x, _Bool y, _Bool z)
{
  char c = bar (w);
  int i = 0;

  while (1)
    {
      x[i++] = c;
      c = bar (w);
      if (y && c == '\'')
        break;
      if (z && c == '\"')
        break;
      if (!y && !z && !baz (c))
        break;
    }
   x[i] = 0;
}

void
testTortureExecute (void)
{
#if !defined(__SDCC_pdk14) && !defined(__SDCC_pic14) // Lack of memory
  char buf[64];
  const char *p;
  p = "abcde'fgh";
  foo (&p, buf, 1, 0);
  if (strcmp (p, "fgh") != 0 || strcmp (buf, "abcde") != 0)
    ASSERT (0);
  p = "ABCDEFG\"HI";
  foo (&p, buf, 0, 1);
  if (strcmp (p, "HI") != 0 || strcmp (buf, "ABCDEFG") != 0)
    ASSERT (0);
  p = "abcd\"e'fgh";
  foo (&p, buf, 1, 1);
  if (strcmp (p, "e'fgh") != 0 || strcmp (buf, "abcd") != 0)
    ASSERT (0);
  p = "ABCDEF'G\"HI";
  foo (&p, buf, 1, 1);
  if (strcmp (p, "G\"HI") != 0 || strcmp (buf, "ABCDEF") != 0)
    ASSERT (0);
  p = "abcdef@gh";
  foo (&p, buf, 0, 0);
  if (strcmp (p, "gh") != 0 || strcmp (buf, "abcdef") != 0)
    ASSERT (0);
  return;
#endif
}
