1  unsigned short a[256];
       2  
       3  __attribute__((noinline, noclone)) void
       4  bar (void *x, unsigned short z)
       5  {
       6    unsigned short *y = (unsigned short *) x;
       7    if (y < &a[5] || y > &a[222] || y == &a[124])
       8      __builtin_abort ();
       9    *y += z;
      10  }
      11  
      12  __attribute__((noinline, noclone)) void
      13  foo (void *qx, void *rx, void *sx, int n)
      14  {
      15    unsigned short (*q)[n], (*r)[n], (*s)[n], (*p)[n];
      16    q = (typeof (q)) qx;
      17    r = (typeof (r)) rx;
      18    s = (typeof (s)) sx;
      19    #pragma omp for
      20    for (p = q; p != r; p++)
      21      bar (p, 1);
      22    #pragma omp for
      23    for (p = s; p != r; p--)
      24      bar (p, 2);
      25    #pragma omp for
      26    for (p = q; p != r; p = p + 1)
      27      bar (p, 4);
      28    #pragma omp for
      29    for (p = s; p != r; p = p - 1)
      30      bar (p, 8);
      31    #pragma omp for
      32    for (p = q; p != r; p = 1 + p)
      33      bar (p, 16);
      34    #pragma omp for
      35    for (p = s; p != r; p = -1 + p)
      36      bar (p, 32);
      37    #pragma omp for
      38    for (p = q; p != r; p += 1)
      39      bar (p, 64);
      40    #pragma omp for
      41    for (p = s; p != r; p -= 1)
      42      bar (p, 128);
      43  }
      44  
      45  __attribute__((noinline, noclone)) void
      46  baz (void *qx, void *rx, void *sx, int n)
      47  {
      48    unsigned short (*q)[n], (*r)[n], (*s)[n], (*p)[n];
      49    q = (typeof (q)) qx;
      50    r = (typeof (r)) rx;
      51    s = (typeof (s)) sx;
      52    #pragma omp for
      53    for (p = q; p < r; p++)
      54      bar (p, 256);
      55    #pragma omp for
      56    for (p = s; p > r; p--)
      57      bar (p, 512);
      58    #pragma omp for
      59    for (p = q; p < r; p = p + 1)
      60      bar (p, 1024);
      61    #pragma omp for
      62    for (p = s; p > r; p = p - 1)
      63      bar (p, 2048);
      64    #pragma omp for
      65    for (p = q; p < r; p = 1 + p)
      66      bar (p, 4096);
      67    #pragma omp for
      68    for (p = s; p > r; p = -1 + p)
      69      bar (p, 8192);
      70    #pragma omp for
      71    for (p = q; p < r; p += 1)
      72      bar (p, 16384);
      73    #pragma omp for
      74    for (p = s; p > r; p -= 1)
      75      bar (p, 32768U);
      76  }
      77  
      78  int
      79  main ()
      80  {
      81    int i;
      82    volatile int j = 7;
      83  #pragma omp parallel
      84    {
      85      foo (&a[5 + (j - 7)], &a[124 + (j - 7)], &a[222 + (j - 7)], j);
      86      baz (&a[5 + (j - 7)], &a[124 + (j - 7)], &a[222 + (j - 7)], j);
      87    }
      88    for (i = 0; i < 256; i++)
      89      if (i < 5 || i > 222 || i == 124 || ((i - 5) % 7) != 0)
      90        {
      91  	if (a[i])
      92  	  __builtin_abort ();
      93        }
      94      else if (i < 124 && a[i] != 1 + 4 + 16 + 64 + 256 + 1024 + 4096 + 16384)
      95        __builtin_abort ();
      96      else if (i > 124 && a[i] != 2 + 8 + 32 + 128 + 512 + 2048 + 8192 + 32768U)
      97        __builtin_abort ();
      98    return 0;
      99  }