#define N 200
#define DIST 32

typedef signed char sc;
typedef unsigned char uc;
typedef signed short ss;
typedef unsigned short us;
typedef int si;
typedef unsigned int ui;
typedef signed long long sll;
typedef unsigned long long ull;

#define FOR_EACH_TYPE(M) \
  M (sc) M (uc) \
  M (ss) M (us) \
  M (si) M (ui) \
  M (sll) M (ull) \
  M (float) M (double)

#define ADD_TEST(TYPE)				\
  void __attribute__((noinline, noclone))	\
  test_##TYPE (TYPE *x, TYPE *y)		\
  {						\
    for (int i = 0; i < N; ++i)			\
      {						\
	x[i] = i;				\
	y[i] = 42 - i * 2;			\
      }						\
  }

#define DO_TEST(TYPE)						\
  for (int i = 0; i < DIST * 2; ++i)				\
    {								\
      TYPE a[N + DIST * 2] = {};				\
      test_##TYPE (a + DIST, a + i);				\
      for (int j = 0; j < N + DIST * 2; ++j)			\
	{							\
	  TYPE expected = 0;					\
	  if (i > DIST && j >= i && j < i + N)			\
	    expected = 42 - (j - i) * 2;			\
	  if (j >= DIST && j < DIST + N)			\
	    expected = j - DIST;				\
	  if (i <= DIST && j >= i && j < i + N)			\
	    expected = 42 - (j - i) * 2;			\
	  if (expected != a[j])					\
	    __builtin_abort ();					\
	}							\
    }

FOR_EACH_TYPE (ADD_TEST)

int
main (void)
{
  FOR_EACH_TYPE (DO_TEST)
  return 0;
}

/* { dg-final { scan-tree-dump {flags: *WAW\n} "vect" { target vect_int } } } */
/* { dg-final { scan-tree-dump "using an address-based WAR/WAW test" "vect" { target { ! vect_check_ptrs } } } } */
/* { dg-final { scan-tree-dump "using an IFN_CHECK_WAR_PTRS test" "vect" { target vect_check_ptrs } } } */
/* { dg-final { scan-tree-dump-not "using an index-based" "vect" } } */