1  /* { dg-do run } */
       2  /* { dg-options "-O2 -fopenmp-simd" } */
       3  /* { dg-additional-options "-msse2" { target sse2_runtime } } */
       4  /* { dg-additional-options "-mavx" { target avx_runtime } } */
       5  
       6  #define N 1024
       7  extern
       8  #ifdef __cplusplus
       9  "C"
      10  #endif
      11  void abort (void);
      12  
      13  int last;
      14  
      15  void
      16  bar (unsigned char *a, int i, int safelen)
      17  {
      18    int j, k;
      19    if (i != last++)
      20      abort ();
      21    for (j = i - safelen - 32; j < i; j++)
      22      if (j >= 0 && a[j] != 2)
      23        break;
      24    if (j <= i - safelen || a[j] != 1)
      25      abort ();
      26    for (k = j; k < i + safelen + 32; k++)
      27      if (k >= N || a[k] != 1)
      28        break;
      29    if (k <= i || k > j + safelen)
      30      abort ();
      31    if (k < N && a[k] != 0)
      32      abort ();
      33    for (; k < i + safelen + 32; k++)
      34      if (k < N && a[k] != 0)
      35        abort ();
      36  }
      37  
      38  static inline void
      39  foo (unsigned char *a, int i)
      40  {
      41    #pragma omp ordered simd
      42    bar (a, i, 64);
      43  }
      44  
      45  int
      46  main ()
      47  {
      48    unsigned char a[N], b[N];
      49    int i;
      50    #pragma omp simd
      51    for (i = 0; i < N; i++)
      52      a[i] = 0;
      53    #pragma omp simd safelen (64)
      54    for (i = 0; i < N; i++)
      55      {
      56        a[i]++;
      57        foo (a, i);
      58        a[i]++;
      59      }
      60    #pragma omp simd
      61    for (i = 0; i < N; i++)
      62      {
      63        a[i] = 0;
      64        b[i] = 0;
      65      }
      66    last = 0;
      67    #pragma omp simd safelen (32)
      68    for (i = 0; i < N; i++)
      69      {
      70        a[i]++;
      71        #pragma omp ordered simd
      72        bar (a, i, 32);
      73        a[i]++;
      74      }
      75    for (i = 0; i < N; i++)
      76      if (a[i] != 2)
      77        abort ();
      78    #pragma omp simd safelen (32)
      79    for (i = 1; i < N; i++)
      80      {
      81        #pragma omp ordered simd
      82        b[i] = b[i - 1] + 1;
      83        a[i]++;
      84        #pragma omp ordered simd
      85        a[i] += a[i - 1];
      86      }
      87    for (i = 0; i < N; i++)
      88      if (a[i] != (unsigned char) (2 + 3 * i) || b[i] != (unsigned char) i)
      89        abort ();
      90    return 0;
      91  }