view libgomp/testsuite/libgomp.hsa.c/pr82416.c @ 158:494b0b89df80 default tip

...
author Shinji KONO <kono@ie.u-ryukyu.ac.jp>
date Mon, 25 May 2020 18:13:55 +0900
parents 84e7813d76e9
children
line wrap: on
line source

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