dc703151d4
This attempts to implement what the OpenMP 5.0 spec in declare target section says as ammended by the 5.1 changes so far (related to device_type(host)), except that it doesn't have the device(ancestor: ...) handling yet because we do not support it yet, and I've left so far out the except lambda note, because I need that clarified. 2020-05-12 Jakub Jelinek <jakub@redhat.com> * omp-offload.h (omp_discover_implicit_declare_target): Declare. * omp-offload.c: Include context.h. (omp_declare_target_fn_p, omp_declare_target_var_p, omp_discover_declare_target_fn_r, omp_discover_declare_target_var_r, omp_discover_implicit_declare_target): New functions. * cgraphunit.c (analyze_functions): Call omp_discover_implicit_declare_target. * testsuite/libgomp.c/target-39.c: New test.
48 lines
838 B
C
48 lines
838 B
C
/* { dg-do run } */
|
|
/* { dg-options "-O0" } */
|
|
|
|
extern void abort (void);
|
|
volatile int v;
|
|
#pragma omp declare target to (v)
|
|
typedef void (*fnp1) (void);
|
|
typedef fnp1 (*fnp2) (void);
|
|
void f1 (void) { v++; }
|
|
void f2 (void) { v += 4; }
|
|
void f3 (void) { v += 16; f1 (); }
|
|
fnp1 f4 (void) { v += 64; return f2; }
|
|
int a = 1;
|
|
int *b = &a;
|
|
int **c = &b;
|
|
fnp2 f5 (void) { f3 (); return f4; }
|
|
#pragma omp declare target to (c, f5)
|
|
|
|
int
|
|
main ()
|
|
{
|
|
int err = 0;
|
|
#pragma omp target map(from:err)
|
|
{
|
|
volatile int xa;
|
|
int *volatile xb;
|
|
int **volatile xc;
|
|
fnp2 xd;
|
|
fnp1 xe;
|
|
err = 0;
|
|
xa = a;
|
|
err |= xa != 1;
|
|
xb = b;
|
|
err |= xb != &a;
|
|
xc = c;
|
|
err |= xc != &b;
|
|
xd = f5 ();
|
|
err |= v != 17;
|
|
xe = xd ();
|
|
err |= v != 81;
|
|
xe ();
|
|
err |= v != 85;
|
|
}
|
|
if (err)
|
|
abort ();
|
|
return 0;
|
|
}
|