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

   1 /* { dg-do link } */
   2 /* { dg-require-effective-target large_long_double } */
   3
   4 /* PR middle-end/86416  */
   5 /* { dg-error "bit-precision floating-point numbers unsupported .mode '.F'." "" { target { offload_target_nvptx || offload_target_amdgcn } } 0 }  */
   6 /* { dg-excess-errors "Follow-up errors from mkoffload and lto-wrapper" { target { offload_target_nvptx || offload_target_amdgcn } } }  */
   7
   8 #include <stdlib.h>  /* For abort. */
   9
  10 long double foo (long double x)
  11 {
  12   #pragma omp target map(tofrom:x)
  13     x *= 2.0;
  14   return x;
  15 }
  16
  17 int main()
  18 {
  19   long double v = foo (10.0L) - 20.0L;
  20   if (v > 1.0e-5L || v < -1.0e-5L) abort();
  21   return 0;
  22 }