libgomp/testsuite/libgomp.c/pr86416-1.c


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22

/* { dg-do link } */
/* { dg-require-effective-target large_long_double } */

/* PR middle-end/86416  */
/* { dg-error "bit-precision floating-point numbers unsupported .mode '.F'." "" { target { offload_target_nvptx || offload_target_amdgcn } } 0 }  */
/* { dg-excess-errors "Follow-up errors from mkoffload and lto-wrapper" { target { offload_target_nvptx || offload_target_amdgcn } } }  */

#include <stdlib.h>  /* For abort. */

long double foo (long double x)
{
  #pragma omp target map(tofrom:x)
    x *= 2.0;
  return x;
}

int main()
{
  long double v = foo (10.0L) - 20.0L;
  if (v > 1.0e-5L || v < -1.0e-5L) abort();
  return 0;
}