/* Adapted from gcc.dg/Winfinite-recursion.c.  */

#define NORETURN __attribute__ ((noreturn))

typedef __SIZE_TYPE__ size_t;

extern void abort (void);
extern void exit (int);

extern int ei;
int (*pfi_v)(void);


/* Make sure the warning doesn't assume every call has a DECL.  */

int nowarn_pfi_v (void)
{
  return pfi_v ();
}


int warn_fi_v (void)
{
  return warn_fi_v ();               // { dg-warning "-Wanalyzer-infinite-recursion" }
}

/* Verify #pragma suppression works.  */

#pragma GCC diagnostic push
#pragma GCC diagnostic ignored "-Wanalyzer-infinite-recursion"

int suppress_warn_fi_v (void)
{
  return suppress_warn_fi_v ();
}

#pragma GCC diagnostic pop


int nowarn_fi_v (void)
{
  if (ei++ == 0)
    return nowarn_fi_v ();
  return 0;
}

/* -Winfinite-recursion warns for this, but
   -Wanalyzer-infinite-recursion doesn't.  */

int warn_if_i (int i)
{
  if (i > 0)
    return warn_if_i (--i);
  else if (i < 0)
    return warn_if_i (-i);
  else
    return warn_if_i (7);
}


int nowarn_if_i (int i)
{
  if (i > 0)
    return nowarn_if_i (--i);
  else if (i < 0)
    return nowarn_if_i (-i);
  else
    return -1;
}

int nowarn_switch (int i, int a[])
{
  switch (i)
    {
    case 0: return nowarn_switch (a[3], a + 1);
    case 1: return nowarn_switch (a[5], a + 2);
    case 2: return nowarn_switch (a[7], a + 3);
    case 3: return nowarn_switch (a[9], a + 4);
    }
  return 77;
}

/* -Winfinite-recursion warns for this, but
   -Wanalyzer-infinite-recursion doesn't.  */

int warn_switch (int i, int a[])
{
  switch (i)
    {
    case 0: return warn_switch (a[3], a + 1);
    case 1: return warn_switch (a[5], a + 2);
    case 2: return warn_switch (a[7], a + 3);
    case 3: return warn_switch (a[9], a + 4);
    default: return warn_switch (a[1], a + 5);
    }
}

NORETURN void fnoreturn (void);

/* Verify there's no warning for a function that doesn't return.  */
int nowarn_call_noret (void)
{
  fnoreturn ();
}

int warn_call_noret_r (void)
{
  warn_call_noret_r ();             // { dg-warning "-Wanalyzer-infinite-recursion" }
  fnoreturn ();
}

/* -Winfinite-recursion warns for this, but
   -Wanalyzer-infinite-recursion doesn't.  */

int
warn_noret_call_abort_r (char *s, int n)
{
  if (!s)
    abort ();

  if (n > 7)
    abort ();

  return n + warn_noret_call_abort_r (s, n - 1);
}

NORETURN void nowarn_noret_call_abort_r (int n)
{
  if (n > 7)
    abort ();

  nowarn_noret_call_abort_r (n - 1);
}

/* -Winfinite-recursion warns for this, but
   -Wanalyzer-infinite-recursion doesn't.  */

int warn_call_abort_r (int n)
{
  n += warn_call_abort_r (n - 1);
  if (n > 7)   // unreachable
    abort ();
  return n;
}


/* -Winfinite-recursion warns for this, but
   -Wanalyzer-infinite-recursion doesn't.  */

int warn_call_exit_r (int n)
{
  n += warn_call_exit_r (n - 1);
  if (n > 7)
    exit (0);
  return n;
}

struct __jmp_buf_tag { };
typedef struct __jmp_buf_tag jmp_buf[1];

extern jmp_buf jmpbuf;

/* A call to longjmp() breaks infinite recursion.  Verify it suppresses
   the warning.  */

int nowarn_call_longjmp_r (int n)
{
  if (n > 7)
    __builtin_longjmp (jmpbuf, 1);
  return n + nowarn_call_longjmp_r (n - 1);
}

/* -Winfinite-recursion warns for this, but
   -Wanalyzer-infinite-recursion doesn't.  */

int warn_call_longjmp_r (int n)
{
  n += warn_call_longjmp_r (n - 1);
  if (n > 7)
    __builtin_longjmp (jmpbuf, 1);
  return n;
}


struct __sigjmp_buf_tag { };
typedef struct __sigjmp_buf_tag sigjmp_buf[1];

extern sigjmp_buf sigjmpbuf;

/* GCC has no __builtin_siglongjmp().  */
extern void siglongjmp (sigjmp_buf, int);

/* A call to longjmp() breaks infinite recursion.  Verify it suppresses
   the warning.  */

int nowarn_call_siglongjmp_r (int n)
{
  if (n > 7)
    siglongjmp (sigjmpbuf, 1);
  return n + nowarn_call_siglongjmp_r (n - 1);
}

/* -Winfinite-recursion doesn't warn for this unbounded recursion, but
   -Wanalyzer-infinite-recursion does.  */

int nowarn_while_do_call_r (int n)
{
  int z = 0;
  while (n)
    z += nowarn_while_do_call_r (n--); // { dg-warning "-Wanalyzer-infinite-recursion" }
  return z;
}

int warn_do_while_call_r (int n)
{
  int z = 0;
  do
    z += warn_do_while_call_r (n); // { dg-warning "-Wanalyzer-infinite-recursion" }
  while (--n);
  return z;
}