blob: ac4d4d9e98e6db438dbcea4d19f2d22bda7918e7 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
/* { 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];
|
