libgomp/testsuite/libgomp.c/loop-27.c

   1 /* { dg-do run } */
   2
   3 extern void abort (void);
   4
   5 int x;
   6 short *i, *j;
   7 int ii, jj;
   8 short *volatile a;
   9 short *volatile b;
  10 volatile int c, e, f, g;
  11 short *volatile d;
  12 int k[11][20];
  13 short v[84];
  14
  15 int
  16 main ()
  17 {
  18   int niters;
  19   for (ii = 1; ii <= 10; ii++)
  20     for (jj = 1; jj <= ii + 5; jj++)
  21       k[ii][jj] = 1;
  22   a = &v[42 + 1]; b = &v[42 + 11]; c = 1; d = &v[42 + 1]; e = 6; f = 1;
  23   niters = 0; i = &v[0]; j = &v[0]; x = -100;
  24   #pragma omp parallel for collapse(2) lastprivate (i, j, x) reduction(+:niters)
  25   for (i = &v[42 + 1]; i <= &v[42 + 10]; i++)
  26     for (j = &v[42 + 1]; j <= i + 5; j++)
  27       {
  28         if (i < &v[42 + 1] || i > &v[42 + 10] || j < &v[42 + 1] || j > i + 5 || k[i - &v[42]][j - &v[42]] != 1)
  29           abort ();
  30         k[i - &v[42]][j - &v[42]]++;
  31         x = (i - &v[42]) * 1024 + ((j - &v[42]) & 1023);
  32         niters++;
  33       }
  34   if (i != &v[42 + 11] || j != &v[42 + 16] || x != 10255 || niters != 105)
  35     abort ();
  36   niters = 0; i = &v[0]; j = &v[0]; x = -100;
  37   #pragma omp parallel for collapse(2) lastprivate (i, j, x) reduction(+:niters)
  38   for (i = a; i < b; i += c)
  39     for (j = d; j < e + i; j += f)
  40       {
  41         if (i < &v[42 + 1] || i > &v[42 + 10] || j < &v[42 + 1] || j > i + 5 || k[i - &v[42]][j - &v[42]] != 2)
  42           abort ();
  43         k[i - &v[42]][j - &v[42]]++;
  44         x = (i - &v[42]) * 1024 + ((j - &v[42]) & 1023);
  45         niters++;
  46       }
  47   if (i != &v[42 + 11] || j != &v[42 + 16] || x != 10255 || niters != 105)
  48     abort ();
  49   for (ii = 1; ii <= 10; ii++)
  50     for (jj = 1; jj <= ii + 5; jj++)
  51       if (k[ii][jj] == 3)
  52         k[ii][jj] = 0;
  53       else
  54         abort ();
  55   for (ii = 0; ii < 11; ii++)
  56     for (jj = 0; jj < 20; jj++)
  57       if (k[ii][jj] != 0)
  58         abort ();
  59   for (ii = 0; ii < 10; ii++)
  60     for (jj = 0; jj < ii; jj++)
  61       k[ii][jj] = 1;
  62   a = &v[42]; b = &v[42 + 10]; c = 1; d = &v[42]; e = 0; f = 1;
  63   niters = 0; i = &v[0]; j = &v[0]; x = -100;
  64   #pragma omp parallel for collapse(2) lastprivate (i, j, x) reduction(+:niters)
  65   for (i = &v[42]; i < &v[42 + 10]; i++)
  66     for (j = &v[42]; j < i; j++)
  67       {
  68         if (i < &v[42] || i >= &v[42 + 10] || j < &v[42] || j >= i || k[i - &v[42]][j - &v[42]] != 1)
  69           abort ();
  70         k[i - &v[42]][j - &v[42]]++;
  71         x = (i - &v[42]) * 1024 + ((j - &v[42]) & 1023);
  72         niters++;
  73       }
  74   if (i != &v[42 + 10] || j != &v[42 + 9] || x != 9224 || niters != 45)
  75     abort ();
  76   niters = 0; i = &v[0]; j = &v[0]; x = -100;
  77   #pragma omp parallel for collapse(2) lastprivate (i, j, x) reduction(+:niters)
  78   for (i = a; i < b; i += c)
  79     for (j = d; j < i - e; j += f)
  80       {
  81         if (i < &v[42] || i >= &v[42 + 10] || j < &v[42] || j >= i || k[i - &v[42]][j - &v[42]] != 2)
  82           abort ();
  83         k[i - &v[42]][j - &v[42]]++;
  84         x = (i - &v[42]) * 1024 + ((j - &v[42]) & 1023);
  85         niters++;
  86       }
  87   if (i != &v[42 + 10] || j != &v[42 + 9] || x != 9224 || niters != 45)
  88     abort ();
  89   for (ii = 0; ii < 10; ii++)
  90     for (jj = 0; jj < ii; jj++)
  91       if (k[ii][jj] == 3)
  92         k[ii][jj] = 0;
  93       else
  94         abort ();
  95   for (ii = 0; ii < 11; ii++)
  96     for (jj = 0; jj < 20; jj++)
  97       if (k[ii][jj] != 0)
  98         abort ();
  99   for (ii = 0; ii < 10; ii++)
 100     for (jj = ii + 1; jj < ii + 4; jj++)
 101       k[ii][jj] = 1;
 102   a = &v[42]; b = &v[42 + 10]; c = 1; e = 1; f = 1; g = -4;
 103   niters = 0; i = &v[0]; j = &v[0]; x = -100;
 104   #pragma omp parallel for collapse(2) lastprivate (i, j, x) reduction(+:niters)
 105   for (i = &v[42]; i < &v[42 + 10]; i++)
 106     for (j = i + 1; j < i + 4; j++)
 107       {
 108         if (i < &v[42] || i >= &v[42 + 10] || j < i + 1 || j >= i + 4 || k[i - &v[42]][j - &v[42]] != 1)
 109           abort ();
 110         k[i - &v[42]][j - &v[42]]++;
 111         x = (i - &v[42]) * 1024 + ((j - &v[42]) & 1023);
 112         niters++;
 113       }
 114   if (i != &v[42 + 10] || j != &v[42 + 13] || x != 9228 || niters != 30)
 115     abort ();
 116   niters = 0; i = &v[0]; j = &v[0]; x = -100;
 117   #pragma omp parallel for collapse(2) lastprivate (i, j, x) reduction(+:niters)
 118   for (i = a; i < b; i += c)
 119     for (j = i + e; j < i - g; j += f)
 120       {
 121         if (i < &v[42] || i >= &v[42 + 10] || j < i + 1 || j >= i + 4 || k[i - &v[42]][j - &v[42]] != 2)
 122           abort ();
 123         k[i - &v[42]][j - &v[42]]++;
 124         x = (i - &v[42]) * 1024 + ((j - &v[42]) & 1023);
 125         niters++;
 126       }
 127   if (i != &v[42 + 10] || j != &v[42 + 13] || x != 9228 || niters != 30)
 128     abort ();
 129   for (ii = 0; ii < 10; ii++)
 130     for (jj = ii + 1; jj < ii + 4; jj++)
 131       if (k[ii][jj] == 3)
 132         k[ii][jj] = 0;
 133       else
 134         abort ();
 135   for (ii = 0; ii < 11; ii++)
 136     for (jj = 0; jj < 20; jj++)
 137       if (k[ii][jj] != 0)
 138         abort ();
 139   for (ii = 1; ii < 10; ii += 2)
 140     for (jj = 1; jj < ii + 1; jj++)
 141       k[ii][jj] = 1;
 142   a = &v[42 + 1]; b = &v[42 + 10]; c = 2; d = &v[42 + 1]; e = 1; f = 1;
 143   niters = 0; i = &v[0]; j = &v[0]; x = -100;
 144   #pragma omp parallel for collapse(2) lastprivate (i, j, x) reduction(+:niters)
 145   for (i = &v[42 + 1]; i < &v[42 + 10]; i += 2)
 146     for (j = &v[42 + 1]; j < i + 1; j++)
 147       {
 148         if (i < &v[42 + 1] || i >= &v[42 + 10] || j < &v[42 + 1] || j >= i + 1 || k[i - &v[42]][j - &v[42]] != 1)
 149           abort ();
 150         k[i - &v[42]][j - &v[42]]++;
 151         x = (i - &v[42]) * 1024 + ((j - &v[42]) & 1023);
 152         niters++;
 153       }
 154   if (i != &v[42 + 11] || j != &v[42 + 10] || x != 9225 || niters != 25)
 155     abort ();
 156   niters = 0; i = &v[0]; j = &v[0]; x = -100;
 157   #pragma omp parallel for collapse(2) lastprivate (i, j, x) reduction(+:niters)
 158   for (i = a; i < b; i += c)
 159     for (j = d; j < i + e; j += f)
 160       {
 161         if (i < &v[42 + 1] || i >= &v[42 + 10] || j < &v[42 + 1] || j >= i + 1 || k[i - &v[42]][j - &v[42]] != 2)
 162           abort ();
 163         k[i - &v[42]][j - &v[42]]++;
 164         x = (i - &v[42]) * 1024 + ((j - &v[42]) & 1023);
 165         niters++;
 166       }
 167   if (i != &v[42 + 11] || j != &v[42 + 10] || x != 9225 || niters != 25)
 168     abort ();
 169   for (ii = 1; ii < 10; ii += 2)
 170     for (jj = 1; jj < ii + 1; jj++)
 171       if (k[ii][jj] == 3)
 172         k[ii][jj] = 0;
 173       else
 174         abort ();
 175   for (ii = 0; ii < 11; ii++)
 176     for (jj = 0; jj < 20; jj++)
 177       if (k[ii][jj] != 0)
 178         abort ();
 179   return 0;
 180 }