libgomp/testsuite/libgomp.hsa.c/pr82416.c


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37

char __attribute__ ((noipa))
toup (char X)
{
  if (X >= 97 && X <= 122)
    return X - 32;
  else
    return X;
}

char __attribute__ ((noipa))
target_toup (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;
}

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;
}