Projet_SETI_RISC-V/riscv-gnu-toolchain/gcc/libgomp/testsuite/libgomp.c/loop-27.c

/* { dg-do run } */

extern void abort (void);

int x;
short *i, *j;
int ii, jj;
short *volatile a;
short *volatile b;
volatile int c, e, f, g;
short *volatile d;
int k[11][20];
short v[84];

int
main ()
{
  int niters;
  for (ii = 1; ii <= 10; ii++)
    for (jj = 1; jj <= ii + 5; jj++)
      k[ii][jj] = 1;
  a = &v[42 + 1]; b = &v[42 + 11]; c = 1; d = &v[42 + 1]; e = 6; f = 1;
  niters = 0; i = &v[0]; j = &v[0]; x = -100;
  #pragma omp parallel for collapse(2) lastprivate (i, j, x) reduction(+:niters)
  for (i = &v[42 + 1]; i <= &v[42 + 10]; i++)
    for (j = &v[42 + 1]; j <= i + 5; j++)
      {
	if (i < &v[42 + 1] || i > &v[42 + 10] || j < &v[42 + 1] || j > i + 5 || k[i - &v[42]][j - &v[42]] != 1)
	  abort ();
	k[i - &v[42]][j - &v[42]]++;
	x = (i - &v[42]) * 1024 + ((j - &v[42]) & 1023);
	niters++;
      }
  if (i != &v[42 + 11] || j != &v[42 + 16] || x != 10255 || niters != 105)
    abort ();
  niters = 0; i = &v[0]; j = &v[0]; x = -100;
  #pragma omp parallel for collapse(2) lastprivate (i, j, x) reduction(+:niters)
  for (i = a; i < b; i += c)
    for (j = d; j < e + i; j += f)
      {
	if (i < &v[42 + 1] || i > &v[42 + 10] || j < &v[42 + 1] || j > i + 5 || k[i - &v[42]][j - &v[42]] != 2)
	  abort ();
	k[i - &v[42]][j - &v[42]]++;
	x = (i - &v[42]) * 1024 + ((j - &v[42]) & 1023);
	niters++;
      }
  if (i != &v[42 + 11] || j != &v[42 + 16] || x != 10255 || niters != 105)
    abort ();
  for (ii = 1; ii <= 10; ii++)
    for (jj = 1; jj <= ii + 5; jj++)
      if (k[ii][jj] == 3)
	k[ii][jj] = 0;
      else
	abort ();
  for (ii = 0; ii < 11; ii++)
    for (jj = 0; jj < 20; jj++)
      if (k[ii][jj] != 0)
	abort ();
  for (ii = 0; ii < 10; ii++)
    for (jj = 0; jj < ii; jj++)
      k[ii][jj] = 1;
  a = &v[42]; b = &v[42 + 10]; c = 1; d = &v[42]; e = 0; f = 1;
  niters = 0; i = &v[0]; j = &v[0]; x = -100;
  #pragma omp parallel for collapse(2) lastprivate (i, j, x) reduction(+:niters)
  for (i = &v[42]; i < &v[42 + 10]; i++)
    for (j = &v[42]; j < i; j++)
      {
	if (i < &v[42] || i >= &v[42 + 10] || j < &v[42] || j >= i || k[i - &v[42]][j - &v[42]] != 1)
	  abort ();
	k[i - &v[42]][j - &v[42]]++;
	x = (i - &v[42]) * 1024 + ((j - &v[42]) & 1023);
	niters++;
      }
  if (i != &v[42 + 10] || j != &v[42 + 9] || x != 9224 || niters != 45)
    abort ();
  niters = 0; i = &v[0]; j = &v[0]; x = -100;
  #pragma omp parallel for collapse(2) lastprivate (i, j, x) reduction(+:niters)
  for (i = a; i < b; i += c)
    for (j = d; j < i - e; j += f)
      {
	if (i < &v[42] || i >= &v[42 + 10] || j < &v[42] || j >= i || k[i - &v[42]][j - &v[42]] != 2)
	  abort ();
	k[i - &v[42]][j - &v[42]]++;
	x = (i - &v[42]) * 1024 + ((j - &v[42]) & 1023);
	niters++;
      }
  if (i != &v[42 + 10] || j != &v[42 + 9] || x != 9224 || niters != 45)
    abort ();
  for (ii = 0; ii < 10; ii++)
    for (jj = 0; jj < ii; jj++)
      if (k[ii][jj] == 3)
	k[ii][jj] = 0;
      else
	abort ();
  for (ii = 0; ii < 11; ii++)
    for (jj = 0; jj < 20; jj++)
      if (k[ii][jj] != 0)
	abort ();
  for (ii = 0; ii < 10; ii++)
    for (jj = ii + 1; jj < ii + 4; jj++)
      k[ii][jj] = 1;
  a = &v[42]; b = &v[42 + 10]; c = 1; e = 1; f = 1; g = -4;
  niters = 0; i = &v[0]; j = &v[0]; x = -100;
  #pragma omp parallel for collapse(2) lastprivate (i, j, x) reduction(+:niters)
  for (i = &v[42]; i < &v[42 + 10]; i++)
    for (j = i + 1; j < i + 4; j++)
      {
	if (i < &v[42] || i >= &v[42 + 10] || j < i + 1 || j >= i + 4 || k[i - &v[42]][j - &v[42]] != 1)
	  abort ();
	k[i - &v[42]][j - &v[42]]++;
	x = (i - &v[42]) * 1024 + ((j - &v[42]) & 1023);
	niters++;
      }
  if (i != &v[42 + 10] || j != &v[42 + 13] || x != 9228 || niters != 30)
    abort ();
  niters = 0; i = &v[0]; j = &v[0]; x = -100;
  #pragma omp parallel for collapse(2) lastprivate (i, j, x) reduction(+:niters)
  for (i = a; i < b; i += c)
    for (j = i + e; j < i - g; j += f)
      {
	if (i < &v[42] || i >= &v[42 + 10] || j < i + 1 || j >= i + 4 || k[i - &v[42]][j - &v[42]] != 2)
	  abort ();
	k[i - &v[42]][j - &v[42]]++;
	x = (i - &v[42]) * 1024 + ((j - &v[42]) & 1023);
	niters++;
      }
  if (i != &v[42 + 10] || j != &v[42 + 13] || x != 9228 || niters != 30)
    abort ();
  for (ii = 0; ii < 10; ii++)
    for (jj = ii + 1; jj < ii + 4; jj++)
      if (k[ii][jj] == 3)
	k[ii][jj] = 0;
      else
	abort ();
  for (ii = 0; ii < 11; ii++)
    for (jj = 0; jj < 20; jj++)
      if (k[ii][jj] != 0)
	abort ();
  for (ii = 1; ii < 10; ii += 2)
    for (jj = 1; jj < ii + 1; jj++)
      k[ii][jj] = 1;
  a = &v[42 + 1]; b = &v[42 + 10]; c = 2; d = &v[42 + 1]; e = 1; f = 1;
  niters = 0; i = &v[0]; j = &v[0]; x = -100;
  #pragma omp parallel for collapse(2) lastprivate (i, j, x) reduction(+:niters)
  for (i = &v[42 + 1]; i < &v[42 + 10]; i += 2)
    for (j = &v[42 + 1]; j < i + 1; j++)
      {
	if (i < &v[42 + 1] || i >= &v[42 + 10] || j < &v[42 + 1] || j >= i + 1 || k[i - &v[42]][j - &v[42]] != 1)
	  abort ();
	k[i - &v[42]][j - &v[42]]++;
	x = (i - &v[42]) * 1024 + ((j - &v[42]) & 1023);
	niters++;
      }
  if (i != &v[42 + 11] || j != &v[42 + 10] || x != 9225 || niters != 25)
    abort ();
  niters = 0; i = &v[0]; j = &v[0]; x = -100;
  #pragma omp parallel for collapse(2) lastprivate (i, j, x) reduction(+:niters)
  for (i = a; i < b; i += c)
    for (j = d; j < i + e; j += f)
      {
	if (i < &v[42 + 1] || i >= &v[42 + 10] || j < &v[42 + 1] || j >= i + 1 || k[i - &v[42]][j - &v[42]] != 2)
	  abort ();
	k[i - &v[42]][j - &v[42]]++;
	x = (i - &v[42]) * 1024 + ((j - &v[42]) & 1023);
	niters++;
      }
  if (i != &v[42 + 11] || j != &v[42 + 10] || x != 9225 || niters != 25)
    abort ();
  for (ii = 1; ii < 10; ii += 2)
    for (jj = 1; jj < ii + 1; jj++)
      if (k[ii][jj] == 3)
	k[ii][jj] = 0;
      else
	abort ();
  for (ii = 0; ii < 11; ii++)
    for (jj = 0; jj < 20; jj++)
      if (k[ii][jj] != 0)
	abort ();
  return 0;
}