/* { dg-do compile } */ /* { dg-options "-fopenmp" } */ #pragma omp begin declare target int a[] = { 1, 2, 3 }; extern int b[]; /* { dg-error "'b' in declare target directive does not have mappable type" } */ extern int c[]; /* { dg-error "'c' in declare target directive does not have mappable type" } */ extern int d[]; /* { dg-error "'d' in declare target directive does not have mappable type" } */ int d[3]; #pragma omp end declare target int c[3]; #pragma omp begin declare target device_type (host) int e[] = { 1, 2, 3 }; extern int f[]; /* { dg-error "'f' in declare target directive does not have mappable type" } */ extern int g[]; /* { dg-error "'g' in declare target directive does not have mappable type" } */ extern int h[]; /* { dg-error "'h' in declare target directive does not have mappable type" } */ int h[3]; #pragma omp end declare target int g[3];