libgomp/testsuite/libgomp.c/pr86416-2.c

   1 /* { dg-do link { target __float128 } } */
   2 /* { dg-add-options __float128 } */
   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 __float128 foo(__float128 y)
  11 {
  12   #pragma omp target map(tofrom: y)
  13     y *= 4.0;
  14   return y;
  15 }
  16
  17 int main()
  18 {
  19   __float128 v = foo (5.0Q) - 20.0Q;
  20   if (v > 1.0e-5Q || v < -1.0e-5Q) abort();
  21   return 0;
  22 }