39 lines
808 B
C
39 lines
808 B
C
/* Test 'nohost' clause via 'weak'.
|
|
|
|
{ dg-require-effective-target weak_undefined }
|
|
|
|
When the OpenACC 'routine' with 'nohost' clauses gets discarded, the weak symbol then resolves to 'NULL'.
|
|
*/
|
|
|
|
/* { dg-additional-sources routine-nohost-2_2.c } */
|
|
|
|
/* { dg-additional-options "-fno-inline" } for stable results regarding OpenACC 'routine'. */
|
|
|
|
#include <assert.h>
|
|
#include <openacc.h>
|
|
|
|
#pragma acc routine //nohost
|
|
__attribute__((weak))
|
|
extern int f1(int);
|
|
|
|
int main()
|
|
{
|
|
int x = -10;
|
|
|
|
#pragma acc serial copy(x)
|
|
/* { dg-warning {using .vector_length \(32\)., ignoring 1} "" { target openacc_nvidia_accel_selected } .-1 } */
|
|
{
|
|
if (f1)
|
|
x = f1(x);
|
|
else
|
|
x = 0;
|
|
|
|
}
|
|
|
|
if (acc_get_device_type() == acc_device_host)
|
|
assert(x == 0);
|
|
else
|
|
assert(x == -20);
|
|
|
|
return 0;
|
|
}
|