Retro68/gcc/libgomp/testsuite/libgomp.hsa.c/pr82416.c
2018-12-28 16:30:48 +01:00

44 lines
634 B
C

char __attribute__ ((noipa))
toup (char X)
{
if (X >= 97 && X <= 122)
return X - 32;
else
return X;
}
char
target_toup_1 (char X)
{
char r;
#pragma omp target map(to:X) map(from:r)
{
if (X >= 97 && X <= 122)
r = X - 32;
else
r = X;
}
return r;
}
char __attribute__ ((noipa))
target_toup (char X)
{
return target_toup_1 (X);
}
int main (int argc, char **argv)
{
char a = 'a';
if (toup (a) != target_toup (a))
__builtin_abort ();
a = 'Z';
if (toup (a) != target_toup (a))
__builtin_abort ();
a = 5;
if (toup (a) != target_toup (a))
__builtin_abort ();
return 0;
}