gcc/testsuite/g++.dg/goacc/data-clause-1.C

   1 /* Test data clause diagnostics.  */
   2
   3 /* See also corresponding OpenACC C/C++ variant: '../../c-c++-common/goacc/data-clause-1.c'.  */
   4
   5 /* See also corresponding OpenACC 'cache' directive variant: 'cache-3-1.C'.  */
   6
   7 /* See also corresponding OpenMP variant: '../gomp/map-1.C'.  */
   8
   9 /* { dg-additional-options "-fopenmp" } for '#pragma omp threadprivate'.  */
  10
  11 extern int a[][10], a2[][10];
  12 int b[10], c[10][2], d[10], e[10], f[10];
  13 int b2[10], c2[10][2], d2[10], e2[10], f2[10];
  14 int k[10], l[10], m[10], n[10], o;
  15 int *p;
  16 int **q;
  17 int r[4][4][4][4][4];
  18 extern struct s s1;
  19 extern struct s s2[1]; /* { dg-error "array type has incomplete element type" "" { target c } } */
  20 int t[10];
  21 #pragma omp threadprivate (t)
  22 #pragma acc routine
  23 void bar (int *);
  24
  25 template <int N>
  26 void
  27 foo (int g[3][10], int h[4][8], int i[2][10], int j[][9],
  28      int g2[3][10], int h2[4][8], int i2[2][10], int j2[][9])
  29 {
  30   #pragma acc parallel copyin(bar[2:5]) /* { dg-error "is not a variable" } */
  31     ;
  32   #pragma acc parallel copyout(t[2:5]) /* { dg-error "is threadprivate variable" } */
  33     ;
  34   #pragma acc parallel copy(k[0.5:]) /* { dg-error "low bound \[^\n\r]* of array section does not have integral type" } */
  35     ;
  36   #pragma acc parallel copyout(l[:7.5f]) /* { dg-error "length \[^\n\r]* of array section does not have integral type" } */
  37     ;
  38   #pragma acc parallel copyin(m[p:]) /* { dg-error "low bound \[^\n\r]* of array section does not have integral type" } */
  39     ;
  40   #pragma acc parallel copy(n[:p]) /* { dg-error "length \[^\n\r]* of array section does not have integral type" } */
  41     ;
  42   #pragma acc parallel copyin(o[2:5]) /* { dg-error "does not have pointer or array type" } */
  43     ;
  44   #pragma acc parallel create(s1) /* { dg-error "'s1' does not have a mappable type in 'map' clause" } */
  45     ;
  46   #pragma acc parallel create(s2) /* { dg-error "'s2' does not have a mappable type in 'map' clause" } */
  47     ;
  48   #pragma acc parallel copyin(a[:][:]) /* { dg-error "array type length expression must be specified" } */
  49     bar (&a[0][0]); /* { dg-error "referenced in target region does not have a mappable type" "PR97996" { xfail *-*-* } } */
  50   #pragma acc parallel copy(b[-1:]) /* { dg-error "negative low bound in array section" } */
  51     bar (b);
  52   #pragma acc parallel copy(c[:-3][:]) /* { dg-error "negative length in array section" } */
  53     bar (&c[0][0]);
  54   #pragma acc parallel copyout(d[11:]) /* { dg-error "low bound \[^\n\r]* above array section size" } */
  55     bar (d);
  56   #pragma acc parallel copyin(e[:11]) /* { dg-error "length \[^\n\r]* above array section size" } */
  57     bar (e);
  58   #pragma acc parallel copyin(f[1:10]) /* { dg-error "high bound \[^\n\r]* above array section size" } */
  59     bar (f);
  60   #pragma acc parallel copyout(g[:][0:10]) /* { dg-error "for array function parameter length expression must be specified" } */
  61     bar (&g[0][0]);
  62   #pragma acc parallel copyout(h[2:1][-1:]) /* { dg-error "negative low bound in array section" } */
  63     bar (&h[0][0]);
  64   #pragma acc parallel copy(h[:1][:-3]) /* { dg-error "negative length in array section" } */
  65     bar (&h[0][0]);
  66   #pragma acc parallel copy(i[:1][11:]) /* { dg-error "low bound \[^\n\r]* above array section size" } */
  67     bar (&i[0][0]);
  68   #pragma acc parallel copyout(j[3:1][:10]) /* { dg-error "length \[^\n\r]* above array section size" } */
  69     bar (&j[0][0]);
  70   #pragma acc parallel copyin(j[30:1][5:5]) /* { dg-error "high bound \[^\n\r]* above array section size" } */
  71     bar (&j[0][0]);
  72   #pragma acc parallel copyin(a2[:1][2:4])
  73     bar (&a2[0][0]);
  74   #pragma acc parallel copy(a2[3:5][:])
  75     bar (&a2[0][0]);
  76   #pragma acc parallel copyin(a2[3:5][:10])
  77     bar (&a2[0][0]);
  78   #pragma acc parallel copy(b2[0:])
  79     bar (b2);
  80   #pragma acc parallel copy(c2[:3][:])
  81     bar (&c2[0][0]);
  82   #pragma acc parallel copyout(d2[9:])
  83     bar (d2);
  84   #pragma acc parallel copyin(e2[:10])
  85     bar (e2);
  86   #pragma acc parallel copyin(f2[1:9])
  87     bar (f2);
  88   #pragma acc parallel copy(g2[:1][2:4])
  89     bar (&g2[0][0]);
  90   #pragma acc parallel copyout(h2[2:2][0:])
  91     bar (&h2[0][0]);
  92   #pragma acc parallel copy(h2[:1][:3])
  93     bar (&h2[0][0]);
  94   #pragma acc parallel copyin(i2[:1][9:])
  95     bar (&i2[0][0]);
  96   #pragma acc parallel copyout(j2[3:4][:9])
  97     bar (&j2[0][0]);
  98   #pragma acc parallel copyin(j2[30:1][5:4])
  99     bar (&j2[0][0]);
 100   #pragma acc parallel copy(q[1:2])
 101     ;
 102   #pragma acc parallel copy(q[3:5][:10]) /* { dg-error "array section is not contiguous" } */
 103     ;
 104   #pragma acc parallel copy(r[3:][2:1][1:2])
 105     ;
 106   #pragma acc parallel copy(r[3:][2:1][1:2][:][0:4])
 107     ;
 108   #pragma acc parallel copy(r[3:][2:1][1:2][1:][0:4]) /* { dg-error "array section is not contiguous" } */
 109     ;
 110   #pragma acc parallel copy(r[3:][2:1][1:2][:3][0:4]) /* { dg-error "array section is not contiguous" } */
 111     ;
 112   #pragma acc parallel copy(r[3:][2:1][1:2][:][1:]) /* { dg-error "array section is not contiguous" } */
 113     ;
 114   #pragma acc parallel copy(r[3:][2:1][1:2][:][:3]) /* { dg-error "array section is not contiguous" } */
 115     ;
 116 }
 117
 118 static void
 119 instantiate ()
 120 {
 121   &foo<0>;
 122 }