(root)/
gcc-13.2.0/
libgomp/
testsuite/
libgomp.oacc-c-c++-common/
pr84217.c
       1  extern
       2  #ifdef __cplusplus
       3  "C"
       4  #endif
       5  void abort (void);
       6  
       7  #define N 10
       8  
       9  int
      10  main (void)
      11  {
      12    int a[N];
      13  
      14    for (short i = 0; i < N; ++i)
      15      a[i] = -1;
      16  
      17  #pragma acc parallel loop tile (2)
      18    for (short i = 0; i < N; ++i)
      19      a[i] = i;
      20  
      21    for (short i = 0; i < N; ++i)
      22      if (a[i] != i)
      23        abort ();
      24  
      25    return 0;
      26  }