1  /* { dg-do compile } */
       2  /* { dg-options "-fopenmp" } */
       3  
       4  extern int a[][10], a2[][10];
       5  int b[10], c[10][2], d[10], e[10], f[10];
       6  int b2[10], c2[10][2], d2[10], e2[10], f2[10];
       7  int k[10], l[10], m[10], n[10], o;
       8  int *p;
       9  void bar (void);
      10  int t[10];
      11  #pragma omp threadprivate (t)
      12  
      13  void
      14  foo (int g[3][10], int h[4][8], int i[2][10], int j[][9],
      15       int g2[3][10], int h2[4][8], int i2[2][10], int j2[][9])
      16  {
      17    #pragma omp task depend(in: bar[2:5]) /* { dg-error "is not a variable" } */
      18      ;
      19    #pragma omp task depend(out: t[2:5])
      20      ;
      21    #pragma omp task depend(inout: k[0.5:]) /* { dg-error "low bound \[^\n\r]* of array section does not have integral type" } */
      22      ;
      23    #pragma omp task depend(in: l[:7.5f]) /* { dg-error "length \[^\n\r]* of array section does not have integral type" } */
      24      ;
      25    #pragma omp task depend(out: m[p:]) /* { dg-error "low bound \[^\n\r]* of array section does not have integral type" } */
      26      ;
      27    #pragma omp task depend(inout: n[:p]) /* { dg-error "length \[^\n\r]* of array section does not have integral type" } */
      28      ;
      29    #pragma omp task depend(in: o[2:5]) /* { dg-error "does not have pointer or array type" } */
      30      ;
      31    #pragma omp task depend(out: a[:][2:4]) /* { dg-error "array type length expression must be specified" } */
      32      ;
      33    #pragma omp task depend(inout: b[-1:]) /* { dg-error "negative low bound in array section" } */
      34      ;
      35    #pragma omp task depend(inout: c[:-3][1:1]) /* { dg-error "negative length in array section" } */
      36      ;
      37    #pragma omp task depend(in: d[11:]) /* { dg-error "low bound \[^\n\r]* above array section size" } */
      38      ;
      39    #pragma omp task depend(out: e[:11]) /* { dg-error "length \[^\n\r]* above array section size" } */
      40      ;
      41    #pragma omp task depend(out: f[1:10]) /* { dg-error "high bound \[^\n\r]* above array section size" } */
      42      ;
      43    #pragma omp task depend(in: g[:][2:4]) /* { dg-error "for array function parameter length expression must be specified" } */
      44      ;
      45    #pragma omp task depend(in: h[2:2][-1:]) /* { dg-error "negative low bound in array section" } */
      46      ;
      47    #pragma omp task depend(inout: h[:1][:-3]) /* { dg-error "negative length in array section" } */
      48      ;
      49    #pragma omp task depend(out: i[:1][11:]) /* { dg-error "low bound \[^\n\r]* above array section size" } */
      50      ;
      51    #pragma omp task depend(in: j[3:4][:10]) /* { dg-error "length \[^\n\r]* above array section size" } */
      52      ;
      53    #pragma omp task depend(out: j[30:10][5:5]) /* { dg-error "high bound \[^\n\r]* above array section size" } */
      54      ;
      55    #pragma omp task depend(out: a2[:3][2:4])
      56      ;
      57    #pragma omp task depend(inout: b2[0:])
      58      ;
      59    #pragma omp task depend(inout: c2[:3][1:1])
      60      ;
      61    #pragma omp task depend(in: d2[9:])
      62      ;
      63    #pragma omp task depend(out: e2[:10])
      64      ;
      65    #pragma omp task depend(out: f2[1:9])
      66      ;
      67    #pragma omp task depend(in: g2[:2][2:4])
      68      ;
      69    #pragma omp task depend(in: h2[2:2][0:])
      70      ;
      71    #pragma omp task depend(inout: h2[:1][:3])
      72      ;
      73    #pragma omp task depend(out: i2[:1][9:])
      74      ;
      75    #pragma omp task depend(in: j2[3:4][:9])
      76      ;
      77    #pragma omp task depend(out: j2[30:10][5:4])
      78      ;
      79  }